我想用VB写一个访问微博的小程序，就是关注一个博客，当他有新内容更新的时候会d出更新的内容？？谢谢了

'新建WebBrowser1 Combo1

Private 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

用不同的登录方式。

比如可以用qq登录：

1、我们首先打腔念慎开微博首页。

2、点击选择账号设置。

3、然后选择账号绑定。

4、绑定好qq号即可。

5、下次我们登录微博时就可以用qq直接登录微博了高者。

微博，是基于用户关系伍敬的社交媒体平台，用户可以通过PC、手机等多种移动终端接入，以文字、图片、视频等多媒体形式，实现信息的即时分享、传播互动。

1，在桌面上，鼠标左键双击程序，打开VB编慎友程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出两标签，用来写文字的说明。在这里写上用户名和密码，如下图所示。

2，接着，根据窗口的大小，感觉文字小了，可以在Label属性窗口上，修改Font属性值，单击其选择按钮就可以更改字体的大小了，如下图所示。

3，然后，在d出的字体对话框中，选择四号字的大小，单击【确定】按钮后，就可看到Form1窗口上用户名的字体变大了。密码的字体大小也如此 *** 作，如下图所示。

4，接着，在程序左边工具栏上，单击【TextBox】按钮，在Form1窗口上绘制出两文本框，并在TextBox属性面板上，修改Text的值，将其清空，如下图穗孝仔所示。

5，然后，在程序左边工具栏上，单击【CommandButton】按钮，在Form1窗口上绘制出两命令按钮在其属性面板上，将Caption的值改为确定。另一个改为取消，如下图所示。

6，最后，在程序左边工具栏上，单击【Image】按钮，在Form1窗口上绘制出两图框，并修改其两处属性值，如图所示，选取两个图标后，将它们重新布局猜汪的更好看些后，单击运行，登录窗口就出现了，如下图所示。

1、新建一个标准工程，在窗体添加两个窗体，使用默认名（这里默认可以自己更改），第一个窗体caption属性更改为“用户登录”，第二个窗口caption属性改为“”空格，在第一个窗口添加两个label控件，名称分别改为“用户名：”“密码”（这里右边属性表passwordchar添加“*”）borderstyle分别选择3，两个commandbox空间，caption属性分别改为“登录”“退出”

主要程序添加，这里代码在图片里

2、在第二窗口添加两个label,一个commandbox控件，label的caption属性分别改为“用户成功登录，欢迎使用”，“声明：纯属个人爱好与学习，切勿商业使用”；commandboxe控件caption属性改为“退出”主要代码在图片里

3、点击菜单栏“启动”输入“用户名”“密码”，即可登录，登录界面就这样制作完成了，很简单，希望大家多揣摩，开发出更好程序

---