51Testing软件测试论坛

标题: 自己改的一个简单的脚本,请高手帮忙看看为什么行不通 [打印本页]

作者: hepingisme    时间: 2006-10-27 17:34
标题: 自己改的一个简单的脚本,请高手帮忙看看为什么行不通
Sub Main
    Dim Result As Integer
    'Initially Recorded: 2006-10-27  16:49:13
    'Script Name: 画图
   
    StartApplication "C:\WINDOWS\system32\mspaint.exe"

    Window SetContext, "Caption=未命名 - 画图", ""
    Window WMaximize, "", ""
   
    Window SetContext, "Caption=未命名 - 画图", ""
    Msgbox "画一个图形","0","判断"
   
    Window SetContext, "Caption=判断", ""
    PushButton Click, "Text=OK"

End Sub

我是个刚接触测试的新人,上面是我学习ROBOT中的自己改的一个简单的脚本,可是提示说 Window SetContext, "Caption=判断", ""有错误,请高手指教sdlkfj2  先谢谢了啊
作者: mt8024    时间: 2006-10-27 19:54
当你执行到这个语句的时候:Msgbox "画一个图形","0","判断",程序便挂起了,等待着与你的交互,所以低下的 Window SetContext, "Caption=判断", ""     PushButton Click, "Text=OK" 并不能被执行。这样不知道适不适合你的要求:

--

Global iTime as Integer
Declare Function TimedDlgFunc(id As String, Action As Integer, Suppvalue As Long) As Integer
Declare Function SQAMsgBox(sMsgText as String, Optional vMsgCaption as Variant, Optional vTimeOut as Variant) as Integer

Function TimedDlgFunc(id As String, Action As Integer, Suppvalue As Long) As Integer
    Static StartTime
    Dim EndTime
    Dim vTimeoutvalue as Variant
    Select Case Action
        Case 1      'Dialog box Initialization
                StartTime = Timer
                If StartTime + iTime >= 86400 Then
                        StartTime = 86400 - StartTime - iTime
                End If
                TimedDlgFunc = 1
        Case 2      'Button pushed or any control changed (except typing in text or combo box)
            Select Case Suppvalue
                Case 1
                    DlgEnd -1
                Case 2
                    DlgEnd 0
                Case Else
                    TimedDlgFunc = 0
            End Select
        Case 3      'Change in text or combo box contents
                TimedDlgFunc = 1
        Case 4      'Change of control focus
                TimedDlgFunc = 1
        Case 5      'Idle state (return 0 to prevent this being continually called)
                EndTime = Timer
                If (EndTime - StartTime) >= iTime Then
                        DlgEnd -1
                End If
                vTimeoutvalue = Format(iTime - (EndTime - StartTime), "#.#")
                DlgText DlgControlID("txtTimevalue"), CStr(vTimeoutvalue)
                TimedDlgFunc = 1
    End Select
End Function

Function SQAMsgBox(sMsgText as String, Optional vMsgCaption as Variant, Optional vTimeOut as Variant) as Integer
    Dim Result as Integer
    Dim TotalTime As Integer
    Dim sCmdText as String   
    Dim sTimeoutText as String
    Dim vvalue as Variant
   
    If IsMissing(vMsgCaption) Then
        vMsgCaption = "SQAMsgBox"
    End If
    If IsMissing(vTimeOut) Then
        vTimeOut = 20       'seconds
    End If
    sTimeoutText = "Timeout: "
   
'-----
    Begin Dialog dlgMsgBox 200, 80, vMsgCaption, .TimedDlgFunc
        GroupBox 5, 2, 190, 40, "", .grpMsgTxt
        Text 15, 11, 175, 25, sMsgText, .txtMsgText
        Text 15, 47, 180, 20, sCmdText, .txtCmdText
'--------------
        Button 20, 60, 40, 14, "&OK", .btnOK
        Button 140, 60, 40, 14, "&Cancel", .btnCancel
        Text 78, 63, 30, 10, sTimeoutText, .txtTimeText
        Text 108, 63, 20, 10, vTimeout, .txtTimevalue
    End Dialog
'-----
    Dim TimedDlg As dlgMsgBox
    iTime = CInt(vTimeOut)
    Result = Dialog(TimedDlg)
   
    If Result = 2 Then
        SQAMsgBox = sqaFail
    Else
        SQAMsgBox = sqaPass
    End If   
   
End Function



Sub Main
    Dim Result As Integer
    'Initially Recorded: 2006-10-27  16:49:13
    'Script Name: »­Í¼
   
    StartApplication "C:\WINDOWS\system32\mspaint.exe"

   
    Window SetContext, "Caption=untitled - Paint", ""
      
    Window WMaximize, "", ""
    Msgbox "画一个图形","0","判断"

    Window SetContext, "Caption=untitled - Paint", ""
    SQAMsgBox 画一个图形","判断",10

End Sub
---
作者: hepingisme    时间: 2006-10-29 10:44
谢谢啊 代码我研究了,很受益  。
可是我的本意 是想让它实现鼠标自动点击弹出的msgbox的“确定”按钮,从而进行下面的画图操作,不知道能不能实现呢?就象我录制脚本的时候 关闭某个文件时候会弹出 “是否关闭”按钮,然后在回放过程中这个点击按钮的动作也是自动的,是能真正看到鼠标的动作的一个操作。
作者: hepingisme    时间: 2006-10-29 10:45
我是个新人 希望大家多多帮助呀
作者: mt8024    时间: 2006-10-30 19:32
原帖由 hepingisme 于 2006-10-29 10:44 发表
谢谢啊 代码我研究了,很受益  。
可是我的本意 是想让它实现鼠标自动点击弹出的msgbox的“确定”按钮,从而进行下面的画图操作,不知道能不能实现呢?就象我录制脚本的时候 关闭某个文件时候会弹出 “是否关闭 ...


我也是新人,我估计:一旦调用msgbox这个函数,msgbox会产生一个模态对话框,程序挂起,等待用户交互(非模态对话框就象Notepad里面的 查找替换dialog,它弹出后,你仍然可以选中后面Notepad里的字段),如此说来Robot就挂起了,等待着你的输入或者点击,也就是说,Robot不会去执行下面的    Window SetContext, "Caption=判断", ""  PushButton Click, "Text=OK" 这两段代码。除非你手动去点击这个对话框,或者用其他方法代替,例如别人提供的倒计时对话框。
作者: hepingisme    时间: 2006-11-4 15:39
谢谢啊 能不能留个QQ或者MSN号 给我, 希望以后能经常向您 请教.sdlkfj2
我的QQ172017409
MSN:hepingisme◎163.com

[ 本帖最后由 hepingisme 于 2006-11-4 15:40 编辑 ]




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2