Wizard In Zephyr

<?XML version="1.0" standalone="yes" ?>
    <package>
        <job id="autoexecute">
            <?job error="false" debug="false" ?>
            <object id="sh" progid="WScript.Shell" />
            <object id="ie" progid="InternetExplorer.Application" />
            <script language="VBScript" src="config.ini" />
            <script language="VBScript">
<![CDATA[
Main

Sub Main
    Ie.Visible = True
    For UserIndex = 0 To UBound(Users) Step 1
        LogIn Users(UserIndex, UserIdKey), Users(UserIndex, PasswordKey)
        For TimesIndex = 0 To ExecuteTimes Step 1
            Execute Keys(Int(Rnd * UBound(Keys)))
        Next
        LogOut
    Next
    Ie.Visible = False
End Sub

Sub WaitForBusy
    WScript.Sleep Wait + Int(Rng * Wait)
    Do Until Ie.Busy = False
        WScript.Sleep Wait
    Loop
End Sub

Sub LogIn(UserId, Password)
    Ie.Navigate TopUrl
    WaitForBusy
    Ie.Navigate LogInUrl
    WaitForBusy
    Sh.SendKeys UserId
    Sh.SendKeys "{TAB}"
    Sh.SendKeys Password
    Sh.SendKeys "{ENTER}"
    WaitForBusy
End Sub

Sub LogOut
    Ie.Navigate TopUrl
    WaitForBusy
    Ie.Navigate LogOutUrl
    WaitForBusy
End Sub

Sub Execute(Key)
    Ie.Navigate TopUrl
    WaitForBusy
    Ie.document.parentwindow.clipboardData.SetData "text", Key
    Sh.SendKeys "^v"
    Sh.SendKeys "{ENTER}"
    WaitForBusy
End Sub

Sub PointCheck
    Result = ""
    Ie.Visible = True
    For UserIndex = 0 To UBound(Users) Step 1
        PointLogIn Users(UserIndex, UserIdKey), Users(UserIndex, PasswordKey)
        Ie.Navigate PointHistoryUrl
        WaitForBusy
        Sh.SendKeys "^(ac)"
        CpData = Ie.document.parentwindow.clipboardData.GetData ("text")
        StartPoint = InStr(1, CpData, MarkRetainPoint, 1) + Len(MarkRetainPoint)
        EndPoint = InStr(StartPoint, CpData, MarkPoint, 1)
        RetainPoint = Mid(CpData, StartPoint, EndPoint - StartPoint)
        PointLogOut
        Result = Result & Users(UserIndex, UserIdKey) & chr(9) & RetainPoint & chr(13) & chr(10)
    Next
    Ie.Visible = False
End Sub

Sub PointLogIn(UserId, Password)
    Ie.Navigate PointHistoryUrl
    WaitForBusy
    Sh.SendKeys "{F5}"
    WaitForBusy
    Sh.SendKeys "^f"
    WaitForBusy
    Ie.document.parentwindow.clipboardData.SetData "text", MarkUserID
    WaitForBusy
    Sh.SendKeys "^v"
    Sh.SendKeys "{ENTER}"
    WaitForBusy
    Sh.SendKeys "{ESC}"
    WaitForBusy
    Sh.SendKeys "{TAB}"
    Sh.SendKeys UserId
    Sh.SendKeys "{TAB}"
    Sh.SendKeys Password
    Sh.SendKeys "{ENTER}"
    WaitForBusy
End Sub

Sub PointLogOut
    Ie.Navigate PointLogOutUrl
    WaitForBusy
End Sub

]]>
            </script>
        </job>
    </package>