|
datatable.Exportsheet "e:\txt.xls",2
datatable.AddSheet("51sheet")
datatable.ImportSheet "f:\test.xls",1,"51sheet"
Dim i,RowCount '定义两个变量
i=0
RowCount=datatable.GetSheet("51sheet").GetRowCount '设置RowCount等于51sheet中的行数。
msgbox RowCount
Do while i<rowcount
i=i+1
datatable.getsheet("51sheet")
datatable.setcurrentrow(i)
'执行过上面两句后,CurrentRow是第一行。
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Click 700,387
tempData0=DataTable.GetSheet("51sheet").GetParameter("username").Value
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Type tempdata0
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Click 717,424
tempData1=DataTable.GetSheet("51sheet").GetParameter("password").Value
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Type tempdata1
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Click 734,463
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Type "1111"
Do while Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").VirtualButton("button").Exist(0)
If tempdata0=null then Window("Microsoft Internet Explorer").Dialog("Microsoft Internet Explorer").WinButton("确定").click
'msgbox "username can't null."
else
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Click 960,108
End If
Loop
loop
在do while 和IF之间成了死循环,我想在我所建的test.xls表中建立登陆的用户名和密码,在运行时分别获取username,password;
在功能测试时,要考虑到用户名或密码为空出错时是否有提示;我想用程序来实现,但不知道怎么做,就先试着编了上面的程序,确通不过,恼火,请各位高手多多指教,我第一次用QTP来编写脚本
注意:验证码把程序改了的,变成了固定的1111 |
|