Author:
b
[ Edit | View ]
|
Date Posted: 23:39:36 10/05/04 Tue
Author Host/IP: NoHost/202.131.132.148
prog1
-----
Sub Main
Dim Result As Integer
'Initially Recorded: 10/6/2004 12:02:36 PM
'Script Name: rec1
Window SetContext, "Class=Shell_TrayWnd", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
Result = WindowVP (CompareMenu, "Name=frmMain", "VP=Menu")
Window SetContext, "Name=frmMain", ""
PushButton Click, "Name=cmdOrder"
Window SetContext, "Name=frmOrder", ""
EditBox Click, "Name=txtQuantity", "Coords=89,8"
InputKeys "^+{END}{DELETE}3"
EditBox Click, "Name=txtCreditCard", "Coords=22,1"
InputKeys "^+{END}444444"
EditBox Click, "Name=txtExpirationDate", "Coords=11,10"
InputKeys "12/12/04"
PushButton Click, "Name=cmdOrder"
Result = WindowVP (Exists, "Name=frmConfirm", "VP=Window Existence")
Window SetContext, "Name=frmConfirm", ""
PushButton Click, "Name=cmdOK"
End Sub
-------
prog2
--------
Sub Main
Dim Result As Integer
'Initially Recorded: 10/6/2004 12:02:36 PM
'Script Name: rec1
Window SetContext, "Class=Shell_TrayWnd", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
Result = WindowVP (CompareMenu, "Name=frmMain", "VP=Menu")
Window SetContext, "Name=frmMain", ""
PushButton Click, "Name=cmdOrder"
Window SetContext, "Name=frmOrder", ""
EditBox Click, "Name=txtQuantity", "Coords=89,8"
InputKeys "^+{END}{DELETE}3"
EditBox Click, "Name=txtCreditCard", "Coords=22,1"
InputKeys "^+{END}444444"
EditBox Click, "Name=txtExpirationDate", "Coords=11,10"
InputKeys "12/12/04"
PushButton Click, "Name=cmdOrder"
Result = WindowVP (Exists, "Name=frmConfirm", "VP=Window Existence")
Window SetContext, "Name=frmConfirm", ""
PushButton Click, "Name=cmdOK"
End Sub
|