QQ找茬辅助工具

工具是采用找色的原理，速度比较慢，有兴趣的朋友可以优化下，

1. 
   
2. #include <WinAPIEx.au3>
   
3. #include <WinAPI.au3>
   
4. #include <ButtonConstants.au3>
   
5. #include <ComboConstants.au3>
   
6. #include <GUIConstantsEx.au3>
   
7. #include <StaticConstants.au3>
   
8. #include <WindowsConstants.au3>
   
9. Opt("PixelCoordMode", 2)
   
10. Opt("MouseCoordMode", 2)
    
11. Opt("GUIOnEventMode", 1)
    
12. HotKeySet("{f12}", "_change_color")
    
13. HotKeySet("{esc}", "tuichu")
    
14. Global $g_color, $g_hotkey
    
15. Global $sysfile = @ScriptDir & "\找茬辅助配置文件.ini"
    
16. Global $color_list[5][2] = [["红", 0x0000ff],["绿", 0x00ff00],["蓝", 0xff0000],["黑", 0],["白", 0xffffff]]
    
17. $g_color = IniRead($sysfile, "settings", "color", "蓝")
    
18. $g_hotkey = IniRead($sysfile, "settings", "hotkey", "F5")
    
19. HotKeySet("{" & $g_hotkey & "}", "test")
    
20. 
    
21. #Region ### START Koda GUI section ###
    
22. $Form1_1 = GUICreate("QQ找茬辅助工具    ", 484, 102, 301, 184)
    
23. GUISetOnEvent($GUI_EVENT_CLOSE, "tuichu")
    
24. $Group1 = GUICtrlCreateGroup("设置", 8, 8, 457, 57)
    
25. $Label1 = GUICtrlCreateLabel("提示线颜色:", 24, 32, 67, 17)
    
26. $Combo_color = GUICtrlCreateCombo("", 96, 28, 49, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
    
27. GUICtrlSetData(-1, "红|蓝|黑|白|绿", $g_color)
    
28. GUICtrlSetOnEvent(-1, "mygui")
    
29. $Label2 = GUICtrlCreateLabel("快捷键：", 152, 32, 52, 17)
    
30. $Combo_hotkey = GUICtrlCreateCombo("", 200, 28, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
    
31. GUICtrlSetData(-1, "F2|F3|F4|F5|F6|F7|F8|F9|F10", $g_hotkey)
    
32. GUICtrlSetOnEvent(-1, "mygui")
    
33. $Checkbox_move_win = GUICtrlCreateCheckbox("自动调整窗口", 272, 30, 97, 17)
    
34. GUICtrlSetState(-1, IniRead($sysfile, "settings", "fixwinpos", 1))
    
35. GUICtrlSetOnEvent(-1, "mygui")
    
36. $Button1 = GUICtrlCreateButton("查找", 375, 28, 75, 22)
    
37. GUICtrlSetOnEvent(-1, "test")
    
38. GUICtrlCreateGroup("", -99, -99, 1, 1)
    
39. $Label3 = GUICtrlCreateLabel("AM电脑吧  https://www.ampc8.com", 8, 75, 289, 20)
    
40. GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    
41. GUICtrlSetColor(-1, 0x0000FF)
    
42. $Label4 = GUICtrlCreateLabel("提示：游戏中按F12快速切换颜色", 280, 75, 189, 20)
    
43. GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    
44. GUICtrlSetColor(-1, 0x008000)
    
45. GUISetState(@SW_SHOW)
    
46. #EndRegion ### END Koda GUI section ###
    
47. While 1
    
48. Sleep(100)
    
49. WEnd
    
50. Func mygui()
    
51. Switch @GUI_CtrlId
    
52.   Case $Checkbox_move_win
    
53.    $_is_move = GUICtrlGetState($Checkbox_move_win)
    
54.    IniWrite($sysfile, "settings", "fixwinpos", $_is_move)
    
55.   Case $Combo_color
    
56.    $g_color = GUICtrlRead($Combo_color)
    
57.    IniWrite($sysfile, "settings", "color", $g_color)
    
58.   Case $Combo_hotkey
    
59.    HotKeySet("{" & $g_hotkey & "}")
    
60.    $g_hotkey = GUICtrlRead($Combo_hotkey)
    
61.    IniWrite($sysfile, "settings", "hotkey", $g_hotkey)
    
62.    HotKeySet("{" & $g_hotkey & "}", "test")
    
63. EndSwitch
    
64. EndFunc   ;==>mygui
    
65. Func _change_color()
    
66. $_i = Random(0, 4, 1)
    
67. $g_color = $color_list[$_i][0]
    
68. GUICtrlSetData($Combo_color, "红|蓝|黑|白|绿", $g_color)
    
69. test()
    
70. EndFunc   ;==>_change_color
    
71. Func test()
    
72. WinClose('[title:mygui;class:AutoIt v3 GUI]')
    
73. $_winhandle = WinGetHandle('[title:大家来找茬;class:#32770]')
    
74. If @error Then
    
75.   TrayTip("", "找不到游戏窗口", 5)
    
76.   Return
    
77. EndIf
    
78. WinActivate($_winhandle)
    
79. $_pre_color_a = PixelChecksum(15, 200, 30, 230, 1, $_winhandle)
    
80. $_pre_color_b = PixelChecksum(205, 300, 230, 330, 1, $_winhandle)
    
81. $_game_win_pos = WinGetPos($_winhandle)
    
82. $_now_mouse_pos = MouseGetPos()
    
83. If $_now_mouse_pos[0] > 505 Then
    
84.   $_mygui = GUICreate("mygui", 490, 435, $_game_win_pos[0] + 6, $_game_win_pos[1] + 192, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW)
    
85. Else
    
86.   $_mygui = GUICreate("mygui", 490, 435, $_game_win_pos[0] + 516, $_game_win_pos[1] + 192, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW)
    
87. EndIf
    
88. GUISetBkColor(0xABCDEF)
    
89. WinSetOnTop($_mygui, "", 1)
    
90. $hdc = _WinAPI_GetDC($_mygui)
    
91. GUISetState()
    
92. WinActivate($_winhandle)
    
93. _API_SetLayeredWindowAttributes($_mygui, 0xABCDEF)
    
94. _WinAPI_ReleaseDC($_mygui, $hdc)
    
95. $hPen = _WinAPI_CreatePen($PS_SOLID, 2, _get_color_hex($g_color))
    
96. $obj_orig = _WinAPI_SelectObject($hdc, $hPen)
    
97. Local $_range_pos[2] = [15, 195], $_pre_pos[2] = [0, 0]
    
98. If @error Then Return
    
99. For $_i = 10 To 500 Step 10
    
100.   For $_j = 195 To 630 Step 5
     
101.    If $_i > 505 Or $_j > 636 Then Return
     
102.    If PixelGetColor($_i, $_j, $_winhandle) <> PixelGetColor($_i + 509, $_j, $_winhandle) Then
     
103.     _WinAPI_DrawLine($hdc, $_i - 13, $_j - 194, $_i - 5, $_j - 196)
     
104.    EndIf
     
105.   Next
     
106. Next
     
107. Do
     
108.   Sleep(100)
     
109.   If GUICtrlRead($Checkbox_move_win) == 1 Then
     
110. ;~    WinActivate($_winhandle)
     
111.    $_now_mouse_pos = MouseGetPos()
     
112.    $_now_point = DllStructCreate("int " & $_now_mouse_pos[0] & ";int " & $_now_mouse_pos[1])
     
113. ;~   #cs
     
114.    $_now_win_pos = WinGetPos($_mygui)
     
115.    If $_now_mouse_pos[1] < 192 Or $_now_mouse_pos[1] > 640 Then ContinueLoop
     
116.    If $_now_mouse_pos[0] < 506 And $_now_win_pos[0] < 506 Then
     
117.     WinMove($_mygui, "", $_game_win_pos[0] + 516, $_game_win_pos[1] + 192)
     
118.    ElseIf $_now_mouse_pos[0] > 506 And $_now_win_pos[0] > 506 Then
     
119.     WinMove($_mygui, "", $_game_win_pos[0] + 6, $_game_win_pos[1] + 192)
     
120.    EndIf
     
121.   EndIf
     
122. ;~   #ce
     
123. Until PixelChecksum(15, 200, 30, 230, 1, $_winhandle) <> $_pre_color_a And $_pre_color_b <> PixelChecksum(205, 300, 230, 330, 1, $_winhandle)
     
124. GUIDelete($_mygui)
     
125. EndFunc   ;==>test
     
126. Func _get_color_hex($_content)
     
127. For $_i = 0 To 4
     
128.   If $color_list[$_i][0] == $_content Then Return $color_list[$_i][1]
     
129. Next
     
130. EndFunc   ;==>_get_color_hex
     
131. Func findtezhengdian($_to_opr_win_handle = "", $firstco = 16317440, $xra = 1, $yra = 0, $secondco = 0, $xrb = -8, $yrb = 1, $thirdco = 0, $a = 10, $b = 50, $c = 640, $d = 500, $seccoa = 0, $seccob = 0, $seccoc = 0)
     
132. $aa = $a
     
133. $dd = $d
     
134. $coapos = PixelSearch($a, $b, $c, $d, $firstco, 1)
     
135. If @error Then
     
136.   SetError(1)
     
137.   Return 0
     
138. EndIf
     
139. $cob = PixelGetColor($coapos[0] + $xra, $coapos[1] + $yra)
     
140. $coc = PixelGetColor($coapos[0] + $xrb, $coapos[1] + $yrb)
     
141. While $cob <> $secondco Or $coc <> $thirdco
     
142.   $a = $coapos[0] + 1
     
143.   $b = $coapos[1]
     
144.   $d = $coapos[1]
     
145.   If $a > $c Then
     
146.    $a = $aa
     
147.    $b = $coapos[1] + 1
     
148.    $d = $dd
     
149.    If $b > $d Then
     
150.     SetError(1)
     
151.     Return 0
     
152.    EndIf
     
153.   EndIf
     
154.   $coapos = PixelSearch($a, $b, $c, $d, $firstco, 1)
     
155.   If @error Then
     
156.    Dim $coapos[2]
     
157.    $coapos[0] = $c
     
158.    $coapos[1] = $b
     
159.   Else
     
160.    $cob = PixelGetColor($coapos[0] + $xra, $coapos[1] + $yra)
     
161.    $coc = PixelGetColor($coapos[0] + $xrb, $coapos[1] + $yrb)
     
162.   EndIf
     
163. WEnd
     
164. Return $coapos
     
165. EndFunc   ;==>findtezhengdian
     
166. Func _reg_get_string($_the_info, $_the_reg_exp)
     
167. Local $_sting_reg_exp
     
168. If $_the_info == "" Or $_the_reg_exp == "" Then Return SetError(1, 1, 0)
     
169. $_sting_reg_exp = StringRegExp($_the_info, $_the_reg_exp, 1)
     
170. If @error Then Return SetError(1, 1, 0)
     
171. Return $_sting_reg_exp[0]
     
172. EndFunc   ;==>_reg_get_string
     
173. Func showtishi($neirong)
     
174. ConsoleWrite($neirong & @CRLF)
     
175. EndFunc   ;==>showtishi
     
176. Func showmsg($detail, $chaoshi = 99999)
     
177. MsgBox(262144 + 64, "提示", $detail, $chaoshi)
     
178. EndFunc   ;==>showmsg
     
179. Func tuichu()
     
180. Exit
     
181. EndFunc   ;==>tuichu
     
182. Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)
     
183. Local Const $AC_SRC_ALPHA = 1
     
184. Local Const $ULW_ALPHA = 2
     
185. Local Const $LWA_ALPHA = 0x2
     
186. Local Const $LWA_COLORKEY = 0x1
     
187. If Not $isColorRef Then
     
188.   $i_transcolor = Hex(String($i_transcolor), 6)
     
189.   $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
     
190. EndIf
     
191. Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
     
192. Select
     
193.   Case @error
     
194.    Return SetError(@error, 0, 0)
     
195.   Case $Ret[0] = 0
     
196.    Return SetError(4, 0, 0)
     
197.   Case Else
     
198.    Return 1
     
199. EndSelect
     
200. EndFunc   ;==>_API_SetLayeredWindowAttributes
     

复制代码

支持原创，谢谢分享 。