文章分类 -  QTP技巧-Reporter相关

摘要:'重写MsgboxFunction NewMsgbox(text)Print "Msgbox - " & textEnd FunctionDim ptrMsgBox, MsgBox'Get the reference to new functionSet ptrMsgBox = GetRef("NewMsgbox")'Override the message box nowSet MsgBox = ptrMsgBox'Now in every Action we just need to add two lines 阅读全文
posted @ 2012-09-06 14:01 dushuai 阅读(224) 评论(0) 推荐(0)
摘要:修改如下注册表:HKEY_LOCAL_MATHINE\SOFTWARE\Mercury Interactive\QuickTest Professional\Logger\Media\Log将Active从0改到1 阅读全文
posted @ 2012-09-02 21:19 dushuai 阅读(206) 评论(0) 推荐(0)
摘要:Set oEventDesc = CreateObject("Scripting.Dictionary")oEventDesc("ViewType") = "Sell.Explorer.2"oEventDesc("Status") = micPassoEventDesc("EnableFilter") = FalseoEventDesc("NodeName") = "HTML Text"oEventDesc("StepHtmlInfo" 阅读全文
posted @ 2012-08-16 21:42 dushuai 阅读(217) 评论(0) 推荐(0)
摘要:Class CheckUserAbortSub Class_Terminate()If Setting("OnAbort") thenReporter.ReporterEvent micFail, _"The test has been stopped by the user", _"The test has been stopped by the user"End ifEnd SubEnd ClassDim CheckAbortSet CheckAbort = new CheckUserAbort 阅读全文
posted @ 2012-07-15 18:38 dushuai 阅读(139) 评论(0) 推荐(0)