Delphi DNS DEĞİŞTİRME KODLARI

Katılım
7 Şbt 2016
Mesajlar
4
Beğeniler
1
Yaş
23
#1
sMemo1.Lines.Text := 'Dim strDns1'+#13+'Dim strDns2'+#13+#13+'strDns1 = "'+sEdit1.Text+'"'+#13+'strDns2 = "'+sEdit2.Text+'"'+#13+#13+'set objshell = WScript.CreateObject("Wscript.Shell")'+#13+'objshell.Run "netsh interface ip set dns name=""Yerel Ağ Bağlantısı"" static "& strDns1, 0, True'+#13+'objShell.Run "netsh interface ip add dns name=""Yerel Ağ Bağlantısı"" addr="& strDns2, 0, True'+#13+'Set objShell = Nothing'+#13+'WScript.Quit';
 

nazenin

MiKRoSKoBiKCaNLı
Özel üye
Katılım
6 Mrt 2012
Mesajlar
7,842
Beğeniler
4,143
#2
Kendimi çok tembel hissettim :P Tahsin hocam gorse şu halimi :D
 

Benzer konular

Top