connect-to-cr.vbs

From iMacros
Jump to: navigation, search

This example script connects to an instance of Chrome with an iMacros for Chrome installed. If it cannot find a Chrome instance running, it opens a new instance.

This script calls the macro Demo-FillForm.iim.

Visual Basic Script:

' iMacros Connect-To-Chrome Script
' (c) 2008-2015 iOpus/Ipswitch Inc. 

Option Explicit
MsgBox ("This example script opens an instance of Chrome. For this script to work you need to have iMacros for *Chrome* installed.")

Dim iim1, i, s
set iim1= CreateObject ("iMacros")

'i = iim1.iimOpen("-cr", false) 'Use open Chrome instance if available
i = iim1.iimOpen("-cr", true) 'Always open new instance

if i<0 then
	Msgbox "Could not connect to a Chrome 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 Chrome"

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