求助：VB执行批量Net Send命令

来源：百度知道 编辑：UC知道 时间：2024/05/26 04:58:18
有些事需要来NET SEND群发，由某个IP起始到某个IP结束，想用VB实现。

要求很简单：
可自由设定起始/结束IP，按command1开始，返回是否发送成功的信息。

本人还是菜鸟，希望有高人赐教！
如果回答的方案可行，可以追加悬赏^.^

Private Sub Command1_Click()
dim i&,lStart&,lEnd&

lStart=2 '起始IP
lEnd=254 '结束IP
For i=lStart To lEnd
Shell "Net Send 192.168.0."& i & " 我的消息..."
Next

End Sub

ipvt = "127.0.0.1"
body = "123"
cmdline = "cmd /c net send " & ipvt & " """ & body & """"
Shell cmdline, vbMaximizedFocus
自已想办法