'添加Command1 Winsock1 Richtextbox1 Text1 Text2 'RichTextBox1.ScrollBars = rtfBoth '在Text1輸入域名, Text2輸入網址, 點擊 Command1 Option Explicit Dim myall$, aa$, jj&, kk&, strCommand$, strWebPage$ Private Sub Form_Load() Winsock1.Protocol = 0 Winsock1.RemotePort = 80 Text1.Text = "BBS.CHIAN95.NET" Text2.Text = "BBS.CHIAN95.NET" End Sub Private Sub Command1_Click() Winsock1.Close RichTextBox1.Text = "" Winsock1.RemoteHost = Text1.Text strWebPage = Text2.Text Winsock1.Connect '開始提取數據 End Sub Private Sub Winsock1_Connect() strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf strCommand = strCommand + "Accept: */*" + vbCrLf strCommand = strCommand + "Accept: text/html" + vbCrLf strCommand = strCommand + vbCrLf Winsock1.SendData strCommand '發送命令 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '開始下載，收到數據時，發生DataarriVal事件 On Error Resume Next Dim webData As String Winsock1.GetData webData, vbString RichTextBox1.Text = RichTextBox1.Text & webData '取得相關的網頁文件 End Sub其它慢了，WINSOCK速度快些，我是批量提取的
2 回答
慕哥9229398
TA貢獻1877條經驗 獲得超6個贊
Private Sub Command1_Click()
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get", "http://www.baidu.com", True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
DoEvents
Wend
Text1.Text = xmlHTTP1.responseText
Set xmlHTTP1 = Nothing
End Sub
蠱毒傳說
TA貢獻1895條經驗 獲得超3個贊
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "post", (url_t), True '用GET方式,打開個別網頁,死機無影應
xmlhttp.Send
Do Until xmlhttp.ReadyState = 4 '這里阻塞前面的，確保登陸成功之后再取頁面，你可以將此Do取消了試一次。
DoEvents
If 15 < DateDiff("s", time_begin, Now) Or xmlhttp.ReadyState > 4 Then '30秒鐘打不開網頁,或返回狀態有誤大于4則跳過
Err_b = True
GoTo url_end
End If
Loop
DoEvents
'rtb1.Text = bytes2BSTR(xmlhttp.ResponseBody)'可用但速度慢
rtb1.Text = StrConv(xmlhttp.ResponseBody, vbUnicode)
'Set xmlhttp = Nothing
RTB1為一文本框
- 2 回答
- 0 關注
- 610 瀏覽
添加回答
舉報
0/150
提交
取消