Develop Your Own Browser - Part 1 Los Angeles CA

provided by: 
Originally published at Internet.com

My code will be useful to You. So I am Submitting My code to you. I have retrieved some codes from MSDN Microsoft Web Workshop Website. See that to develop perfect Browser. Here ExecWB Method Contains Excellent (all) Features. My Webbrowser Control name is Webbrowser1 (brwwebbrowser). It Contains Page Setup, Printer Setup, Print, Send To, Properties, Save As coding to develop your own browser in your File Menu.

Insert this code into yourClick Event: Dim eQuery As OLECMDF On Error Resume Next eQuery = webbrowser1.QueryStatusWB(OLECMDID_PAGESETUP) If Err.Number = 0 Then If eQuery And OLECMDF_ENABLED Then webbrowser1.ExecWB OLECMDID_PAGESETUP, _ OLECMDEXECOPT_PROMPTUSER, _ "", "" "Ok to Print? Else MsgBox "No contents of Webbrowser" End If End If

Insert these declarations into your form declaration section Private Declare Function PrinterProperties _ Lib "winspool.drv" _ (ByVal hWnd As Long, ByVal hPrinter As Long) _ As Long Private Declare Function OpenPrinter _ Lib "winspool.drv" _ Alias "OpenPrinterA" (ByVal pPrinterName _ As String, _ phPrinter As Long, pDefault As PRINTER_DEFAULTS) _ As Long Private Declare Function ClosePrinter _ Lib "winspool.drv" _ (ByVal hPrinter As Long) As Long Private Type PRINTER_DEFAULTS pDatatype As Long " String pDevMode As Long pDesiredAccess As Long End Type Private Const STANDARD_RIGHTS_REQUIRED = &HF0000 Private Const PRINTER_ACCESS_ADMINISTER = &H4 Private Const PRINTER_ACCESS_USE = &H8 Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _ PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)

Then Insert these coding into your Click Event: On Error Resume Next Dim retval As Long, hPrinter As Long Dim PD As PRINTER_DEFAULTS PD.pDatatype = 0 PD.pDesiredAccess = STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_USE PD.pDevMode = 0 retval = OpenPrinter(Printer.DeviceName, hPrinter, PD) If retval = 0 Then MsgBox "Printer Not Found" Else retval = PrinterProperties(Me.hWnd, hPrinter) retval = ClosePrinter(hPrinter) End If

Insert these coding into yourClick Event: On Error Resume Next Dim eQuery As OLECMDF eQuery = webbrowser1.QueryStatusWB(OLECMDID_PRINT) If Err.Number = 0 Then If eQuery And OLECMDF_ENABLED Then Webbrowser1.ExecWB OLECMDID_PRINT, _ OLECMDEXECOPT_PROMPTUSER, "", _ "" "Ok to Print? Else MsgBox "Printer Not Found or No Contents in Webbrowser" End If End If

1. Add an Inet Control ( Component - Microsoft Internet Transfer Control )
2. Add these line into your Click Event Dim ss As String, sss As String ss = InputBox("Enter file name to Save : ") If Right(ss, 3) = ".htm" Then sss = "A:\" & ss Else sss = "A:\" & ss & ".htm" End If Dim b() As Byte Inet1.Cancel Inet1.Protocol = icHTTP Inet1.URL = webbrowser1.LocationName b() = Inet1.OpenURL(, icByteArray) On Error GoTo Extn Open sss For Binary Access Write As #1 Put #1, , b() Close #1 MsgBox "File Saved. Location is : "" & sss" Extn: If Err.Number = 71 Then MsgBox "There is no Floppy or it may be damaged." End If

Insert these coding into your Click Event: Dim eQuery As OLECMDF "return value type for QueryStatusWB On Error Resume Next eQuery = webbrowser1.QueryStatusWB(OLECMDID_PROPERTIES) If Err.Number = 0 Then If eQuery And OLECMDF_ENABLED Then Webbrowser1.ExecWB OLECMDID_PROPERTIES, _ OLECMDEXECOPT_PROMPTUSER, "", _ "" "Ok to Print? Else MsgBox "No contents in Webbrowser" End If End If

Add an Inet Control (Component - Microsoft Internet Transfer Control )
Add an Commondialong Control ( Component - Microsoft Common Dialog Control)
Commondialong name - commandialog1 Dim lrs As String Commondialog1.ShowSave lrs = commaondialog1.FileName If Right(lrs, 4) = ".htm" Then lrs = lrs Else lrs = lrs & ".htm" End If Dim b() As Byte Inet1.Cancel Inet1.Protocol = icHTTP Inet1.URL = webbrowser1.locationname If Inet1.URL <> "" Then b() = Inet1.OpenURL(, icByteArray) Open lrs For Binary Access Write As #1 Put #1, , b() Close #1 End If