Question

VB 键盘问题 (按下某键触发某事)

如题 我想达到效果: 按下空白键(Space)
执行 WriteProcessMemory hProcess, ByVal &H6FF269, &H4C1C, 2, 0&
且 Lable2.caption = "已成功"

再次按下空白键

执行WriteProcessMemory hProcess, ByVal &H6FF269, &H4C75, 2, 0&
且 Lable2.caption = "已结束"

这样要如何达到阿??

ps.WriteProcessMemory地方宣告已完成 现在我想加入热键来控制
没人要回答吗

Answer 1

新建一个VB工程(VB6.0)
加入一个TIMER
加入以下源码: 之后运行按一下 "空格" 键看看
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
dim a
Private Sub Form_Load()
Timer1.Interval = 100
a=0
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(32) = -32767 Then
if a=0 then
MsgBox "已成功":a=1
else
MsgBox "已结束":a=0
end if
end if
End Sub