Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Dim iim1,iret
Set iim1 = CreateObject("imacros")
iret = iim1.iimInit("",FALSE) 'connect to open iMacros browser window
Dim counter,counter2
counter = 1
counter2 = 1
Dim macro
Do While Not (iret < 0)
If (counter < 31) Then
macro = "CODE:" 'This is where the macro is defined, I didn't put it in here for now.
counter2 = counter2 + 1
End If
iim1.iimSet "counter", counter
iret = iim1.iimPlay(macro)
counter = counter + 1
Loop
Option Explicit
Dim iim1,iret
Set iim1 = CreateObject("imacros")
iret = iim1.iimInit("",FALSE) 'connect to open iMacros browser window
Dim counter,counter2
counter = 1
counter2 = 1
Dim macro
Do While Not (iret < 0)
If (counter < 31) Then
macro = "CODE:" 'This is where the macro is defined, I didn't put it in here for now.
ElseIf (counter = 31) Then
macro = "CODE:"
counter2 = counter2 + 1
End If
iim1.iimSet "counter", counter
iret = iim1.iimPlay(macro)
counter = counter + 1
Loop