'displays when
a web page was last modified
'requires the Microsoft Internet Transfer
control to be referenced
Private Sub Form_Load()
Dim strHeader As String
'set protocol to HTTP
Inet1.Protocol = icHTTP
'open URL
Inet1.OpenUrl ("http://www.programmershelp.co.uk")
' Retrieve the date page was last
modified
strHeader = Inet1.GetHeader("Last-modified")
MsgBox strHeader
End Sub
|