|
|
悬赏50金钱已解决
本帖最后由 tryhi 于 2010-7-23 21:37 编辑 #include <GDIPlus.au3>
;~ #include <screencapture.au3>
If Not(ProcessExists("calc.exe")) Then Run("calc.exe")
WinWait("计算器")
$hwnd=WinGetHandle("计算器")
While 1
ToolTip(_poscolorread($hWnd,221,97))
Sleep(100)
WEnd
Func _PosColorRead($hWnd,$PosX,$PosY)
;定义程序必须的变量
Local $iColor,$PosArray,$X=$PosX,$Y=$PosY
;调用函数抓取窗体 从0,0到X,Y的 区域 返回的是一个数组. 多抓取的5个像素点是为了给图片做冗余,防止读不出该坐标的颜色.
$PosArray=LToArray($hWnd,$X+5,$Y+5)
;从数组中读出要读取的坐标的颜色.
$iColor = $PosArray[$PosX][$PosY]
;返回该颜色
Return $iColor
EndFunc
Func _WinCapture($hWnd, $iWidth = -1, $iHeight = -1)
;定义程序必须的变量
Local $iH, $iW, $hDDC, $hCDC, $hBMP
;如果调用该函数时候没指定宽和高，则调用AIP获取窗口的宽和高作为抓图区域的宽和高
If $iWidth = -1 Then $iWidth = _WinAPI_GetWindowWidth($hWnd)
If $iHeight = -1 Then $iHeight = _WinAPI_GetWindowHeight($hWnd)
;创建一个DC句柄
$hDDC = _WinAPI_GetDC($hWnd)
;创建一个与DC句柄兼容的内存句柄
$hCDC = _WinAPI_CreateCompatibleDC($hDDC)
;从DC句柄创建一个宽高为调用值的位图句柄
$hBMP = _WinAPI_CreateCompatibleBitmap($hDDC, $iWidth, $iHeight)
;将位图句柄复制到内存区域中去
_WinAPI_SelectObject($hCDC, $hBMP)
;用 printwindow 取得程序窗口
DllCall("User32.dll", "int", "PrintWindow", "hwnd", $hWnd, "hwnd", $hCDC, "int", 0)
;释放DC句柄
_WinAPI_ReleaseDC($hWnd, $hDDC)
;释放内存句柄
_WinAPI_DeleteDC($hCDC)
;~ _ScreenCapture_SaveImage(@DesktopDir&"\window.jpg", $hBMP)
;返回创建好的位图句柄
Return $hBMP
EndFunc
Func LToArray($hand,$iWidth=-1,$iHeight = -1);成功则返回数组.失败返回0.
;定义子程序必须的变量
Local $hBitmap, $BitmapData, $i_width, $i_height, $Scan0, $pixelData, $s_BMPData, $i_Stride
;初始化GDI+库
_GDIPlus_Startup()
;如果调用函数时候没有指定宽和高, 则调用API获取宽和高.
If $iWidth = -1 Then $iWidth = _WinAPI_GetWindowWidth($hand)
If $iHeight = -1 Then $iHeight = _WinAPI_GetWindowHeight($hand)
;调用函数获取指定窗体的位图句柄.
$hBMP = _WinCapture($hand, $iWidth, $iHeight)
;从位图句柄创建Bitmap对象
$hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hBMP)
;如果未创建成功,则直接退出.未创建成功可能是因为无效的图形句柄
If @error Then
_GDIPlus_ShutDown ()
Return 0
EndIf
;获取位图句柄的宽和高.
$i_width = _GDIPlus_ImageGetWidth($hBitmap)
$i_height = _GDIPlus_ImageGetHeight($hBitmap)
;锁定位图句柄中用于输入输出的部分. 将位图句柄中的数据格式格式化成24位的RGB格式.
$BitmapData = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, $i_width, $i_height, $GDIP_ILMREAD, $GDIP_PXF24RGB)
;以下几句可能是BMP的数据格式, 我不懂. 这是大牛阿福给的
$i_Stride = DllStructGetData($BitmapData, "Stride")
$Scan0 = DllStructGetData($BitmapData, "Scan0")
$pixelData = DllStructCreate("ubyte lData[" & (Abs($i_Stride) * $i_height) & "]", $Scan0)
$s_BMPData = DllStructGetData($pixelData, "lData")
$s_BMPData = StringTrimLeft($s_BMPData,2)
;解锁BMP位图数据区块.
_GDIPlus_BitmapUnlockBits($hBitmap, $BitmapData)
;销毁位图句柄
_GDIPlus_ImageDispose($hBitmap)
;删除位图对象.
_WinAPI_DeleteObject ($hBitmap)
;关闭GDI库
_GDIPlus_Shutdown()
;定义变量.
Local $a_return[$i_width][$i_height], $x=$i_width-5, $y=$i_height-5, $s
;从位图数据中取出指定的那行.
$s=StringMid($s_BMPData, $y*($i_Stride*2)+1, $i_width*6)
;从该行中读出指定的那个坐标.
$a_return[$x][$y]= StringMid($s,$x*6+1 ,6)
;BGR转RGB.
$a_return[$x][$y]= "0x"&StringRight($a_return[$x][$y],2)&StringMid($a_return[$x][$y],2,2)&StringLeft($a_return[$x][$y],2)
Return $a_return
EndFunc
我的机器上测试大约只能循环400次，每一次增加一点内存，到最后出现错误 |
最佳答案
查看完整内容
#include
;~ #include
If Not(ProcessExists("calc.exe")) Then Run("calc.exe")
WinWait("计算器")
$hwnd=WinGetHandle("计算器")
While 1
ToolTip(_poscolorread($hWnd,221,97))
Sleep(100)
WEnd
Func _PosColorRead($hWnd,$PosX,$PosY)
;定义程序必须的变量
Local $iColor,$PosArray,$X=$PosX,$Y=$PosY
;调用函数抓取窗体 从0,0到X,Y的 区域 返回的是一个数组. 多抓取的5个像素点是为了给图片做冗 ...
评分
-
查看全部评分
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2010-6-27 16:53:12