Ændre IP ?

Hvis du prøver at gøre en søgning in din registry efter din ip, vil du finde en del keys. Mener nok at man kan rette dem alle og så genstarte hvorved det så virker.

dkn

Fandt "den her" - muligvis den kan hjælpe:
<SNIP>
The IP-address and the IP-Mask are on my computer located in the registry at
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0002

If you want an automatic IP-address/mask, you should run the procedure below
as SetTCPIP('0.0.0.0', '0.0.0.0')
otherwise you should run it like SetTCPIP('255.254.253.255',
'255.255.255.255')

Good luck,

G. Jacobs


procedure SetTCPIP(IpAddress, IpMask:pchar);
var KeyHandle, SubKeyHandle:THandle;
    SubKeyName, NetworkDesc:array[0..255] of char;
    ValType, NetworkDescLength, SubKeyNameLength, index:dword;
    LastWriteTime:PFileTime;
begin
  index:=0;
  SubKeyNameLength:=255;
  RegOpenKeyEx(HKEY_LOCAL_MACHINE,
'System\CurrentControlSet\Services\Class\NetTrans', 0, KEY_ALL_ACCESS,
KeyHandle);
  while (RegEnumKeyEx(KeyHandle, index, SubKeyName, SubKeyNameLength, nil,
nil, nil, LastWriteTime)<>ERROR_NO_MORE_ITEMS) do
  begin
    RegOpenKeyEx(KeyHandle, SubKeyName, 0, KEY_ALL_ACCESS, SubKeyHandle);

    NetWorkDescLength:=255;
    RegQueryValueEx(SubKeyHandle, 'DriverDesc', nil, @ValType, @NetworkDesc,
@NetworkDescLength);
    if (NetworkDesc='TCP/IP') then break;

    inc(index);
    SubKeyNameLength:=255;
  end;
  if (NetworkDesc<>'TCP/IP') then
  begin
    messagebox(0,'TCP/IP protocol is not installed on your computer','',0);
    exit;
  end;
  NetWorkDescLength:=255;
  RegSetValueEx(SubKeyHandle, 'IPAddress', 0, REG_SZ, IpAddress, 15);
  RegSetValueEx(SubKeyHandle, 'IPMask', 0, REG_SZ, IpMask, 15);
end;
</SNIP>