INET控制項的幾點使用

來源:互聯網
上載者:User
控制項 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.



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。