1. * 5651 Sayılı Kanun'a göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur.
    * Telif hakkına konu olan eserlerin yasal olmayan şekilde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahiplerinin İLETİŞİM bölümünden bize ulaşmaları durumunda ilgili şikayet incelenip gereği 1 (bir) hafta içinde gereği yapılacaktır.
    E-posta adresimiz

Delphi DNS DEĞİŞTİRME KODLARI

Konusu 'Delphi İle Başlangıç' forumundadır ve hasan çelik tarafından 24 Nisan 2016 başlatılmıştır.

  1. hasan çelik

    hasan çelik Üyecik

    Katılım:
    7 Şubat 2016
    Mesajlar:
    4
    Beğenileri:
    1
    Ödül Puanları:
    130
    Cinsiyet:
    Bay
    Banka:
    46 ÇTL
    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';
     
    SAHRA_BUSE bunu beğendi.
  2. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    2.990
    Beğenileri:
    3.799
    Ödül Puanları:
    8.080
    Cinsiyet:
    Bayan
    Banka:
    734 ÇTL
    Kendimi çok tembel hissettim :P Tahsin hocam gorse şu halimi :D
     

Sayfayı Paylaş