pb直接在注册表取本机全部IP方法
在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 + ""
next
END IF
END IF
[ 本帖最后由 JohnPhan 于 2008-10-7 15:41 编辑 ]
页:
[1]