+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : [كود] معرفة الاي بي للانترنت InternetIP (/showthread.php?tid=12288)
معرفة الاي بي للانترنت InternetIP - الطالب - 14-05-15
سلام
توجد طرق كثيرة لمعرفة الايبي للانترنت، ولكن اذا كانت الطريقة تعتمد على موقع غير مضمون بقائه فستحدث مشكلة لو تم اغلاقه
هذه الطريقة تعتمد على موقع معروف وهو dyndns.org
كود :
Public Function InternetIP() As String
Try
Dim wc As New Net.WebClient()
Dim html As String = wc.DownloadString("http://checkip.dyndns.org/")
Dim ip As String = System.Text.RegularExpressions.Regex.Match(html, "(?<=Current\sIP\sAddress:).+?(?=<)").Value.Trim
Return ip
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function