谁能给个正确的vb代码(让电脑假蓝屏然后就重启)谢谢!!
发布网友
发布时间：2023-03-19 13:27
共2个回答
热心网友
时间：2023-11-17 16:14
Windows使用过程中，经常会遇到蓝屏的现象。对于初学者来讲，好象就是一场电脑灾难一样，不知所措。其实只要了解其原因之后，对症下药即可。造成蓝屏的原因有很多种，总体可以概括为以下几种：
一、屏幕显示系统忙，请按任意键继续……
1、虚拟内存不足造成系统多任务运算错误
虚拟内存是WINDOWS系统所特有的一种解决系统资源不足的方法，其一般要求主引导区的硬盘剩余空间是其物理内存的2-3倍。而一些发烧友为了充分利用空间，将自己的硬盘塞到满满的，忙记了WINDOWS这个苛刻的要求。结果导致虚拟内存因硬盘空间不足而出现运算错误，所以就出现蓝屏。要解决这个问题好简单，尽量不要把硬盘塞得满满的，要经常删除一些系统产生的临时文件、交换文件，从而可以释放空间。或可以手动配置虚拟内存，选择高级，把虚拟内存的默认地址，转到其他的逻辑盘下。这样就可以避免了因虚拟内存不足而引起的蓝屏。
2、CPU超频导致运算错误
超频对于发烧友来说是常事，所以由超频所引起的各种故障也就在所难免了。超频，就本身而言就是在原有的基础上完成更高的性能，但由于进行了超载运算，造成其内部运算过多，使CPU过热，从而导致系统运算错误。有些CPU的超频性能比较好，但有时也会出现一些莫名其妙的错误。(建议CPU要超频时，散热工作一定要做好，最好装一个大的风扇，再加上一些硅胶之类的散热材料。）
二、内存条的互不兼容或损坏引起运算错误
这时个最直观的现象，因为这个现象往往在一开机的时候就可以见到，根本启动不了计算机，画面提示出内存有问题，问你是否要继续。造成这种错误是物理上的损坏内存或者内存与其它硬件不兼容所致。这时候只有换过另外的内存了。
三、遭到不明的程序或病毒攻击所至
这个现象只要是平时我们在上网的时候遇到的，当我们在冲浪的时候，特别是进到一些BBS站时，可能暴露了自己的IP，被"黑客"用一些软件攻击所至。对互这种情况最好就是在自己的计算机上安装一些防御软件。再有就是登录BBS等共众场合时要进行安全设置，隐藏自己IP。
四、系统的臃肿所至
例如：Windows98系统上安装的应用软件太多，尤其是那些随系统启动的应用程序，往往在系统启动过程中，会出现蓝屏现象。这种情况大多是由于应用程序共享内存冲突影响的！所以大家最好不要把应用程序加入启动组。
五、光驱在读盘时被非正常打开所至
这个现象是在光驱正在读取数据时，由于被误*作打开而导致出现蓝屏。这个问题不影响系统正常动作，只要再弹入光盘或按ESC键就可以。
以上是常遇到的情况，或许还会有其他一些莫名其妙的问题导致计算机出现蓝屏。不管怎样，遇到这类问题后，应先仔细分析问题发生的原因，然后再着手解决。希望以上几点能给朋友们有所帮助。
热心网友
时间：2023-11-17 16:15
加入如下代码
Dim k
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" '设置开机启动
k = 0
Timer1.Interval = 1000
Form1.BackColor = &HFF0000
End Sub
Private Sub Timer1_Timer()
k = k + 1
If k = 10 Then
Shell "shutdown -s -t 0" '十秒后自动关机
End If
End Sub
然后生成exe
你可以在form1上加图片，文字之类的，运行时候允许开机启动就可以了，别忘了运行完后把程序删了哦。。。（呵呵，好像运行后就关机了嘛）
