Question

如何用VB写一个后台程序 按一个键等于按别的两个键很多次

要可以在后台运行的，失去焦点后也有效果，比如我在运行大型游戏的时候，我需要按“Ctrl+x”几百次，手工按的话累死我，我想让写一个程序，让我在游戏里按“\”就等于按“ Ctrl+x”100次，能做到吗？

Answer 1

在计时器里别说100次,永久有效,只要程序不退出,但是我不知道能不能在游戏里有效,思路:获取窗口句柄,向窗口发送按键,在计时器里判断键,模拟

追问

不是，我是说，我按1次“\”，就相当于我按了100次“Ctrl+x”

追答

就是在计时器里判断受否按了"\",如果按了,就模拟按下Ctrl+x,代码:sendkeys "^x",怕只怕我解决不了你的问题,不是指的你要求,而是网游的屏蔽问题,没尝试过,呵呵~

追问

不太明白，就不能像修改器那样在游戏里按按键，而我的程序有反应吗？

追答

'给你一个操作记事本窗口的例子,自己打开一个有文本的文档,然后运行本程序,按下"\",再切换到记事本的窗口,看看是不是在不停地输入"x",不保证在游戏里也有效哦...api自己查,写不下了,分别为FindWindow,FindWindowEx,keybd_event,PostMessage,MapVirtualKey和GetKeyState.

Function MakeKeyLparam(ByVal VirtualKey As Long, ByVal flag As Long) As Long
Dim s$, Firstbyte$, Secondbyte$, Scancode&
If flag = &H100 Then
Firstbyte = "00"
Else
Firstbyte = "C0"
End If
Scancode = MapVirtualKey(VirtualKey, 0)
Secondbyte = Right("00" & Hex(Scancode), 2)
s = Firstbyte & Secondbyte & "0001"
MakeKeyLparam = Val("&H" & s)
End Function

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Static i%
Dim WindowHandle&, hWnd&
WindowHandle = FindWindow("notepad", vbNullString)
hWnd = FindWindowEx(WindowHandle, 0, "Edit", vbNullString)
If GetKeyState(220) > 0 Then '如果按了"\"
'keybd_event vbKeyControl, 0, 0, 0 '先按住ctrl
If i < 100 Then '然后按100次x键
PostMessage hWnd, &H100, vbKeyX, MakeKeyLparam(vbKeyX, &H100)
Else '到了100次
'keybd_event vbKeyControl, 0, &H2, 0 '释放ctrl
PostMessage hWnd, &H101, vbKeyX, MakeKeyLparam(vbKeyX, &H101) '释放x键
End If
End If
i = i + 1
End Sub

Answer 2

可以的，我的是按下/就按下你那按钮100，可以后台的

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyDivide) Then
For i = 1 To 100
SendKeys "^x"
Next
End If
End Sub

Answer 3

看你的描述，应该是要把“\”注册为快捷键，点击时执行按100次“Ctrl+x”的操作吧？
可以用API函数RegisterHotKey注册热键，然后用WinIO执行按键的操作。
技术上应该没问题，这两个功能的程序都用过，不过程序写起来要好一阵子了。。。