connect-to-iimrunner.vbs

From iMacros
Jump to: navigation, search

This example script starts the iMacros Browser via via the iimRunner.exe tool. It allows you to run the iMacros Browser (or Internet Explorer) under the user that iimRunner.exe runs under, and not the user of the calling application.

You can test this by starting iimRunner.exe as a different user using the Windows "Run As" command from the context menu. Once start, imacros.exe will run under the same user account.

Visual Basic Script:

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

Option Explicit

Dim iim1, i
set iim1 = CreateObject ("imacros")

'****
' find current folder
Dim myname, mypath
myname = WScript.ScriptFullName
mypath = Left(myname, InstrRev(myname, "\"))

Dim message
message = "This script connects to iimRunner to start the iMacros Browser."
message = message + " Use this technology for example to control the iMacros Browser from ASP, ASP.NET or PHP accounts."
MsgBox(message)

i = iim1.iimOpen("-runner")

if i = -6 or i = - 1 then
  msgbox ("iimRunner ist not running. Please start iimRunner.exe first. You find this file in the iMacros program directory.")
  WScript.Quit(i)
end if

if i = -7 then
  msgbox ("The max. number of allowed iMacros instances is reached. You can change this limit in the simple.xml file in the iMacros directory.")
  WScript.Quit(i)
end if


i = iim1.iimPlay(mypath & "Macros\Wsh-Start.iim")
msgbox ("Demo completed. Result: " & iim1.iimGetErrorText& VBNewLine &"Press OK to close the iMacros browser.")

iim1.iimClose
WScript.Quit(i)

Wsh-Start.iim macro

TAB T=1     
TAB CLOSEALLOTHERS  
URL GOTO=http://demo.imacros.net/Automate/     
TAG POS=1 TYPE=A ATTR=TXT:*Testform1*   
TAG POS=1 TYPE=INPUT:TEXT FORM=ID:demo ATTR=NAME:name CONTENT=Tom<SP>Tester 
TAG POS=1 TYPE=SELECT FORM=ID:demo ATTR=NAME:food CONTENT=$Pizza
TAG POS=1 TYPE=SELECT FORM=ID:demo ATTR=NAME:drink CONTENT=$Coke
TAG POS=1 TYPE=INPUT:RADIO FORM=ID:demo ATTR=ID:small&&VALUE:small CONTENT=YES 
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
TAG POS=1 TYPE=INPUT:RADIO FORM=ID:demo ATTR=NAME:Customer&&VALUE:Not_yet CONTENT=YES