也就是执行一个HTTP请求.并得到返回信息。谢谢!

解决方案 »

  1.   

    http://blog.csdn.net/online/archive/2004/07/07/35994.aspx
      

  2.   

    很容易的呀  
    比如 :Private Sub Download(UrtFile As String, LocalFile As String)
    Dim bData() As Byte      '数据变量
    Dim intFile As Integer   '可用文件变量
    Dim i As Integer
    Dim ttt As String
        intFile = FreeFile()      '将 intFile 设置为未使用的文件
        ' OpenURL 方法的结果首先传入 Byte 数组,
        '然后将 Byte 数组保存到磁盘。
        On Error Resume Next
        Kill LocalFile
        On Error GoTo 0
        bData() = Inet1.OpenURL(UrtFile, icByteArray)
        Open LocalFile For Binary Access Write As #intFile
            Put #intFile, , bData()
        Close #intFile
        Exit Sub
    Err1:
    MsgBox "error!"
    Resume
    End Sub调用方法
    Download "http://" & ServerXCAM & "/xcam/xcamCX/chk.asp?meusid=" & Combo1 & "&mepass=" & Text1 & "&port=" & Pub_Port & "&chk=" & Check2, App.Path & "\temp.tmp"
    '根据返回的值来判断是否登陆成功、、Open App.Path & "\temp.tmp" For Input As #1
    Line Input #1, T1
    If Trim(T1) = "yes" Then