以文本方式查看主题

-  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
--  
谢谢老师!!!
谢谢!!!