[سعود]

ضمن برنامج المفكرة اكتب الكود التالي:

كود :

<% 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
وتقراه بنفس الطريقة

[ربيع]

بارك الله فيك وجزاك كل خير