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