51Testing软件测试论坛

标题: 关于定时运行脚本的问题 [打印本页]

作者: wiwimeier 时间: 2008-7-18 08:58
标题: 关于定时运行脚本的问题
我创建一个.vbs，在控制面板的Schedule里面定义好自己的task，这样来让它定时的自动运行
这个脚本可以运行，但是不知道为什么运行到我录制的动作时都需要点击一下Run才能够执行相应的动作？

作者: walker1020 时间: 2008-7-18 09:09
你的 .vbs 文件里面都有些什么内容？还是把具体脚本提供上来吧，不要让别人猜测可能的原因了

作者: wiwimeier 时间: 2008-7-18 09:13
这是我从网上找的，没什么问题啊~~
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible
' Set QuickTest run options
qtApp.Options.Run.ImageCaptureForTestResults = "OnError"
qtApp.Options.Run.RunMode = "Fast"
qtApp.Open "E:\test\001", True ' Open the test in read-only mode
' set run settings for the test
Set qtTest = qtApp.Test
qtTest.Settings.Run.OnError = "NextStep" ' Instruct QuickTest to perform next step when error occurs
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object
qtResultsOpt.ResultsLocation = "E:\test\002" ' Set the results location
qtTest.Run ' Run the test
'qtTest.Close ' Close the test
Set qtResultsOpt = Nothing ' Release the Run Results Options object
Set qtTest = Nothing ' Release the Test object
Set qtApp = Nothing ' Release the Application object
麻烦帮我看看

作者: wiwimeier 时间: 2008-7-18 09:19
这是我的脚本，输入参数化的数据后把整个页面在通过另存为的方式保存成html的页面，但是每次都走到Browser("运单查询ver.01").WinToolbar("ToolbarWindow32").Press "文件(&F)"这里就不动了，如果我点击Run就接着运行

Browser("运单查询ver.01").Page("运单查询ver.01").WebEdit("ydbh").Set valueYd
Browser("运单查询ver.01").Page("运单查询ver.01").WebEdit("ydbh").Submit
wait 1
Browser("运单查询ver.01").WinToolbar("ToolbarWindow32").Press "文件(&F)"
Browser("运单查询ver.01").WinMenu("ContextMenu").Select "另存为(A)..."
wait 1
Browser("运单查询ver.01").Dialog("保存网页").WinEdit("文件名(N):").SetSelection 0,14
Browser("运单查询ver.01").Dialog("保存网页").WinEdit("文件名(N):").Set saveFile
Browser("运单查询ver.01").Dialog("保存网页").WinButton("保存(S)").Click

作者: 小孩 时间: 2008-7-18 09:19

个人觉得用MIM做起来更方便

作者: wiwimeier 时间: 2008-7-18 09:20
可不可以告诉我具体的方法呢？

作者: zte_boy 时间: 2008-7-18 09:32
是MTM，去下个这个工具好了，论坛上有的

作者: wiwimeier 时间: 2008-7-18 09:51
谢谢，我找到了！！
不过还有一个问题，在请教一下
这是我的脚本，valueYd是我参数化输入的数据，然后我 micReturn后 wait 2 会出现一张图，有时候网络比较差的时候 wait 2 图会出不来，就会报错说非法操作，我可不可以在这里加一个判断来等待这个图出来以后在执行下边的脚本呢？
JavaWindow("管理子系统图片打单").JavaInternalFrame("CheckRetBillCustomeImage[数据中心]").JavaEdit("未审核").Set valueYd
JavaWindow("管理子系统图片打单").JavaInternalFrame("CheckRetBillCustomeImage[数据中心]").JavaEdit("未审核").PressKey micReturn
wait 2
JavaWindow("管理子系统图片打单").JavaInternalFrame("CheckRetBillCustomeImage[数据中心]").JavaEdit("目的地:").Set DataTable("目的地", dtGlobalSheet)
JavaWindow("管理子系统图片打单").JavaInternalFrame("CheckRetBillCustomeImage[数据中心]").JavaEdit("件数").Set DataTable("件数", dtGlobalSheet)

作者: zte_boy 时间: 2008-7-18 09:55
可以，exist
判断下该图片是否存在，存在则执行后续脚本，不存在则退出

作者: wiwimeier 时间: 2008-7-18 10:02
呵呵，麻烦帮我写下脚本好吗，我不太会写，谢谢！！

作者: wiwimeier 时间: 2008-7-18 11:40
楼上的，麻烦帮我写一下嘛~~~~

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