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
Kesinlikle alıntı değildir.
İşine yaradıysa Teşekkür edebilirsin.
Ö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.
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.