高考问答乱斗西游肉盾法宝:vb 急！！！在线等待！！求求你们
来源：百度文库 编辑：高考问答 时间：2024/04/29 08:13:14
Private Sub Command1_Click()
Dim a As Integer
For a = 1 To 254
Shell "cmd /c ping 192.168.0." & a & ">>c:\ping.txt"
Next a
End Sub
我的意思是我想用VB编个可以ping 192.168.0.1到192.168.0.254，每个IP都ping,然后放在C：＼ping.txt里面，我QQ是278742221
Dim a As Integer
For a = 1 To 254
Shell "cmd /c ping 192.168.0." & a & ">>c:\ping.txt"
Next a
End Sub
我的意思是我想用VB编个可以ping 192.168.0.1到192.168.0.254，每个IP都ping,然后放在C：＼ping.txt里面，我QQ是278742221
将你需执行的ping命令写在批处理命令中(保存在P_ping.BAT文件中),例:
ping 192.168.0.1
ping 192.168.0.2
......
ping 192.168.0.253
ping 192.168.0.254
然后执行Shell函数
Dim PP
PP = Shell ("C:\P_PING.BAT",1)
不能用循环的形式。最好用timer控制，每隔一段时间ping一个IP。
实现这个要用到ICMP的,用shell行不通的