shuisewudi 发表于 2005-12-20 10:13:43

大哥大姐们进来一下，关于脚本

谁能给我个简单的登陆页面的脚本呀，但是要加上分析的，要详细点的，最好能告诉我写一个好的脚本的要素

dragonhua 发表于 2005-12-20 16:52:59

'$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-1917: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:39

'$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-1917: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:16

你这个阶段给再详细的资料你也没用，先从基础东西看起
页: [1]
查看完整版本: 大哥大姐们进来一下，关于脚本