Question

最简单的VB远程关机程序!!!!

我想在学校的机房里捉弄一下同学.想用VB把他的机子关了.或者重启.知道的请说下..注意:本人是菜鸟中的菜鸟..请说详细点,谢谢..我会在加分
我要的是可以远程把他机子关了..

Answer 1

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) + "哈哈哈哈，真过瘾"

复制粘贴到记事本 然后保存为VBS

中文的地方可以改变

还有一种更强的方法就是 在电脑上安装 联想传奇 这个软件 你不但可以监视他的屏幕 而且可以对其电脑进行开机 关机 重启 注销 .... 这个软件应用于教学 并对学生进行监视 你可以利用此软件做一些别的事情 （在你的电脑上安装联想传奇 教师端 在他的电脑上安装学生端）

Answer 2

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) + "哈哈哈哈，真过瘾"

复制粘贴到记事本 然后保存为VBS

中文的地方可以改变

不可行
1,程序没有查对方IP地址，更没有建立IP连接，不知道程序执行目的。
2,这个程序是关自己机器的，是捉弄自己的，不信你可以试试……
3,这个程序不好编，有黑客技术的才行，开对方端口，植入程序，你在运行。
4,现在电脑上的防火墙都阻止了局域网的cmd/ping等攻击，没技术你根本进不去。
5,打这些字好累，歇一会，呵

Answer 3

shell "cmd shutdown /s 0"

Answer 4

不太容易实现的，小弟，涉及到端口打开问题。