تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لعرض الاي بي الخاص بك او بزائر الصفحة
#1
ضمن برنامج المفكرة اكتب الكود التالي:
كود :
<% Dim sIPAddress
sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If sIPAddress = "" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR")
Response.Write("<h1>" & sIPAddress & "</h1>") %>
ثم احفظها بصيغة aspx
ثم ارفعها لاي موقع يدعم 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']);
?>
تحفظه بصيغة php
وتقراه بنفس الطريقة
الرد
تم الشكر بواسطة: YousefOkasha
#2
بارك الله فيك وجزاك كل خير
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم