منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - [ليس جديد] معلومات من الاي بي (مجرد تذكير و مشاركة)

الصفحات : 1 2

PHP كود :

Imports System.Xml
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
               Dim url As String = "http://ip-api.com/xml/" & TextBox1.Text
        Dim xdoc As New XmlDocument
        xdoc.Load(url)
        TextBox2.Text = xdoc.DocumentElement.SelectSingleNode("//country").InnerText
        TextBox3.Text = xdoc.DocumentElement.SelectSingleNode("//regionName").InnerText
        TextBox4.Text = xdoc.DocumentElement.SelectSingleNode("//city").InnerText
        TextBox5.Text = xdoc.DocumentElement.SelectSingleNode("//lat").InnerText
        TextBox6.Text = xdoc.DocumentElement.SelectSingleNode("//lon").InnerText
        TextBox7.Text = xdoc.DocumentElement.SelectSingleNode("//timezone").InnerText
        TextBox8.Text = xdoc.DocumentElement.SelectSingleNode("//isp").InnerText
        TextBox9.Text = xdoc.DocumentElement.SelectSingleNode("//as").InnerText
        TextBox10.Text = xdoc.DocumentElement.SelectSingleNode("//query/query").InnerText
    End Sub
End Class 

تم تصحيح الرابط الخاص بالمعلومات

اكثر من رائع اخى سعود

يمكن الاستفادة منه بالعديد من الطرق

وسيفيد اصحاب من يرد جلب بيانات المستخدم

تحياتى لك

وتمنياتى لك كل التوفيق

تسلم أخ سعود
أكيد ستكون مفيدة .

إضافة للـ XML يمكن جلب البيانات على هيئة JSON

http://ip-api.com/json/xx.xxx.xx.xx
تفيد من يريد أن يستخدمها مثلاً مع C, C++, C#, Java, JavaScript, Perl, Python , Undecided

وليس مع الـ VB.NET طبعاً.

كود :

{  

   "as"         :"xxxx",

   "city"       :"xxxx",

   "country"    :"xxxx",

   "countryCode":"xxxx",

   "isp"        :"xxxx",

   "lat"        :98.1234,

   "lon"        :24.4563,

   "org"        :"xxxxxx",

   "query"      :"54.000.158.000",

   "region"     :"xx",

   "regionName" :"xxxxxxxxxxx",

   "status"     :"success",

   "timezone"   :"Asia/xxxx",

   "zip"        :""

}

(11-07-18, 04:51 AM)عبدالله الدوسري كتب : [ -> ]تسلم أخ سعود
أكيد ستكون مفيدة .

إضافة للـ XML يمكن جلب البيانات على هيئة JSON

http://ip-api.com/json/xx.xxx.xx.xx
تفيد من يريد أن يستخدمها مثلاً مع C, C++, C#, Java, JavaScript, Perl, Python , وليس مع الـ VB.NET طبعاً.

كود :

{ "as" :"xxxx", "city" :"xxxx", "country" :"xxxx", "countryCode":"xxxx", "isp" :"xxxx", "lat" :98.1234, "lon" :24.4563, "org" :"xxxxxx", "query" :"54.000.158.000", "region" :"xx", "regionName" :"xxxxxxxxxxx", "status" :"success", "timezone" :"Asia/xxxx", "zip" :"" }

وعن طريق الـ VB.NET ايضاً اخى عبدالله الدوسري

القى نظرة هنا فى هذا الموضوع قمت باستخدام الـ Array

لتحويلها للبيانات منفصلة بالنهاية

http://vb4arb.com/vb/showthread.php?tid=25537

تحياتى لك

وتمنياتى لك التوفيق

بارك الله فيكم جميعا
فعلا البرمجة ممتعة بغض النظر عن فائدتها Smile

السلام عليكم
مبدع دائما اخى سعود

(11-07-18, 07:32 PM)mero5000 كتب : [ -> ]السلام عليكم
مبدع دائما اخى سعود

وعليكم السلام ورحمة الله وبركاته
الابداع وجودك...بارك الله فيك.

الله يعطيك العافية مثال اكثر من رائع

عمل ممتاز

..

سيتم تطوير البرنامج و سأعطيك اياه Big Grin

ما شاءالله عمل جميل

والفكرة اروع

في نفس الوقت اتتني فكرة

كيف ممكن اسحب البيانات من هذا الموقع
dxsummit

البيانات في الموقع تتجدد كل شويه

كيف ممكن اسحبها