求助：关于Robot脚本学习资料

archonwang

不知道有人有么？
我只有帮助可以看。最好能有一个完整的代码或者手册学习。

cat_zhang

首页可以下载robot手册！

至于你说的完整的代码？是例子么

sesamehch

你去沙龙里看看，应该有你想要的吧。

archonwang

谢谢，手册已经找到了，不过没有Code？例子里有么？

sesamehch

Robot测试案例：
1、        计算器功能测试：展示GUI脚本录制，数据池（DATAPOOL）应用
2、        C/S架构系统压力测试：展示VU脚本录制，Suite设置使用
3、        数据库并发测试：展示手工编写测试代码，进行数据库的并发测试

一、        计算器功能测试
1． 启动robot，登录窗口默认用户名是admin，输入在建立测试项目时指定的密码（默认为空），即可进入robot主界面；
2． 点击工具栏上的GUI按钮，录制GUI脚本，在窗口中输入脚本名称；
3． 在GUI Record工具栏上点击第四个按钮，在GUI Inset工具栏点击Start Application按钮，点击browse…按钮，选择计算器程序；
4． 从键盘输入1＋1＝，然后在GUI Record工具栏上点击第四个按钮，在GUI Inset工具栏点击Alphanumeric校验点，选择第三项Numeric Equivalence；
5． 关闭计算器，点击GUI Record工具栏上的STOP按钮，完成脚本的录制；

录制完的脚本：
Sub Main
    Dim Result As Integer

    'Initially Recorded: 2003-7-18  9:30:45
    'Script Name: 计算器
    StartApplication "C:\WINNT\system32\calc.exe"
   
    Window SetContext, "Caption=计算器", ""
    InputKeys "1{+}1{ENTER}"
   
    Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")
   
    Window CloseWin, "", ""

End Sub

这个脚本并不能正确回放，需要将
Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=200000")
改为：
Result = LabelVP (CompareNumeric, "Text=2.", "VP=Alphanumeric;Value=2.")
这样就可以点击工具栏上的回放按钮进行回放。

     这个脚本只能验证一组数据，并不能体现出自动化测试带来的便利。需要对脚本进行手工修改，在脚本加入循环结构和数据池（DATAPOOL）使之成为数据驱动脚本，这样就可以实现一个脚本测试大量的数据，脚本易于维护而且功能强大。

修改后的脚本如下：
'$Include "sqautil.sbh"

Sub Main
    Dim Result As Integer
    dim x as integer
    dim num1 as string
    dim num2 as string
    dim sum as string
   
    'Initially Recorded: 2003-7-18  8:51:18
    'Script Name: 计算器－2

    StartApplication "C:\WINNT\system32\calc.exe"
   
    dp=SQADatapoolOpen("jsq")

    for x=1 to 5
    Call SQADatapoolFetch(dp)
    Call SQADatapoolValue(dp,1,num1)
    Call SQADatapoolValue(dp,2,num2)
    Call SQADatapoolValue(dp,3,sum)
    Window SetContext, "Caption=计算器", ""
    InputKeys num1 &"{+}"& num2 &"{ENTER}"
   
    Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")
   
    next
   
    Call SQADatapoolClose(dp)

    Window CloseWin, "", ""

End Sub
(环境：windows2000专业版、rational2003)

注：SQADatapoolOpen("jsq")，jsq为数据池（DATAPOOL）名称，需要在testmanager中手工创建。数据池的创建可以参照51testing论坛中pcl2004_27写的帖子，他写的非常详细。

经过简单的编辑后，测试时只需要将测试数据导入数据池（DATAPOOL）回放脚本即可，通过查看测试log检查哪些错误，在开始测试时就可以使用，而不是等到回归，也不是手工过程的简单重复。在测试正式开始之前，可以先准备好测试数据备用。

sesamehch

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\ZR\桌面\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

xalee

不错啊，有注释的话就更好了。

archonwang

好的,接收了,谢谢~~

冷月

如果有人将robot里的帮助翻译一下就好了，里面的好东东还是很多的 可惜我不行 呵呵