dcsimg
December 2, 2020
Hot Topics:

Develop Your Own Browser - Part 1

  • By Soma Sundaram
  • Send Email »
  • More Articles »

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

Enterprise Development Update

Don't miss an article. Subscribe to our newsletter below.


Thanks for your registration, follow us on our social networks to keep up-to-date