摘要：
Sub nbtstat(ByVal ip As String) Dim strRst, strRst1, strRst2, strRst3 As String Dim n1, n2, n3 As Integer Try Dim p As New Process() '用Process就可以 p.St 阅读全文
摘要：
Function ping(ByVal IP As String) As String If My.Computer.Network.Ping(IP) Then MessageBox.Show("ok") Else MessageBox.Show("ng") End If End Function 阅读全文