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

السلام عليكم شباب عندى سؤال كيفية عرض كلمات معنيه من نص زاى لى فى الصورة دى المرفقات
اريد ان يتم ادخل textbox1 اسم الدوالة و اسم المدينة فقط
و texbox2 رقم خط العرض و الطول مع فاصل بين الرقمين
وهذا الكود المستخدام لعرض البيانات كاملة

كود :

Dim oWebClient As New WebClient()

        Dim sMyIp As String = oWebClient.DownloadString("http://ip-api.com/xml/197.52.25.179?fields=status,message,country,countryCode,region,regionName,city,zip,lat,lon,timezone,isp,org,as,query")

        MsgBox(sMyIp.ToString)

[attachment=27059]

(14-10-21, 11:46 AM)alims كتب : [ -> ]السلام عليكم شباب عندى سؤال كيفية عرض كلمات معنيه من نص زاى لى فى الصورة دى المرفقات
اريد ان يتم ادخل textbox1 اسم الدوالة و اسم المدينة فقط
و texbox2 رقم خط العرض و الطول مع فاصل بين الرقمين
وهذا الكود المستخدام لعرض البيانات كاملة

كود :

Dim oWebClient As New WebClient() Dim sMyIp As String = oWebClient.DownloadString("http://ip-api.com/xml/197.52.25.179?fields=status,message,country,countryCode,region,regionName,city,zip,lat,lon,timezone,isp,org,as,query") MsgBox(sMyIp.ToString)

PHP كود :

Dim wc As New Net.WebClient
Dim doc As XDocument = XDocument.Parse(wc.DownloadString("http://ip-api.com/xml/197.52.25.179"))
Dim elm = doc.Element("query")

Dim country = elm.Element("country").Value
Dim city = elm.Element("city").Value
Dim lat = elm.Element("lat").Value
Dim lon = elm.Element("lon").Value

TextBox1.Text = country & "," & city
TextBox2.Text = lat & "," & lon 

شكرا لك اخى wahmed على الرد السريع

السلام عليكم ورحمة الله وبركاته
حد يعرف موقع افضل من الموقع ده علشان بيفضل كل شوية
http://ip-api.com/xml