Microsoft Internet Transfer Control 使用简介（功能：HTTP及FTP请求，GET及POST方法）

新客网 XKER.COM 2003-07-11 来源： 收藏本文

Microsoft Internet Transfer Control 使用简介
Example:
Dim objInet
Set objInet = Server.CreateObject("InetCtls.Inet.1")
在VB里面先把它加到部件里，然后直接放到form上面就可以了

1.Get HTTP Page
strHTML = objInet.OpenURL(strURL)
或者
objInet.URL = strURL
strHTML = objInet.OpenURL

2.Get HTTP File
'我还不知道在ASP里面怎么用，有知道的请指点。
Dim b() As Byte
b() = objInet.OpenURL(strURL, icByteArray)
If UBound(b) < 1 Then
    strErrorMsg = "无法打开该URL地址！"
Else
    Open FileName For Binary Access Write As #1
    Put #1, , b()
    Close #1
End If

3.Get FTP File
'如果不是匿名的话
objInet.Username = "yourname"
objInet.Password = "yourpass"
objInet.URL = "ftp://ftp.pku.edu.cn"
objInet.Execute , "CD dir1"
objInet.Execute , "GET xx.exe c:\download\xx.exe"
objInet.Execute , "QUIT"

4.List FTP Files
objInet.URL = "ftp://ftp.pku.edu.cn"
objInet.Execute , "DIR /dir1"
Private Sub objInet_StateChanged(ByVal State As Integer)
       '因为Execute方法执行后并不是马上返回结果的，所以必须在StateChanged事件中处理
Dim vtData As Variant '数据变量。
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False
    If State = 12 Then
        vtData = objInet.GetChunk(1024, icString)
              DoEvents
              Do While Not bDone
                 strData = strData & vtData
                 DoEvents
                 vtData = objInet.GetChunk(1024, icString)
                 If Len(vtData) = 0 Then
                        bDone = True
                 End If
              Loop
    End If
    MsgBox(strData)
End Sub   

5.Use Proxy Server
objInet.Proxy = "proxy.io.com:3128"
objInet.AccessType = icNamedProxy

6.Use HTTP Get & Post
objInet.Execute "http://www.chinaasp.com/sqlbbs/wwwboard.asp", "GET", "id=1"
要用Post只需要把GET那几个字符换一下就可以了，取得返回值的方法同4

我想基本上的功能都可以满足了，有空再写属性和方法、事件介绍。我本来是打算写一个OCX控件来调用这个，简化它的使用的，这样调用起来就方便的多了，因为有些功能不可以直接在ASP里面使用，尤其是对于一些FTP命令和错误处理。(还有一个原因是我不知道怎么把这个msinet.ocx安装到别的机器上，但是我自己写一个程序调用它，再做安装盘，安装后就可以用了）

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件