INET控件的几点使用

Inet控件支持HTTP与FTP两种通讯协议。利用这个控件可以完成许多功能。

我们通过例子来看看。

环境VB6+WINXP

打开VB6,新建工程

添加部件Microsoft Internet Transfer Controls.

在form中添加2个按钮,2个文本框和Inet控件

代码如下:

Option Explicit

’这段代码使用了GetHeader来返回页面信息,比较准确一些

’可以得到文件最后修改日期,文件大小等等

’用这个办法还可以判断一个文件是否存在

Private Sub Command1_Click()

Dim a As String

Dim str As String

Dim RetCode As Long

Inet1.OpenURL "http://localhost/xml/tt.htm"

If Inet1.StillExecuting Then

DoEvents

End If

’可以看到所有的项目

MsgBox Inet1.GetHeader

’得到修改日期时间是格林时间,将它转换北京时间

str = Inet1.GetHeader("Last-modified")

str = Replace(Right(str, Len(str) - InStr(1, str, ",") - 1), "GMT", "")

Text1.Text = CDate(Format(str, "yyyy/mm/dd hh:mm:ss"))

MsgBox Inet1.GetHeader("content-length")

RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))

Select Case RetCode

Case 200

MsgBox "成功"

Case 404

MsgBox "没有发现"

Case Else

MsgBox "Error"

End Select

End Sub

’这段代码简单的判断了是否与internet连接

’如果连接,得到网页源码并且保存

Private Sub Command2_Click()

Inet1.Cancel

If Len(Inet1.OpenURL("http://localhost/xml/tt.htm")) <> 0 Then

MsgBox "已经连接"

Text2.Text = Inet1.OpenURL("http://localhost/xml/tt.htm")

If Inet1.StillExecuting Then

DoEvents

End If

’保存到文件

Open App.Path & "/index.htm" For Output As #1

Print #1, Text2.Text

Close #1

Else

MsgBox "没有连接"

End If

End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值