dcsimg
December 9, 2016
Hot Topics:

Develop Your Own Browser - Part 1

  • November 19, 2002
  • 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



Comment and Contribute

 


(Maximum characters: 1200). You have characters left.

 

 


Enterprise Development Update

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

Sitemap | Contact Us

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