Dim mac As String = ""
Dim p As System.Diagnostics.Process = New System.Diagnostics.Process()
p.StartInfo.FileName = "nbtstat"
p.StartInfo.Arguments = "-a 192.168.1.102"
p.StartInfo.UseShellExecute = False
p.StartInfo.CreateNoWindow = True
p.StartInfo.RedirectStandardOutput = True
p.Start()
Dim ot As String = p.StandardOutput.ReadToEnd()
MessageBox.show(ot)
将p.StartInfo.FileName = "nbtstat" 改为p.StartInfo.FileName = "netstat"后运行没反应，直接卡死
加好友 
发短信
Post By：2022/10/28 10:38:00 [只看该作者]
