问题情况：关于VB WINSOCK提取网页源文件不成功，请问该怎么解决？

Question

'添加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速度快些，我是批量提取的

Answer 1

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

Answer 2

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为一文本框