Программа VB.NET перестала работать в Windows 10 (system.net) - PullRequest
Новая
       16

Программа VB.NET перестала работать в Windows 10 (system.net)

0 голосов
/ 12 июня 2018

У меня есть несколько программ на VB, написанных на Visual Studio 2017 Когда моя программа загружается, она проверяет имя хоста и IP-адрес компьютера для ведения журнала безопасности.Это работало нормально до последней недели, когда программы больше не будут работать в системах Windows 10.Они по-прежнему работают в Windows 7.

Вот код, который получает информацию: 

Dim strHostName As String = System.Net.Dns.GetHostName()
Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)
Dim strIPAddress As String

   .
   .
   .

   For Each ipheal As System.Net.IPAddress In iphe.AddressList
        If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then strIPAddress = ipheal.ToString()
   Next

Это ошибка из окна просмотра событий Windows: 

 Description: The process was terminated due to an unhandled exception.
Exception Info: System.Net.Sockets.SocketException
at System.Net.Dns.GetAddrInfo(System.String)
at System.Net.Dns.InternalGetHostByName(System.String, Boolean)
at System.Net.Dns.GetHostEntry(System.String)
at Program.Form1..ctor()

.,,Неисправное имя модуля: KERNELBASE.dll, версия: 10.0.17134.1, отметка времени: 0x701ca188 Код исключения: 0xe0434352

Любые идеи, что может быть причиной этого и как реализовать обходной путь?

Спасибо ввперед.

...