cls Print External("Kernel32.dll","GetUserDefaultLangID") waitinput end
cls var a&=External("User32.dll","GetKeyboardLayout",0) print hiword(a&) print loword(a&) waitinput end
cls If Hex$(External("Kernel32.dll","GetUserDefaultLangID"))=$407 Print "Deutsch(Deutschland)" Elseif Hex$(External("Kernel32.dll","GetUserDefaultLangID"))=$409 Print "Englisch(USA)" Endif Umstellen waitinput If Hex$(External("Kernel32.dll","GetUserDefaultLangID"))=$407 Print "Deutsch(Deutschland)" Elseif Hex$(External("Kernel32.dll","GetUserDefaultLangID"))=$409 Print "Englisch(USA)" Endif waitinput end
Session-Cookies