VB调用API模拟键盘输入 我想用VB调用API来模拟键盘输入(由于玩游戏以前直接用VB写的代码不能够用了，)，可是不知道怎么写代码，比如说我想让脚本每隔30秒自动按一次1(不是小。
求VB模拟鼠标左键单击源码！谢谢！ Private Declare Sub mouse_event Lib\"user32\"(ByVal dwFlags As Long，ByVal dx As Long，ByVal dy As Long，ByVal cButtons As Long，ByVal dwExtraInfo As Long)Private Sub Command1_Click()mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTDOWN，0，0，0，0mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP，0，0，0，0End Sub
200分求VB使用WINIO模拟鼠标左键源码 用winio的我没有，不过用mouse_event实现的有，测试过可以用。窗体上放一个按钮一个Timer控件。Option ExplicitPrivate Declare Sub mouse_event Lib\"user32\"_(_ByVal dwFlags As Long，_ByVal dx As Long，_ByVal dy As Long，_ByVal cButtons As Long，_ByVal dwExtraInfo As Long_'对API变量的定义Const MOUSEEVENTF_LEFTDOWN=H2Const MOUSEEVENTF_LEFTUP=H4Private Sub Command1_Click()If Command1.Caption=\"模拟鼠标左单击开始\"ThenTimer1.Enabled=TrueCommand1.Caption=\"停止ElseTimer1.Enabled=FalseCommand1.Caption=\"模拟鼠标左单击开始End IfEnd SubPrivate Sub Form_Load()Command1.Caption=\"模拟鼠标左单击开始Timer1.Interval=1000 '设定按键时间间隔为1秒Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer()mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP，0，0，0，0 '模拟按键End Sub
