connect-to-fx.vbs
Jump to navigation
Jump to search
This example script connects to an instance of Mozilla Firefox with iMacros for Firefox installed. If it can not find one it starts Firefox.
This script calls the macro Demo-FillForm.iim.
Visual Basic Script:
' iMacros Connect-To-Firefox Script ' (c) 2008-2015 iOpus/Ipswitch Inc. Option Explicit MsgBox ("This example script opens an instance of Firefox. For this script to work you need to have iMacros for *Firefox* or later installed.") Dim iim1, i, s set iim1= CreateObject ("iMacros") 'i = iim1.iimOpen("-fx", false) 'Use open Firefox instance if available i = iim1.iimOpen("-fx", true) 'Always open new instance if i<0 then msgbox "Could not connect to a FIREFOX web browser." end if i = iim1.iimPlay("demo-fillform.iim", 60) if i<0 then s = iim1.iimGetErrorText() msgbox "The Scripting Interface returned error code: "+cstr(i) end if msgbox "Press OK to close Firefox" i = iim1.iimClose WScript.Quit(i)
Macro Code for Demo-FillForm.iim:
TAB T=1 URL GOTO=http://demo.imacros.net/Automate/TestForm1 'We use quotation marks for a content with spaces TAG POS=1 TYPE=INPUT:TEXT FORM=ID:demo ATTR=ID:name CONTENT="Suman Tester" 'We manually changed the TAG command from using the postion of a value (e. g. "2") 'to using its real name, e. g. "Pizza" TAG POS=1 TYPE=SELECT FORM=ID:demo ATTR=ID:food CONTENT=%Pizza TAG POS=1 TYPE=SELECT FORM=ID:demo ATTR=ID:drink CONTENT=%Coke TAG POS=1 TYPE=INPUT:RADIO FORM=ID:demo ATTR=ID:medium&&VALUE:medium CONTENT=YES 'If you want to select more than one, use a colon (:) TAG POS=1 TYPE=SELECT FORM=ID:demo ATTR=ID:dessert CONTENT=%ice<SP>cream:%Apple<SP>Pie TAG POS=1 TYPE=INPUT:RADIO FORM=ID:demo ATTR=NAME:Customer CONTENT=YES SET !ENCRYPTION NO TAG POS=1 TYPE=INPUT:PASSWORD FORM=ID:demo ATTR=NAME:Reg_code CONTENT=tester 'In a quoted content, we can use \n for a new line, \t for tab and \" for literal quotes TAG POS=1 TYPE=TEXTAREA FORM=ID:demo ATTR=NAME:Remarks CONTENT=iMacros<SP>can<SP>fill<SP>forms. TAG POS=1 TYPE=BUTTON:SUBMIT FORM=ID:demo ATTR=TXT:Click<SP>to<SP>order<SP>now