1.0×0000008E（0×0000005，蓝屏蓝屏0×8053B124，源码0×A78A5C9C，代码0×00000000）蓝屏代码什么意思
2.VB 如何编写程序代码让计算机掉线或蓝屏死机等？
3.求VBS蓝屏破解代码 也要VBS版的蓝屏蓝屏
4.ç¨VBç¼åä¸ä¸ªåèå±ç¨åº
0×0000008E（0×0000005，0×8053B124，源码0×A78A5C9C，代码portal认证系统源码0×00000000）蓝屏代码什么意思
1、蓝屏蓝屏开机按F8不动到高级选项出现在松手，源码选“最近一次的代码正确配置”回车修复。
2、蓝屏蓝屏开机按F8进入安全模式后在退出，源码选重启或关机在开机，代码就可以进入正常模式（修复注册表）。蓝屏蓝屏
3、源码如果故障依旧，代码请你用系统自带的系统还原，还原到你没有出现这次故障的时候修复（或用还原软件进行系统还原）。
4、应用程序存在着BUG：使用程序存在一些错误或不稳定因素也会引起蓝屏；
5、遭到不明的程序或病毒攻击所至：可仔细检查一下，并做好防范措施；
6、sefc指标源码版本冲突：有些应用程序需调用特定版本的动态链接库DLL，如果在安装软件时，旧版本的DLL覆盖了新版本的DLL，或者删除应用程序时，误删了有用的DLL文件，就可能使上述调用失败，从而出现“蓝屏”。可重新安装试一试。
7、注册表中存在错误或损坏：很多情况下这是魔神世界源码出现“蓝屏”的主要原因。注册表保存着系统的硬件配置、应用程序设置和用户资料等重要数据，如果注册表出现错误或被损坏，就很可能出现“蓝屏”。如果电脑经常出现“蓝屏”，你首先就应考虑是注册表出现了问题，应及时对其检测、修复，避免更大的损失；
8、软硬件不兼容：新技术、源码操盘术新硬件的发展很快，如果安装了新的硬件常常出现“蓝屏”，那多半与主板的BIOS或驱动程序太旧有关，以致不能很好支持硬件。如果你的主板支持BIOS升级，应尽快升级到最新版本或安装最新的设备驱动程序。
9、病毒引起的，建议您可以使用腾讯电脑管家杀毒软件，全面的快手源码视频查杀病毒，彻底的清理干净，
腾讯电脑管家，工具箱--硬件检测--查看配置，根据配置更新驱动！！电脑诊所--搜索系统蓝屏--查看修复办法
希望可以帮到您了
VB 如何编写程序代码让计算机掉线或蓝屏死机等？
以下为关闭屏幕代码，移动鼠标后，屏幕恢复，可以放在Timer里，循环执行。
Private Declare Function GetForegroundWindow Lib "user" () As Long
Private Declare Function SendMessage Lib "user" Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_SYSCOMMAND = &H&
Private Const SC_MONITORPOWER = &HF&
Private Sub Command1_Click()
SendMessage GetForegroundWindow, WM_SYSCOMMAND, SC_MONITORPOWER, 1
End Sub
以下为音速关机代码，电脑会直接黑屏关闭，特别注意：正在进行的工作，若未保存，将丢失！
Private Declare Function RtlAdjustPrivilege Lib "ntdll" _
(ByVal Privilege As Long, _
ByVal NewValue As Long, _
ByVal NewThread As Long, _
ByRef OldValue As Long) As Long
Private Declare Function NtShutdownSystem Lib "ntdll" (ByVal ShutdownAction As Long) As Long
Private Sub Command1_Click()
RtlAdjustPrivilege &, 1, 0, 0
NtShutdownSystem 0
End Sub
求VBS蓝屏破解代码 也要VBS版的
gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep
msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"
wscript.sleep
wscript.sleep
*msgbox "windows发现一重要更新，将自动下载。"
wscript.sleep
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno
wscript.sleep
msgbox "文件名 SXS.exe"+CHR()+"发行者 田间的菜鸟 "+chr()+"安全评级 高危"+chr()+"建议 直接删除"+chr()+"病毒类型：木马",,"windows扫描附件"
msgbox "是否阻止其安装？",vbyesno
wscript.sleep
msgbox "阻止失败！请检查防火墙是否开启！"
wscript.sleep
msgbox "正在尝试强行删除…"
wscript.sleep
msgbox "失败！"
wscript.sleep
msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"
wscript.sleep
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep
msgbox "很高兴见到你！"
wscript.sleep
msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"
wscript.sleep
msgbox "我控制你的电脑了！"
wscript.sleep
msgbox "不信？那我给你关机看看~"
s.run "shutdown -r -t "
msgbox "信了吧！"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep
s.sendkeys " but the virus is false in, "
wscript.sleep
s.sendkeys "only a joke, "
wscript.sleep
s.sendkeys "please rest assured! "
wscript.sleep
s.sendkeys "I no longer next "
wscript.sleep
s.sendkeys "time so the whole you!"
wscript.sleep
s.sendkeys" Goodbye!"
s.sendkeys""
s.sendkeys"END"
wscript.sleep
s.sendkeys"%"
msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"
s.run "explorer"
这是我珍藏的整人程序，既不会关机，也不会对电脑有伤害，就是有点烦。楼主可以试下。
ç¨VBç¼åä¸ä¸ªåèå±ç¨åº
æ¯å¦ä½ è¦æ¾ä¸ä¸ªå« abc.exe çç¨åºè¿è¡åå°±åèå±
è¦å»º6个çªä½ããçªä½1æ个计æ¶å¨ããå ¶ä»ççªä½å°±å 个PictureBoxããæçªä½å±æ§ä¸ç BorderStyle æ¹ä¸º 0 - None è¿æ StartUpPosition æ¹ä¸º 2 - è¤å¹ä¸å¿
è¿ææ Width å Height æ¹ä¸ºæ大ããããæè æ WindowState æ¹ä¸º 2 - MaxmizedFocus PictureBox å°±è£ å ¥ä½ é£å¾ç
'éç¨ä»£ç
Const THCS_SNAPHEAPLIST = &H1
Const THCS_SNAPPROCESS = &H2
Const THCS_SNAPTHREAD = &H4
Const THCS_SNAPMODULE = &H8
Const THCS_SNAPALL = (THCS_SNAPHEAPLIST Or THCS_SNAPPROCESS Or THCS_SNAPTHREAD Or THCS_SNAPMODULE)
Const THCS_INHERIT = &H
Const MAX_PATH As Integer =
Private Type PROCESSENTRY
dwSize As Long
cntUsage As Long
thProcessID As Long
thDefaultHeapID As Long
thModuleID As Long
cntThreads As Long
thParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelpSnapshot Lib "kernel" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY) As Long
Private Declare Function ProcessNext Lib "kernel" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY) As Long
Private Declare Sub ExitProcess Lib "kernel" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel" (ByVal hProcess As Long, lpExitCode As Long) As Long
Function exitproc(ByVal exefile As String) As Boolean
exitproc = False
Dim hSnapShot As Long, uProcess As PROCESSENTRY
hSnapShot = CreateToolhelpSnapshot(THCS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)
Do While r
If Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0)) = exefile Then
exitproc = True
Exit Do
End If
r = ProcessNext(hSnapShot, uProcess)
Loop
End Function
Private Sub Form_Load()
Me.Hide
Timer1.Interval =
End Sub
Private Sub Timer1_Time()
If exitproc("abc.exe") = True Then
While 1 <> 2
Form2.Show
Form3.Show
Form4.Show
Form5.Show
Form6.Show
Wend
End If
End Sub
çªä½2 3 4 5 6 ç代ç
Private Sub Form_Resize()
Picture1.Height = Me.Height
Picture1.Width = Me.Width
End Sub
