文章分类 - 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
阅读全文
摘要:修改如下注册表:HKEY_LOCAL_MATHINE\SOFTWARE\Mercury Interactive\QuickTest Professional\Logger\Media\Log将Active从0改到1
阅读全文
摘要:Set oEventDesc = CreateObject("Scripting.Dictionary")oEventDesc("ViewType") = "Sell.Explorer.2"oEventDesc("Status") = micPassoEventDesc("EnableFilter") = FalseoEventDesc("NodeName") = "HTML Text"oEventDesc("StepHtmlInfo"
阅读全文
摘要: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
阅读全文

浙公网安备 33010602011771号