VB6获取IP地址的前三位
VB6获取IP地址的前三位,请各位大侠们帮帮忙咯只需要读出IP地址的前三位是获取本机IP地址的前三位不好意思没说清楚。请给上完整的代码`谢谢啦`感谢啦！...
VB6获取IP地址的前三位,请各位大侠们帮帮忙咯
只需要读出IP地址的前三位
是获取本机IP地址的前三位
不好意思没说清楚。
请给上完整的代码`谢谢啦`感谢啦！ 展开
只需要读出IP地址的前三位
是获取本机IP地址的前三位
不好意思没说清楚。
请给上完整的代码`谢谢啦`感谢啦！ 展开
2个回答
展开全部
ip="192.168.1.1"
Print Left(ip, 3)
'或是
Print Mid(ip, 1, 3)
最准确的方法应该是：
Print IIf(InStr(ip, ".") > 1, Left(ip, InStr(ip, ".") - 1), "")
Print Left(ip, 3)
'或是
Print Mid(ip, 1, 3)
最准确的方法应该是：
Print IIf(InStr(ip, ".") > 1, Left(ip, InStr(ip, ".") - 1), "")
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
Storm代理
2023-07-25 广告
StormProxies是一家国内优质海外HTTP代理商，拥有一个庞大的IP资源池，覆盖200多个地区，IP数量大且匿名度高。其优点还包括超高并发、稳定高效、技术服务等特点，同时提供HTTP、HTTPS以及SOCKS5协议支持。此外，Sto...
点击进入详情页
本回答由Storm代理提供
展开全部
往窗体上添加一个winsock控件，需要从工程中添加
工程－部件－Microsoft Winsock Control6.0
程序运行时，单击窗体就把本机IP的前三段打印到窗体上，代码如下：
Private Sub Form_Click()
Dim a As String
a = Winsock1.LocalIP
Do While Right(a, 1) <> "."
a = Mid(a, 1, Len(a) - 1)
Loop
Print Mid(a, 1, Len(a) - 1)
End Sub
工程－部件－Microsoft Winsock Control6.0
程序运行时，单击窗体就把本机IP的前三段打印到窗体上，代码如下：
Private Sub Form_Click()
Dim a As String
a = Winsock1.LocalIP
Do While Right(a, 1) <> "."
a = Mid(a, 1, Len(a) - 1)
Loop
Print Mid(a, 1, Len(a) - 1)
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
