如何编写获取网页源代码的程序? 30
只需要获取源代码,不需要解读html我用vb,按照网上一朋友的方法先添加InternetTransferControl控件Inet1和Text1(网址),Text2(输出...
只需要获取源代码,不需要解读html
我用vb,按照网上一朋友的方法
先添加Internet Transfer Control控件Inet1
和Text1(网址),Text2(输出文件路径)
之后如下代码
Private Sub Command1_Click()
Dim B() As Byte
'取消所有操作
Inet1.Cancel
'设定协议为HTTP
Inet1.Protocol = icHTTP
'设定URL属性
Inet1.URL = Text1
'将读取的HTML数据放进一个byte array
B() = Inet1.OpenURL(, icByteArray)
'建立一个暂存文件来存放取回来的html文件
Open Text2 For Binary Access Write As #1
Put #1, , B()
Close #1
MsgBox "ok"
End Sub
但是得到的只是网页的部分代码。
并且如果访问的是百度百科或知道的网页,获取的则是百度主页的部分代码。
问题在哪?有没有更好的办法?vc的也行...谢谢... 展开
我用vb,按照网上一朋友的方法
先添加Internet Transfer Control控件Inet1
和Text1(网址),Text2(输出文件路径)
之后如下代码
Private Sub Command1_Click()
Dim B() As Byte
'取消所有操作
Inet1.Cancel
'设定协议为HTTP
Inet1.Protocol = icHTTP
'设定URL属性
Inet1.URL = Text1
'将读取的HTML数据放进一个byte array
B() = Inet1.OpenURL(, icByteArray)
'建立一个暂存文件来存放取回来的html文件
Open Text2 For Binary Access Write As #1
Put #1, , B()
Close #1
MsgBox "ok"
End Sub
但是得到的只是网页的部分代码。
并且如果访问的是百度百科或知道的网页,获取的则是百度主页的部分代码。
问题在哪?有没有更好的办法?vc的也行...谢谢... 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询