用Robot实现登陆界面的压力测试

         '$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
             'scrīpt 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=确定"
             next
             Call SQADatapoolClose(dp)
             Window SetContext, "Caption=监控端", ""
             Window Click, "", "Coords=35,-16"
             PopupMenuSelect "退出登陆"
             Window Click, "", "Coords=29,-12"
             PopupMenuSelect "退出"
             Window SetContext, "Class=Shell_TrayWnd", ""
             TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""
         End Sub
--------------------next---------------------