用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=确定"
            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

--------------------next---------------------