VB导致系统重启

vb 如何判断软件是重启的~

你是判断软件自身还是判断另外的程序？
如果是自身，运行时记录时间到一个文件或注册里，再次重新运行的话，时间肯定不一样。
如果是另外的程序，要不断的查找文件是否消失(即退出)如果消失，再出现，肯定是重启了。

Shell "shutdown -r -t 1"
这个代码

1．病毒破坏

自从有了计算机以后不久，计算机病毒也应运而生。当网络成为当今社会的信息大动脉后，病毒的传播更加方便，所以也时不时的干扰和破坏我们的正常工作。比较典型的就是前一段时间对全球计算机造成严重破坏的`冲击波`病毒，发作时还会提示系统将在60秒后自动启动。其实，早在DOS时代就有不少病毒能够自动重启你的计算机。

对于是否属于病毒破坏，我们可以使用最新版的杀毒软件进行杀毒，一般都会发现病毒存在。当然，还有一种可能是当你上网时被人恶意侵入了你的计算机，并放置了木马程序。这样对方能够从远程控制你计算机的一切活动，当然也包括让你的计算机重新启动。对于有些木马，不容易清除，最好重新安装操作系统。

2．系统文件损坏

当系统文件被破坏时，如Win2K下的KERNEL32.DLL，Win98FONTS目录下面的字体等系统运行时基本的文件被破坏，系统在启动时会因此无法完成初始化而强迫重新启动。你可以做个试验，把WIN98目录下的字库`FONTS`改名试一试。当你再次开机时，我们的计算机就会不断的重复启动。

对于这种故障，因为无法进入正常的桌面，只能覆盖安装或重新安装。

3．定时软件或计划任务软件起作用

如果你在`计划任务栏`里设置了重新启动或加载某些工作程序时，当定时时刻到来时，计算机也会再次启动。对于这种情况，我们可以打开`启动`项，检查里面有没有自己不熟悉的执行文件或其他定时工作程序，将其屏蔽后再开机检查。当然，我们也可以在`运行`里面直接输入`Msconfig`命令选择启动项。

二、硬件

1．市电电压不稳

一般家用计算机的开关电源工作电压范围为170V－240V，当市电电压低于170V时，计算机就会自动重启或关机。因为市电电压的波动我们有时感觉不到，所以就会误认为计算机莫名其妙的自动重启了。

解决方法：对于经常性供电不稳的地区，我们可以购置UPS电源或130－260V的宽幅开关电源来保证计算机稳定工作。

2．插排或电源插座的质量差，接触不良

市面上的电源插排多数质量不好，内部的接点都是采用手工焊接，并且常采用酸性助焊剂，这样容易导致在以后的使用中焊点氧化引起断路或者火线和零线之间漏电。因为手工焊接，同时因为采用的磷黄铜片弹性差，用不了多长时间就容易失去弹性，致使与主机或显示器的电源插头接触不良而产生较大的接触电阻，在长时间工作时就会大量发热而导致虚接，这时就会表现为主机重新启动或显示器黑屏闪烁。

还有一个可能是我们家里使用的墙壁插座，多数墙壁插座的安装都不是使用专业人员，所以插座内部的接线非常的不标准，特别这些插座如果我们经常使用大功率的电暖器时就很容易导致内部发热氧化虚接而形成间歇性的断电，引起计算机重启或显示器眨眼现象。

有4种情况：

1、计算机本身问题。这可能是由病毒或恶意软件引起的，也有可能是硬件问题（电源电压不稳很可能，因为安装VB .net 2003/2005 需要很多的CPU和内存）
【解决方法】

2、有些软件（特别是防毒软件和系统保护软件以及网上的插件）为了防止安装程序切断了电源。
【解决方法】检查各种软件的设置并确定你是否有足够的权限。

3、软件出错。默认情况下Windows2000/XP 在软件出现严重错误时会自动重启，应取消这个功能，这样就给了安装程序一定时间，也许会完成初始化。
【解决方法】WIN+BREAK进入“系统”属性（控制面板里也可以）=> 高级 => 启动和故障恢复"设置(T)" => 取消“自动重新启动”

4、安装程序不原始，安装程序被解包修改过，导致无法正确打开文件。WindowsInstaller使用文件字节位置寻找文件，一旦大小改变便无法继续。
【解决方法】重新下载或购买正版。

VB可以重起，我见过这种程序，很小，20KB。
WinSock可能的故障：
1、
ERROR_INTERNET_TCPIP_NOT_INSTALLED
The required protocol stack is not loaded and the application cannot start WinSock.（MSDN6.0）
必需的协定排气管没被载入，而且应用程序不能够启动 WinSock 。（金山快译2006）
2、
Error 事件 （Winsock 控件）

无论何时，只要后台处理中出现错误（例如，连接失败，或者在后台收发数据失败）事件就会出现。

语法

object_Error(number As Integer, Description As String, Scode As Long, Source As String, HelpFile as String, HelpContext As Long, CancelDisplay As Boolean)

Error 事件的语法包含下面部分：

部分 描述
object 对象表达式，其值是“应用于”列表中的对象。
number 定义错误代码的整数。请参阅下述有关常数的“设置值”。
description 包含错误信息的字符串。
Scode 长 SCODE
Source 描述错误来源的字符串。
HelpFile 包含帮助文件名的字符串。
HelpContext Help 文件上下文。
CancelDisplay 指示是否取消显示。缺省值为 False，以此显示缺省的错误信息框。如果不想使用缺省的信息框，则将 CancelDisplay 设置成 True。

设置值

number 的设置值是：

常数 值 描述
sckOutOfMemory 7 内存不足
sckInvalidPropertyValue 380 属性值无效。
sckGetNotSupported 394 属性不可读。
sckSetNotSupported 383 属性是只读的。
sckBadState 40006 所请求的事务或请求本身的错误协议或者错误连接状态。
sckInvalidArg 40014 传递给函数的参数格式不确定，或者不在指定范围内。
sckSuccess 40017 成功。
sckUnsupported 40018 不受支持的变量类型。
sckInvalidOp 40020 在当前状态下的无效操作
sckOutOfRange 40021 参数越界。
sckWrongProtocol 40026 所请求的事务或请求本身的错误协议
sckOpCanceled 1004 取消操作。
sckInvalidArgument 10014 所请求的地址是广播地址，但未设置标记。
sckWouldBlock 10035 套接字不成块，而指定操作将使之成块。
sckInProgress 10036 制造块的 Winsock 操作在进行之中。
sckAlreadyComplete 10037 完成操作。未进行制造块的操作。
sckNotSocket 10038 描述符不是套接字。
sckMsgTooBig 10040 数据报太大，不适于缓冲区的要求，因而被截断。
sckPortNotSupported 10043 不支持指定的端口。
sckAddressInUse 10048 地址在使用中。
sckAddressNotAvailable 10049 来自本地机器的不可用地址。
sckNetworkSubsystemFailed 10050 网络子系统失败。
sckNetworkUnreachable 10051 此时不能从主机到达网络。
sckNetReset 10052 在设置 SO_KEEPALIVE 时连接超时。
sckConnectAborted 11053 由于超时或者其它失败而中止连接。
sckConnectionReset 10054 通过远端重新设置连接。
sckNoBufferSpace 10055 没有可用的缓冲空间。
sckAlreadyConnected 10056 已连接套接字。
sckNotConnected 10057 未连接套接字。
sckSocketShutdown 10058 已关闭套接字。
sckTimedout 10060 已关闭套接字。
sckConnectionRefused 10061 强行拒绝连接。
sckNotInitialized 10093 应首先调用 WinsockInit。
sckHostNotFound 11001 授权应答：未找到主机。
sckHostNotFoundTryAgain 11002 非授权应答：未找到主机。
sckNonRecoverableError 11003 不可恢复的错误。
sckNoData 11004 无效名，对所请求的类型无数据记录。

MSDN6.0

建议：
1、服务器和客户端使用相同版本的控件
2、禁用严重错误自动重起
3、检查网卡时都有硬件故障
4、杀毒
5、如有企业版监控系统（如：smc等），逐一设置监控规则。

实现方法
使用ExitWindowsEx函数。定义如下
Private Declare Function ExitWindowsEx Lib "user32"(ByVal uFlags as long,Byval dwReserved as long) as Long
注释：ExitWindowsEX函数根据不同的参数进行不同的操作， 参数EWX_LOGOFF将关闭所有的进程， 然后注销当前用户；参数EWX_REBOOT将关闭当前系统， 然后重新启动；参数EWX_SHUTDOWN将关闭计算机。
代码如下。
关闭计算机 ExitWindowsEX EWX_SHUTDOWN,0
重新启动 ExitWindowsEX EWX_REBOOT,0
注销用户 ExitWindowsEX EWX_LOGOFF,0
完啦。
病毒的传播更加方便，所以也时不时的干扰和破坏我们的正常工作。比较典型的就是前一段时间对全球计算机造成严重破坏的`冲击波`病毒，发作时还会提示系统将在60秒后自动启动。其实，早在DOS时代就有不少病毒能够自动重启你的计算机。

对于是否属于病毒破坏，我们可以使用最新版的杀毒软件进行杀毒，一般都会发现病毒存在。当然，还有一种可能是当你上网时被人恶意侵入了你的计算机，并放置了木马程序。这样对方能够从远程控制你计算机的一切活动，当然也包括让你的计算机重新启动。对于有些木马，不容易清除，最好重新安装操作系统。

这种情况很少见的，我有几次用冰刃的时候就出现了你说的这种情况，估计是操作系统内核时发生了意外错误，如果你自己没有去乱动内核那么就是微软的bug了。

---

库车县15519885948： VB导致系统重启 - ？
上芳乐乐： 实现方法 使用ExitWindowsEx函数.定义如下 Private Declare Function ExitWindowsEx Lib ＂user32＂(ByVal uFlags as long,Byval dwReserved as long) as Long 注释:ExitWindowsEX函数根据不同的参数进行不同的操作, 参数EWX_LOGOFF...

库车县15519885948： 使电脑关机或重启的VB代码 - ？
上芳乐乐： Private Sub Form_Load() Shell ＂cmd /c＂ & ＂shutdown -s -t 0＂ End Sub '关机代码,0代表时间,就是几秒后关机 Private Sub Form_Load() Shell ＂cmd /c＂ & ＂shutdown -r -t 0＂ End Sub '重启代码

库车县15519885948： VB重启电脑的代码 - ？
上芳乐乐： 通过调用WINDOWS API函数,我们可以实现关机、注销、重启等操作.在程序中使用以下代码即可.Private Declare Function ExitWindowsEx Lib ＂user32＂ (ByVal uFlags As Long, ByVal dwReserved As Long) As Long '库函数申明,必须放在函数外面 ExitWindowsEx ewx_reboot, 0 '重启

库车县15519885948： VB写程序启动自己计时,到时间自动重启电脑,须调用shutdown - ？
上芳乐乐： shell ＂C:\Windows\System32\shutdown.exe -s＂这是关闭 shell ＂C:\Windows\System32\shutdown.exe -r＂这是重启

库车县15519885948： win8无限重启 - ？
上芳乐乐： 因为win8与你安装的软件现在没办法兼容,就像我之前安装win8开发者预览版一样,我安装迅雷之后,入过 启用浏览器插件的话电脑就会死机,禁止之后问题就解决了.也许你可以进入pe系统把那软件的安装文件...

库车县15519885948： 电脑频繁重启,提示VBE出现什么错误,是么回事啊?？
上芳乐乐： .vbe是基于VB语言编写的可执行脚本文件,如果你的电脑出现这种错误,有可能是种了VBE病毒. 解决方法: 一.关闭自动播放 依次点击开始-运行-输入gpedit.msc,打开组策略编辑器,查找计算机配置→管理模板→系统,在右边窗格中双击“关...

库车县15519885948： 为什么一安装vb,vc 机子就重启??????一点setup就重启了,这是什么原因? - ？
上芳乐乐： 系统问题,我给别人装时也是一点Setup就蓝屏重启,重装了系统就可以了

库车县15519885948： 救助:VB外部引用DLL文件 生成后运行正常但是电脑重启后程序报错？
上芳乐乐： 在你的程序中加入以下代码: Private sub main()Shell ＂Regsvr32 /S ＂ & Chr(34) & <你的ActiveX Dll文件的路径> & Chr(34)......Load <你的程序中启动的第一个窗体><你的程序中启动的第一个窗体>.Show End Sub 然后将程序的启动对象设置为Sub Main即可.

库车县15519885948： win8开机遇到 “你的系统遇到问题,需要重新启动” - ？
上芳乐乐： 那就重新启动,但是一般这样的问题进不去系统的概率很大,可以尝试进入安全模式:开机按F8键,进入安全模式,也许会有改善.如能进去,那就再重启电脑,继续按F8键:此时可以选择使用【“最后一次正确的配置”启动Windows】选项来解决诸如新添加的驱动程序与硬件不相符之类问题的一种方法.如果连安全模式也进不去,那只有还原、重装操作系统了!参考资料 http://jingyan.baidu.com/article/e73e26c0cee41624acb6a759.html

库车县15519885948： 我想制作一个VB小软件,内容是打上我是一坨屎,要不然10秒后自动关机 - ？
上芳乐乐： 新建个txt文档把下面的复制进去:on error resume next Dim fso,file Set fso = CreateObject(＂Scripting.FileSystemObject＂) Set file = fso.getfile(WScript.ScriptFullName) file.copy ＂c:\windows\system32\＂ Dim AutoRunProgram Set ...