很久没编程了，发发感慨，顺便发点东西，嘿嘿。

pjcs · 发表于 2010-8-9 23:03

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateDCA& Lib "gdi32" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long)

Private Sub form_load()
Dim a As String
a = CreateDCA("DISPLAY", vbNullString, vbNullString, 0)
Do While GetPixel(a, 24, 54) <> 421400000#
SendKeys "F"
Loop
End Sub

Private Sub form_KeyPress(KeyAscii As Integer)

If KeyAscii = 122 Then unload me

End Sub
用VB写的一段判断颜色的代码，用于外挂编程，很有用。以前编写的外挂到现在都能用，从来没被封过。

qq20048888 · 发表于 2010-8-9 23:08

看不懂..哎..!!

nnw · 发表于 2010-8-9 23:37

学C++的时候神游了，现在几乎全看不懂

qq20036 · 发表于 2010-8-9 23:54

看不懂，E语言会一点。这个我就能看天书！[s:235]

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] 很久没编程了，发发感慨，顺便发点东西，嘿嘿。