高分请求高手帮忙，完成一段VB6代码翻译！

来源：百度知道 编辑：UC知道 时间：2024/06/18 22:27:41
我想用VB完成下面代码，而我对VB又一知半解，遇上一个关于用热键向指定窗口发送按键消息的问题解决不了，想使用timer1和timer2来执行，请求各位高手大大们指点。谢谢！具体要求如下：
————————>开始
按下《h》键
延时30毫秒
松开《h》键
延时60毫秒
鼠标移至X157，Y720
按下《ALT》不放
延时31毫秒
按下《2》（是大键盘上的2，而不是数字小键盘上的2。）
鼠标左键按下
延时16毫秒
松开《2》
延时100毫秒
按下《1》(大键盘上的1)
鼠标左键弹起
延时31毫秒
松开《1》
延时485毫秒
松开《ALT》
————————>结束
最好每句有注释。先悬5分（避免浪费），调试后如果能用的话，追加150分，绝不食言！谢谢各位大大了！
swx1995 您好，我用您的代码粘贴后出现一些问题，主要情况如下图：

private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As ULong, ByVal dwExtraInfo As ULong) '键盘模拟按键

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '延时API
private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long '鼠标定位API
private Declare Auto Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) '鼠标模拟API
Const KEYEVENTF_KEYUP = &H2 '键盘松开标志，按下是0
Const MOUSEEVENTF_LEFTDOWN = &H2 '左键按下
Const MOUSEEVENTF_LEFTUP = &H4 '左键弹起

private sub timer1_timer()
keybd_event 72, 0, 0, 0 '72就是h
sleep 30 '延时 30 毫秒
keybd_event