怎么重新启动程序啊？

2009-07-20 04:24:47 231 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

极化码理论及算法研究4-巴氏参数、GA算法以及matlab仿真目录（如要找其他内容，欢迎访问我的主页寻找） #前言 #极化码概述 #极化码定义 #极化码编码 #极化码译码 #5G标准中极化码的编译码概述 #5G标准中极化码的编码 #5G标准中极化码的译码 #总结极化码编码 ... 阅读详情

程序正在运行，我想点击画面的按钮使程序关闭并重新打开
好比重新启动计算机一样，能不能实现啊？

...全文

NVIDIA驱动版本太低？手把手教你解决CUDA与PyTorch版本冲突问题本文针对深度学习开发中常见的NVIDIA驱动版本过低导致的CUDA与PyTorch版本冲突问题，提供了从根源理解到实战解决的完整指南。文章详细解析了驱动、CUDA与PyTorch的依赖关系，并给出了升级驱动、降级PyTorch、使用Conda环境管理及Docker容器化四种核心解决方案，帮助开发者快速诊断并构建稳定的GPU开发工作流。阅读详情

笑里春秋多少泪

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

无·法 2009-07-24

打赏
举报

批处理调用另一个程序建议用start命令，否则cmd进程会一直伴随着你调用的程序存在，call命令也是这样

jp0077777 2009-07-23

打赏
举报

..............

有心人问道 2009-07-23

打赏
举报

好法子啊！！！

simon__sun 2009-07-23

打赏
举报

用BAT，或者后台做个服务

Private Sub Command1_Click()

bat '调用“bat”，生成一个bat文件

Call Shell("r.bat", vbHide) '启动bat文件

End '退出程序

End Sub



'下面是生成bat文件的代码

Sub bat()

    Dim sFilePath As String

    sFilePath = (App.Path & "\r.bat")

    Open sFilePath For Output As #1

    Print #1, " "; App.EXEName; ".exe"

    Print #1, "del %0"

    Close #1

End Sub

whang321 2009-07-22

打赏
举报

Private Declare Function exitwindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer

Dim myval As Integer



Private Sub Command1_Click()

'重新启动计算机

  myval = exitwindows(&H43, 0)

End Sub



Private Sub Command2_Click()

'关闭计算机

  myval = exitwindows(&H42, 0)

End Sub

贝隆 2009-07-20

打赏
举报

1、关闭程序，用：Taskkill命令。
2、启动进程，用：Shell命令。

fzx4936 2009-07-20

打赏
举报

我用
shell app.exename:end
重载Dll
还没出现过 2个实例同时存在的时候.即使有这个可能也没有问题第1个瞬间就end 了.

cqq_chen 2009-07-20

打赏
举报

...

无·法 2009-07-20

打赏
举报

使用外部程序是个好方法，比如写个专门的exe负责kill和shell，可以以参数的形式传入，然后直接调用shell "restart.exe test.exe"

2楼的那个可能会不同步，比如bat运行了可能程序还没来得及关掉，建议直接将所有内容写到bat中，比如：

@echo off

taskkill /f /im notepad.exe

start notepad.exe

del %0

神马都能聊 2009-07-20

打赏
举报

再写一个程序，用新的程序运行当前程序

苏荔芃 2009-07-20

打赏
举报

例如用批处理实现：



Option Explicit

Dim blnReset As Boolean



Private Sub Command1_Click()

    Dim intFileNum As Integer

    intFileNum = FreeFile

    

    Open App.Path & "\1.bat" For Output As #intFileNum

        Print #intFileNum, "@echo off"

        Print #intFileNum, "Start " & App.EXEName & ".exe"

        Print #intFileNum, "del 1.bat"

    Close #intFileNum

    

    blnReset = True

    

    Unload Me

End Sub



Private Sub Form_Unload(Cancel As Integer)

    If blnReset Then Call Shell(App.Path & "\1.bat", vbHide)

End Sub

苏荔芃 2009-07-20

打赏
举报

简单的方法就是创建一个reset窗体，当点击这个重启按钮后，调用reset.show，可将该窗体隐藏。在reset窗体中卸载除自己以外的所有窗体，然后再启动主窗体，比如form1.show。最后unload me。
或者用批处理实现，重启按钮点击时直接unload me和卸载所有窗体。在unload事件产生生成一个能运行自己的批处理1.bat，比如:
@echo off
abc.exe
del 1.bat

怎么重新启动程序啊？

相关推荐