pb直接在注册表取本机全部IP方法

JohnPhan

免费乐捐，感谢支持

在WIN2000下，取得本机的各个网卡的IP地址：

String ls_keynt1 = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards'
String ls_keynt2 = 'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\'
String ls_keynt3 = '\Parameters\Tcpip'
String ls_name_nt1 = 'ServiceName'
String ls_name_nt2 = 'IPAddress'
String ls_name_nt3 = ''
String ls_value2[]

IF RegistryKeys (ls_keynt1,subkeys ) = 1 THEN
        IF UpperBound(subkeys) > 0 THEN
                For i = 1 to UpperBound(subkeys)
                        ls_keynt1 = ls_keynt1 + '\' + subkeys                                       
                                RegistryGet(ls_keynt1,ls_name_nt1,ls_value)
                                ls_name_nt3 = ls_keynt2 + ls_value + ls_keynt3
                                RegistryGet(ls_name_nt3,ls_name_nt2,RegMultiString!,ls_value2)
                                gs_ipaddress  = gs_ipaddress +  "网卡" + string(i) + ":" + ls_value2[1] + "  "

                next
        END IF
END IF

[ 本帖最后由 JohnPhan 于 2008-10-7 15:41 编辑 ]