51Testing软件测试论坛

标题: 我也是刚学！ [打印本页]

作者: daluyan 时间: 2004-11-12 16:04
标题: 我也是刚学！
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

作者: daluyan 时间: 2004-11-12 16:04
你看看对你有没有启发！

作者: hongtang 时间: 2004-11-12 16:30
标题: 最好提供脚本注释～和说明～还有常用的语法和函数～光脚本就算了吧

作者: whldb 时间: 2004-11-14 16:42
光脚本让人家看的多累啊！
希望楼主能够有些注解说明之类的吧~要不然像我们这样的新手看起来很累的。

作者: weiping2000 时间: 2004-11-23 12:09
是啊，我也有同感，我也是新手，希望以后有更多关于新手学习的资料。
本人在此先谢谢了！

作者: TestTest 时间: 2004-11-23 22:27
标题: 大家不要这么懒,看帮助不就可以了吗
谢谢搂住给了这么多我以前没有用过的函数。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)