值得好好看一下

我想请教一下:
我按照上面的计算器的例子做了一次, 但运行结束后,在结果里总显示下面的脚本Fail,
Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")

请问是什么原因呢?

'$Include "sqautil.sbh"

Sub Main
    Dim Result As Integer
   
    Dim pass_id as Long
    Dim pass_Result as Long
    Dim strname as String
    Dim strPassWord as String
    Dim SQA_pass_Sequential as long
    Dim sqapassEOF as long

    'Initially Recorded: 2007-7-15  18:14:41
    'Script Name: relogin
   
    Window SetContext, "Class=Shell_TrayWnd", ""
    Toolbar Click, "Text=Quick Launch;\;ItemText=启动 Internet Explorer 浏览器", "Coords=15,12"
   
    Window SetContext, "Caption=about:blank - Microsoft Internet Explorer", ""
    ComboEditBox Click, "ObjectIndex=2", "Coords=104,8"
    InputKeys "mail.tom.com{ENTER}"
    Browser NewPage,"HTMLTitle=google",""
    HTMLLink Click, "HTMLText=登录", ""
    Browser NewPage,"HTMLTitle=tom",""
    EditBox Click, "Name=email", "Coords=41,2"

    pass_id = SQADatapoolOpen ("pass", FALSE, SQA_pass_SEQUENTIAL, FALSE)
    pass_Result = SQADatapoolFetch (pass_id)

    while pass_Result <> sqaPassEOF
   
   
    pass_Result = SQADatapoolValue (pass_id, "name","strname")
    pass_Result = SQADatapoolValue (pass_id, "password", "strpassword")
    pass_Result = SQADatapoolFetch (pass_id)

   

   
    InputKeys strname
    EditBox Click, "Name=password", "Coords=63,5"
    InputKeys strpassword
    InputKeys "{ENTER}"
   
   
    wend
    pass_Result = SQADatapoolClose (pass_id)
   
   


End Sub


我是按照楼主的意思写的，可为什么每次回放时都没有显示数据呢？
请大家指导，谢谢。

pass_Result = SQADatapoolValue (pass_id, "name","strname")
    pass_Result = SQADatapoolValue (pass_id, "password", "strpassword")

strname  strpassword  这两个是变量，不能够用引号，去掉引号就好了

翻来覆去就是这么几个脚本的代码，那么多高手，不能把你们的脚本发上了分享下阿

好贴啊

学习ing

不错，正在学习。