Webページのサイズ・最終更新日等の情報を取得する(インターネットトランスファコントロール)

戻る

Webページのサイズ・最終更新日等の情報を取得する(インターネットトランスファコントロール)

動作環境 Windows95/98/2000/XP 開発環境 Visual Basic 6.0 (+SP5)

説明インターネットトランスファコントロールを使用してWebページのサイズ・最終更新日等の情報を取得します

用意するもの：標準フォーム(Form1)、コマンドボタン(Command1)、インターネットトランスファコントロール(Inet1)

Private Sub Command1_Click()

Inet1.Protocol = icHTTP

Inet1.OpenURL "http://homepage1.nifty.com/kurichan/index.htm"

'データの長さ(単位：バイト)
Debug.Print Inet1.GetHeader("Content-length")

'データの最終変更日及び時刻
Debug.Print Inet1.GetHeader("Last-modified")

'全てのヘッダ情報を表示
Debug.Print Inet1.GetHeader()

End Sub

Webページのサイズ・最終更新日等の情報を取得する(インターネットトランスファコントロール)
動作環境	Windows95/98/2000/XP	開発環境	Visual Basic 6.0 (+SP5)
説明	インターネットトランスファコントロールを使用してWebページのサイズ・最終更新日等の情報を取得します
用意するもの：標準フォーム(Form1)、コマンドボタン(Command1)、インターネットトランスファコントロール(Inet1)
Private Sub Command1_Click() Inet1.Protocol = icHTTP Inet1.OpenURL "http://homepage1.nifty.com/kurichan/index.htm" 'データの長さ(単位：バイト) Debug.Print Inet1.GetHeader("Content-length") 'データの最終変更日及び時刻 Debug.Print Inet1.GetHeader("Last-modified") '全てのヘッダ情報を表示 Debug.Print Inet1.GetHeader() End Sub