扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
专注于为中小企业提供成都做网站、成都网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业武陵免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
Dim a As String
a = Microsoft.VisualBasic.Command 'a是发送给程序的命令
End Sub
End Class
Shell(".\bin\rar.exe a -hp123 -k -r -s -y d:\wwwroot\Backup\20100328.rar d:\wwwroot\web", vbHide, True)vbHide参数的后一个可选参数设为True就可以让Shell同步执行了,只有命令执行完才接着Shell下边的语句.
VB.NET 里面会有一个main方法表示函数的入口
main方法的参数就是命令行传给它的
shutdown.exe能直接调用是因为你的环境变量有C盘的windows目录
你只要在你程序的输出目录(一般为bin)里面打开命令行输入程序名称.exe就可以直接执行你的窗体
如果你要调试输入命令的效果,你打开你项目的属性,找到调试里面的命令行参数,在里面输入测试参数就能在你main函数里面看到结果了
那如果你想打开任何命令行都可以执行你的窗体程序,那你把你程序的安装目录设置为环境变量,这样就可以直接执行这个命令了
你好!
添加一个全局类,添加一个
Main
静态方法,让它接收一个类型为字符串数组的参数,并设置项目属性的启动项目为Main函数即可。
但是要注意在Main函数中运行窗体。Application.Run()
希望对你有所帮助,望采纳。
写一个函数
function nettime(ip)
open app.path "\nt.bat" for output as #1
print #1,"@net time \\" ip " nt.dat"
close #1
shell app.path "\nt.bat",vbhide
doevents
'这里你查查相关资料,关于shell的WAIT,可能用doevents不能等到执行完成,所以可能得不到需要的数据, 里有资料
open app.path "\nt.dat" for intput as #1
dim x as sting
do until eof(1)
input #1,x
nettime=nettime x
loop
nettime=replace(nettime,vbcrlf,"")
nettime=replace(nettime," ","")
end function
调用就可以了,得到什么我不知道,没有可用的服务器
运行一个可执行程序,并且如果该程序仍然在运行,则返回一个包含该程序的进程
ID
的整数。
Public
Function
Shell(
_
ByVal
PathName
As
String,
_
Optional
ByVal
Style
As
AppWinStyle
=
AppWinStyle.MinimizedFocus,
_
Optional
ByVal
Wait
As
Boolean
=
False,
_
Optional
ByVal
Timeout
As
Integer
=
-1
_
)
As
Integer
参数
PathName
必选。String。要执行的程序的名称,以及任何必选的参数和命令行开关。PathName
也可以包含驱动器和目录路径或文件夹。
如果您不知道程序的路径,可以使用
My.Computer.FileSystem.GetFiles
方法进行查找。例如,调用
My.Computer.FileSystem.GetFiles("C:\",
True,
"testFile.txt")
可以返回驱动器
C:\
上任意处的名称为
testFile.txt
的每个文件的完整路径。
Style
可选。AppWinStyle。从
AppWinStyle
枚举中选择的值,指定要在其中运行程序的窗口的样式。如果省略
Style,则
Shell
将使用
AppWinStyle.MinimizedFocus,它启动程序后最小化并带有焦点。
Wait
可选。Boolean。指示
Shell
函数是否应等待程序完成的值。如果省略
Wait,Shell
将使用
False。
Timeout
可选。Integer。Wait
为
True
时要等待的毫秒数。如果省略
Timeout,则
Shell
使用
-1
表示没有超时,并且
Shell
直到程序完成才会返回。因此,如果省略
Timeout
或将其设置为
-1,则
Shell
可能永远不会将控制返回您的程序。
如果你要获得显示的结果,我知道的方法是使用一个dos管道(名字玄乎,实际上没什么)
在命令的最后加一个
(filename)
这样这个命令所有的显示结果就背记录在(filename)里面了
比如
dir
a.txt
这样dir显示的结果就是背全部记录在a.txt里面
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流