以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  点表单某个按钮，重新启动项目，代码怎么写？请教狐爸 谢谢  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114929)
--  作者：jswjyjf
--  发布时间：2018/2/26 14:28:00
--  点表单某个按钮，重新启动项目，代码怎么写？请教狐爸 谢谢
点表单某个按钮，重新启动项目，代码怎么写？
--  作者：jswjyjf
--  发布时间：2018/2/26 15:37:00
--  
也就是先退出系统 再进去
--  作者：狐狸爸爸
--  发布时间：2018/2/26 15:39:00
--  
Syscmd.Project.Open(PrjectFile)
--  作者：jswjyjf
--  发布时间：2018/2/26 15:44:00
--  
我查了论坛里 
按钮事件：

Application.Restart()


试了可以了 达到要求了
--  作者：jswjyjf
--  发布时间：2018/2/26 16:01:00
--  
奇怪 发布后 就不行了
--  作者：有点甜
--  发布时间：2018/2/26 16:25:00
--  
以下是引用jswjyjf在2018/2/26 16:01:00的发言：
奇怪 发布后 就不行了

 

代码写在窗口按钮里？我这样测试没问题，你报什么错？

 

e.Form.close
Application.Restart()
--  作者：jswjyjf
--  发布时间：2018/2/26 17:33:00
--  
发布后 只出现flash 登录没有出现
--  作者：有点甜
--  发布时间：2018/2/26 17:47:00
--  
以下是引用jswjyjf在2018/2/26 17:33:00的发言：
发布后 只出现flash 登录没有出现

 

做个简易的例子发上来看看。

 

不然，试试，红色如果是发布后，改成ApplicationPath & "xxx.exe"

 

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()

 

注意，vbs文件尽量不要动态生成，容易被查杀，你可以在你项目那里编写一个vbs文件，然后调用运行即可。