包含vb.netinet的词条

VB 中 inet 控件问题

帮你加上注释吧，晕倒... 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

相关问答

Q1: VB如何添加inet控件？

VB添加inet控件步骤vb.netinet：

运行VB6.0vb.netinet，新建工程。

菜单工程-部件，在Microsoft Internet Transfer Control 6.0部件前勾选，确定，就可将Inet控件添加到工具箱。

双击工具箱Inet控件，窗体上就添加了该控件。

Microsoft Internet Transfer 控件vb.netinet：

Internet Transfer 控件支持超文本传输协议 (HTTP) 和文件传输协议 (FTP)，它们是 Internet 网上使用最广泛的两种协议。

使用 HTTP 协议，可以连接全球信息网（World Wide Web）服务器，以检索 HTML 文档。使用 FTP 协议可以在 FTP服务器上登录，以下载和加载文件。UserName 和 Password 属性可让您在要求验证身份的私有的服务器上进行登录。另外，也可以连接公用的 FTP 服务器，并下载文件。Execute 方法支持普通的 FTP

命令，如 CD 和 GET。

Q2: vb中inet的用法（连接一个ftp）

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

关于vb.netinet和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。