17-09-12, 02:48 PM
ضمن برنامج المفكرة اكتب الكود التالي:
ثم احفظها بصيغة aspx
ثم ارفعها لاي موقع يدعم asp.net
ثم اطلب العنوان بالكود
لابد من الاستدعءات التالية:
ايضا كود php كتبه احد الاخوان
تحفظه بصيغة php
وتقراه بنفس الطريقة
كود :
<% 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']);
?>
وتقراه بنفس الطريقة