皮皮网

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，代码粉色爱心代码源码0×00000000）蓝屏代码什么意思

       1、蓝屏蓝屏开机按F8不动到高级选项出现在松手，源码选“最近一次的代码正确配置”回车修复。

       2、蓝屏蓝屏开机按F8进入安全模式后在退出，源码选重启或关机在开机，代码就可以进入正常模式（修复注册表）。蓝屏蓝屏

       3、源码如果故障依旧，代码请你用系统自带的系统还原，还原到你没有出现这次故障的时候修复（或用还原软件进行系统还原）。

       4、应用程序存在着BUG：使用程序存在一些错误或不稳定因素也会引起蓝屏；

       5、遭到不明的程序或病毒攻击所至：可仔细检查一下，并做好防范措施；

       6、易语言手机维修源码版本冲突：有些应用程序需调用特定版本的动态链接库DLL，如果在安装软件时，旧版本的DLL覆盖了新版本的DLL，或者删除应用程序时，误删了有用的DLL文件，就可能使上述调用失败，从而出现“蓝屏”。可重新安装试一试。

       7、注册表中存在错误或损坏：很多情况下这是如何破解商业源码破解出现“蓝屏”的主要原因。注册表保存着系统的硬件配置、应用程序设置和用户资料等重要数据，如果注册表出现错误或被损坏，就很可能出现“蓝屏”。如果电脑经常出现“蓝屏”，你首先就应考虑是注册表出现了问题，应及时对其检测、修复，避免更大的损失；

       8、软硬件不兼容：新技术、windows写字板源码新硬件的发展很快，如果安装了新的硬件常常出现“蓝屏”，那多半与主板的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