كيف اعرف الدولة و اللغة ؟

سأحاول أن أعطيك أكثر من طريقة لمعرفة الدولة غدا بإذن الله ... لأنني في سيبر الآن..

مشكور اخوي على الفكره فكره 100%

شكلنا انا وانت نحب تصميم الهاكرز

طبعا انا قصدي يعني اعرف دولة الضحية علشان اعرف هل (حلال) اللي انا هأعمله فيه ولا ايه ;) ؟ .... و بالمرة يعني .. اهي معلومة و السلام.

فينك Pharaonic_Guy ؟ :rolleyes:

بسييييييييطة

....................................Please Wait

جرب هذه

Set reg = CreateObject("wscript.shell")
MsgBox reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Telephony\" & "Country List\" & reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Telephony\" + "Locations\Location0\Country") & "\Name")

سلااااااااااام

آسف جدا يا جماعة والله..

المهم دائما تجد الدوال المسئولة عن البلد تدعي GetLocale

فمثلا في لغة VBS تجد دالة GetLocale والتي تعيد لك أرقام كل رقم يرمز للدولة

ومثال علي هذا من داخل لغة VBS :

IF GetLocale() = 3073 Then Msgbox "EgYpt"

والجدول التالي من ال MSDN يوضح تلك الأرقام المعادة:

=====================================
Locale            Decimal  String ID
Afrikaans  1078    af	
Albanian  1052  sq	
Arabic (No location)	1	ar	
Arabic (Emirates)	14337	ar-ae	
Arabic (Bahrain)	15361	ar-bh	
Arabic (Algeria)	5121	ar-dz	
Arabic (Egypt)  3073	ar-eg	
Arabic (Iraq)  2049	ar-iq	
Arabic (Jordan)  11265	ar-jo	
Arabic (Kuwait)	13313	ar-kw	
Arabic (Lebanon)	12289	ar-lb	
Arabic (Libya)  4097	ar-ly	
Arabic (Morocco)	6145	ar-ma	
Arabic (Oman)  8193	ar-om	
Arabic (Qatar)  16385	ar-qa	
Arabic (Saudi Arabia)	1025	ar-sa	
Arabic (Syria)  10241	ar-sy	
Arabic (Tunisia)	7169	ar-tn	
Arabic (Yemen)  9217	ar-ye	
Azeri (Latin)  1068	az-az	
Basque  	1069	eu	
Belarusian  1059	be	
Bulgarian  1026	bg	
Catalan  	1027	ca	
Chinese (No location)	4	zh	
Chinese (China)  2052	zh-cn	
Chinese (Hong Kong)	3076	zh-hk	
Chinese (Singapore)       4100	zh-sg	
Chinese (Taiwan)	1028	zh-tw	
Croatian  1050	hr	
Czech  	1029	cs	
Danish  	1030	da	
Dutch (Netherlands)	1043	nl	
Dutch (Belgium)	2067	nl-be	
English (No location)	9	en	
English (Australia)	3081	en-au	
English (Belize)  10249	en-bz	
English (Canada)	4105	en-ca	
English (Ireland)	6153	en-ie	
English (Jamaica)	8201	en-jm	
English (New Zealand)	5129	en-nz	
English (Philippines)	13321	en-ph	
English (South Africa)	7177	en-za	
English (Trinidad)	11273	en-tt	
English (U K)  2057	en-gb	
English (U S)  1033	en-us	
Estonian  1061	et	
Farsi  	1065	fa	
Finnish  	1035	fi	
Faroese  	1080	fo	
French (France)  1036	fr	
French (Belgium)	2060	fr-be	
French (Canada)	3084	fr-ca	
French (Luxembourg)	5132	fr-lu	
French (Switzerland)	4108	fr-ch	
Gaelic (Scotland)	1084	gd	
German (Germany)	1031	de	
German (Austria)	3079	de-at	
German (Liechtenstein)	5127	de-li	
German (Luxembourg)	4103	de-lu	
German (Switzerland)	2055	de-ch	
Greek  	1032	el	
Hebrew  1037	he	
Hindi  	1081	hi	
Hungarian  1038	hu	
Icelandic  1039	is	
Indonesian  1057	in	
Italian (Italy)  1040	it	
Italian (Switzerland)	2064	it-ch	
Japanese  	1041	ja	
Korean  	1042	ko	
Latvian  	1062	lv	
Lithuanian  1063	lt	
FYRO Macedonian	1071	mk	
Malay (Malaysia)	1086	ms	
Maltese  	1082	mt	
Marathi  	1102	mr	
Norwegian (Bokm?l)	1044	no	
Polish  	1045	pl	
Portuguese (Portugal)	2070	pt	
Portuguese (Brazil)	1046	pt-br	
Raeto-Romance  1047	rm	
Romanian (Romania)	1048	ro	
Romanian (Moldova)	2072	ro-mo	
Russian  	1049	ru	
Russian (Moldova)	2073	ru-mo	
Serbian (Cyrillic)	3098	sr	
Setsuana  1074	tn	
Slovenian  1060	sl	
Slovak  	1051	sk	
Sorbian  	1070	sb	
Spanish (Spain)  1034	es	
Spanish (Argentina)	11274	es-ar	
Spanish (Bolivia)	16394	es-bo	
Spanish (Chile)  13322	es-cl	
Spanish (Colombia)	9226	es-co	
Spanish (Costa Rica)	5130	es-cr	
Spanish (Dominican)	7178	es-do	
Spanish (Ecuador)	12298	es-ec	
Spanish (Guatemala)	4106	es-gt	
Spanish (Honduras)	18442	es-hn	
Spanish (Mexico)	2058	es-mx	
Spanish (Nicaragua)	19466	es-ni	
Spanish (Panama)	6154	es-pa	
Spanish (Peru)  10250	es-pe	
Spanish (Puerto Rico)	20490	es-pr	
Spanish (Paraguay)	15370	es-py	
Spanish (El Salvador)	17418	es-sv	
Spanish (Uruguay)	14346	es-uy	
Spanish (Venezuela)	8202	es-ve	
Sutu  	1072	sx	
Swedish (Sweden)	1053	sv	
Swedish (Finland)	2077	sv-fi	
Thai  	1054	th	
Turkish  	1055	tr	
Tsonga  	1073	ts	
Ukrainian  1058	uk	
Urdu  	1056	ur	
Uzbek (Cyrillic)	2115	uz-uz	
Uzbek (Latin)  1091	uz-uz	
Vietnamese  1066	vi	
Xhosa  	1076	xh	
Zulu  	1077	zu
=====================================

ولكن آكيد انت تبحث عن كود بسيط يعود باللغة والبلد مباشرة فعليك بدالة GetLocaleInfo

وهذا مثال عليها من برنامج API Guide :

Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SENGCOUNTRY = &H1002 '  English name of country
Const LOCALE_SENGLANGUAGE = &H1001  '  English name of language
Const LOCALE_SNATIVELANGNAME = &H4  '  native name of language
Const LOCALE_SNATIVECTRYNAME = &H8  '  native name of country
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    MsgBox "You live in " & GetInfo(LOCALE_SENGCOUNTRY) & " (" & GetInfo(LOCALE_SNATIVECTRYNAME) & ")," & vbCrLf & "and you speak " & GetInfo(LOCALE_SENGLANGUAGE) & " (" & GetInfo(LOCALE_SNATIVELANGNAME) & ").", vbInformation
End Sub
Public Function GetInfo(ByVal lInfo As Long) As String
    Dim Buffer As String, Ret As String
    Buffer = String$(256, 0)
    Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))
    If Ret > 0 Then
        GetInfo = Left$(Buffer, Ret - 1)
    Else
        GetInfo = ""
    End If
End Function

السلام عليكم

شكرا لكم جميعااااااااا :lol:

جاري التحميل و تجربة الامثلة كلها :rolleyes: ....................