重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
创新互联建站专业为企业提供平利网站建设、平利做网站、平利网站设计、平利网站制作等企业网站建设、网页设计与制作、平利企业网站模板建站服务,10多年平利做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
Dim b As Boolean = My.Computer.Network.Ping("192.168.1.1", 1000) '返回ping结果,true表示通,false表示不通,1000表示1000毫秒内返回结果
My.Computer.FileSystem.WriteAllText("c:\1.txt", b.ToString vbCrLf, True) '写入到c盘的1.txt文件中并自动加换行回车符
End Sub
dimiasintegeri=shell(Filename,style,wait,timeout)后面的3个参数是可以省略的具体说明以下PublicSharedFunctionShell(_PathNameAsString,_StyleAsAppWinStyle,_WaitAsBoolean,_TimeoutAsInteger_)AsInteger参数PathName类型:System..::.String必须。String.要履行的程序的名称,和所有必须的参数和命令行开关。PathName也能够包括驱动器和目录路径或文件夹。如果不知道程序的路径,则可使用GetFiles进行定位。例如,可以调用My.Computer.FileSystem.GetFiles(C:\,True,testFile.txt),这将返回驱动器C:\上所有目录中每一个名为testFile.txt的文件的完全路径。
VB.NET 里面会有一个main方法表示函数的入口
main方法的参数就是命令行传给它的
shutdown.exe能直接调用是因为你的环境变量有C盘的windows目录
你只要在你程序的输出目录(一般为bin)里面打开命令行输入程序名称.exe就可以直接执行你的窗体
如果你要调试输入命令的效果,你打开你项目的属性,找到调试里面的命令行参数,在里面输入测试参数就能在你main函数里面看到结果了
那如果你想打开任何命令行都可以执行你的窗体程序,那你把你程序的安装目录设置为环境变量,这样就可以直接执行这个命令了
shell "cmd /c dir c:\*.*",1
msgbox("执行完毕")
另外CMD窗口是无法隐藏执行的,当然,你可以换另外一个思路,就是启用一个新线程,然后将线程后台执行CMD语句,这样前台就看不到CMD窗口了
请参考下面的示例
shell "cmd /c dir",1'/c表示执行完即关闭窗口
shell "cmd /k dir",1'/k表示执行完停留
shell "cmd /c dir pause",1'多条语句可用连接
关于cmd的具体用法可以在命令提示符下敲入cmd/?看看
太多了,只列举一些典型的:
CMD [/A | /U] [/Q] [/D] [/E:ON | /E:OFF] [/F:ON | /F:OFF] [/V:ON | /V:OFF]
[[/S] [/C | /K] string]
/C 执行字符串指定的命令然后终断
/K 执行字符串指定的命令但保留
/S 在 /C 或 /K 后修改字符串处理(见下)
/Q 关闭回应
/D 从注册表中停用执行 AutoRun 命令(见下)
/A 使向内部管道或文件命令的输出成为 ANSI
/U 使向内部管道或文件命令的输出成为 Unicode
/T:fg 设置前景/背景颜色(详细信息,请见 COLOR /?)
/E:ON 启用命令扩展(见下)
/E:OFF 停用命令扩展(见下)
/F:ON 启用文件和目录名称完成字符 (见下)
/F:OFF 停用文件和目录名称完成字符(见下)
/V:ON 将 ! 作为定界符启动延缓环境变量扩展。如: /V:ON 会
允许 !var! 在执行时允许 !var! 扩展变量 var。var 语法
在输入时扩展变量,这与在一个 FOR 循环内不同。
/V:OFF 停用延缓的环境扩展。
Debug对象只能在程序设计和调试阶段才有效,生成EXE后就无效了,又由于你用了On Error Resume Next,所以出错信息被屏蔽了,表面看起来就是没有反应了。
补充一点:当程序出错时,你最好把On Error语句删掉或注释掉,这样再运行你就知道是哪里错了。另外本人建议如非必要尽可能不要用On Error,否则怎么死的都不知道。