Re:Firefox Commands!, Firefox Commands!!!
"valery_vi" <[email protected]>
| Newsgroups | gmane.comp.windows.autoit.user |
|---|---|
| Message-ID | <[email protected]> |
> I wrote early BForum.au3 which uses Mozilla ActiveX Control. It was 2 February 2006! One year ago... Valery --- In [email protected], "valery_vi" <shehrer1@...> wrote: > > Hi, > > Someone from autoitscript forum wrote: > http://www.autoitscript.com/forum/index.php?showtopic=42864 > > '..We need some firefox commands. instead of _IEcreate it would be > _FFCreate > This has probably been posted a lot before..' > > I wrote early BForum.au3 which uses Mozilla ActiveX Control. > > But you can try this one > after installation Mozilla ActiveX Control according to > http://www.iol.ie/%7Elocka/mozilla/mozilla.htm : > > #include <GUIConstants.au3> > Global $Mozilla > Dim $bl = 0, $bt = 100, $bw = 500, $bh = 300 > > $sFilename = @scriptDir&"\ff.html" > $sHTML > = '<HTML><HEAD></HEAD><body><button>Test</button></body></HTML>' > FileDelete($sFilename) > FileWrite($sFilename,$sHTML) > > $Mozilla = ObjCreate("Mozilla.Browser") > $hwnd = GuiCreate("Mozilla ActiveX Control", 500, 400, 300, 100) > $url = 'http://www.autoitscript.com/forum/index.php?showtopic=42864' > $inp = GuiCtrlCreateInput($url, 10, 20, 300, 20) > $Go = GuiCtrlCreateButton("Go", 330, 20, 50, 15) > $GUI = GUICtrlCreateObj($Mozilla, 0, 60, 500, 340) > $Mozilla.Navigate($sFilename) > GUISetState () > while 1 > $msg = GUIGetMsg() > if $msg = $GUI_EVENT_CLOSE then Exit > if $msg = $Go then $Mozilla.Navigate(GUICtrlRead($inp)) > wend > > I haven't time to rewrite IE.au3. It's very long, though. > > Enjoy, > Valery >