51Testing软件测试论坛

标题: 怎么把几个脚本放到另一个工程下运行？ [打印本页]

---

作者: dionysus    时间: 2005-5-10 12:44
标题: 怎么把几个脚本放到另一个工程下运行？
先看录制的一段程序，过程很简单就是打开一个notepad，输入内容并保存，为了节省时间没有设置验证点，脚本间用到了头文件的引用和参数传递。

头文件：notepadheader.sbh

const winname = "Caption=未定标题 - 记事本"


脚本一：notepad01

'$include:"notepadheader.sbh"

declare sub inputnew basiclib "notepadinput" (inputstring as string,inputname as string)

Sub Main
    Dim Result As Integer

    'Initially Recorded: 2005-4-18  16:42:55
    'Script Name: notepad01
    dim inputstring as string
    dim inputname as string
    inputstring = "aaa"
    inputname = "01"
    call inputnew(inputstring,inputname)

End Sub

脚本二：notepadinput

'$include:"notepadheader.sbh"

declare sub inputnew(inputstring as string,inputname as string)

Sub inputnew(inputstring as string,inputname as string)
    Dim Result As Integer

    'Initially Recorded: 2005-4-18  16:46:34
    'Script Name: notepadinput
    StartApplication "E:\NOTEPAD.EXE"
        
    Window SetContext, winname, ""    '引用头文件中的定义的变量
    InputKeys inputstring
    MenuSelect "文件(F)->保存(S)"
   
    Window SetContext, "Caption=另存为", ""
    ComboEditBox Left_Drag, "ObjectIndex=3", "Coords=75,5,-77,13"
    InputKeys inputname
    PushButton Click, "Text=保存(S)"
   
End Sub

当我想把这个脚本加到另一个project中，我可以从open-〉SQABasic File中选择想要加入的脚本.rec文和头文件。在按F8单步执行可以看到，加入过来的脚本引用头文件中定义的数值和参数传递都是可以的，但执行到notepadinput中的输入那段语句时（InputKeys inputstring）就停住了，不知道是哪里有问题了，那位大虾能帮助解答一下，谢谢

---

作者: dionysus    时间: 2005-5-16 20:46
每人知道么？顶一下，谢谢各位了

---

作者: pcl2004_27    时间: 2005-5-26 03:15
你的脚本我看问题在这里
你的脚本
Sub inputnew(inputstring as string,inputname as string)
    Dim Result As Integer

    'Initially Recorded: 2005-4-18  16:46:34
    'Script Name: notepadinput
    StartApplication "E:\NOTEPAD.EXE"
        
    Window SetContext, winname, ""    '引用头文件中的定义的变量
    InputKeys inputstring
    MenuSelect "文件(F)->保存(S)"
   
    Window SetContext, "Caption=另存为", ""
    ComboEditBox Left_Drag, "ObjectIndex=3", "Coords=75,5,-77,13"
    InputKeys inputname
    PushButton Click, "Text=保存(S)"
   
End Sub

其中
Window SetContext, winname, ""    '引用头文件中的定义的变量
    InputKeys inputstring
代码window是打开notepad，然它处于活动窗体，但是inputkeys输入的是哪个大文本框。也就是你打开notepad的输入文字的地方！建议你在这段脚本中插入一句代码，editbox click，“” 我写的这个函数不正确，没查帮助，请你自己确认一下！
是否是由于inputkeys失去了输入的焦点，导致代码没办法运行

---

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

Powered by Discuz! X3.2