øøøøøøhhhh ok.... lad mig så forstå det her rigtigt??? du vil gøre det med delphi programmering??? for så er jeg stået af... men hvis ikke så skal du højreklikke på netværksteder og så egenskaber også egenskaber for lan-forbindelse så dobbeltklikker du på tcp/ip og så kan du sætte ip derinde.... det med at disable et netkort det skal gøres inde i enhedshåndtering som du finder i egenskaber for denne computer så vælger du hardware og enhedshåndtering... håber ikke jeg har gjort mig selv til grin nu... (kan jeg nemlig ikke lide)
rimelig meget.... også tror jeg vist også jeg er kommet til at gøre mig selv til grin... rimelig godt klaret ikke.. (pis det sker for mig hver gang...) men held og lykke jeg kan desværre ikke hjælpe dig.... sorry..
det med at change ip kan gøres igennem registry, prøv evt at søge efter den ip du har ligenu, du vil da finde en del keys. De skal så allesammen ændres og så skal der bootes. Mener dog jeg har det registrerings kode ligende, vil lige se når jeg kommer hjem.
sorry det tog lidt tid at komme hjem ... :) ej havde lig glemt det lidt, men here goes:
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;
der er bare et lille problem, den nøgle du ref. til, har jeg ikke på min maskine, dog testede jeg lige på en win9x og der er den, men jeg kan ikke bruge det under win2000/xp.
har selv fundet en løsning ved, at kalde NETSH komandoen.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.