Jump to content

IE Web


Recommended Posts

What you mean? Maybe here you can find some info

i Mean

make web Page Mozilla Fire fox

i know That

#region Include
#include <GuiStatusBar.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#Include <GuiToolTip.au3>
#include <Process.au3>
#include <IE.au3>
#include <EditConstants.au3>
#Include <GuiButton.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#endregion
#region Set Options
Opt('MustDeclareVars', 0)
Opt("WinTitleMatchMode", 2)
TrayTip("Click Tray Icon", "Click the Tray Icon to Pause the script at any time!", 5,1)
#endregion
$Ver = "1.0"
#region Global Variables
Global  $Browser="IE",$WebPage="None",$UpdateMsg="Your Business"
Global  $aText[3]  = [$UpdateMsg , $WebPage, $Browser]
Global  $aParts[3] = [100, 450, -1]
Global  $button_1, $button_2,$Go,$MainGUI,$hStatus,$InputWebsite,$fActivate,$label_1,$L1,$I1,$LastWebsite,$oIE
#endregion
#region Variables
$oIE = ""
$L1="Please enter web address - then press GO!"
$I1="http://www."
$LastWebsite = RegRead("HKEY_CURRENT_USERSoftwareWebBrowser","LastWebsite")
If $LastWebsite <> "" Then $I1 = $LastWebsite
#endregion
#region Main GUI create
$MainGUI  =  GUICreate("Browser  Ver."&$Ver, 500, 80,10,@DesktopHeight-140)
    GUISetBkColor(0xE0FFFF          )
    _GUIToolTip_Activate($MainGUI, $fActivate = True       )
$hStatus   =  _GUICtrlStatusBar_Create  ($MainGUI, $aParts, $aText    )
$Go =  GUICtrlCreateButton("Go",437,01, 20, 20,  $BS_DEFPUSHBUTTON  )
GUISetIcon("C:UsersTheWarLOrds3DesktopTest.exe", -1)
$button_1   =  GUICtrlCreateButton("P", 458,01, 20, 20      )
$button_2   =  GUICtrlCreateButton("R", 479,01, 20, 20      )
$label_1   =  GUICtrlCreateLabel($L1,   10,10,230, 20     )
$InputWebsite= GUICtrlCreateInput($I1,   05,30,480, 20   )
#endregion
#region Main Loop
GUISetState()
While 1
  Switch GUIGetMsg()
   Case $GUI_EVENT_CLOSE
    Exit
   Case $button_1
   Case $button_2
   Case $Go
    _GoToSite()
   Case Else
  EndSwitch
WEnd
Exit
#endregion
;Functions ----------------------------------------------------------------
Func _GoToSite()
$LastWebsite=GUICtrlRead($InputWebsite)
If $oIE = "" Then
  $oIE = _IECreate ($LastWebsite)
Else
  _IENavigate($oIE,$LastWebsite)
EndIf
RegWrite("HKEY_CURRENT_USERSoftwareWebBrowser","LastWebsite", "REG_SZ", $LastWebsite)
EndFunc

But That For Internet Explorer and i went one for Mozilla Fire fox

That i Mean

Link to comment
Share on other sites

Yeah you can as there is ff udf. I cant explain everything to you but more advanced member can help you. I think you need to change only few lines. Read about ff udf, download everything and i think you should change

;Functions ----------------------------------------------------------------
Func _GoToSite()
$LastWebsite=GUICtrlRead($InputWebsite)
If $oIE = "" Then
  $oIE = _IECreate ($LastWebsite)
Else
  _IENavigate($oIE,$LastWebsite)
EndIf
RegWrite("HKEY_CURRENT_USERSoftwareWebBrowser","LastWebsite", "REG_SZ", $LastWebsite)
EndFunc

_IECreate to FFsomething idk how this calls just search for it in ff udfs Function list.

Link to comment
Share on other sites

Yeah you can as there is ff udf. I cant explain everything to you but more advanced member can help you. I think you need to change only few lines. Read about ff udf, download everything and i think you should change

;Functions ----------------------------------------------------------------
Func _GoToSite()
$LastWebsite=GUICtrlRead($InputWebsite)
If $oIE = "" Then
  $oIE = _IECreate ($LastWebsite)
Else
  _IENavigate($oIE,$LastWebsite)
EndIf
RegWrite("HKEY_CURRENT_USERSoftwareWebBrowser","LastWebsite", "REG_SZ", $LastWebsite)
EndFunc

_IECreate to FFsomething idk how this calls just search for it in ff udfs Function list.

yes i think too change few lines but idk any one's !
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...