- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何打开外部程序后执行外部程序的快捷键 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175957)
-- 发布时间：2022/3/25 8:10:00
-- 如何打开外部程序后执行外部程序的快捷键
如何打开外部程序后执行外部程序的快捷键
代码打开外部程序已经没有问题，外部程序的快捷键如何弄呀
Dim textcxdz As String = e.Form.Controls("Textcxdz").text
Dim textwjlj As String = e.Form.Controls("Textwjlj").text
If textcxdz >"" And textwjlj>"" Then
Dim Proc As New Process
Proc.WaitForClose = False \'逻辑型,设为True,直到关闭外部程序,才会执行接下来的代码.
Proc.File = textcxdz
Proc.Arguments = textwjlj
Proc.Start
Proc.WaitForInputIdle() \'等程序自动结束并进入空闲状态
MessageBox.Show(textwjlj)
Sendkeys.Send("(^){Ctrl}+{DEL}") \'发送按键信息\'发送按键信息 这个地方如何表示 呀
Else
MessageBox.Show("请检查是否有输入程序地址或文件路径!")
End If
[此贴子已经被作者于2022/3/25 8:54:14编辑过]
-- 发布时间：2022/3/25 8:16:00
--
此主题相关图片如下：wsw.png
想执行的外部程序快捷键如上图
-- 发布时间：2022/3/25 9:03:00
--
Sendkeys.Send("^{DEL}")
-- 发布时间：2022/3/25 13:56:00
--
Sendkeys.SendWait("+^(P)") \'发送按键信息
Ctrl+ Shift + P 是上面的表示方法么
感觉没有执行成功呀
-- 发布时间：2022/3/25 14:09:00
--
应该是。可能程序或者程序窗口没有选中，没有获取焦点，无法响应快捷键
-- 发布时间：2022/3/25 14:10:00
--
狐表打开外部程序后如何可以让外部程序选中焦点呀
Dim textcxdz As String = e.Form.Controls("Textcxdz").text
Dim textwjlj As String = e.Form.Controls("Textwjlj").text
If textcxdz >"" And textwjlj>"" Then
Dim Proc As New Process
Proc.WaitForClose = False \'逻辑型,设为True,直到关闭外部程序,才会执行接下来的代码.
Proc.File = textcxdz
Proc.Arguments = textwjlj
Proc.Start
Proc.WaitForInputIdle() \'等程序自动结束并进入空闲状态
\'MessageBox.Show(textwjlj)
\'MessageBox.Show(11)
\'Sendkeys.SendWait("^{DEL}") \'发送按键信息
\'MessageBox.Show(21)
\'Sendkeys.SendWait("{F8}") \'发送按键信息
\'MessageBox.Show(31)
Sendkeys.SendWait("+^(P)") \'发送按键信息
Else
MessageBox.Show("请检查是否有输入程序地址或文件路径!")
End If
[此贴子已经被作者于2022/3/25 14:13:33编辑过]
-- 发布时间：2022/3/25 14:26:00
--
正常WaitForInputIdle后就有焦点的。可能快捷键不是这个吧，或者要打开什么窗口才能使用？