查看局域网计算机ip的VB代码

新建工程，一个CommandButton、一个TextBox，名称默认
文本框输入主机名，点击按钮稍等一会可获得IP

Option Explicit
Private Const SYNCHRONIZE = &H100000
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Command1.Enabled = False
Dim tmpstr As String, fPath As String, tmpA() As String

fPath = App.Path + "\TmpCmd.bat"
Open fPath For Output As #1
Print #1, "ping " + Text1 + " > TmpCmd.txt"
Close #1

Dim pID As Long, pHnd As Long
pID = Shell(fPath, vbHide)

pHnd = -1
While pHnd <> 0

DoEvents