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
تم تصحيح الرابط الخاص بالمعلومات
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
بارك الله فيكم جميعا
فعلا البرمجة ممتعة بغض النظر عن فائدتها
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
(11-07-18, 07:32 PM)mero5000 كتب : السلام عليكم
مبدع دائما اخى سعود
وعليكم السلام ورحمة الله وبركاته
الابداع وجودك...بارك الله فيك.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير