以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]项目重启问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87580)
--  作者：pcxjxjhkw
--  发布时间：2016/7/14 1:31:00
--  [求助]项目重启问题

设计了一窗口，单击按钮重启当前项目，相当于正常关闭后再双击打开项目，不是Syscmd.Project.Open(FileName)

求代码，谢谢
--  作者：大红袍
--  发布时间：2016/7/14 2:00:00
--  

参考

 

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()
--  作者：pcxjxjhkw
--  发布时间：2016/7/14 8:44:00
--  
360报病毒，且所有狐表都关闭了
--  作者：Hyphen
--  发布时间：2016/7/14 8:52:00
--  
按钮事件：

Application.Restart()