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
Notu Gizle
Yaklaşık 6 ay içinde forumda köklü değişimlerin olacağı bir sürümle karşınızda olacağız. Sistemi test etmek için aşağıdaki adresi kullanabilirsiniz.

http://www.degisim-sanat.com/_xf2/
Notu Gizle
Merhaba Ziyaretçi.

"KIRMIZI" konulu resimler için anketimiz açıldı. İlgili konuya BURADAN ulaşabilirsiniz.

Sizi de ankete katılmaya davet ediyoruz...

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:
    3.025
    Beğenileri:
    3.901
    Ödül Puanları:
    9.080
    Cinsiyet:
    Bayan
    Banka:
    675 ÇTL
    Kendimi çok tembel hissettim :P Tahsin hocam gorse şu halimi :D
     

Sayfayı Paylaş