+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : كود لعرض الاي بي الخاص بك او بزائر الصفحة (/showthread.php?tid=4160)
كود لعرض الاي بي الخاص بك او بزائر الصفحة - سعود - 17-09-12
ضمن برنامج المفكرة اكتب الكود التالي:
كود :
<% Dim sIPAddress
sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If sIPAddress = "" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR")
Response.Write("<h1>" & sIPAddress & "</h1>") %>ثم ارفعها لاي موقع يدعم asp.net
ثم اطلب العنوان بالكود
كود :
Dim req As HttpWebRequest = WebRequest.Create("http://www.myweb.somee.com/ip.aspx")
Dim res As HttpWebResponse = req.GetResponse()
Dim Stream As IO.Stream = res.GetResponseStream()
Dim sr As StreamReader = New StreamReader(Stream)
TextBox1.Text = sr.ReadToEndكود :
Imports System.Net
Imports System.IOايضا كود php كتبه احد الاخوان
كود :
<?php
echo($_SERVER['REMOTE_ADDR']);
?>وتقراه بنفس الطريقة
كود لعرض الاي بي الخاص بك او بزائر الصفحة - ربيع - 24-03-13
بارك الله فيك وجزاك كل خير