The renewal maintenance has officially ended for Progress iMacros effective November 30, 2023.
This Wiki site will also no longer be moderated from the Progress side.
Thank you again for your business and support.
Sincerely, The Progress Team
connect-to-cr.vbs
Jump to navigation
Jump to 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