Foxtable(狐表)用户栏目专家坐堂 → 点表单某个按钮,重新启动项目,代码怎么写?请教狐爸 谢谢


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

主题:点表单某个按钮,重新启动项目,代码怎么写?请教狐爸 谢谢

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


加好友 发短信
等级:九尾狐 帖子:2555 积分:20107 威望:0 精华:0 注册:2012/5/19 11:57:00
点表单某个按钮,重新启动项目,代码怎么写?请教狐爸 谢谢  发帖心情 Post By:2018/2/26 14:28:00 [只看该作者]

点表单某个按钮,重新启动项目,代码怎么写?

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


加好友 发短信
等级:九尾狐 帖子:2555 积分:20107 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2018/2/26 15:37:00 [只看该作者]

也就是先退出系统 再进去

 回到顶部
帅哥,在线噢!
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2018/2/26 15:39:00 [只看该作者]

Syscmd.Project.Open(PrjectFile)

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


加好友 发短信
等级:九尾狐 帖子:2555 积分:20107 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2018/2/26 15:44:00 [只看该作者]

我查了论坛里 
按钮事件:

Application.Restart()


试了可以了 达到要求了

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


加好友 发短信
等级:九尾狐 帖子:2555 积分:20107 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2018/2/26 16:01:00 [只看该作者]

奇怪 发布后 就不行了

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/26 16:25:00 [只看该作者]

以下是引用jswjyjf在2018/2/26 16:01:00的发言:
奇怪 发布后 就不行了

 

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

 

e.Form.close
Application.Restart()


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


加好友 发短信
等级:九尾狐 帖子:2555 积分:20107 威望:0 精华:0 注册:2012/5/19 11:57:00
  发帖心情 Post By:2018/2/26 17:33:00 [只看该作者]

发布后 只出现flash 登录没有出现

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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文件,然后调用运行即可。


 回到顶部