VB定刷新检测局域网机器

Question

有机器A与机器B,当机器B开机时,执行某具体代码,反之,当机器B关机时执行另条代码~!
注:局域网所有ip地址已知
思路:
if 机器B = 关机 then
msgbox "关机"
else
msgbox "开机"
endif
问题:
如何快速刷新检测是否开关机,就如QQ,当好友上线与下线时自动提示,如用time控件,怎么提高速度,需要1秒检测上几十机器,或者用其它方法,不用time控件?
友情提示:
如不能给出比较准确答案的请不要回复,如要分,直接联系我,送你就是了~!

Answer 1

可以用类似PING的方法，如果通则是开机ELSE关机。这样的方法检测速度就看代码的执行速度了。这样的方法跟扫描一样，扫描一个IP段是需要一定的时间的。

其实有更快的方法：每台机器都安装一个CLIENT，本机安装成SERVER。CLIENT一运行自动向SERVER发送一条数据，这时不管是几十台还是几百台，SERVER就可以在1秒钟之内检测到这些机器是否是开机状态（美萍、万象都是这样的方法）。其实QQ也是这样的方法：当用户上线或者下线时，根据用户的个人设置是否向所在的所有好友发送上线或者下线的提示，然后好友在根据自己的个人设置是否接收这样的自动提示。。

以上只是我的个人思路 :o(∩_∩)o... ~~至于用哪种方法看你自己的选择了。。

Answer 2

恩，我觉得应该在待检测的机器上按上某个“发送器软件”，当然这个软件是你自己编的，当开机时自动启动此软件，此软件通过Winsock向主机器发送信息。当然这些信息包含了待测机器的信息。这样就可以通知其是否开机了，而不用TIMER控件那样时时检测，那样效率很差的。
关机的时候的检测也很简单，此软件一直在后台运行，当此软件被手工关闭退出时，则此软件执行关机代码，并向主机器发送已关机信息。当此软件是由于系统关闭而退出时，直接向主机器发送关机信息。。

Answer 3

1、如果你有权限就给每个机器装个服务端，自己机子装个客户端。用winsock控件定时想客户端发送标志数据。如果没有收到就表示下线了。
2、如果没有权限，就要扫描所有ip，类似ping命令，没有数据返回表示下线。

Answer 4

用Winsock向目标主机发起连接请求，目标端口可为139端口(一般情况下139端口开启是由于NetBIOS网络协议的使用，也可以用其他更为可靠的端口),连接成功即为开机。
考虑到速度问题，最好用Winsock数组控件对多个IP同时发送请个（即多线程方式连接)

Answer 5

思路：
定时枚举局域内的机器。如果B存在的话.执行某代码，如果不存在。执行另外的代码。