Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何调用一个安装位置不固定的外部exe程序?


  共有1764人关注过本帖树形打印复制链接

主题：如何调用一个安装位置不固定的外部exe程序?
帅哥哟，离线，有人找我吗？
sloyy
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00 		如何调用一个安装位置不固定的外部exe程序?  发帖心情 Post By：2017/10/20 12:33:00 [只看该作者]

我有一个exe文件需要在foxtable里调用
例子里都是写exe文件的位置的
如:
Dim Proc As New Process
Proc.File = "d:\test\test.exe" '指定要执行的文件
Proc.Start()
现在我这个exe文件有可能在别的目录,应该怎么办?
先全盘搜索文件名,再替换路径?这样岂不是很慢?
或者是搜索注册表,找到这个exe文件安装路径,再替换?
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/20 13:18:00 [只看该作者]

1、可以半自动，让用户选择一下这个exe。

 

2、本方法，就全盘搜索查找。

 

3、也可以搜索注册表，具体要看你这个exe如何写入注册表的。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/10/20 14:28:00 [只看该作者]

exe文件创建快捷方式到桌面，直接调用快捷方式

Dim Proc As New Process '定义一个新的Process
proc.File =  SpecialFolder.DesktopDirectory & "\Foxtable_2017_商业版.lnk" 
Proc.Start()

注意快捷方式名称不能有空格，比如“Foxtable 2017 商业版.lnk”就会提示错误了
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2017/10/22 10:23:00 [只看该作者]

谢谢 好办法图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/12/25 8:32:00 [只看该作者]

快捷方式的 “目录” 属性 要加参数，如何远程啊？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/25 8:43:00 [只看该作者]

试试
 
Dim Proc As New Process
Proc.File = "C:\Program Files (x86)\LANDesk\ServerManager\RCViewer\isscntr.exe" '指定要执行的文件
Proc.Arguments = "-A172.16.26.52;'妇科一护士站2' -sLD-LANSERVER -cx'Remote Control' -c'Chat' -c'File Transfer' -c'Remote Execute' -c'Reboot' -w"
Proc.Start()
 
或者
 
Dim Proc As New Process
Proc.File = "C:\Program Files (x86)\LANDesk\ServerManager\RCViewer\isscntr.exe" '指定要执行的文件
Proc.Arguments = "-A172.16.26.52;""妇科一护士站2"" -sLD-LANSERVER -cx""Remote Control"" -c""Chat"" -c""File Transfer"" -c""Remote Execute"" -c""Reboot"" -w"
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/12/25 8:49:00 [只看该作者]

貌似不行,程序是可以被调用起来，但是参数没有起作用
[此贴子已经被作者于2017/12/25 8:53:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/25 9:10:00 [只看该作者]

那试试

 

Dim Proc As New Process
Proc.File = "C:\Program Files (x86)\LANDesk\ServerManager\RCViewer\isscntr.exe" '指定要执行的文件
Proc.Arguments = "-A 172.16.26.52;""妇科一护士站2"" -s LD-LANSERVER -cx ""Remote Control"" -c ""Chat"" -c ""File Transfer"" -c ""Remote Execute"" -c ""Reboot"" -w"
Proc.Start()

 

或者

 

Dim Proc As New Process
Proc.File = """C:\Program Files (x86)\LANDesk\ServerManager\RCViewer\isscntr.exe"" -A172.16.26.52;""妇科一护士站2"" -sLD-LANSERVER -cx""Remote Control"" -c""Chat"" -c""File Transfer"" -c""Remote Execute"" -c""Reboot"" -w"
Proc.Start()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03799 秒, 4 次数据查询