• Kazandığınız her 1000 ÇTL birikiminizi 5 TL ile değiştirip ödeme alabilirsiniz...

Delphi DNS DEĞİŞTİRME KODLARI

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';
 
Top