怎么得到网页的源代码呢?谢谢!在线等,马上结

Question

怎么得到网页的源代码呢?谢谢!在线等,马上结
用webBrowser?

Answer 1

Dim strCommand   As String
Dim strWebPage   As String
'2.把如下代码加到Command1的Command1_Click事件：
Private Sub Command1_Click()
Winsock1.RemoteHost = "www.csdn.net"    '设置连接的网址
Winsock1.RemotePort = 80    '设置要连接的远程端口号
Winsock1.Connect  '返回与远程计算机的连接。
End Sub
'3.把如下代码加到Winsock1的Connect事件：
Private Sub Winsock1_Connect()    '当一个  Connect  操作完成时发生
On Error Resume Next
strWebPage = "http://www.csdn.net/"    '要下载的文件
strCommand = "GET  " + strWebPage + "  HTTP/1.0" + vbCrLf          '’GET  为FTP命令  取得文件
'strCommand = strCommand + "Accept:  */*" + vbCrLf        '这句可以不要
'strCommand = strCommand + "Accept:  text/html" + vbCrLf        '这句可以不要
strCommand = strCommand + vbCrLf      '记住一定要加上vbCrLf
''Debug.Print  strCommand  ’注：你可以用Debug.Print  strCommand  来查看一下格式
Winsock1.SendData strCommand   '给远程计算机发送数据
End Sub
'4.把如下代码加到Winsock1的DataAmival事件：
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)       '取得数据时产生该事件
On Error Resume Next     '在错误处理程序结束后，恢复原有的运行
Dim webData   As String
Winsock1.GetData webData, vbString    '检取当前的数据块
Text1.Text = Text1.Text + webData
End Sub
使用WINSOCK

Answer 2

可以用internet transfer控件或者xmlhttp控件，前者比较早，在VS6的MSDN上就有，两者都可以搜索GOOGLE有比较多的例子

Answer 3

用inet控件（即Microsoft Internet Transfer Control 6.0)比较简单，只需一两句代码即可，而且比webbrowser快:
private sub command1_click()
  dim s as string
  s=inet1.openurl("http://www.baidu.com")
  debug.print s
end sub