51Testing软件测试论坛

标题: 大哥大姐们进来一下，关于脚本 [打印本页]

---

作者: shuisewudi    时间: 2005-12-20 10:13
标题: 大哥大姐们进来一下，关于脚本
谁能给我个简单的登陆页面的脚本呀，但是要加上分析的，要详细点的，最好能告诉我写一个好的脚本的要素

---

作者: dragonhua    时间: 2005-12-20 16:52
'$Include "SQAUTIL.SBH"
Sub Main
    Dim Result As Integer

    dim i as integer   
    dim username as string   
    dim pwd as string   
   
    dim dp as long

  
    'Initially Recorded: 2005-12-19  17:34:27
    'Script Name: 5
   
    Window SetContext, "Class=Shell_TrayWnd", ""
    TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
    StartApplication """F:\GPS 0.1test\gps\GpsClent.exe"""
   
    dp=SQADatapoolOpen("login")
    for i=1 to 100
    Call SQADatapoolFetch(dp)
    Call SQADatapoolValue(dp,1,username)   
    Call SQADatapoolValue(dp,2,pwd)

   
    Window SetContext, "Caption=监控端", ""
    Window Click, "", "Coords=30,-13"
    PopupMenuSelect "登陆"
   
    Window SetContext, "Caption=登录", ""
    InputKeys username
    EditBox Click, "ObjectIndex=2", "Coords=13,8"
    InputKeys pwd
   
    Window SetContext, "Class=Shell_TrayWnd", ""
    TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""
   
    Result = WindowVP (CompareNumeric, "Caption=登录", "VP=Alphanumeric;Value=0")
   
    Window SetContext, "Caption=登录", ""
    PushButton Click, "Text=确定"        
   
    Window SetContext, "Caption=监控端", ""
    Window Click, "", "Coords=35,-16"
    PopupMenuSelect "退出登陆"
   
    next   
    Call SQADatapoolClose(dp)
   
    Window Click, "", "Coords=29,-12"
    PopupMenuSelect "退出"
         
    Window SetContext, "Class=Shell_TrayWnd", ""
    TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""

End Sub

'这个程序可以实现大数据量的登陆测试。只要有点编程经验和英语好的话，脚本很容易看懂的。

---

作者: dragonhua    时间: 2005-12-20 16:54
'$Include "SQAUTIL.SBH"
Sub Main
    Dim Result As Integer

    dim i as integer   
    dim username as string   
    dim pwd as string   
   
    dim dp as long

  
    'Initially Recorded: 2005-12-19  17:34:27
    'Script Name: 5
   
    Window SetContext, "Class=Shell_TrayWnd", ""
    TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
    StartApplication """F:\GPS 0.1test\gps\GpsClent.exe"""
   
    dp=SQADatapoolOpen("login")
    for i=1 to 100
    Call SQADatapoolFetch(dp)
    Call SQADatapoolValue(dp,1,username)   
    Call SQADatapoolValue(dp,2,pwd)

   
    Window SetContext, "Caption=监控端", ""
    Window Click, "", "Coords=30,-13"
    PopupMenuSelect "登陆"
   
    Window SetContext, "Caption=登录", ""
    InputKeys username
    EditBox Click, "ObjectIndex=2", "Coords=13,8"
    InputKeys pwd
   
    Window SetContext, "Class=Shell_TrayWnd", ""
    TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""
   
    Result = WindowVP (CompareNumeric, "Caption=登录", "VP=Alphanumeric;Value=0")
   
    Window SetContext, "Caption=登录", ""
    PushButton Click, "Text=确定"        
   
    Window SetContext, "Caption=监控端", ""
    Window Click, "", "Coords=35,-16"
    PopupMenuSelect "退出登陆"
   
    next   
    Call SQADatapoolClose(dp)
   
    Window Click, "", "Coords=29,-12"
    PopupMenuSelect "退出"
         
    Window SetContext, "Class=Shell_TrayWnd", ""
    TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""

End Sub

'这个程序可以实现大数据量的登陆测试。只要有点编程经验和英语好的话，脚本很容易看懂的。

---

作者: ilovejolly    时间: 2005-12-20 17:17
你这个阶段给再详细的资料你也没用，先从基础东西看起

---

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

Powered by Discuz! X3.2