VB怎样获取网页的Htm代码? VB怎样获取网页的Htm代码?我用inet 获取,在我的计算机上可以用,在其他计算机上就不能获取全部代码,或不能获取,这是怎么回事啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 下载下来打开就可以了 下载可以用API也可以用MSWINSOCK控件 Private Sub Command2_Click()Winsock1.RemoteHost = "www.csdn.net" '设置连接的网址Winsock1.RemotePort = 80 '设置要连接的远程端口号Winsock1.Connect '返回与远程计算机的连接。end subPrivate Sub Winsock1_Connect() '当一个 Connect 操作完成时发生On Error Resume NextstrWebPage = List1.List(List1.ListIndex) '要下载的文件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 StringWinsock1.GetData webData, vbString '检取当前的数据块Text1(1).Text = Text1(1).Text + webDataEnd Sub 向注册表中写入中文字符串的问题 如何在VB中設置excel的cell中的文字顏色呢? 怎样用VB写事务控制程序? 将DataGrid中的数据存入Excel ,我不会 高分赠送!不能加载dbgrid32.ocx,如何解决? 怎样取得本计算机名称? ADO查询中遇到的极其小问题(三)——come on!!! 请教各位大虾!这个语句怎么写????急急急!!(在线等待) comb控件和ADO控件相连,但每次都只显示一条记录在comb内,详细情况见下面! 如何打印rtf格式的文本? VB调用WORD的宏代码 Word进程的问题
下载可以用API也可以用MSWINSOCK控件
Winsock1.RemoteHost = "www.csdn.net" '设置连接的网址
Winsock1.RemotePort = 80 '设置要连接的远程端口号
Winsock1.Connect '返回与远程计算机的连接。
end sub
Private Sub Winsock1_Connect() '当一个 Connect 操作完成时发生
On Error Resume Next
strWebPage = List1.List(List1.ListIndex) '要下载的文件
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(1).Text = Text1(1).Text + webData
End Sub