大家来找茬辅助
本帖最后由 xyold1 于 2010-12-9 20:13 编辑Q Q找茬辅助，纯属练手，
F9运行，不同的地方用竖线标出来。
http://www.opendrive.com/files/8918673_jjgRi_1a0a/ddzc12.rar
试用地址
http://cid-c490728b0747d5f6.office.live.com/self.aspx/找茬/ddzc12.rar
试试好用吧 啥东西1111 回复 3# 2910153
大家来找茬的辅助，用了就没意思了:face (17): 有没有源码啊。我要学习一下 晕啊，又要花钱了·· 上当了，不好使啊·· 回复 5# awfymwvf
代码没有优化，随便看一下吧
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\WINDOWS\system32\SHELL32.dll
#AutoIt3Wrapper_outfile=ddzc12.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <WinAPI.au3>
#include <WindowsConstants.au3>
$width=1
$color=0xFFFF
$hwnd=WinGetHandle("大家来找茬")
$p=WinGetPos($hwnd)
$Form1aa = GUICreate("Crazylisten", @DesktopWidth, 445, 100, 150, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW,$WS_EX_LAYERED,$WS_EX_TOPMOST ),WinGetHandle(AutoItWinGetTitle()))
GUISetBkColor(0xABCDEF)
GUISetState(@SW_SHOW)
_API_SetLayeredWindowAttributes($Form1aa, 0xABCDEF)
DllCall("user32.dll", "uint", "SetWindowLong", "hWnd", $Form1aa, "int", "-20", "uint", BitOR(DllCall("user32.dll", "uint", "GetWindowLong", "hWnd", $Form1aa, "int", "-20"), 0x80000, 0x20))
$hDC = _WinAPI_GetDC($Form1aa)
_WinAPI_SetBkColor($hDC, 0x000000)
_WinAPI_SetBkMode($hDC, $TRANSPARENT)
$hPen = _WinAPI_CreatePen($PS_SOLID, $width, $color)
$obj_orig = _WinAPI_SelectObject($hDC, $hPen)
HotKeySet("{F9}","fu")
While 1
Sleep(50)
WEnd
Func fu()
$hwnd=WinGetHandle("大家来找茬")
$p=WinGetPos($hwnd)
_WinAPI_ReleaseDC(0, $hDC)
_WinAPI_ReleaseDC(0, $hDC)
_WinAPI_InvalidateRect(0, 0)
$tRECT = 0
GUIDelete($Form1aa)
$Form1aa = GUICreate("Crazylisten", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW,$WS_EX_LAYERED,$WS_EX_TOPMOST ),WinGetHandle(AutoItWinGetTitle()))
GUISetBkColor(0xABCDEF)
GUISetState(@SW_SHOW)
_API_SetLayeredWindowAttributes($Form1aa, 0xABCDEF)
DllCall("user32.dll", "uint", "SetWindowLong", "hWnd", $Form1aa, "int", "-20", "uint", BitOR(DllCall("user32.dll", "uint", "GetWindowLong", "hWnd", $Form1aa, "int", "-20"), 0x80000, 0x20))
$hDC = _WinAPI_GetDC($Form1aa)
_WinAPI_SetBkColor($hDC, 0x000000)
_WinAPI_SetBkMode($hDC, $TRANSPARENT)
$hPen = _WinAPI_CreatePen($PS_SOLID, $width, $color)
$obj_orig = _WinAPI_SelectObject($hDC, $hPen)
For $j =190 To 641 Step 1
For $i = 6 To 505 Step 3
$color1 = PixelGetColor($i+$p,$j+$p)
$dm_ret = CmpColor($i+509+$p,$j+$p,$color1)
If $dm_ret = 0 Then
_WinAPI_DrawLine($hDC,$i+$p,$j+$p,$i+$p,$j+$p+1)
EndIf
Next
Next
EndFunc
Func cmpcolor($i,$j,$color)
$colorA = PixelGetColor($i,$j)
If $color=$colorA Then
Return 1
Else
Return 0
EndIf
EndFunc
Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)
Local Const $AC_SRC_ALPHA = 1
Local Const $ULW_ALPHA = 2
Local Const $LWA_ALPHA = 0x2
Local Const $LWA_COLORKEY = 0x1
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret = 0
Return SetError(4, 0, 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_API_SetLayeredWindowAttribute 回复 7# 93779252
{:1_251:}哪里不好使了？ 这东西应该不可能不好使吧~~~ 回复 10# styledream
用起来很郁闷，别人才找出7,8处，我这早已通关了，结果呢，下回合没人了，要么让蓝钻给T了
唉，毒药，慎用，慎用…… 呵呵. 超好的东西. 我收藏了. 回复 12# chenronting
无聊之作，许多地方没有完善
:face (27): 回复 11# xyold1
呵呵，效率的确太高了点，如果加点延时，会比较符合国情~~~ 回复 14# styledream
很有道理，找到茬却不能点，那也是一种煎熬{:1_189:}
页:
[1]
2