[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)

   

[wahmed]

(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 


[alims]

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

[alims]

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