Foxtable(狐表)用户栏目专家坐堂 → 如何用参数调用外部程序?


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

主题:如何用参数调用外部程序?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/22 14:43:00 [显示全部帖子]

参考

 

http://www.foxtable.com/webhelp/scr/0353.htm

 

如果你知道快捷方式的路径,那直接运行快捷方式也行


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/22 14:58:00 [显示全部帖子]

参数写到红色地方,双引号换成单引号,或者双引号换成两个双引号

 

Dim Proc As New Process
Proc.File = "Notepad.exe" '指定要执行的文件
Proc.Arguments = "d:\test.txt" '指定命令行参数
Proc.Start()


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/22 17:24:00 [显示全部帖子]

你说的是 isscntr.exe 的路径不同?那你可以弹出一个对话框,让用户选择程序的路径,然后保存这个路径

 

http://www.foxtable.com/webhelp/scr/0328.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/25 15:56:00 [显示全部帖子]

如果是固定在C盘,简单判断即可,如

 

Dim file1 = "C:\Program Files (x86)\LANDesk\ServerManager\RCViewer\isscntr.exe"
Dim file2 = "C:\Program Files\LANDesk\ServerManager\RCViewer\isscntr.exe"
Dim file As String = ""
If FileSys.FileExists(file1) Then
    file = file1
ElseIf FileSys.FileExists(file2) Then
    file = file2
End If
msgbox(file)

[此贴子已经被作者于2017/12/25 16:23:58编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/25 16:26:00 [显示全部帖子]

Dim file1 = "C:\Program Files (x86)\LANDesk\ServerManager\RCViewer\isscntr.exe"
Dim file2 = "C:\Program Files\LANDesk\ServerManager\RCViewer\isscntr.exe"
Dim file As String = ""
If FileSys.FileExists(file1) Then
    file = file1
ElseIf FileSys.FileExists(file2) Then
    file = file2
End If
If file = "" Then
    msgbox("路径不存在")
Else
    Dim Proc As New Process
    proc.file = file
    Proc.Arguments = "-A" & str_ip & "; -c""Remote Control"" "
    Proc.Start()
End If


 回到顶部