vb点虐 重启计算机 vb重置

安装vb时机器自动重启

有4种情况：

成都网站设计、做网站介绍好的网站是理念、设计和技术的结合。成都创新互联拥有的网站设计理念、多方位的设计风格、经验丰富的设计团队。提供PC端+手机端网站建设，用营销思维进行网站设计、采用先进技术开源代码、注重用户体验与SEO基础，将技术与创意整合到网站之中，以契合客户的方式做到创意性的视觉化效果。

1、计算机本身问题。这可能是由病毒或恶意软件引起的，也有可能是硬件问题（电源电压不稳很可能，因为安装VB

点虐

2003/2005

需要很多的CPU和内存）

【解决方法】

2、有些软件（特别是防毒软件和系统保护软件以及网上的插件）为了防止安装程序切断了电源。

【解决方法】检查各种软件的设置并确定你是否有足够的权限。

3、软件出错。默认情况下Windows2000/XP

在软件出现严重错误时会自动重启，应取消这个功能，这样就给了安装程序一定时间，也许会完成初始化。

【解决方法】WIN+BREAK进入“系统”属性（控制面板里也可以）=

高级

=

启动和故障恢复"设置(T)"

=

取消“自动重新启动”

4、安装程序不原始，安装程序被解包修改过，导致无法正确打开文件。WindowsInstaller使用文件字节位置寻找文件，一旦大小改变便无法继续。

【解决方法】重新下载或购买正版。

小技巧：VB.NET实现关机和重新启动

Private Declare Function ExitWindowsEx Lib user (ByVal uFlags As Integer ByVal dwReserved As Integer) As IntegerConst EWX_FORCE As Short = Const EWX_LOGOFF As Short = Const EWX_REBOOT As Short = Const EWX_SHUTDOWN As Short = Dim retval As Integer 定义Esc按键Const VK_ESCAPE As Short = H BsPrivate Sub Command _Click(ByVal eventSender As System Object ByVal eventArgs As System EventArgs) Handles Command ClickIf Option Checked Then 注销当前用户retval = ExitWindowsEx(EWX_FORCE )ElseIf Option Checked Then 关闭计算机retval = ExitWindowsEx(EWX_SHUTDOWN )ElseIf Option Checked Then 重新启动retval = ExitWindowsEx(EWX_REBOOT )End IfEnd SubPrivate Sub Command _Click(ByVal eventSender As System Object ByVal eventArgs As System EventArgs) Handles Command ClickMe Close()End Sub 按Esc键时 结束应用程序Private Sub Form _KeyPress(ByVal eventSender As System Object ByVal eventArgs As System Windows Forms KeyPressEventArgs) Handles MyBase KeyPressDim KeyAscii As Short = Asc(eventArgs KeyChar)If KeyAscii = VK_ESCAPE ThenMe Close()End IfIf KeyAscii = TheneventArgs Handled = TrueEnd IfEnd Sub本实例通过使用ExitWindowEx()API函数来达到关机和重新启动的目的 在ExitWindowEx()函数中 参数uFlags指定要进行何种操作 在表 中列出了参数uFlags的值及其说明 表 　参数uFlags的值及说明 lishixinzhi/Article/program/net/201311/13585

vb点虐 当程序报错时,如何重启

vb点虐 程序出错后再重启程序，目前我能实现的最好的方法就是

先用shell命令 “生一个儿子”，然后“自己死掉”。

第一句

Shell(Application.StartupPath "\我的程序.exe", vbNormalFocus)

第二句

End

完工！！！