السلام عليكم ...
اريد كود لمعرفة اكسترنال اي بي وليس Local Ip جربت التالي ولم ينفع :
تم الحل :
ارجوا وضعه في منتدى الاكواد لافادة الاعضاء
اريد كود لمعرفة اكسترنال اي بي وليس 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
ارجوا وضعه في منتدى الاكواد لافادة الاعضاء