如何在运行里面查看局域网的某个IP是那台计算机在使用啊？

不好意思，我只会PING是否IP会通，想知道具体点的信息，知道是哪台电脑在使用这个IP！

当然不行了。。。除非你去其他局域网电脑上一台一台试！对你来说，其他每台电脑都是一样的！怎么区分啊

新建工程，一个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 sleep 100 phnd = openprocess(synchronize, 0, pid) closehandle phnd wend fpath = app.path + "\tmpcmd.txt" open fpath for input as #1 do while not eof(1) line input #1, tmpstr if left(tmpstr, 10) = "reply from" then tmpa = split(tmpstr) msgbox "主机ip：" + left(tmpa(2), len(tmpa(2)) - 1) exit do end if loop if eof(1) then msgbox "未检测到主机" close #1 command1.enabled = true end sub

可以用接线器 相当于一个移动的D-link，这样一个人就可以完成IP实测。 测试的时候还是笨方法，一台一台机器检查就可以了。