重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
VB添加inet控件步骤:
10年积累的网站制作、成都网站制作经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计后付款的网站建设流程,更有项城免费网站建设让你可以放心的选择与我们合作。
运行VB6.0,新建工程。
菜单工程-部件,在Microsoft Internet Transfer Control 6.0部件前勾选,确定,就可将Inet控件添加到工具箱。
双击工具箱Inet控件,窗体上就添加了该控件。
Microsoft Internet Transfer 控件:
Internet Transfer 控件支持超文本传输协议 (HTTP) 和文件传输协议 (FTP),它们是 Internet 网上使用最广泛的两种协议。
使用 HTTP 协议,可以连接全球信息网(World Wide Web)服务器,以检索 HTML 文档。使用 FTP 协议可以在 FTP服务器上登录,以下载和加载文件。UserName 和 Password 属性可让您在要求验证身份的私有的服务器上进行登录。另外,也可以连接公用的 FTP 服务器,并下载文件。Execute 方法支持普通的 FTP
命令,如 CD 和 GET。
帮你加上注释吧,晕倒... On Error Resume Next '发生错误时继续下一步Inet1.AccessType = 2 '访问类型
Inet1.RequestTimeout = 60 '请求超时
Inet1.Proxy = "HTTP=" "59.74.42.152" ":" "8080" '代理
Inet1.OpenURL (" ") '打开的网址
MsgBox Val(Mid(Trim(Inet1.GetHeader), 10, 3))
If Err Then
If Err.Number = 35756 Then MsgBox "代理不可用"
MsgBox Err.Number ":" Err.Description
End If
End Sub
Inet1.Protocol = icFTP
Inet1.RemoteHost = ServerName'服务器地址
Inet1.RemotePort = 21'FTP端口
Inet1.UserName = uName'用户名
Inet1.Password = uPWS'密码下载文件:
Inet1.Execute "", "GET 1.txt d:\1.txt"
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
上传文件:
Inet1.Execute "", "PUT d:\1.txt 1.txt"
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
引自MSDN
StateChanged 事件
连接中状态发生改变,就会引发该事件。
语法
object_StateChanged(ByVal State As Integer)
StateChanged 事件的语法包含下面部分:
部分 描述
object 对象表达式,其值是“应用于”列表中的对象。
State 整数。如下面的“设置值”所示,指定状态。
设置值
State 的设置值:
常数 值 描述
icNone 0 无状态可报告。
icHostResolvingHost 1 该控件正在查询所指定的主机的 IP 地址。
icHostResolved 2 该控件已成功地找到所指定的主机的 IP 地址。
icConnecting 3 该控件正在与主机连接。
icConnected 4 该控件已与主机连接成功。
icRequesting 5 该控件正在向主机发送请求。
icRequestSent 6 该控件发送请求已成功。
icReceivingResponse 7 该控件正在接收主机的响应。
icResponseReceived 8 该控件已成功地接收到主机的响应。
icDisconnecting 9 该控件正在解除与主机的连接。
icDisconnected 10 该控件已成功地与主机解除了连接。
icError 11 与主机通讯时出现了错误。
icResponseCompleted 12 该请求已经完成,并且所有数据均已接收到。
说明
一般来说,使用 StateChanged 事件决定何时使用 GetChunk 方法来检索数据。要这样做,须使用 Select Case 语句,并测试 icResponseReceived (8) 或 icResponseCompleted (12)。
注意,当该控件已完成一个操作时,且此操作在缓冲区中没有产生任何数据,此时 icResponseReceived 状态也可能出现。例如,当与某个 FTP 站点进行连接时,该控件将与此 FTP 站点“握手”,但没有在缓冲区中产生任何数据,此时会出现 icResponseReceived 状态。
另一方面,一个操作完全完成后,会出现 icResponseCompleted 状态。例如,如果正在使用 Execute 方法和 GET 操作来检索某个文件,在此文件被完全检索之后,将出现 icResponseCompleted 事件,且仅出现一次。
实际上,使用 icResponseReceived 状态可以对数据做语法分析,直到检索到所需信息为止(例如,检索 HTML 文件时,只对标头进行检索)。获得该信息后,就可以取消这次检索。另一方面,如果想检索整个文件,icResponseCompleted 状态还会通知传输已经完成,可以继续。
===================================
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icNone '无状态可报告。
Debug.Print "无状态可报告。
"
Case icHostResolvingHost
Debug.Print "该控件正在查询所指定的主机的 IP 地址。"
Case icHostResolved
Debug.Print "该控件已成功地找到所指定的主机的 IP 地址。"
Case icConnecting
Debug.Print "该控件正在与主机连接。"
Case icConnected
Debug.Print "该控件已与主机连接成功。"
Case icRequesting
Debug.Print "该控件正在向主机发送请求。"
Case icRequestSent
Debug.Print "该控件发送请求已成功。"
Case icReceivingResponse
Debug.Print "该控件正在接收主机的响应。"
Case icResponseReceived
Debug.Print "该控件已成功地接收到主机的响应。"
Case icDisconnecting
Debug.Print "该控件正在解除与主机的连接。"
Case icDisconnected
Debug.Print "该控件已成功地与主机解除了连接。"
Case icError
Debug.Print "与主机通讯时出现了错误。"
Case icResponseCompleted
Debug.Print "该请求已经完成,并且所有数据均已接收到。"
End Select
End Sub
在工具箱的而某一个菜单上右键选择项
进去要么选择已经有的
要么自己浏览dll文件,添加进去再选择