腾讯微博API核心模块

最新推荐文章于 2024-10-19 09:09:54 发布
最新推荐文章于 2024-10-19 09:09:54 发布
阅读量146 收藏
点赞数
文章标签： 腾讯微博授权

'***********************************************************************************
'***本程序可以自由传播,本人不对您使用本软件及代码造成的任何后果承担任何责任**
'***利用此代码挣钱了也无需告诉我******
'***作者：龙小龙 QQ：31519488,部分代码来源于网络***
'***感谢中国农业人才网www.5ajob.com 大力支持***
'***中国农业人才网,让伯乐与千里马不再是偶遇***
'***********************************************************************************

Public c_baseUrl As String
    Public c_request_tokenUrl As String
    Public c_authorizeUrl As String
    Public c_tokenUrl As String
    Public c_App_Key As String
    Public c_App_Secret As String
    Public c_redirect_uri As String

    Public c_oauth_token As String '未授权token
    Public c_oauth_token_secret As String
    Public c_oauth_verifier As String
    Public c_access_token As String '授权后的token
    Public c_access_token_secret As String
    Public c_accesstoken2_0 As String 'oauth2
    Public c_refreshtoken2_0 As String
    Public c_expiretime2_0 As String
    Public c_getTokenTime As String '获得授权时的时间

    Public Sub Class_Initialize()

    End Sub
    
    Public Sub Class_Terminate()
    
    End Sub
    
    Public Function Get_oauth_token()
        Dim codeUrl As String, baseString As String, paraUrl As String
        Dim codeUrlTempalte As String '获取未授权
        Dim paraUrlTempalte As String
        Dim baseStringTemplate As String
        Dim tempstr As String
        
        codeUrlTempalte = "{0}?oauth_callback={3}&oauth_consumer_key={1}&oauth_nonce={2}&oauth_signature={5}&oauth_signature_method=HMAC-SHA1&oauth_timestamp={4}&oauth_version=1.0"
        paraUrlTempalte = "oauth_callback={3}&oauth_consumer_key={1}&oauth_nonce={2}&oauth_signature_method=HMAC-SHA1&oauth_timestamp={4}&oauth_version=1.0"
        baseStringTemplate = "{method}&{encode_request_tokenUrl}&{encode_paraUrl}" '用于生成signature
        
        oauth_nonce = makePassword(10) '随机数
        oauth_timestamp = DateDiff("s", "01/01/1970 08:00:00", Now()) '邮戳
        
        paraUrl = Replace(paraUrlTempalte, "{1}", Me.c_App_Key) '参数串
        paraUrl = Replace(paraUrl, "{2}", oauth_nonce)
        paraUrl = Replace(paraUrl, "{3}", Me.c_redirect_uri)
        paraUrl = Replace(paraUrl, "{4}", oauth_timestamp)
        
        baseString = Replace(baseStringTemplate, "{method}", "GET")
        baseString = Replace(baseString, "{encode_request_tokenUrl}", strUrlEnCode(Me.c_request_tokenUrl))
        baseString = Replace(baseString, "{encode_paraUrl}", strUrlEnCode(paraUrl))
        
'        Debug.Print baseString
        oauth_signature = HAMC_SHA1(Me.c_App_Secret + "&", baseString) ' + Me.c_oauth_token_secret
        codeUrl = Replace(codeUrlTempalte, "{0}", Me.c_request_tokenUrl)
        codeUrl = Replace(codeUrl, "{1}", Me.c_App_Key)
        codeUrl = Replace(codeUrl, "{2}", oauth_nonce)
        codeUrl = Replace(codeUrl, "{3}", Me.c_redirect_uri)
        codeUrl = Replace(codeUrl, "{4}", oauth_timestamp)
        codeUrl = Replace(codeUrl, "{5}", oauth_signature)
        
        tempstr = httpGet(codeUrl)
        Get_oauth_token = tempstr
        tempstr = GetValue(tempstr, "oauth_token\=(.*?)&oauth_token_secret\=(.*?)&oauth_callback_confirmed\=true", "0|1", False, False)
        atempstr = Split(tempstr, "$$")
        If UBound(atempstr) = 1 Then
        Me.c_oauth_token = atempstr(0)
        Me.c_oauth_token_secret = atempstr(1)
        End If
    End Function

    Public Function Get_access_token()
        Dim codeUrl As String, baseString As String, paraUrl As String
        Dim codeUrlTempalte As String
        Dim paraUrlTempalte As String
        Dim baseStringTemplate As String
        Dim tempstr As String

        codeUrlTempalte = "{0}?oauth_consumer_key={1}&oauth_nonce={2}&oauth_signature={5}&oauth_signature_method=HMAC-SHA1&oauth_timestamp={4}&oauth_token={6}&oauth_token_secret={7}&oauth_verifier={3}&oauth_version=1.0"
        paraUrlTempalte = "oauth_consumer_key={1}&oauth_nonce={2}&oauth_signature_method=HMAC-SHA1&oauth_timestamp={4}&oauth_token={6}&oauth_verifier={3}&oauth_version=1.0"
        baseStringTemplate = "{method}&{encode_tokenUrl}&{encode_paraUrl}" '用于生成signature

        oauth_nonce = makePassword(10)  '随机数
        oauth_timestamp = DateDiff("s", "01/01/1970 08:00:00", Now()) '邮戳

        paraUrl = Replace(paraUrlTempalte, "{1}", Me.c_App_Key) '参数串
        paraUrl = Replace(paraUrl, "{2}", oauth_nonce)
        paraUrl = Replace(paraUrl, "{3}", Me.c_oauth_verifier)
        paraUrl = Replace(paraUrl, "{4}", oauth_timestamp)
        paraUrl = Replace(paraUrl, "{6}", Me.c_oauth_token)
        paraUrl = Replace(paraUrl, "{7}", Me.c_oauth_token_secret)
        
        baseString = Replace(baseStringTemplate, "{method}", "GET")
        baseString = Replace(baseString, "{encode_tokenUrl}", strUrlEnCode(Me.c_tokenUrl))
        baseString = Replace(baseString, "{encode_paraUrl}", strUrlEnCode(paraUrl))
        
'        Debug.Print baseString
        oauth_signature = HAMC_SHA1(Me.c_App_Secret + "&" + Me.c_oauth_token_secret, baseString)
'        Debug.Print Me.c_App_Secret + "&" + Me.c_oauth_token_secret
'        MsgBox oauth_signature
        
        codeUrl = Replace(codeUrlTempalte, "{0}", Me.c_tokenUrl)
        codeUrl = Replace(codeUrl, "{1}", Me.c_App_Key)
        codeUrl = Replace(codeUrl, "{2}", oauth_nonce)
        codeUrl = Replace(codeUrl, "{3}", Me.c_oauth_verifier)
        codeUrl = Replace(codeUrl, "{4}", oauth_timestamp)
        codeUrl = Replace(codeUrl, "{5}", oauth_signature)
        codeUrl = Replace(codeUrl, "{6}", Me.c_oauth_token)
        codeUrl = Replace(codeUrl, "{7}", Me.c_oauth_token_secret)
'        Debug.Print codeUrl

'        Debug.Print Me.c_oauth_token_secret

        tempstr = httpGet(codeUrl)
        
        tempstr0 = tempstr
        tempstr0 = GetValue(tempstr0, "oauth_token\=(.*)?&oauth_token_secret\=(.*)?&", "0|1", False, False)
        atempstr = Split(tempstr0, "$$")
        If UBound(atempstr) = 1 Then
        Me.c_access_token = atempstr(0)
        Me.c_access_token_secret = atempstr(1)
        End If
        
        Get_access_token = tempstr
       
    End Function
Public Function Get_oAuth2()
        Dim codeUrl As String, baseString As String, paraUrl As String
        Dim codeUrlTempalte As String
        Dim paraUrlTempalte As String
        Dim baseStringTemplate As String
        Dim tempstr As String
        tokenUrl2 = "http://open.t.qq.com/api/auth/get_oauth2_token"
  codeUrlTempalte = "{0}?callbackurl=null&oauth_consumer_key={1}&oauth_nonce={2}&oauth_signature={5}&oauth_signature_method=HMAC-SHA1&oauth_timestamp={4}&oauth_token={6}&oauth_version=1.0"
 paraUrlTempalte = "callbackurl=null&oauth_consumer_key={1}&oauth_nonce={2}&oauth_signature_method=HMAC-SHA1&oauth_timestamp={4}&oauth_token={6}&oauth_version=1.0"
     'callbackurl=null&clientip=222.95.116.115&format=json&
        
        
        baseStringTemplate = "{method}&{encode_tokenUrl}&{encode_paraUrl}" '用于生成signature

        oauth_nonce = makePassword(10)  '随机数
        oauth_timestamp = DateDiff("s", "01/01/1970 08:00:00", Now()) '邮戳
        paraUrl = Replace(paraUrlTempalte, "{1}", Me.c_App_Key) '参数串
        paraUrl = Replace(paraUrl, "{2}", oauth_nonce)
        paraUrl = Replace(paraUrl, "{4}", oauth_timestamp)
        paraUrl = Replace(paraUrl, "{6}", Me.c_access_token)
          
        baseString = Replace(baseStringTemplate, "{method}", "GET")
        baseString = Replace(baseString, "{encode_tokenUrl}", strUrlEnCode(tokenUrl2))
        baseString = Replace(baseString, "{encode_paraUrl}", strUrlEnCode(paraUrl))
        
'        Debug.Print baseString
        oauth_signature = HAMC_SHA1(Me.c_App_Secret + "&" + Me.c_access_token_secret, baseString)
'        MsgBox Me.c_App_Secret + "&" + Me.c_oauth_token_secret
'        MsgBox oauth_signature
        
        codeUrl = Replace(codeUrlTempalte, "{0}", tokenUrl2)
        codeUrl = Replace(codeUrl, "{1}", Me.c_App_Key)
        codeUrl = Replace(codeUrl, "{2}", oauth_nonce)
        codeUrl = Replace(codeUrl, "{4}", oauth_timestamp)
        codeUrl = Replace(codeUrl, "{5}", oauth_signature)
        codeUrl = Replace(codeUrl, "{6}", Me.c_access_token)

'        Debug.Print codeUrl

'        Debug.Print Me.c_oauth_token_secret

        tempstr = httpGet(codeUrl)
        tempstr0 = tempstr
        
        errcode = GetValueFromJson(tempstr0, "errcode")
        If errcode = 0 Then
         Me.c_accesstoken2_0 = GetValueFromJson(tempstr0, "data.accesstoken")
         Me.c_expiretime2_0 = GetValueFromJson(tempstr0, "data.expiretime")
         Me.c_refreshtoken2_0 = GetValueFromJson(tempstr0, "data.refreshtoken")
         Me.c_getTokenTime = Now()
        End If
        
        Get_oAuth2 = tempstr
'        Debug.Print tempstr
'        Debug.Print Me.c_accesstoken2_0
End Function
Public Function Get_oAuth2ByRefreshToken()
If IsDate(Me.c_getTokenTime) = False Then
   Get_oAuth2ByRefreshToken = Get_oAuth2
 ElseIf DateDiff("s", Me.c_getTokenTime, Now()) - Me.c_expiretime2_0 > 0 Then
    Get_oAuth2ByRefreshToken = Get_oAuth2
 End If
End Function
Public Function Postpic(ByVal sUrl As String, Optional ByVal param As Dictionary, Optional ByVal useBaseUrl As Boolean) As String
      If useBaseUrl = True Then
      Call Get_oAuth2ByRefreshToken '如果到期再次授权
      sUrl = Replace(Me.c_baseUrl, "{0}", sUrl & "?oauth_consumer_key={1}&oauth_token={2}&oauth_version=2.0")
      End If
      
      sUrl = Replace(sUrl, "{1}", Me.c_App_Key)
      sUrl = Replace(sUrl, "{2}", Me.c_accesstoken2_0)
      
    Dim myUpload
    Set myUpload = New clsFileUpload
    With myUpload
    .c_strDestURL = sUrl
    Set .c_param = param
    .vbsUpload
    Postpic = .c_strResponseText
    'Debug.Print .c_strResponseText
    'Debug.Print .c_strErrMsg
    End With
    Set myUpload = Nothing

End Function

Public Function httpPost(ByVal sUrl As String, Optional ByVal param As Dictionary, Optional ByVal useBaseUrl As Boolean) As String
      If useBaseUrl = True Then
       Call Get_oAuth2ByRefreshToken '如果到期再次授权
      sUrl = Replace(Me.c_baseUrl, "{0}", sUrl & "?oauth_consumer_key={1}&oauth_token={2}&oauth_version=2.0")
      End If
      
      sUrl = Replace(sUrl, "{1}", Me.c_App_Key)
      sUrl = Replace(sUrl, "{2}", Me.c_accesstoken2_0)
      
      Dim http
      Set http = CreateObject("Msxml2.XMLHTTP")
      http.open "Post", sUrl, False
       http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
      If param Is Nothing Then
       http.send
      Else
       http.send BuildPostContent(param)
      End If
      httpPost = http.responseText
      Set http = Nothing
'      Debug.Print sUrl
End Function



Public Function httpGet(ByVal sUrl As String, Optional ByVal param As Dictionary, Optional ByVal useBaseUrl As Boolean) As String
     If useBaseUrl = True Then
       Call Get_oAuth2ByRefreshToken '如果到期再次授权
      sUrl = Replace(Me.c_baseUrl, "{0}", sUrl & "?oauth_consumer_key={1}&oauth_token={2}&oauth_version=2.0")
      sUrl = Replace(sUrl, "{1}", Me.c_App_Key)
      sUrl = Replace(sUrl, "{2}", Me.c_accesstoken2_0)
      
      sUrl = sUrl & "&" & BuildPostContent(param)
      End If
      Dim http
      Set http = CreateObject("Msxml2.XMLHTTP")
      http.open "Get", sUrl, False
      http.send
      httpGet = http.responseText
      Set http = Nothing
End Function

Public Function BuildPostContent(ByVal p_param As Dictionary)
    Dim l As Integer, tempstr As String, PostContentTemplate As String, PostContent As String
    PostContent = ""
    PostContentTemplate = "{0}={1}"
    '排序
    Call SortDictionary(p_param, 1)
    l = p_param.Count
    For i = 0 To l - 1
        tempstr = Replace(PostContentTemplate, "{0}", p_param.Keys(i))
        tempstr = Replace(tempstr, "{1}", p_param.Items(i))
        PostContent = IIf(PostContent = "", tempstr, PostContent & "&" & tempstr)
        
    Next
    Set p_param = Nothing
    BuildPostContent = PostContent

'    Debug.Print PostContent
End Function

Public Function strUrlEnCode(ByVal strUrl)
strUrlEnCode = Replace(strUrl, "=", "%3D")
strUrlEnCode = Replace(strUrlEnCode, "&", "%26")
strUrlEnCode = Replace(strUrlEnCode, ":", "%3A")
strUrlEnCode = Replace(strUrlEnCode, "/", "%2F")
End Function


'腾讯1.0认证
Public Function httpGet1(ByVal sUrl As String, Optional ByVal param As Dictionary, Optional ByVal useBaseUrl As Boolean) As String '腾讯1.0
     If useBaseUrl = True Then
              oauth_nonce = makePassword(10)  '随机数
              oauth_timestamp = DateDiff("s", "01/01/1970 08:00:00", Now()) '邮戳
              
            With param
              .Add "oauth_consumer_key", Me.c_App_Key
              .Add "oauth_nonce", oauth_nonce
              .Add "oauth_signature_method", "HMAC-SHA1"
              .Add "oauth_timestamp", oauth_timestamp
              .Add "oauth_token", Me.c_access_token
              .Add "oauth_version", "1.0"
            End With
            Call SortDictionary(param, 1)
            paraUrl = BuildPostContent(param)
            baseUrl = Replace(Me.c_baseUrl, "{0}", sUrl)
      
        baseStringTemplate = "{method}&{encode_tokenUrl}&{encode_paraUrl}" '用于生成signature
        baseString = Replace(baseStringTemplate, "{method}", "GET")
        baseString = Replace(baseString, "{encode_tokenUrl}", strUrlEnCode(baseUrl))
        baseString = Replace(baseString, "{encode_paraUrl}", strUrlEnCode(paraUrl))
        oauth_signature = HAMC_SHA1(Me.c_App_Secret + "&" + Me.c_access_token_secret, baseString)
'Debug.Print baseString
        With param
        .Add "oauth_signature", oauth_signature
        End With
         Call SortDictionary(param, 1)
         paraUrl = BuildPostContent(param)
       sUrl = baseUrl & "?" & paraUrl
      End If
      

      Dim http
      Set http = CreateObject("Msxml2.XMLHTTP")
      http.open "Get", sUrl, False
      http.send
      httpGet1 = http.responseText
      Set http = Nothing

End Function
Public Function httpPost1(ByVal sUrl As String, Optional ByVal param As Dictionary, Optional ByVal useBaseUrl As Boolean) As String
     If useBaseUrl = True Then
          oauth_nonce = makePassword(10)  '随机数
          oauth_timestamp = DateDiff("s", "01/01/1970 08:00:00", Now()) '邮戳
          
        With param
          .Add "oauth_consumer_key", Me.c_App_Key
          .Add "oauth_nonce", oauth_nonce
          .Add "oauth_signature_method", "HMAC-SHA1"
          .Add "oauth_timestamp", oauth_timestamp
          .Add "oauth_token", Me.c_access_token
          .Add "oauth_version", "1.0"
        End With
        Call SortDictionary(param, 1)
        paraUrl = BuildPostContent(param)
        baseUrl = Replace(Me.c_baseUrl, "{0}", sUrl)
      
        baseStringTemplate = "{method}&{encode_tokenUrl}&{encode_paraUrl}" '用于生成signature
        baseString = Replace(baseStringTemplate, "{method}", "POST")
        baseString = Replace(baseString, "{encode_tokenUrl}", strUrlEnCode(baseUrl))
        baseString = Replace(baseString, "{encode_paraUrl}", strUrlEnCode(paraUrl))
        oauth_signature = HAMC_SHA1(Me.c_App_Secret + "&" + Me.c_access_token_secret, baseString)
'Debug.Print baseString
        With param
        .Add "oauth_signature", oauth_signature
        End With
         Call SortDictionary(param, 1)
         paraUrl = BuildPostContent(param)
       sUrl = baseUrl '& "?" & paraUrl
      End If
      
      Dim http
      Set http = CreateObject("Msxml2.XMLHTTP")
      http.open "Post", sUrl, False
       http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
      If param Is Nothing Then
       http.send
      Else
       http.send paraUrl
      End If
      httpPost1 = http.responseText
      Set http = Nothing
'      Debug.Print sUrl
End Function
'1.0发图片还是提示签名错误，但我计算的结果和腾讯给的在线调试工具计算的结果是一致的，不知道原因 ，也不用管了，腾讯都已经在测试2.0的授权了，淘汰1.0是迟早的事情，这一点，腾讯走得太慢了，小企鹅变成懒企鹅了
Public Function Postpic1(ByVal sUrl As String, Optional ByVal param As Dictionary, Optional ByVal useBaseUrl As Boolean) As String
     If useBaseUrl = True Then
          oauth_nonce = makePassword(10) '随机数
          oauth_timestamp = DateDiff("s", "01/01/1970 08:00:00", Now())  '邮戳
          
        With param
          .Add "oauth_consumer_key", Me.c_App_Key
          .Add "oauth_nonce", oauth_nonce
          .Add "oauth_signature_method", "HMAC-SHA1"
          .Add "oauth_timestamp", oauth_timestamp
          .Add "oauth_token", Me.c_access_token
          .Add "oauth_version", "1.0"
          
          
          '把pic 弄出来
          picpath = .Item("pic")
          .Remove ("pic")
        End With
        Call SortDictionary(param, 1)
        paraUrl = BuildPostContent(param)
        baseUrl = Replace(Me.c_baseUrl, "{0}", sUrl)
      
        baseStringTemplate = "{method}&{encode_tokenUrl}&{encode_paraUrl}" '用于生成signature
        baseString = Replace(baseStringTemplate, "{method}", "POST")
        baseString = Replace(baseString, "{encode_tokenUrl}", strUrlEnCode(baseUrl))
        baseString = Replace(baseString, "{encode_paraUrl}", strUrlEnCode(paraUrl))
        oauth_signature = HAMC_SHA1(Me.c_App_Secret + "&" + Me.c_access_token_secret, baseString)
'        Debug.Print baseString
        With param
        .Add "oauth_signature", oauth_signature
'        .Add "pic", Split(picpath, "|")(2)
        End With
         Call SortDictionary(param, 1)
         paraUrl = BuildPostContent(param)
       sUrl = baseUrl & "?" & paraUrl '"format=json&content=good&clientip=49.74.73.203&jing=11&wei=18&pic=c:\13.jpg&syncflag=0" '
      End If
      Debug.Print sUrl
      '把pic加上
'       param.Remove ("pic")
    param.Add "pic", picpath

'     Call SortDictionary(param, 1)
'For i = 0 To param.Count - 1
'Debug.Print param.Keys(i) & "=" & param.Items(i)
'Next


    Dim myUpload
    Set myUpload = New clsFileUpload
    With myUpload
    .c_strDestURL = sUrl
    Set .c_param = param
    .vbsUpload
    Postpic1 = .c_strResponseText
    'Debug.Print .c_strResponseText
    'Debug.Print .c_strErrMsg
    End With
    Set myUpload = Nothing

End Function
'1.0核心函数结束


'说明：Dictionary排序
'参数：
'   objDict:Dictionary对象
'   intSort: 1 根据key排序; 2 根据value排序
Function SortDictionary(objDict, intSort)
  ' declare our variables
  Dim strDict()
  Dim objKey
  Dim strKey, strItem
  Dim x, Y, Z

  ' get the dictionary count
  Z = objDict.Count

  ' we need more than one item to warrant sorting
  If Z > 1 Then
    ' create an array to store dictionary information
    ReDim strDict(Z, 2)
    x = 0
    ' populate the string array
    For Each objKey In objDict
        strDict(x, 1) = CStr(objKey)
        strDict(x, 2) = CStr(objDict(objKey))
        x = x + 1
    Next

    ' perform a a shell sort of the string array
    For x = 0 To (Z - 2)
      For Y = x To (Z - 1)
        If StrComp(strDict(x, intSort), strDict(Y, intSort), vbTextCompare) > 0 Then
            strKey = strDict(x, 1)
            strItem = strDict(x, 2)
            strDict(x, 1) = strDict(Y, 1)
            strDict(x, 2) = strDict(Y, 2)
            strDict(Y, 1) = strKey
            strDict(Y, 2) = strItem
        End If
      Next
    Next

    ' erase the contents of the dictionary object
    objDict.RemoveAll

    ' repopulate the dictionary with the sorted information
    For x = 0 To (Z - 1)
      objDict.Add strDict(x, 1), strDict(x, 2)
    Next

  End If

End Function

 

iteye_3768
关注
基于Apache APISIX，新浪微博API网关的定制化开发之路
ApacheAPISIX的博客
08-04 641
微博之前的 HTTP API 网关基于 NGINX 搭建，所有路由规则存放在 NGINX conf 配置文件中，带来一系列问题：升级步骤长，对服务增、删、改或跟踪问题时，不够灵活且难以排查问题。经过一番调研之后，我们选择了最接近预期、基于云原生的微服务 API 网关：Apache APISIX，借助其动态、高效、稳定等特性以满足业务的快速响应要求。 1、背景说明 在微博，运维同学要创建一个 API 服务，他需要先在 nginx conf 配置文件里面写好，提交到 git 代码仓库里面去，等其它负责上线的运维
微博热点事件背后数据库运维的“功守道”
优快云研发技术
01-02 7082
微博拥有超过3.76亿月活用户，是当前社会热点事件传播的主要平台。而热点事件往往具有不可预测性和突发性，较短时间内可能带来流量的翻倍增长，甚至更大。如何快速应对突发流量的冲击，确保线上服务的稳定性，对于提供全微博数据托管的服务部门数据库团队来说既是机遇又是挑战。本文尝试从一线DBA的视角管窥微博热点事件背后的数据库运维应对之道。
腾讯微博API封装教程
weixin_28933797的博客
10-07 2208
本文还有配套的精品资源，点击获取 简介：腾讯微博API封装为开发者提供了一个简化与平台交互的工具，包含授权流程、接口调用方法和封装实践。通过OAuth2.0获得授权码和Access Token，开发者可以通过HTTP请求调用API并处理数据。封装技术将API的复杂性隐藏，提供简洁的接口供开发者使用。教程涵盖了封装的全过程，从配置文件到源代码的实现细节，并强调了封装对提高开发...
腾讯微博源码深入解析与实践指南
weixin_42146230的博客
09-03 1435
本文还有配套的精品资源，点击获取 简介：腾讯微博源码提供了社交媒体平台架构设计、技术选型及功能实现的宝贵学习资源。本资料涵盖分层架构、微服务、分布式系统、后端语言、数据库技术、消息队列、缓存策略、用户认证、内容发布、关系网络、推荐算法、性能优化、安全性措施、可扩展性、维护性、监控与日志等多方面深入分析，助你掌握大型社交网络的开发与优化技能。 1. 腾讯微博源码架构...
易语言实现腾讯微博自动发布项目源码
weixin_35757191的博客
10-19 1051
本文还有配套的精品资源，点击获取 简介：易语言专为初学者设计，以简化语法和中文词汇降低学习难度。本项目提供易语言编写的腾讯微博自动发布程序，实用性强，适用于社交媒体营销和批量信息发布。源码包括API调用实现登录验证和发送微博功能。程序包含循环、条件判断等编程概念，且有错误处理机制。同时，源码使用说明文件详细指导运行和修改步骤，易语言扩展模块如精易模块、新编码转换大全和彗星H...
新浪微博架构分析
黑马CTO
04-25 717
技术开发者往往对微博这个产品非常关心，对微博的构架非常感兴趣，就是一个明星他有300万粉丝，这个技术怎么来实现？今天在这里跟大家分享一下微博的底层机构，让大家对微博的底层技术有更好的了解。另外不管是做客户端、Web1.0、Web 2.0、论坛、博客都要考虑架构的问题，架构实际上是有一些共性的。今天我通过讲解微博里面的一些架构，分析一下架构里面哪些共性大家可以参考。 首先给大家介绍一下微博...
【云计算服务平台调研】阿里云、腾讯云、华为云对比
zoetu
05-09 8412
云计算期末作业，调查云计算服务平台（阿里云、腾讯云、华为云）。
Windows API函数速查
zhangyubishoulin的专栏
11-09 4990
Windows API函数速查 1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接
腾讯微博API SDK vb版源码解析与功能实现
#### 腾讯微博API简介 腾讯微博API是腾讯公司提供的一系列编程接口，允许开发者通过编程方式访问腾讯微博的部分功能，进行数据交互。使用这些API，开发者可以在自己的应用程序中实现发微博、获取用户信息、互动评论...
腾讯微博API_SDK_PHP示例
01-01
在使用腾讯微博API SDK for PHP时，你需要了解以下几个核心知识点： 1. **OAuth认证**：腾讯微博API使用OAuth 2.0进行授权，这是互联网上广泛采用的一种安全授权协议。开发者需要先注册应用获取App Key和App Secret...
易语言腾讯微博批量广播
07-19
《易语言腾讯微博批量广播：实现与技术剖析》 易语言是一种中文编程语言，它以其直观易懂的语法设计，让编程变得更加简单。在“易语言腾讯微博批量广播”项目中，开发者使用易语言实现了对腾讯微博的批量广播功能，...
android模仿腾讯微博项目源码
11-13
在Android平台上，模仿腾讯微博项目是一项综合性的任务，涉及到许多Android开发的核心技术和组件。这个项目旨在帮助开发者理解和实现一个类似腾讯微博的应用程序，提供社交网络的功能。以下将详细阐述此项目涉及的...
易语言腾讯微博批量发表源码.7z
07-12
1. **网络通信**：在易语言中，可以通过内置的网络模块进行HTTP请求，实现与腾讯微博服务器的通信。这包括发送登录请求、获取认证Token、发布微博等操作。你需要了解HTTP协议的基础知识，以及如何构建POST或GET请求...
少儿编程scratch项目源代码文件案例素材-孤胆枪手.zip
05-03
少儿编程scratch项目源代码文件案例素材-孤胆枪手.zip
少儿编程scratch项目源代码文件案例素材-航班.zip
05-03
少儿编程scratch项目源代码文件案例素材-航班.zip
推荐Matlab人脸识别源码合集（包含PCA、Adaboost、DLDA、费舍尔算法等）及多语言参考
最新发布
05-03
内容概要：本文介绍了Matlab环境下的人脸识别源码合集，涵盖PCA、Adaboost、DLDA等多种经典算法的具体实现。文中不仅提供了详细的代码解释，如PCA算法中的特征脸生成、Adaboost算法中的弱分类器组合，还包括了一些实用技巧，如灰度转换、协方差矩阵计算的提速方法、积分图优化等。此外，还提及了其他语言（如Java、Python、C#、OpenCV）的人脸识别源码作为参考。 适合人群：对人脸识别技术感兴趣的初学者和有一定编程基础的研究人员。 使用场景及目标：① 学习和掌握PCA、Adaboost等人脸识别的经典算法；② 实现并优化人脸识别系统；③ 探讨不同光照条件下的算法表现。 其他说明：文中提到的源码资源丰富，尤其是带有‘推荐’标识的Matlab项目，非常适合初学者入门。同时，还提供了一些实用的调试工具和性能优化建议，如实时摄像头检测、CUDA加速等。
Rust性能火焰图实战：CPU缓存优化深度指南.pdf
05-03
文档支持目录章节跳转同时还支持阅读器左侧大纲显示和章节快速定位，文档内容完整、条理清晰。文档内所有文字、图表、函数、目录等元素均显示正常，无任何异常情况，敬请您放心查阅与使用。文档仅供学习参考，请勿用作商业用途。 Rust 以内存安全、零成本抽象和并发高效的特性，重塑编程体验。无需垃圾回收，却能通过所有权与借用检查机制杜绝空指针、数据竞争等隐患。从底层系统开发到 Web 服务构建，从物联网设备到高性能区块链，它凭借出色的性能和可靠性，成为开发者的全能利器。拥抱 Rust，解锁高效、安全编程新境界！
RK3568与356X开发全套资料：包括Demo原理图、PCB及SDK等全套资源，可直接使用，支持Allegro和PADS设计。
05-03
内容概要：本文详细介绍了RK3568和RK356X系列处理器的开发资料，包括硬件原理图、PCB设计以及SDK开发。硬件部分提供了两种版本的PCB设计文件（Allegro和PADS），并附有详细的GPIO控制示例代码。软件部分则涵盖了Buildroot和Yocto双环境支持，以及多媒体开发示例，如视频播放功能。此外，还提供了丰富的库文件和开发示例，帮助开发者快速上手。文中还提到了一些常见的调试技巧和注意事项，如DDR初始化、电源配置等。 适合人群：嵌入式系统开发工程师、硬件设计师、软件开发者，尤其是那些希望深入理解和应用RK3568/356X平台的人群。 使用场景及目标：①硬件设计：通过原理图和PCB设计文件，帮助工程师快速构建硬件原型；②软件开发：借助SDK和示例代码，加速应用程序的开发和测试；③调试与优化：提供常见问题的解决方案和调试技巧，提高系统的稳定性和性能。 其他说明：资料总量达34GB，内容详尽全面，适用于从初学者到资深工程师的不同层次用户。建议新手先从外设驱动入手，逐步深入硬件设计和高级功能开发。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值