منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود لعرض الاي بي الخاص بك او بزائر الصفحة

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

كود :

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

ربيع