Ben vb ile DNS değiştirme programı yapıyorum. Ancak textbox'a karakter girilmediğinde hata veriyor. Girildiğinde de hata veriyor :( Kodlar aşağıdaki gibi, istediğim şu; Eğer textboxların ikiside boş geçilir veya harf girilirse hata versin. Bu yani.
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 ayarları" + Chr(13) + Chr(10) + Text1.Text & " ve " & Text2.Text + Chr(13) + Chr(10) + "olarak değiştirildi."), vbInformation
End Sub 