189 8069 5689
有4种情况：
成都网站设计、做网站介绍好的网站是理念、设计和技术的结合。成都创新互联拥有的网站设计理念、多方位的设计风格、经验丰富的设计团队。提供PC端+手机端网站建设，用营销思维进行网站设计、采用先进技术开源代码、注重用户体验与SEO基础，将技术与创意整合到网站之中，以契合客户的方式做到创意性的视觉化效果。
1、计算机本身问题。这可能是由病毒或恶意软件引起的，也有可能是硬件问题（电源电压不稳很可能，因为安装VB
点虐
2003/2005
需要很多的CPU和内存）
【解决方法】
2、有些软件（特别是防毒软件和系统保护软件以及网上的插件）为了防止安装程序切断了电源。
【解决方法】检查各种软件的设置并确定你是否有足够的权限。
3、软件出错。默认情况下Windows2000/XP
在软件出现严重错误时会自动重启，应取消这个功能，这样就给了安装程序一定时间，也许会完成初始化。
【解决方法】WIN+BREAK进入“系统”属性（控制面板里也可以）=
高级
=
启动和故障恢复"设置(T)"
=
取消“自动重新启动”
4、安装程序不原始，安装程序被解包修改过，导致无法正确打开文件。WindowsInstaller使用文件字节位置寻找文件，一旦大小改变便无法继续。
【解决方法】重新下载或购买正版。
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点虐 程序出错后再重启程序，目前我能实现的最好的方法就是
先用shell命令 “生一个儿子”，然后“自己死掉”。
第一句
Shell(Application.StartupPath "\我的程序.exe", vbNormalFocus)
第二句
End
完工！！！