网站 › 『编程语言区』 › 很久没编程了，发发感慨，顺便发点东西，嘿嘿。

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语言会一点。这个我就能看天书！

查看完整版本: 很久没编程了，发发感慨，顺便发点东西，嘿嘿。