VB 网络篇inet控件的简单应用代码（一）

yoop

Internet Transfer 控件实现了两种广泛使用的 Internet 协议： 超文本传送协议（HyperText Transfer Protocol）(HTTP) 和文件传送协议（File Transfer Protocol） (FTP)。使用 Internet Transfer 控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。

'以下代码由yoop编写
'代码利用inet获取HTML代码
'Text1的Multiline建议设置为Ture，方便阅览
'Text1内将会显示百度的HTML代码

Private Sub Command1_Click()
a = Inet1.OpenURL("http://www.baidu.com/")
Text1.Text = a
End Sub


'现在既然获取了HTML，那么我们就来做点什么吧
'以下代码由yoop编写
'代码利用inet获取HTML后进行指定字符串的查找
'让Text1内显示百度首页的备案号
Private Sub Command1_Click()
a = Inet1.OpenURL("http://www.baidu.com/")
a = Mid(a, InStr(a, "京ICP证"), 29)
a = Mid(a, InStr(a, "证") + 1, 6)
Text1.Text = "京ICP证" & a & "号"

End Sub

zapline

支持一下
用VB写个抓包工具