Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5
   
Konu: vb6 yasaklı sitelere giriş yapımı :)
Mentalistler
*
avatar
Sivile Alındı
Durum: Çevrimdışı
Seviye Puanı: 25
Yaşam Puanı: 255 / 608
Deneyim: 35 / 100
Rep Sayısı: 190
Mesaj Sayısı: 792
Üyelik Tarihi: 02.10.2013
     
Yorum: #1
vb6 yasaklı sitelere giriş yapımı :)
24.01.2014 13:22
Bunuda çok önceden yapmıştım
arkadaşlar 1 buton eklemeniz yeterli Smile
butona şunları ekleyin :

Kod:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard In colNetCards
arrDNSServers = Array("4.2.2.1", "4.2.2.2")
objNetCard.SetDNSServerSearchOrder (arrDNSServers)
Next
MsgBox "DNS değişikliği tamamlandı; Daha önce giremediğiniz tüm yasaklı sitelere artık girebilirsiniz.", vbDefaultButton1, "Mentalistler Yasak Tanımaz"
End
Alinti
DaRKNeSS
*
avatar
Binbaşı
Durum: Çevrimdışı
Seviye Puanı: 53
Yaşam Puanı: 1,315 / 1,315
Deneyim: 60 / 100
Rep Sayısı: 121
Mesaj Sayısı: 5584
Üyelik Tarihi: 11.08.2013
     
Yorum: #2
Cvp: vb6 yasaklı sitelere giriş yapımı :)
24.01.2014 16:45
Eyw Paşa Haha


Alinti



1 Ziyaretçi