Contoh artikel ini menjelaskan perangkat curang "QQ Beauty Find Difference Game" yang diterapkan di VB. Bagikan dengan semua orang untuk referensi Anda. Dengan rincian sebagai berikut:
Cukup membosankan. Prinsipnya sangat sederhana. Menggunakan VB lebih lambat, tetapi implementasinya mudah.
Opsi ExplicitPrivate Type sPOINT x As Long y As LongEnd TypePrivate Deklarasi Fungsi GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Deklarasi Fungsi GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Fungsi Deklarasi LongPrivate 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 LongPrivate Const HWND_TOPMOST& = -1' Tempatkan jendela di bagian atas daftar dan di atas mana pun Depan jendela atas Private Const SWP_NOSIZE& = &H1' Pertahankan ukuran jendela Private Const SWP_NOMOVE& = &H2' Pertahankan posisi jendela Private Sub Form_Load()SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Atau SWP_NOSIZE' Atur jendela agar selalu berada di atas End Sub' Dekomposisi nilai RGB yang panjang menjadi 3 komponen Sub ColorRGB(Warna Selama, C() Sebagai Integer) Const ByN Sebagai Integer = 256 Const ByN2 As Long = 65536 C(1) = (Color Mod ByN) C(2) = ((Color Mod ByN2) / ByN) C(3) = (Color / ByN2)End SubPrivate Sub GetPoint() Redupkan p1( 497, 447) Selama, p2(497, 447) Selama, C1(3) Sebagai Integer, C2(3) As Integer 'Ukuran array sesuai dengan ukuran gambar Redupkan pic1 Sebagai sPOINT, pic2 Sebagai sPOINT 'Atur posisi layar kedua gambar pic1.x = 8 pic1.y = 192 pic2.x = 517 pic2.y = 192 Dim h Selama , hD Selama, r Selama, i Sebagai Integer, j Sebagai Integer hD = GetDC(0) 'Baca dua gambar Untuk i = 0 To 497 Untuk j = 0 Sampai 447 p1(i, j) = GetPixel(hD, i + pic1.x, j + pic1.y) p2(i, j) = GetPixel(hD, i + pic2.x, j + pic2 .y) Berikutnya Berikutnya 'Kontras, tandai selisihnya Dim t Sebagai Boolean t = True Untuk i = 0 Hingga 497 Untuk j = 0 Hingga 447 Panggilan ColorRGB(p1(i, j), C1()) Panggil ColorRGB(p2(i, j), C2()) If (Abs(C1(1) - C2(1)) > 30 Atau Abs(C1(2) - C2(2)) > 30 Atau Abs(C1(3) - C2(3)) > 30) Maka t = Tidak t Jika t Maka Gambar1.Warna Depan = &H0& Else Picture1.ForeColor = &HFF00& End If Else Picture1.ForeColor = p1(i, j) End If Picture1.PSet (i, j) Next NextEnd SubPrivate Sub Picture1_Click()Me.Visible = FalseDoEventsGetPointMe.Visible = TrueEnd Sub
Saya harap artikel ini bermanfaat untuk pemrograman VB semua orang.