Question

关于VB怎么调用外部EXE后的参数

求教大神，我的目的是
1.先输入判断为IP地址后，进入选项
2.然后进入某个目录后，点击，执行同目录（由于相制作程序，采用相对路径）下的1.exe 后面还要加参数，连接刚才的IP地址才能执行，例如 :1.exe connect var
3.成功连接该IP地址后，再进行例如：执行 1.exe rm *.mp3等

Dim var As String
var = InputBox("请输入IP地址：", "IP地址框")
Do While var = ""

var = InputBox("请IP地址：", "IP地址框")
希望哪位能写一下出来，谢谢。

Answer 1

简单情况：

'shell "程序全路径 参数"
示例：
Shell "C:\123\456.exe -789"

复杂情况：

可以使用ShellExecute这个API函数：
ShellExecute(
HWND hwnd, //父窗口句柄
LPCSTR lpOperation, //操作类型
LPCSTR lpFile, //要进行操作的文件或路径
LPCSTR lpParameters, //当lpOperation为“explore”时指定要传递的参数，通常设为NULL
LPCSTR lpDirectory, //指定默认目录，通常设为NULL
INT nShowCmd //文件打开的方式，以通常方式还是最大化或最小化显示
)
用法：
新建一个窗口，放入一个command按钮，复制下面代码到代码窗口中，其中：F:\游戏\Cs1.6中文版\cstrike.exe为游戏路径。后边的那个为参数 -console 。

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "F:\游戏\Cs1.6中文版\cstrike.exe", "-console", "", 1
End Sub

Answer 2

如果你是 要执行1.exe，然后带个参数的话，使用shellexcute 函数:
ShellExecute NULL,"open","1.exe",NULL,NULL,SW_SHOWNORMAL

如果是在1.exe中想要获取参数的话，在1.exe的submain里提取command() 获得的就是运行参数
如果还有其他，麻烦说的明白点

追问

请问怎样连接那个常量VAR。我只会点批处理，原来的是：
set /p var=请输入IP地址（例如：192.168.0.3）：
1.exe connect %var%:5555

放在VB是怎么执行呢，
然后连接这个VAR后，在执行1.exe 运行参数，如：1.exe cp a.txt b.txt

追答

晕了，不知道你从哪里看的代码，“连接那个常量var”这句话就有错误。。。。问题尽量说明白点，你要实现什么功能？

追问

我要实现的是输入IP地址后，这个是变化的，不固定，例如：192.168.1.116
调用1.exe connect 192.168.1.116
连接成功后执行1.exe rm *.mp3

就是类似于远程连接IP地址后管理和调试的功能。

追答

明白了，你的1.exe是自己写还是已有的程序？如果是用vb自己写，有困难，这个类似于VB写CGI，我现在也在找这个资料，实验没成功
如果是已有的程序，你需要肯定的是1.exe是类似dos方式执行的程序，且有返回值，在n你自己的程序里用shellexcute来调用1.exe，并获取返回值，根据返回值来判断所需操作

追问

是原来就有的程序，具体能写出来吗？

追答

写不出来，我只有大概思路方法，具体要看你具体的流程和对那个1.exe文件的测试分析什么的。。。

Answer 3

dim ml
ml = "1.exe" & "connect" & var
shell ml
就可以了

追问

如果想一次输入后判断这个1.EXE已经连接IP后，即一次输入后，无需再输入，怎么写？谢谢

追答

没明白你追问的意思？
我理解是：
在主窗体定义一个公有变量，把IP赋值
下次再调用直接读取这个变量
-----
或者是
在1.EXE中添加
一个回调语句（管道）
返回给主程序

Answer 4

我女朋友就是学计数机的。但是我不知道。。。。

追问

那她懂得VB吧？帮忙问一下，谢了