[Mr.ILI]

السلام عليكم ...

اريد كود لمعرفة اكسترنال اي بي وليس Local Ip جربت التالي ولم ينفع :

PHP كود :

Imports System
Imports System.Text
Imports System.Text.RegularExpressions

Public Sub GetExternalIP()
        Dim whatIsMyIp As String = "http://whatismyip.com"
        Dim getIpRegex As String = "(?<=<TITLE>.*)\d*\.\d*\.\d*\.\d*(?=</TITLE>)"
        Dim wc As WebClient = New WebClient
        Dim utf8 As UTF8Encoding = New UTF8Encoding
        Dim requestHtml As String = ""
        Dim externalIp As IPAddress = Nothing

        requestHtml = utf8.GetString(wc.DownloadData(whatIsMyIp))
        
        Dim r As Regex = New Regex(getIpRegex)
        Dim m As Match = r.Match(requestHtml)
        If (m.Success) Then
            externalIp = IPAddress.Parse(m.Value)
            MessageBox.Show(externalIp.ToString)
        End If
End Sub 


---

تم الحل :

PHP كود :

Dim oWebClient As New WebClient()
        Dim sUrl As String = "http://www.prodigyproductionsllc.com/yourip.php"

        Try
            Dim sMyIp As String = oWebClient.DownloadString(sUrl)
            Console.WriteLine("My Ip : " & sMyIp)
            MsgBox("My Ip : " & sMyIp)
        Catch Ex As Exception
            MsgBox(Ex.Message)

        End Try

    End Sub 


ارجوا وضعه في منتدى الاكواد لافادة الاعضاء