菜鸟一个，刚学VB，想实现以下功能：

晕，没写完接错发表了，功能如下：
当屏幕上24,54的颜色不是4214E5时按F键。如果是再次循环，直到按F11退出

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

[[it] 本帖最后由 我是菜鸟哦 于 2008-9-10 19:27 编辑 [/it]]

谢谢版主指教，我现在去试一试

有个问题，颜色不用6位表示的吗？4214E5要写成421400000#???

这个VB会自动把前者改为后者

VB你可以將你這代碼放上去看看，將會自動縮寫