Question

求VB循环获取网页内容的代码.....

求一段VB代码,比较简单,功能如下:
1.循环获取具有规律性的多个网址,并将网页读取结果循环保存到文本文件.
2.能支持中文格式的网址.
网址规律如下:
http://192.168.1.1/test.asp?uid=1234
http://192.168.1.1/test.asp?uid=3354
请注意,每个网址只有最后的uid参数有变化.
这个网址只是举个例子.
功能要求补充:
每个uid的步进为"4",即从0开始,每次+4.
请把这个代码页给出来.

Answer 1

单击“工程”“部件”勾选“microsoft internet transfer control ..”.
建一个Inet1,代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit

Private Sub Form_Load()
Dim lStart As Long
For lStart = 1234 To 3354 Step 4
Open "d:\" & lStart & ".txt" For Output As 1
Print #1, Inet1.OpenURL("http://192.168.1.1/test.asp?uid=" & lStart)
Close 1
Next
MsgBox "完毕！"
End
End Sub

Answer 2

引用xmlhttp 6.0

sub main()'主过程
dim i as long
i=0'改成你的起始数值
do
setdown gethtml("http://192.168.1.1/test.asp?uid=" & i),i
i=i+4
loop until i > 10000'改成你的最大数值

end sub

private function gethtml(url as string)as string'获取源码
dim myxml as ServerXMLHTTP60'用这个的好处是可以设置代理
Set myxml = New ServerXMLHTTP60
myxml.open "GET", url, False
myxml.setProxy 2, "127.0.0.1:8080"'改成你的代理，或者去掉这句
myxml.send
While myxml.readyState <> 4
DoEvents
Wend
gethtml = myxml.responseText
end function

Private Sub setdown(ByVal s As String, ByVal uid as long)'记录源码
Dim i As Long
i = FreeFile
Open App.Path & "\data\" & uid & ".txt" For input As i
Print #i, s
Close i
End Sub