51Testing软件测试论坛

标题: 怎么分别用VBS和QTP自带的函数库截屏，求高手。 [打印本页]

作者: csj 时间: 2010-9-17 16:24
标题: 怎么分别用VBS和QTP自带的函数库截屏，求高手。
我想分别用vbs和QTP截屏，请高手给一下各自的代码吧。最好能讲解一下，非常感激

作者: rojer521 时间: 2010-9-17 22:11
object.CaptureBitmap Filename, [OverrideExisting]
object 可以是Desktop，也可以是具体的对象，如Browser("。。。").Dialog("。。。")
如果使用Desktop将截整个桌面，具体的对象则截具体对象作为图片
filename 是截图后保存的文件名
OverrideExisting是可选项，指示是否覆盖同名文件，设置为True将覆盖，默认为False，不覆盖

作者: yjnormal 时间: 2010-9-18 12:27
参考如下脚本
Dim PathWay,myTime,FileName
PathWay="d:\testing\"
   myTime=now( )
   TimeStamp=year(myTime)&"y"&month(myTime)&"m"&day(myTime)&"d"&hour(myTime)&"h"&minute(myTime)&"min"&second(now)&"s"
   FileName=PathWay&TimeStamp&".bmp"
   Desktop.CaptureBitmap FileName

作者: Jun_Li 时间: 2010-9-19 08:49
不知道两种截图后的效果有何不同，什么样的需求导致要这样实现， Ths

作者: rojer521 时间: 2010-9-19 20:19
回复 4# Jun_Li

你自己写段代码试试就知道，Desktop是截整个桌面，而具体的object是截具体的对象，如窗口，按钮等，至于什么样的需求，就是根据需要了

作者: TIB 时间: 2010-9-19 21:14
VBS调用SnagIt的组件进行截屏的代码：

Option Explicit

Dim objSnagit, strMsg, wshShell

' Check command line arguments (none required)
If WScript.Arguments.Count > 0 Then Syntax

' Capture input type
Const siiDesktop       =  0
Const siiWindow       =  1
Const siiRegion       =  4
Const siiGraphicFile =  6
Const siiClipboard    =  7
Const siiDOSScreen    =  8
Const siiMenu          =  9
Const siiObject       = 10
Const siiProgramFile = 11
Const siiFreehand    = 12
Const siiEllipse       = 13
Const siiRoundedRect = 14
Const siiTriangle    = 15
Const siiPolygon       = 16
Const siiWallpaper    = 17
Const siiCustomScroll = 18
Const siiTWAIN       = 19
Const siiDirectX       = 20
Const siiExtendedWindow = 23

' Window selection method
Const swsmInteractive =  0
Const swsmActive       =  1
Const swsmHandle       =  2
Const swsmPoint       =  3

' Capture output type
Const sioPrinter       =  1
Const sioFile          =  2
Const sioClipboard    =  4
Const sioMail          =  8
Const sioFTP          = 32

' Output image type
Const siftBMP          =  0
Const siftPCX          =  1
Const siftTIFF       =  2
Const siftJPEG       =  3
Const siftGIF          =  4
Const siftPNG          =  5
Const siftTGA          =  6

' Output color depth
Const sicdAuto       =  0
Const sicd1Bit       =  1
Const sicd2Bit       =  2
Const sicd3Bit       =  3
Const sicd4Bit       =  4
Const sicd5Bit       =  5
Const sicd6Bit       =  6
Const sicd7Bit       =  7
Const sicd8Bit       =  8
Const sicd16Bit       = 16
Const sicd24Bit       = 24
Const sicd32Bit       = 32

' Output file naming method
Const sofnmPrompt    =  0
Const sofnmFixed       =  1
Const sofnmAuto       =  2

' Create the required objects
Set objSnagit = CreateObject( "SNAGIT.ImageCapture.1" )
Set wshShell  = CreateObject( "WScript.Shell" )

' Set input options
objSnagit.Input       = siiDesktop
objSnagit.IncludeCursor = True

' Set output options
objSnagit.Output                         = sioFile
objSnagit.OutputImageFile.FileType       = siftPNG
objSnagit.OutputImageFile.ColorDepth    = sicd32Bit
objSnagit.OutputImageFile.FileNamingMethod = sofnmFixed
objSnagit.OutputImageFile.Filename       = "snagtest"
objSnagit.OutputImageFile.Directory       = "C:\"

' Capture
objSnagit.Capture

' Launch the captured image in the default viewer
wshShell.Run "C:\snagtest.png", 0, False

' Release the objects
Set objSnagit = Nothing
Set wshShell  = Nothing

Sub Syntax
strMsg = vbCrLf _
         & WScript.ScriptName & ",  Version 1.01" _
         & vbCrLf _
         & "Automate a SnagIt full screen capture" _
         & vbCrLf & vbCrLf _
         & "Usage:  " & UCase( WScript.ScriptName ) _
         & vbCrLf & vbCrLf _
         & "Notes:  [1] The resulting screenshot is saved as C:\snagtest.png." _
         & vbCrLf _
         & "          An existing file will be overwritten." _
         & vbCrLf _
         & "       [2] This script requires SnagIt to be installed on the local computer." _
         & vbCrLf _
         & "          SnagIt is commercial screen capture software by TechSmith." _
         & vbCrLf _
         & "          A 30-day trial version is available for download:" _
         & vbCrLf _
         & "          http://www.techsmith.com/screen-capture.asp" _
         & vbCrLf & vbCrLf _
         & "Written by Rob van der Woude" _
         & vbCrLf _
         & "http://www.robvanderwoude.com"
WScript.Echo strMsg
WScript.Quit 1
End Sub

作者: yahuu 时间: 2010-9-21 16:46

回复 Jun_Li

你自己写段代码试试就知道，Desktop是截整个桌面，而具体的object是截具体的对象，如窗 ...
rojer521 发表于 2010-9-19 20:19

其实这个意思呢，就是说
Desktop就是按print
object就是按Alt+print

作者: yunbin_7 时间: 2011-5-19 14:23
那如果VBS调用ScreenCapture函数时，是怎么执行的呢？

作者: lyscser 时间: 2011-5-19 14:43

那如果VBS调用ScreenCapture函数时，是怎么执行的呢？
yunbin_7 发表于 2011-5-19 14:23

TIB不是说得很清楚了么

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)