|
请帮忙看一下,一直应用不了数据呀
'$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
我是按照楼主的意思写的,可为什么每次回放时都没有显示数据呢?
请大家指导,谢谢。 |
|