Visual Basic DNS Değiştir

Visual Basic 6 'da DNS değiştirmenin nasıl olduğunu ya da değiştirmek isteyen arkadaşlar sadece ufak bir kodla bu işin nasıl yapıldığını görelim. Bunun için Form1.frm adındaki Form 'a 1 adet CommandButton 2 Adet TextBox ve son olarak da 3 Adet Label ekliyoruz. Eklediğimiz form elemanlarının adlarını değiştirmeye gerek yok.

Projemizin tasarımıda aşağıdaki gibidir.

Kodlarımıza geçelim artık.

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 ler" + Chr(13) + Chr(10) + Text1.Text & " ve " & Text2.Text + Chr(13) + Chr(10) + "olarak değiştirildi...")
End
End Sub

Private Sub Form_Load()
Label1.Caption = "Yeğlenen Dns Sunucusu"
Label2.Caption = "Diğer DNS sunucusu"
Label3.Caption = "Örnek Olarak 4.2.2.3 olarak yazınız"
Command1.Caption = "DNS Değiştir."
End Sub