Programın Amacı: ip ve dns bilgilerini değiştimek.
Evde ve işte farklı ip adresleri kullanığım için ve bu bilgileri sabah akşam değiştimekten bıktığım için bu kod dosyasını hazırladım. Bazı arkadaşlara lazım olabileceğini düşünerek kod dosyasını ve exe dosyasını yayınlıyorum.
İlk önce ufak bir araştırma yaptım. Tabiki sonuçlar her zamanki gibi delphiturkiye.com/forum sitesine yönlendirdi. Oradaki arkadaşlarında verdiği linklerle aşağıdaki iki fonksiyona ulaşabildim.
| function SetIpConfig(const AIpAddress : string; const AGateWay : string = ”; const ASubnetMask : string = ”) : integer; |
function SetDnsServers(const APrimaryDNS : string; const AAlternateDNS : string = ”) : integer; |
bu fonksiyonlar zaten işi bitiriyor. Ben de bu fonksiyonaların haricinde güvenlik ve yanlış yapılandırmama işlerine yöneleyim dedim.
Aşağıdaki pas dosyasını kullanabilirsiniz. Örnek olarak aşağıdaki kodlar yeterli..
PAS dosyası Exe isteyenler için EXE dosyası
