在VB中使⽤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 "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("localhost/xml\tt.htm")) <> 0 Then    MsgBox "已经连接"
Text2.Text = Inet1.OpenURL("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 #1array在vb什么意思啊
Else
MsgBox "没有连接"
End If
End Sub.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。