connect-to-fx.vbs

From iMacros
Jump to: navigation, 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