|
Sub Main
Dim Result As Integer
dim Res
'Initially Recorded: 2004-11-11 10:45:03
'Script Name: 前缀1
StartApplication "C:\WINNT\system32\notepad.exe"
Window SetContext, "Caption=未定标题 - 记事本", ""
InputKeys "hello"
MenuSelect "文件(F)->保存(S)"
Window SetContext, "Caption=另存为", ""
ComboEditBox Left_Drag, "ObjectIndex=3", "Coords=5,6,-25,3"
InputKeys "hello"
PushButton Click, "Text=保存(S)"
Window SetContext, "Caption=hello.txt - 记事本", ""
MenuSelect "文件(F)->退出(X)"
Window SetContext, "Class=Shell_TrayWnd", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
Result = FileVP (Exists, "Name=C:\Documents and Settings\ABC\桌面\hello0.txt", "VP=File Existence")
If Result<>0 Then
Res="不等于0"
Else
Res="等于0"
End If
Open "C:\result.txt" For append As #1
Write #1, Res
Close #1
End Sub |
|