最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
INET控件的几点使用
时间:2022-07-02 12:02:03 编辑:袖梨 来源:一聚教程网
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 t.htm")) <> 0 Then
我们通过例子来看看。
环境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 t.htm")) <> 0 Then
相关文章
- 蛋仔派对2周年庆前瞻在哪里 06-02
- 江南百景图测试服招募怎么玩 06-02
- 阴阳师小朋友驾到怎么玩 06-02
- 鸣潮舒云秘制凉茶配方怎么获得 06-02
- 猜一猜:古人说的“夏清侯”是以下哪种物品的别称 蚂蚁庄园6月3日答案早知道 06-02
- 以下哪种食物富含胡萝卜素,大量食用可能会皮肤变黄 蚂蚁庄园今日答案6月3日 06-02