Option Explicit
Dim iim1, iret
Dim rn, i, keyword
MsgBox ("This example script uses NO macros, but sends the macro code directly.")
set iim1= CreateObject ("InternetMacros.iim")
iret = iim1.iimInit
Dim MyMacroCode
MyMacroCode = "CODE:"
MyMacroCode = MyMacroCode+"VERSION BUILD=5001027" + vbNewLine
MyMacroCode = MyMacroCode+"TAB T=1" + vbNewLine
MyMacroCode = MyMacroCode+"TAB CLOSEALLOTHERS" + vbNewLine
MyMacroCode = MyMacroCode+"URL GOTO=http://www.iopus.com" + vbNewLine
MyMacroCode = MyMacroCode+"URL GOTO=http://forum.iopus.com"
iret = iim1.iimDisplay("Start demo")
'Run the first macro
iret = iim1.iimPlay(MyMacroCode)
if iret < 0 Then
MsgBox "Error in Macro#1: "+ iim1.iimGetLastError()
End If
'Run the second macro (one line only)
iret = iim1.iimPlay("CODE:URL GOTO=http://www.iopus.com/imacros/irp")
If iret < 0 Then
MsgBox "Error in Macro#2: "+iim1.iimGetLastError()
End If
iret = iim1.iimDisplay("Script completed.")
MsgBox "Close IIM browser"
iret = iim1.iimExit
WScript.Quit(0)
|
top
