dcsimg
May 26, 2018
Hot Topics:

Develop Your Own Browser - Part 2

  • November 19, 2002
  • By Soma Sundaram
  • Send Email »
  • More Articles »

Insert Inet Control (Name - Inet1)
Insert This line into your Module Declaration Section

Public Declare Function ShellExecute _       Lib shell32.dll Alias ShellExecuteA _       (ByVal hWnd As Long, _       ByVal lpOperation As String, _       ByVal lpFile As String, _       ByVal lpParameters As String, _       ByVal lpDirectory As String, _       ByVal nShowCmd As Long) As LongPublic Const SW_SHOW = 5Type SHELLEXECUTEINFO  cbSize As Long  fMask As Long  hWnd As Long  lpVerb As String  lpFile As String  lpParameters As String  lpDirectory As String  nShow As Long  hInstApp As Long  lpIDList As Long  lpClass As String  hkeyClass As Long  dwHotKey As Long  hIcon As Long  hProcess As LongEnd Type

Insert these coding into your click Event:

On Error Resume NextDim lrs As Stringlrs = C:\windows\temp.htmDim 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 #1Dim retval As Longretval = ShellExecute(Me.hWnd, open, _         C:\windows\notepad.exe, lrs, _         C:\windows\, SW_SHOW)ElseMsgBox There is no source code for this. _        It may be a System FileEnd If





Page 4 of 6



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