vb.net生成cmd,vbnet c#

vb.net启动cmd并执行sfc代码？

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的文件的完全路径。

相关问答

Q1: vb.net 怎么调用cmd执行多行语句

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 停用延缓的环境扩展。

Q2: VB.net窗体程序如何让cmd调用？

VB.NET 里面会有一个main方法表示函数的入口

main方法的参数就是命令行传给它的

shutdown.exe能直接调用是因为你的环境变量有C盘的windows目录

你只要在你程序的输出目录(一般为bin)里面打开命令行输入程序名称.exe就可以直接执行你的窗体

如果你要调试输入命令的效果,你打开你项目的属性,找到调试里面的命令行参数,在里面输入测试参数就能在你main函数里面看到结果了

那如果你想打开任何命令行都可以执行你的窗体程序,那你把你程序的安装目录设置为环境变量,这样就可以直接执行这个命令了

Q3: 关于VB.NET中调用CMD执行处理理

调用c:\1.bat，可以这样：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Shell("cmd.exe /c call c:\1.bat", AppWinStyle.NormalFocus)

End Sub

Q4: vb net 调用cmd 命令生成 exe 后没反应

Debug对象只能在程序设计和调试阶段才有效，生成EXE后就无效了，又由于你用了On Error Resume Next，所以出错信息被屏蔽了，表面看起来就是没有反应了。

补充一点：当程序出错时，你最好把On Error语句删掉或注释掉，这样再运行你就知道是哪里错了。另外本人建议如非必要尽可能不要用On Error，否则怎么死的都不知道。

Q5: 在VB.NET中如何获取cmd命令回显

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        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