参考

Dim str As String = ""
str &= "Set ws = CreateObject(""Wscript.Shell"")" & vbcrlf
str &= "ws.run ""cmd /c d:\\test.bat"",vbhide"

Dim bat As String = ""
bat &= "taskkill /f /im foxtable.exe" & vbcrlf
bat &= """" & ProjectFile & """"

FileSys.WriteAllText("d:\\test.bat", bat, False, Encoding.Default)
FileSys.WriteAllText("d:\\test.vbs", str, False, Encoding.Default)

Dim vbs As String = "d:\\test.vbs"
Dim Proc As New Process \'定义一个新的Process
Proc.File = vbs \'指定要打开的文件
Proc.Start()

我使用这个重启代码,但重启后报错,求解决?