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 请问全国计算机等级考试什么时候报名? 问一下关于datagrid的问题!为什么columns的按钮属性打钩后数据不显示了呢? 一个简单的问题 (急!!!)如何修改Winexec的默认路径? Excel中VBA的一个小应用 请教一个webBrowser控件的问题 谢谢大家,请帮忙写一条case语句 关于DataReport控件的问题,急! CorelDraw VBA 求曲线上某一点的坐标 vb的字体问题!!!!!!!!急! 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