Develop Your Own Browser - Part 1
Add an Inet Control (Component Microsoft Internet Transfer Control )
Add an Commondialong Control ( Component Microsoft Common Dialog Control)
Commondialong name commandialog1
Dim lrs As StringCommondialog1.ShowSavelrs = commaondialog1.FileNameIf Right(lrs, 4) = .htm Thenlrs = lrsElselrs = lrs & .htmEnd IfDim b() As ByteInet1.CancelInet1.Protocol = icHTTPInet1.URL = webbrowser1.locationnameIf Inet1.URL <> Thenb() = Inet1.OpenURL(, icByteArray)Open lrs For Binary Access Write As #1Put #1, , b()Close #1End If
Page 7 of 7
This article was originally published on November 20, 2002