本帖最后由 jycel 于 2009-12-27 17:47 编辑
右键复制一张图片,使用_ScreenCapture_SaveImage保存不了,直接使用AU3全屏截图又可以!不知道问题在那儿
大家帮我看看,我在2003上测试的
今天把以前能载图的工具找出来试了下,也截不了!论坛上有一位的截图工具试了下也不行,我用的最新版3.2.0不会是版本的过吧?#include <ScreenCapture.au3>
#Include <Clipboard.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("获取右键前请先打开一张图片复制后再测试", 335, 136)
$Button1 = GUICtrlCreateButton("获取右键保存", 32, 50, 97, 49)
$Button2 = GUICtrlCreateButton("系统自动截图", 192, 50, 105, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
_Main1()
case $Button2
_Main2()
EndSwitch
WEnd
Func _Main1()
Local $hBmp=@ScriptDir&"\jycel.bmp"
$jqbh=_ClipBoard_GetDataEx($CF_BITMAP);_ScreenCapture_Capture ("");_ClipBoard_GetData($CF_BITMAP)
$baochun=_ScreenCapture_SaveImage($hBmp,$jqbh,True)
if @error then
MsgBox(16,"错误",$baochun)
Else
MsgBox(0,"发生错误",$baochun)
EndIf
EndFunc ;==>_Main
Func _Main2()
$hBmp = _ScreenCapture_Capture ("")
; Save bitmap to file
$baochun=_ScreenCapture_SaveImage (@ScriptDir & "\jycel.bmp", $hBmp)
if @error then
MsgBox(16,"错误",$baochun)
Else
MsgBox(0,"未发生错误",$baochun)
EndIf
EndFunc ;==>_Main
|