سلام
یه تکه کد می خوام که مثلا هر 1 ثانیه چک کنه به اینترنت وصل هستیم یا نه. و اگر وصل نبودیم gateway رو تغییر بده. من یه چیزایی نوشتم ولی همش به مشکل بر می خورم.
برای چک کردن وصل بودن:
Dim ping As Ping = New Ping()
Dim reply As PingReply = ping.Send("4.2.2.4", 5)
و If reply.Status = IPStatus.Success استفاده کردم.
و برای عوض کردن gateway:
Dim process As New Process
process.StartInfo.FileName = "netsh.exe"
process.StartInfo.Arguments = "interface ip set address name=""Wireless Network Connection"" static 192.168.10.1 255.255.255.0 192.168.120.21 1"
process.StartInfo.WorkingDirectory = "C:\WINDOWS\system32"
process.Start()
مشکلم بیشتر تو تایمر هست.
ممنون