以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 求助 获取指定电脑的IP地址 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145030) |
-- 作者:jackyfashion -- 发布时间:2020/1/6 14:19:00 -- 求助 获取指定电脑的IP地址 老师: 您好! Di m mtt As Ta ble = Tab les("设置") Dim mlt 60 As String = """" & mtt(60)("khtc") & """" msgbox(mlt60) (显示是“N-002“) Dim IPAdress As System.Net.IPAddress Dim l As Integer = System.Net.Dns.GetHostByName("N-002").AddressList.Length Dim s As String = "" For i As Integer=0 To l-1 IPAdress = System.Net.Dns.GetHostByName("N-002").AddressList.getValue(i) \'获得本机的IP s &= IPAdress.Tostring & "," Next Dim k As String = s.trim(",") 监色字如果换成: Dim l As Integer = System.Net.Dns.GetHostByName(mlt60).AddressList.Length 显示: 请求的名称有效,但是找不到请求的类型的数据。 请老师指教!改那个代码才可以? 谢谢!!! |
-- 作者:有点蓝 -- 发布时间:2020/1/6 14:41:00 -- Dim mlt60 As String = mtt(60)("khtc") |
-- 作者:jackyfashion -- 发布时间:2020/1/6 15:06:00 -- 谢谢老师!!! 谢谢!!!
|