让远程的电脑30秒内自动关机的软件

发布网友 发布时间：2024-10-22 03:08

我来回答

共4个回答

热心网友 时间：1天前

楼上都是外行菜鸟 鉴定完毕

使那是用VBS写的脚本

以下这个你看一下

复制之后用记事本保存成*.VBS或者*.vbe
双击就行了
第一个：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""你中了宏病毒了赶紧格式化所有磁盘重装系统，杀毒软件扫描不出来的，听还是不听"" ",0 ,true
dim a
do while(a <> "听")
a = inputbox ("你中了宏病毒了赶紧格式化所有磁盘重装系统，杀毒软件扫描不出来的，听还是不听 ""听"" ","听不听","不听",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "那就格式化吧"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，我很善良吧"

第二个

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我爱你，不说我爱你就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我爱你")
a = inputbox ("说我爱你，不说我爱你就一分钟关你机，不信，试试··· ""我爱你"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

热心网友 时间：1天前

一个小木马程序 就是关机程序啊 你点了就会关机
以后不要乱接网上发来的东西 很多都是盗号木马

热心网友 时间：1天前

被人装了一个木马程序吧
装一个畅游巡警
会好的

热心网友 时间：1天前

灰鸽子啊 远程控制软件