VB怎样获取网页的Htm代码?我用inet 获取,在我的计算机上可以用,在其他计算机上就不能获取全部代码,或不能获取,这是怎么回事啊?

解决方案 »

  1.   

    下载下来打开就可以了 
    下载可以用API也可以用MSWINSOCK控件
      

  2.   

    Private Sub Command2_Click()
    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