Merhaba arkadaşlar yine kısa bir kod kullanarak Dns değiştirici yapmayı göreceğiz.
Öncelikle örnek olması adına bir görüntü;
İki TextBox ve Bir tane CommandButton'u görseldeki gibi yerleştirin, ve kodu yapıştırın.
Kolay Gelsin![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Kesinlikle alıntı değildir.
İşine yaradıysa Teşekkür edebilirsin.
Öncelikle örnek olması adına bir görüntü;
![9tsl8.jpg](http://f1207.hizliresim.com/z/k/9tsl8.jpg)
İki TextBox ve Bir tane CommandButton'u görseldeki gibi yerleştirin, ve kodu yapıştırın.
Kod:
Private Sub Command1_Click()
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(Text1.Text, Text2.Text)
objNetCard.SetDNSServerSearchOrder (arrDNSServers)
Next
MsgBox ("DNS değişikliği tamamlandı."), vbInformation, "Özgürsün!"
End Sub
Kolay Gelsin
Kesinlikle alıntı değildir.
İşine yaradıysa Teşekkür edebilirsin.