Question

VB6获取IP地址的前三位

VB6获取IP地址的前三位,请各位大侠们帮帮忙咯
只需要读出IP地址的前三位
是获取本机IP地址的前三位
不好意思没说清楚。
请给上完整的代码`谢谢啦`感谢啦！

Answer 1

ip="192.168.1.1"

Print Left(ip, 3)
'或是
Print Mid(ip, 1, 3)

最准确的方法应该是：
Print IIf(InStr(ip, ".") > 1, Left(ip, InStr(ip, ".") - 1), "")

Answer 2

往窗体上添加一个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