Foxtable(狐表)用户栏目专家坐堂 → [求助]项目重启问题


  共有2467人关注过本帖树形打印复制链接

主题:[求助]项目重启问题

帅哥哟,离线,有人找我吗?
pcxjxjhkw
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]项目重启问题  发帖心情 Post By:2016/7/14 1:31:00 [只看该作者]

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

求代码,谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2016/7/14 8:44:00 [只看该作者]

360报病毒,且所有狐表都关闭了

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/7/14 8:52:00 [只看该作者]

按钮事件:

Application.Restart()

 回到顶部