Question

VB中怎么才能被命令行调用？

例如我做一个a.exe
在cmd中我打入 a -a -b 1.txt 这样的命令行，这个程序就会收到并处理，这个怎么弄？
GetCommandLine()函数未定义
For Each argument As String In My.Application.CommandLineArgs输入后是红色的。
？？？

3楼啊，我问的不是VBS啊，是VB

Answer 1

直接使用Command对象
Private Sub form_load()
Dim ss
If Command <> "" Then
ss = Command '将命令行参数赋值给ss
'这里写你要执行的代码(ss中就是你的命令行参数)
End If
End Sub

例如：
Private Sub form_load()
Dim ss
If Command <> "" Then
ss = Command '将命令行参数赋值给ss
MsgBox "你的命令行参数是：" & ss
End If
End Sub
假设编译为abc.exe,路径为d:\abc.exe
在运行里输入 d:\abc.exe MyMingLingHang
程序运行时 msgbox 就提示 你的命令行参数是：MyMingLingHang
对于 \a \b 等一类多参数命令行也是全部存储在Command中的
具体使用时可以对ss字符串进行切分、判断等一系列操作

Answer 2

用GetCommandLine() 返回含有应用程序本身的全路径，用 Command 只取得参数本身，如果要循环读取各个参数，可以用
For Each argument As String In My.Application.CommandLineArgs
' Add code here to use the argument.
Next

Answer 3

Dim objshell
Set objshell = CreateObject("wscript.shell")
p = InputBox("please input your order") '引号里面的是要输入的命令
If p = Empty Then
MsgBox "命令为空 程序退出"
wscript.quit
Else
objshell.run (p)
End If