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的（或者优先用上次连接成
相关问答：
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
vb将winsock控件封装到dll问题 有什么好的思路？ 如果用Socket API呢？
例如，像下面这样封装Winsock控件，行的通？
创建ActiveX dll，添加窗体frmClient，加入WinSock控件wskClient。
类代码：
Option Expli ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
请各位指点下：程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
