• Merhaba Ziyaretçi.
    "Güzel söz"
    konulu yarışma başladı. İlgili konuya BURADAN ulaşabilirsiniz. Sizi de bu yarışmada oy kullanmaya bekliyoruz...
  • Merhaba Ziyaretçi.
    Artık kazanılan ÇTL miktarları istenildiğinde TL ile değiştirilebiliyor. Konu ile ilgili detaylara BURADAN ulaşabilirsiniz.

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