2010-1-8 15:07:07 阅读(3) 评论(0)
2009-11-18 14:57:18 阅读(8) 评论(0)
‘每搜索到当前最新的ID后就更新这个ID的credit score, 注意这个连接是不需用户名密码的连接,即Windows Authentication。
Set conn=CreateObject("ADODB.Connection")
Dim strConn
strConn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Lendx;Da
Conn.open StrConn
Set rs=CreateObject("ADODB.Recordset")
Set
2009-11-16 16:15:06 阅读(1) 评论(0)
If Browser("GetSmart - a service of").Page("GetSmart - a service of_3").WebEdit("ctl00$FormContentPlaceHolder$F").Exist(5) Then
Step3
End If
choice
以上语句,如果找到这个对象,就执行Step3, 然后执行choice, 如果找不到这个对象直接执行choice, 注意choice一定要写在外面,
如果choice写在if
2009-9-16 17:23:40 阅读(19) 评论(0)
'script description: for filter platinum and gold
Dim TotalGUID
TotalGUID=""
For i=0 to 0
'Close all IE process opened by QTP
CloseIE
'Open URL
SystemUtil.Run "IEXPLORE.EXE","https://qaborrower.getsmart.com/"
CurrentTime=GetDateTime()
Cemail=CurrentTime&"@lendingtree.com"
if Browser("Refinance | Mortgage Loans").Dialog("Security Information").Exist then
2009-9-16 17:20:09 阅读(28) 评论(0)
'Close All IE
Sub CloseIE
Set desc=description.Create
desc("micclass").value="Browser"