منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معرفة بلدة مستخدم الحاسوب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : معرفة بلدة مستخدم الحاسوب (/showthread.php?tid=608)



معرفة بلدة مستخدم الحاسوب - Mr.ILI - 19-10-13

شكرا لكم


RE: معرفة بلدة مستخدم الحاسوب - ناجي إبراهيم - 20-10-13

السلام عليكم...

إذا كنت تقصد معرفة البلد الموجود به الحاسوب عند اتصاله بالإنترنت فأعتقد أنه يتم من خلال الـ IP address لكني لا أملك الكود الآن.

أما إذا كنت تريد معرفة البلد حسب الإعدادات الإقليمية للنظام فيمكن ذلك باستعمال الدالة GetLocaleInfo (من دوال API) و لتجربة ذلك:

* ضع على الـ Form عدد 8 مربعات نص، و اترك أسماءها كما هي: TextBox1 إلى TextBox8 (للتجربة فقط).

* ضع التصريحات التالية في بداية الـ Class:

كود :
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Integer, ByVal LCType As Integer, ByVal lpLCData As String, ByVal cchData As Integer) As Integer

    Private Const LOCALE_SLANGUAGE = &H2        ' اسم اللغة كاملاً
    Private Const LOCALE_SENGLANGUAGE = &H1001  ' اسم اللغة كاملاً بالإنجليزي
    Private Const LOCALE_SABBREVLANGNAME = &H3  ' رمز اختصار اللغة
    Private Const LOCALE_SNATIVELANGNAME = &H4  ' الاسم المحلي أو القطري للغة

    Private Const LOCALE_SCOUNTRY = &H6         ' اسم البلد كاملاً
    Private Const LOCALE_SENGCOUNTRY = &H1002   ' اسم البلد كاملاً بالإنجليزي
    Private Const LOCALE_SABBREVCTRYNAME = &H7  ' رمز اختصار اسم البلد
    Private Const LOCALE_SNATIVECTRYNAME = &H8  ' الاسم المحلي أو القطري للبلد

    Private Const LOCALE_SYSTEM_DEFAULT = &H800
    Private Const LOCALE_USER_DEFAULT = &H400

* في الحدث Load للـ Form ضع الكود التالي:

كود :
Dim MyLocale As Integer = LOCALE_SYSTEM_DEFAULT
        Dim RetLen As Integer
        Dim Buffer As String

        ' اللغة:
        Buffer = StrDup(255, " ")
        RetLen = GetLocaleInfo(MyLocale, LOCALE_SLANGUAGE, Buffer, Buffer.Length)
        If RetLen <> 0 Then
            TextBox1.Text = Buffer.Substring(0, RetLen)
        End If

        Buffer = StrDup(255, " ")
        RetLen = GetLocaleInfo(MyLocale, LOCALE_SENGLANGUAGE, Buffer, Buffer.Length)
        If RetLen <> 0 Then
            TextBox2.Text = Buffer.Substring(0, RetLen)
        End If

        Buffer = StrDup(255, " ")
        RetLen = GetLocaleInfo(MyLocale, LOCALE_SABBREVLANGNAME, Buffer, Buffer.Length)
        If RetLen <> 0 Then
            TextBox3.Text = Buffer.Substring(0, RetLen)
        End If

        Buffer = StrDup(255, " ")
        RetLen = GetLocaleInfo(MyLocale, LOCALE_SNATIVELANGNAME, Buffer, Buffer.Length)
        If RetLen <> 0 Then
            TextBox4.Text = Buffer.Substring(0, RetLen)
        End If

        ' البلد:
        Buffer = StrDup(255, " ")
        RetLen = GetLocaleInfo(MyLocale, LOCALE_SCOUNTRY, Buffer, Buffer.Length)
        If RetLen <> 0 Then
            TextBox5.Text = Buffer.Substring(0, RetLen)
        End If

        Buffer = StrDup(255, " ")
        RetLen = GetLocaleInfo(MyLocale, LOCALE_SENGCOUNTRY, Buffer, Buffer.Length)
        If RetLen <> 0 Then
            TextBox6.Text = Buffer.Substring(0, RetLen)
        End If

        Buffer = StrDup(255, " ")
        RetLen = GetLocaleInfo(MyLocale, LOCALE_SABBREVCTRYNAME, Buffer, Buffer.Length)
        If RetLen <> 0 Then
            TextBox7.Text = Buffer.Substring(0, RetLen)
        End If

        Buffer = StrDup(255, " ")
        RetLen = GetLocaleInfo(MyLocale, LOCALE_SNATIVECTRYNAME, Buffer, Buffer.Length)
        If RetLen <> 0 Then
            TextBox8.Text = Buffer.Substring(0, RetLen)
        End If

* عند تشغيل البرنامج ستظهر في مربعات النص معلومات حسب قيمة البارامتر الثاني (LCType) للدالة.

* نرجو الاستفادة و السلام.


RE: معرفة بلدة مستخدم الحاسوب - sherif khalid - 20-10-13

السلام عليكم ورحمة الله وبركاتة

يمكنك يا اخى الاطلاع على هذا الرابط

ستجد فية ما تريدة بالتحديد

http://www.codeproject.com/Articles/28363/How-to-convert-IP-address-to-country-name


RE: معرفة بلدة مستخدم الحاسوب - hoob computer - 21-10-13

جزاكم الله خيراً ..........



تحياتي