我们的设备需要和一台老的设备联机工作，老设备没有技术支持，我需要在老设备的电脑上装一个软件（用VB做），需要该软件能实现按老设备软件上的一些按键的功能，用以下的代码（把以下代码复制到VB的一个窗体内，并建两个命令按键和两个文本控件）给text1和text2中填数据可以模拟鼠标移动到屏幕任何位置（包括老设备软件按键的位置），但只能移动到该位置不能实现按下按键的功能，不过如果改text1和text2的数值到下述command2的位置（vb程序窗口内的按键）就可以，也就是只能模拟按下自己的按键，不能其他应用内的按键，求大师指点，非常感谢。


Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
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 Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Private sub command1
SetCursorPos Val(Text1.Text), Val(Text2.Text)
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
end sub
Private sub command2
msgbox"模拟鼠标按键"
end sub

[此贴子已经被作者于2022-5-16 10:12编辑过]

这种的，你为啥不用按键精灵做。

按键精灵脚本是 VBA ，会用VB，操作VBA 也一般没啥问题，稍注意一点就可以了。

不知道怎么弄，您能说的再详细点不，有没有参考代码给我参考下，谢谢！

你开一个按键精灵，用它的 录制功能 录制一个操作，然后看它的脚本代码就能明白。
控制命令 与 VB6 的一样。 都 是  FOR 啊，DO 这些。

网上都说按我上面的代码就能实现，为什么我测试就只能再VB的应用内实现，离开VB到其他应用就不行。

我的软件里还要用串口，图像比对等其他功能，所以要把模拟按键的功能植入到我的工程里才可以

我大概明白你的意思了，你是说用按键精灵录制，就可以间接得到VB源码，然后再植入到我的工程里，是这样吗？谢谢！

Private Sub Command4_Click()
MoveTo 971, 429
MoveTo 115, 128
Delay 15350
LeftDoubleClick 1
MoveTo 955, 557
Delay 10474
LeftClick 1
End Sub

这个是录制了一个鼠标点击的操作，在VB里无法运行，MoveTo函数没有定义，有这个API吗？

如果你要用到串口，那就没办法用按键精灵了。那就老老实实用VB6了。

无法实现点击，要查 API 函数说明。

您是高手，帮忙看下有没有其他办法，谢谢！