数据池（DATAPOOL）专题

j-r-j

'$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


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