Question

vb向指定的后台程序发送指令没反应，请给位大侠帮帮忙。。问题解决追加分数。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Form_Load()
Dim pid
pid = Shell("D:\demul\demul.exe", 0)
Label1.Caption = pid
Sleep 3000
Dim hwnd
hwnd = FindWindow("Demul", vbNullString)
SendMessage hwnd, WM_KEYDOWN, 18, &H11C0001
SendMessage hwnd, WM_KEYUP, 18, &H11C000
Sleep 500
SendMessage hwnd, WM_KEYDOWN, 40, 0
SendMessage hwnd, WM_KEYUP, 40, 0
End Sub

Answer 1

三个api函数齐了,WM_KEYDOWN和WM_KEYUP这两个常量没看见赋值,如果没赋值就赋下值:
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101