+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (https://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (https://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (https://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : كود اظهار الاي بي العالمي(او الحقيقي) (/showthread.php?tid=6375)
كود اظهار الاي بي العالمي(او الحقيقي) - RaggiTech - 17-10-12
كاتب الموضوع : سعود
كود :
Dim req As HttpWebRequest = WebRequest.Create("http://automation.whatismyip.com/n09230945.asp")
Dim res As HttpWebResponse = req.GetResponse()
Dim Stream As IO.Stream = res.GetResponseStream()
Dim sr As StreamReader = New StreamReader(Stream)
' MsgBox(sr.ReadToEnd())
Button1.Text = "Your IP Address: " & sr.ReadToEnd