Foxtable(狐表)用户栏目专家坐堂 → 求助 获取指定电脑的IP地址


  共有2771人关注过本帖树形打印复制链接

主题:求助 获取指定电脑的IP地址

帅哥哟,离线,有人找我吗?
jackyfashion
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5184 威望:0 精华:0 注册:2013/10/7 22:27:00
求助 获取指定电脑的IP地址  发帖心情 Post By:2020/1/6 14:19:00 [只看该作者]

老师:
您好!
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
显示:

请求的名称有效,但是找不到请求的类型的数据。

请老师指教!改那个代码才可以?

谢谢!!!


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110579 积分:562791 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/6 14:41:00 [只看该作者]

Dim mlt60 As String = mtt(60)("khtc")

 回到顶部
帅哥哟,离线,有人找我吗?
jackyfashion
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5184 威望:0 精华:0 注册:2013/10/7 22:27:00
  发帖心情 Post By:2020/1/6 15:06:00 [只看该作者]

谢谢老师!!!
谢谢!!!

 回到顶部