if 取到的值=(’输入的用户名‘)的用户不存在 then
把用户名写到一个文件中去
esleif 还要判断打开的新页面是不是正确 then
.....
end if作者: zhufeirinui 时间: 2006-12-20 17:10
呵,先谢谢xiaonan ,我只是想,因为要验证输入了不在数据库中的用户名的话,就要出提示,
那就只有点击登录,但点击了登录后,就会转到另一页,就检查不了了,后来看到有个贴,我就想用
Window("Text:=Login - Microsoft Internet Explorer").exist)
因为点击了登录后,这个页面会没,就说明登录成功了,如果不成功就可以在这里判断,
if (Window("Text:=Login - Microsoft Internet Explorer").exist) then
end if
但判断后我还想继续用下一个用户登录,就不知道怎么转了。
这是写的测试代码,呵,因为第一次写,大家多指点下
set con=createobject("adodb.connection")
con.open("driver=sql server;server=zf;uid=sa;pwd=;APP=Quick Test Pro;database=a")
set record=createobject("adodb.recordset")
sql="select name from aa "
record.Open sql, con
While(record.eof=false)
Dim passName
passName=record("name")
Browser("Login").Page("Login").WebEdit("TextBox1").Set (passName)
Browser("Login").Page("Login").WebEdit("TextBox2").Set "123456"
Browser("Login").Page("Login").WebButton("登 录").Click
if (Window("Text:=Login - Microsoft Internet Explorer").exist) then
goto o
end if
Browser("Login").Page("Main").Link("注销").Click
Browser("Login").Dialog("Microsoft Internet Explorer").WinButton("确定").Click