+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف اجلب عنوان ip كما بالصورة (/showthread.php?tid=21502)
كيف اجلب عنوان ip كما بالصورة - e-coder - 26-08-17
سلام عليكم
اريد جلب عنوان موقعي الايبي
كما هو بالصورة ؟
RE: كيف اجلب عنوان ip كما بالصورة - سعود - 26-08-17
ممكن رابط الموقع هذا حتى اجهز مثال؟
عموما تستعين بعد الله بـRegex Or HtmlAgilityPack
طيب
من موقع
http://whatismyipaddress.com/ip-lookup
هذا المثال
كود :
Imports System.Text
Public Class Form1
Dim wb As WebBrowser
Private Sub wb_comp(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(wb.DocumentText)
TextBox1.Text = doc.DocumentNode.SelectSingleNode("//input[@name='LOOKUPADDRESS']").Attributes("value").Value
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'<input type="TEXT" name="LOOKUPADDRESS" value="176.44.209.15" size="18" maxlength="40" style="font-size:18px;">
Dim url As String = "http://whatismyipaddress.com/ip-lookup"
wb = New WebBrowser
wb.ScriptErrorsSuppressed = True
wb.Navigate(url)
AddHandler wb.DocumentCompleted, AddressOf wb_comp
End Sub
End ClassRE: كيف اجلب عنوان ip كما بالصورة - أبو نوره - 27-08-17
مرحبا اخى
PHP كود :
Dim ip As String = New Net.WebClient().DownloadString("http://plain-text-ip.com/").ToString
RE: كيف اجلب عنوان ip كما بالصورة - e-coder - 27-08-17
شكرا لكم جميعا جعله الله في صالح اعمالكم
RE: كيف اجلب عنوان ip كما بالصورة - سعود - 27-08-17
(27-08-17, 01:14 AM)أبو نوره كتب : مرحبا اخى
PHP كود :
Dim ip As String = New Net.WebClient().DownloadString("http://plain-text-ip.com/").ToString
معقولة فيه موقع يقدم الاي بي هكذا بسهولة؟
RE: كيف اجلب عنوان ip كما بالصورة - أبو نوره - 27-08-17
مرحبا اخى سعود
فيه مواقع كثيره لكن لم اهتم بالاحتفاظ بروابطها كلها
مثل هذا ايضا http://www.icanhazip.com