Bir dns değiştirici yaptım resmini ve kodu aşağıya koyucam ama bu kodlarda bir sorun mu var neden değiştirmiyo her yerde bu kod verilmiş ama bende değişmedi bir bakabilir misiniz rica etsem
Kod:
' ' Birincil DNS ayarı
Dim p As New Process()
Dim arayüz As String = _
"""" &
System.Net.NetworkInformation.NetworkInterfac
e.GetAllNetworkInterfaces(0).Name & """"
Dim psi As New ProcessStartInfo("netsh",
"interface ip set dns " & arayüz & " " &
"static 8.8.8.8")
p.StartInfo = psi
p.Start()
' ikincil DNS ayarı
Dim p2 As New Process()
Dim psi2 As New ProcessStartInfo("netsh",
"interface ip add dnsservers " & arayüz & " "
& "8.8.4.4" & " " & "index=2")
p2.StartInfo = psi2
p2.Start()