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，否则怎么死的都不知道。
