Develop Your Own Browser - Part 1
1.Add an Inet Control ( Component Microsoft Internet Transfer Control )
2.Add these line into your Click Event
Dim ss As String, sss As Stringss = InputBox(Enter file name to Save : )If Right(ss, 3) = .htm Thensss = A:\ & ssElsesss = A:\ & ss & .htmEnd IfDim b() As ByteInet1.CancelInet1.Protocol = icHTTPInet1.URL = webbrowser1.LocationNameb() = Inet1.OpenURL(, icByteArray)On Error GoTo ExtnOpen sss For Binary Access Write As #1Put #1, , b()Close #1MsgBox File Saved. Location is : & sssExtn:If Err.Number = 71 ThenMsgBox There is no Floppy or it may be damaged.End If
Page 5 of 7
This article was originally published on November 20, 2002