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
تم تصحيح الرابط الخاص بالمعلومات
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
