天堂在线.www资源在线观看,亚洲大尺度在线观看,免费一区二区三区久久

本文實例講述了VB實現的《QQ美女找茬游戲》作弊器。分享給大家供大家參考。具體如下：

比較無聊哈，原理很簡單，用VB速度比較慢，但是實現很容易。

				?

									Option Explicit

									Private Type sPOINT

									  x As Long

									  y As Long

									End Type

									Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

									Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

									Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

									Private Const HWND_TOPMOST& = -1

									' 將窗口置于列表頂部，并位于任何最頂部窗口的前面

									Private Const SWP_NOSIZE& = &H1

									' 保持窗口大小

									Private Const SWP_NOMOVE& = &H2

									' 保持窗口位置

									Private Sub Form_Load()

									SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

									' 將窗口設為總在最前

									End Sub

									'把long型的RGB值分解成3個分量

									Sub ColorRGB(Color As Long, C() As Integer)

									  Const ByN As Integer = 256

									  Const ByN2 As Long = 65536

									  C(1) = (Color Mod ByN)

									  C(2) = ((Color Mod ByN2) \ ByN)

									  C(3) = (Color \ ByN2)

									End Sub

									Private Sub GetPoint()

									  Dim p1(497, 447) As Long, p2(497, 447) As Long, C1(3) As Integer, C2(3) As Integer

									  '數組大小匹配于圖片的大小

									  Dim pic1 As sPOINT, pic2 As sPOINT

									  '設置兩張圖片的屏幕位置

									  pic1.x = 8

									  pic1.y = 192

									  pic2.x = 517

									  pic2.y = 192

									  Dim h As Long, hD As Long, r As Long, i As Integer, j As Integer

									  hD = GetDC(0)

									  '讀入兩張圖片

									  For i = 0 To 497

									    For j = 0 To 447

									      p1(i, j) = GetPixel(hD, i + pic1.x, j + pic1.y)

									      p2(i, j) = GetPixel(hD, i + pic2.x, j + pic2.y)

									    Next

									  Next

									  '對比，標記差異

									  Dim t As Boolean

									  t = True

									  For i = 0 To 497

									    For j = 0 To 447

									      Call ColorRGB(p1(i, j), C1())

									      Call ColorRGB(p2(i, j), C2())

									      If (Abs(C1(1) - C2(1)) > 30 Or Abs(C1(2) - C2(2)) > 30 Or Abs(C1(3) - C2(3)) > 30) Then

									        t = Not t

									        If t Then

									          Picture1.ForeColor = &H0&

									        Else

									          Picture1.ForeColor = &HFF00&

									        End If

									      Else

									        Picture1.ForeColor = p1(i, j)

									      End If

									      Picture1.PSet (i, j)

									    Next

									  Next

									End Sub

									Private Sub Picture1_Click()

									Me.Visible = False

									DoEvents

									GetPoint

									Me.Visible = True

									End Sub