VB實現(xiàn)的《QQ美女找茬游戲》實例
更新時間:2024年09月03日 16:42:52 作者:1Byte
這篇文章主要介紹了VB實現(xiàn)的《QQ美女找茬游戲》,以一個完整實例形式分析了VB實現(xiàn)《QQ美女找茬游戲》的相關(guān)技巧,需要的朋友可以參考下
本文實例講述了VB實現(xiàn)的《QQ美女找茬游戲》。分享給大家供大家參考。具體如下:
比較無聊哈,原理很簡單,用VB速度比較慢,但是實現(xiàn)很容易。
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 ' 將窗口設(shè)為總在最前 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 '數(shù)組大小匹配于圖片的大小 Dim pic1 As sPOINT, pic2 As sPOINT '設(shè)置兩張圖片的屏幕位置 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 '對比,標(biāo)記差異 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
希望本文所述對大家的VB程序設(shè)計有所幫助。
相關(guān)文章
VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法
這篇文章主要介紹了VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法,比較實用的功能,需要的朋友可以參考下2014-07-07VB實現(xiàn)屏蔽文本框右鍵菜單的復(fù)制、粘貼等功能的方法
這篇文章主要介紹了VB實現(xiàn)屏蔽文本框右鍵菜單的復(fù)制、粘貼等功能,是非常實用的一個功能,需要的朋友可以參考下2014-07-07淺談如何使用vb.net從數(shù)據(jù)庫中提取數(shù)據(jù)
這篇文章主要介紹了淺談如何使用vb.net從數(shù)據(jù)庫中提取數(shù)據(jù),使用VB提取數(shù)據(jù),是先查找,做成數(shù)組,再顯示到數(shù)據(jù)里,如果感興趣可以了解一下2020-07-07