Develop Your Own Browser - Part 1

• facebook
• twitter
• google+
• in
• Email

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