[bakriano30@yahoo.com]

كيف اخلي البرنامج بتاعي يتعرف علي اسم الدوله من خلال ip ويعرض الاسم علي labil

[bakriano30@yahoo.com]

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

هل من مستجيب اخواتي

[Basil Abdallah]

كل دولة لها بداية ip خاصة بها ابحث عنها بجوجل واربطها بالبرنامج عن طريق if

[bakriano30@yahoo.com]

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

انا اقصد عن طريق اظهار جمله معينه من موقع علي سبيل المثال موقع show my ip

[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 الى الاى بى التى تم جلبه للمستخدم لديك

[bakriano30@yahoo.com]

(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 الى الاى بى التى تم جلبه للمستخدم لديك

شكرا لك اخي علي الشرح الوافي

[سامي محمد]

بأمكانك استخدام هذا الكود سيتم جلب مفاتي الدول مع اسمائها من الموقع المتخصص

كود :

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 اي مفتاح او اي اسم للدولة

[bakriano30@yahoo.com]

(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 اي مفتاح او اي اسم للدولة

اخ سامي انا متشكرااا جداا لك واتمني ان تكون لي صديق عبر الفيس بوك