怎么分别用VBS和QTP自带的函数库截屏，求高手。

csj

我想分别用vbs和QTP截屏，请高手给一下各自的代码吧。最好能讲解一下，非常感激

rojer521

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

yjnormal

参考如下脚本
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

不知道两种截图后的效果有何不同 ， 什么样的需求导致要这样实现， Ths

rojer521

回复 4# Jun_Li


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

TIB

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

回复  Jun_Li


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

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

yunbin_7

那如果VBS调用ScreenCapture函数时，是怎么执行的呢？

lyscser

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

TIB不是说得很清楚了么