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
Difference between revisions of "iimRunner ASP.vbs"
Jump to navigation
Jump to search
(One intermediate revision by one other user not shown) | |||
Line 1: | Line 1: | ||
This script demonstrates, how to connect to iMacros via iimRunner. This is necessary e.g. when using iMacros from ASP or ASP.NET | This script demonstrates, how to connect to iMacros via iimRunner. This is necessary e.g. when using iMacros from ASP or ASP.NET | ||
− | < | + | <nowiki> |
' iMacros Connect-To-iimRunner Script | ' iMacros Connect-To-iimRunner Script | ||
− | ' (c) 2008- | + | ' (c) 2008-2015 iOpus/Ipswitch Inc. |
Option Explicit | Option Explicit |
Latest revision as of 18:07, 27 May 2015
This script demonstrates, how to connect to iMacros via iimRunner. This is necessary e.g. when using iMacros from ASP or ASP.NET
' 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)