منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم شباب
عندى مشكلة و مش عارف ايه الحل يا ريت حد يساعدنى
الاول ده الكود بتع المشكلة

كود :

Imports System.Net

Imports System.Net.Sockets

Imports System.Text

Imports System.IO

Imports System.Threading

المشكلة هنا بالضبط

كود :

   Public Function GetIPAddress() As String

        Dim oAddr As System.Net.IPAddress

        Dim sAddr As String

        With System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName())

            oAddr = New System.Net.IPAddress(.AddressList(0).Address)

            sAddr = oAddr.ToString

        End With

        GetIPAddress = sAddr

    End Function

وفى المرفقات صور المشكلة بالتحديد اكتر

احب اشكر اخى
Aly El-Haddad
و الحل هو كان

كود :

 With System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName())

التعديل كان تحويل من

كود :

GetHostByName(

الى

كود :

GetHostEntr

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alims