看到头像旁边的关注按钮，点罩薯缺击关注就可以了，首先你必须登陆了微博。
微博用途的定位。企业物辩建立微博帐号是什么目的，是为了宣传企业形象，是为了推广企业产品，还是仅仅为了跟风。
在网站添加关注微博按钮方法如下：
百度搜索【新浪微博开放平台】，进入
2.进入网站后，在页面点击【网站接入 WEB】。
3.在这里点击【开始接入】按钮。
4.填写网站信息，并提交验证代码到网站首页<head></head>之间，其次还可以选择文件验证。最后点击下面的【验证并渗或提交】缓歼按钮，到部署微博链接这里可以直接点击【丛哪伍下一步】，直到审核。
5.在微博平台【管理中心】，选择【我的网站】，在我的网站里，进入接入的网站
6.在网站控制台菜单下，点击【部署微博链接】。
7.在这里便可找到微博关注按钮的功能，点击【使用】。
8.配置微博关注按钮样式，这里要记得填写微博名称，下面就自定义设置样式即可。
9.部署代码，这里先说第一条的【在HTML标签中增加XML命名空间】，这条代码是放到网页最顶部的，在<head>的顶部。
10.第二条的【在HEAD头中引入WB.JS】，这条代码是放到网页顶部标题下方CSS样式和JS的位置。
11.最后第三条代码就简单理解了，类似投放广告代码，只要放在网页可以看的地方就可以了。图中是改段代码的参数值，可参考修改相应位置。
'新建WebBrowser1 Combo1Private Function 读取(文件名)
Dim Strtxt$, Btxt
Open App.Path &"\" &文件名 For Input As #1
Do While Not EOF(1)
Line Input #1, Btxt
Strtxt = Strtxt &Btxt '&vbCrLf
Loop
Close #1
读取 = Strtxt
End Function
Private Function 保存(内容, 文件名)
Dim strOuttmpFile As String
Dim strPrinteTxt As String
strOuttmpFile = App.Path &"\" &文件名
strPrinteTxt = 内容
Open strOuttmpFile For Output As #1
Print #1, strPrinteTxt
Close #1
End Function
Private Sub Combo1_Click()
Dim A As String, B As String
WebBrowser1.Navigate "http://www.XXX.com/"
B = 读取("源码.txt")
A = TxtWebBrowser1.Document.documentelement.innerhtml
If InStr(1, A, B) = 0 Then
保行橡存 B, "源码档如旁.txt"
MsgBox "提橡耐示更新"
End If
End Sub
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）