VB winsock多服务器

10个一模一样的服务端放在10台机器上，先随即连接一个，如果连接不到服务端则依次连接每一台服务器，如果都连接不上客户端退出
假定10台机器IP分别为192.168.0.1 192.168.0.3 192.168.0.5 192.168.0.7  192.168.0.9
                    192.168.0.2 192.168.0.4 192.168.0.6 192.168.0.8  192.168.0.10
我用10个winsock做处理，不知道效率怎样，请问各位大大有没有效率比较好的处理方法啊
能不能用数组啊，小弟不才，求各位大大帮忙
                     

---

就是不会数组啊，你帮我写个例子好不

---

应该先
dim   i   as   integer
Dim   after   As   Double

for   i=1   to   10
        Shell( "ping   192.168.0. "+Cstr(i)+ "   -n   1   |   find   /c   "+chr(34)+ "timed   out "+chr(34)+ "   > . "+Cstr(i)+ "txt ")
next
after   =   Now   +   3#   /   24#   /   3600#
Do
        DoEvents
        If   Now   >   after   Then   Exit   Do
Loop
'将1.txt,2.txt,...,10.txt文件中的第一个字符读出来判断是 '1 '表示不通，是 '0 '表示能通
'随机挑一个是0的（或者优先用上次连接成