VB6.0 获取电脑IP地址（源码）.rar

VB6.0 获取电脑IP地址（源码），获取本机所有IP地址，其实就是下面的代码来获取IP： 　　Private Sub Command1_Click() 　　Dim objWMI1 As Object, LOC1 As Object, X As Object, object1 As Object 　　Dim IPA '定义对象和变量 　　Set objWMI1 = CreateObject("WbemScripting.SWbemLocator") '建立1个WBEM对象的引用指针 　　Set LOC1 = objWMI1.ConnectServer(".", "root\cimv2") '连接WMI 　　Set X = LOC1.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=1") 　　For Each object1 In X 　　IPA = object1.Properties_("IPAddress").Value '获取IP 　　Picture1.Print IPA(I); '输出IP 　　Picture1.Print 　　Next 　　End Sub