Public Function QTP_Capture(Object, Method, Arguments, retVal )
Dim PathWay,myTime,FileName
PathWay="F:\"
myTime=now( )
TimeStamp=year(myTime)&month(myTime)&day(myTime)&hour(myTime)&minute(myTime)
FileName=PathWay&TimeStamp&".bmp"
Desktop.CaptureBitmap FileName
End Function
Dim PathWay,myTime,FileName
PathWay="F:\"
myTime=now( )
TimeStamp=year(myTime)&month(myTime)&day(myTime)&hour(myTime)&minute(myTime)
FileName=PathWay&TimeStamp&".bmp"
Desktop.CaptureBitmap FileName
End Function