dcsimg
June 24, 2018
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.

By submitting your information, you agree that developer.com may send you developer offers via email, phone and text message, as well as email offers about other products and services that developer believes may be of interest to you. developer will process your information in accordance with the Quinstreet Privacy Policy.

Sitemap

×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date