vb中连接远程txt文件

来源：百度知道 编辑：UC知道 时间：2024/09/24 22:45:18
在VB中
有一输入框 有一按钮
如何实现连接远程TXT文件并且判断输入框内容是否和远程TXT文件上的内容一样
一样的话则form2.show
不一样的话就msgbox
例如远程txt文件为：http://www.baidu.com/1.txt
怎么去判断?
上述问题差不多解决了
那在这个基础上
怎么读取指定网页并显示出来（要适当调好比例）
或者说是读取某些公告...

我刚给你写的读取网络文本和对比的代码
在窗体上添加一个Inet控件和一个按钮和一个文本框

Option Explicit

Private Sub Command1_Click()
Inet1.Execute "http://www.baidu.com/1.txt", "GET"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then
Dim StrIn As String

StrIn = Inet1.GetChunk(0, icstring)
If Text1.Text = StrIn Then
Form2.Show
Else
MsgBox "对比不一致"
End If
End If
End Sub

至于显示公告：
如果是单纯的文本 ，可以按上面的方法下载后 在窗体上添加TEXTBOX或LABLE显示
如果不是纯文本 可以用WEBBROWSER显示
WebBrowser1.Navigate "要显示的网页地址"
这儿的网页地址一般是HTML格式的

用WebBrowser
选择工程--部件 然后选择Microsoft Internet Controls 确定
用这个控件在窗口中调好位置 然后代码：
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.c