Automating QTP Test Automation Home Automation Articles Downloads QTP Gotchas Links Books Contact About Site Map
QTP Function - Clear Print LogThis function simply clears the QTP Print Log Download it Here (right-click and then save target as). (NOTE - you can just cut & paste from below, but the formatting will have multiple spaces instead of tabs).
'=========================================================================
Sub QTP_PrintLogClear Dim Hwnd Const WM_CLEAR= &HC Extern.Declare micLong, "SendMessage", "user32.dll", "SendMessageA", micHwnd, micLong, micLong, micLong Hwnd = Window("regexpwndtitle:=QuickTest Print Log").WinEditor("nativeclass:=Edit","index:=0").GetROProperty ("hwnd") If Hwnd > 0 Then Extern.SendMessage Hwnd, WM_CLEAR, 0, 0 End If End Sub '========================================================================= |