VB如何实现点按钮就向窗口键入命令,类似虚拟键盘的效果？

想做一个桌面快捷键工具。我们程序员，用的环境是linux，经常需要命令行输入一串命令，每次输入都比较麻烦，所以我想开发一个快捷指令的工具，类似于下面这种：

点一个按钮，就会向前面鼠标点击选定的输入框，键入命令。
比如我打开一个SSH窗口,然后点击工具上的"查看IP按钮",就会向SSH窗口键入：ip -br -f inet addr 回车：

现在难点在，点开SSH 窗口后，我再去点开工具（因为工具没有一直保持在最前面和显示，收缩到了任务栏），然后点工具上的按钮。这样焦点就又回到了工具和按钮，我写的键入”ip -br -f inet addr“ 回车代码就没有键入到SSH窗口
应该怎么做能呢？
能让我的工具像虚拟键盘一样，鼠标点上去也不会获取到焦点，焦点仍然保留在前面点击的输入窗口中

铜球，插眼

两种方法
1.获取窗体句柄，向这个窗体发送按键。
2.VB控制鼠标点击某个固定位置，这个位置要能点击到那个你要输入的窗体，这样会给它加焦点。然后再进行后面的操作。这个方法好理解，也容易实现，但是有时候会有意外，比如说刚点击完成，还没操作完后续的键盘输入就意外的被其他程序获取了焦点。但是这种意外比较少。

我突然想起来，之前帮一个客户做过触摸屏的模拟输入，可能更加符合你的需求，那个程序已经是二十年前做的了，源码估计早就找不到了，把当时的编程思路给你说一下吧。肯定能解决。
1、
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
用这两个，转移输入焦点，这个很重要，也就是保持输入焦点不变。
2、
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
用这个使窗体置顶，也就是你的控制面板一直显示在屏幕最上面
3、
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
这个是模拟按键申明，用这个模拟按键被按下和松开
这样肯定没问题，完美解决

又见这个问题

我的SSH 工具是MobaXterm ，界面如下，
界面1：

任务栏看到的是：

像我这样的情况，这个函数的hwnd 和nIndex 我应该填什么：Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
（另外有一个小小的疑问，你这句是声明给user32库的GetWindowLong 函数取别名GetWindowLongA的意思吗？为什么要这么做呢）

还有这个思路可以参考下

“为什么不改进一下”
这个要根据具体需求来改。我自己用的是一套可编程自动值守的。

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

20回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六