(20-07-19, 03:47 PM)bakriano30@yahoo.com كتب : كيف اخلي البرنامج بتاعي يتعرف علي اسم الدوله من خلال ip ويعرض الاسم علي labil

(20-07-19, 06:06 PM)Basil Abdallah كتب : كل دولة لها بداية ip خاصة بها ابحث عنها بجوجل واربطها بالبرنامج عن طريق if

(21-07-19, 12:34 AM)kiki كتب : يمكنك الاطلاع على هذا الموقع
http://ip-api.com/
من خلاله يمكنك عمل ما تريد مثلاً انظر الى هذا الرابط فى البداية
http://ip-api.com/docs/

ولاحظ عند استخدام مثلاً JSON من خلال الرابط التالى
http://ip-api.com/docs/api:json

لاحظ اذا تم استخدام هذا الرابط ستجد التفاصيل كاملاً
http://ip-api.com/json/24.48.0.1

ستجد عرض جميع تفاصيل الاى بى من دولة والرمز والعاصمة و.... الخ
هنا يتاى دور فى هذا الجزء
Returned data
ستجد بداخله تفاصيل ما تريد عرضه فمثلاً انت بحاجة لاسم الدولة
فيمكنك تحديد خيار country
ستجد ان الرابط الذى تريد استخدامه بهذا الشكل
http://ip-api.com/json/24.48.0.1?fields=country

ليكون الناتج الذى يعرض هو
{"country":"Canada"}
الان ل ما عليك تغيير الاى بى من هذا الرابط
http://ip-api.com/json/24.48.0.1?fields=country

لتقوم باستبدال : 24.48.0.1 الى الاى بى التى تم جلبه للمستخدم لديك

(21-07-19, 01:36 AM)سامي محمد كتب : بأمكانك استخدام هذا الكود سيتم جلب مفاتي الدول مع اسمائها من الموقع المتخصص

كود :

Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions

كود :

 Dim Ls As New ArrayList
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Str As String = "https://dialingcodes.me/allcodes.html"
        Dim ww As WebRequest = WebRequest.Create(Str)
        Dim HH As HttpWebResponse = ww.GetResponse
        Dim RDD As Stream = HH.GetResponseStream
        Dim R As New StreamReader(RDD)
        Dim S As String
        S = Regex.Replace(R.ReadToEnd, "(\r|\n)", "")
        Dim M As MatchCollection
        M = Regex.Matches(S, ">فتح\s*خط\s*(\d+).+?""NameCity"".+?[^>]+?\.html""\s*>([^>]+?)<")
        For x As Integer = 0 To M.Count - 1
            Ls.Add(M(x).Groups(1).Value & ":" & M(x).Groups(2).Value)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For x As Integer = 0 To Ls.Count - 1
            If Regex.IsMatch(Ls(x), TextBox3.Text) = True Then
                TextBox1.Text = Ls(x).split(":")(0)
                TextBox2.Text = Ls(x).split(":")(1)
                Exit For
            End If
        Next
    End Sub

ادخل في التكست رقم 3 اي مفتاح او اي اسم للدولة