标签：text tps www. 取数据 str ring url protoc .text
以下是在Microsoft Visual Basic 6.0 中文版下做的
VB可以抓取网页数据，所用的控件是Inet控件。
第一步：单击工程-->部件 选择Microsoft Internet Transfer Control(SP6)控件。
第二步：布局界面显示
在界面里面拖动相对应的控件。
第三步 编码开始
Option Explicit
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入要查看源代码的URL！", vbOKOnly, "错误！"
Else
MsgBox "网站服务器较慢或页面内容较多时，请等待！", vbOKOnly, "提示："
Inet1.Protocol = icHTTP
‘ MsgBox (Inet1.OpenURL(Text1.Text))
Text2.Text = Inet1.OpenURL(Text1.Text)
End If
End Sub
Private Sub Command2_Click()
On Error GoTo connerror
Dim a, b, c As String
a = Text2.Text
b = Split(a, "<title>")(1)
b = Split(b, "</title>")(0)
Text3.Text = b
c = Split(a, Label4.Caption)(1)
c = Split(c, "/>")(0)
Text4.Text = c
connerror:
End Sub
Private Sub Form_Load()
MsgBox "请首先输入URL，然后点击查看源码，最后再点击获取信息！", vbOKOnly, "提示："
End Sub
第四步：测试
在网页地址输入：https://www.cnblogs.com/
在网页数据既可以获取数据。
标签：text tps www. 取数据 str ring url protoc .text
原文地址：http://www.cnblogs.com/lixiaomingr/p/7387946.html
