ثامر أبو بلقيس
27-04-2013, 05:42 PM
بسم الله الرحمن الرحيم
السلام عليكم
اصنع اداتك بميزات عدة و استغل تنوع استعمال الأكواد لتكن مدخلا لك للتعامل مع هذه اللغة الجميلة
#include <Inet.au3>
#include <String.au3>
Global Const $BS_ICON = 0x0040
Global Const $BS_PUSHLIKE = 0x1000
Global Const $ES_READONLY = 2048
Global Const $CD_VOLUME = DriveGetLabel("C:\")
Global Const $CD_SERIAL = DriveGetSerial("C:\")
Global Const $CD_TOTALSPACE = DriveSpaceTotal("C:\")
Global Const $CD_FREESPACE = DriveSpaceFree("C:\")
Global Const $CD_SYSTEMTYPE = DriveGetFileSystem("C:\")
Global Const $CD_STATUS = DriveStatus("C:\")
Global Const $GUI_FOCUS = 256
Global Const $CBS_DROPDOWNLIST = 0x0003
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Global Const $ES_PASSWORD = 32
Global $aHButtons[10], $IniRead[10]
Global $WindowList, $Password, $PixelColor, $xPos, $yPos
If Not FileExists("C:\temp") Then DirCreate("C:\temp")
_Check()
_Menu()
Func _Menu()
$MainGUI = GUICreate(" الفهـــرس", 170, 315, -1, -1)
$ApplicationLauncher = GUICtrlCreateButton("البرامج المفضلة", 10, 10, 150)
$ComputerInformation = GUICtrlCreateButton("معلومات جهاز الكومبيوتر", 10, 40, 150)
$MouseInformation = GUICtrlCreateButton("تحديد اللون و موقع ا لماوس", 10, 70, 150)
$Hexing = GUICtrlCreateButton("الهكس", 10, 100, 150)
$ComputerPrograms = GUICtrlCreateButton("برامج مكتبية", 10, 130, 150)
$Games = GUICtrlCreateButton("ألعاب الكومبيوتر", 10, 160, 150)
$WindowManager = GUICtrlCreateButton("إدارة المهام", 10, 190, 150)
$SetPassword = GUICtrlCreateButton("اضافة رقم مرور للأداة", 10, 220, 150)
$Customizing = GUICtrlCreateButton("إغـــلاق", 10, 250, 150)
$Homepage = GUICtrlCreateButton("تجدني هناااا", 10, 280, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $ApplicationLauncher
GUIDelete($MainGUI)
_AppLauncher()
Case $nMsg = $ComputerInformation
GUIDelete($MainGUI)
_ComInfo()
Case $nMsg = $MouseInformation
GUIDelete($MainGUI)
_MouseInfo()
Case $nMsg = $Hexing
GUIDelete($MainGUI)
_Hexing()
Case $nMsg = $ComputerPrograms
GUIDelete($MainGUI)
_ComputerProgs()
Case $nMsg = $Games
GUIDelete($MainGUI)
_Games()
Case $nMsg = $WindowManager
GUIDelete($MainGUI)
_WinManager()
Case $nMsg = $SetPassword
GUIDelete($MainGUI)
_Password()
Case $nMsg = $Customizing
GUIDelete($MainGUI)
_Customizing()
Case $nMsg = $Homepage
_Homepage()
EndSelect
WEnd
EndFunc
Func _AppLauncher()
$GUI = GUICreate("برامجي", 140, 355, -1, -1)
GUICtrlCreateGroup("اختر برامجك المفضلة", 10, 10, 110, 270)
$ClearData = GUICtrlCreateButton("مسح كل البيــانات", 10, 290, 110)
$ReturnMenu = GUICtrlCreateButton("رجووووع", 10, 320, 110)
Local $left = 20, $top = 30
For $i = 0 To UBound($aHButtons) - 1
$aHButtons[$i] = GUICtrlCreateButton("", $left, $top, 40, 40, $BS_ICON + $BS_PUSHLIKE)
$top += 50
If $i == 4 Then
$left = 70
$top = 30
EndIf
Next
If FileExists("C:\temp\$~settings.ini") Then
For $i = 0 To UBound($aHButtons) - 1
$IniRead[$i] = IniRead("C:\temp\$~settings.ini", "AppLauncher", "Button" & $i, "Not Found")
If $IniRead[$i] <> "Not Found" Then GUICtrlSetImage($aHButtons[$i], $IniRead[$i], 1)
Next
EndIf
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $aHButtons[0] To $aHButtons[UBound($aHButtons) - 1]
For $i = 0 To UBound($aHButtons) - 1
If $aHButtons[$i] == $nMsg Then
$IniRead[$i] = IniRead("C:\temp\$~settings.ini", "AppLauncher", "Button" & $i, "Not Found")
If FileExists("C:\temp\$~settings.ini") And $IniRead[$i] <> "Not Found" Then
ShellExecute($IniRead[$i])
Else
$fod_Button = FileOpenDialog("Select a file", @DesktopDir, "Executeable's (*.exe)", 3, "", $GUI)
If Not @error Then
IniWrite("C:\temp\$~settings.ini", "AppLauncher", "Button" & $i, $fod_Button)
GUICtrlSetImage($aHButtons[$i], $fod_Button, 1)
EndIf
EndIf
EndIf
Next
Case $ClearData
If FileExists("C:\temp\$~settings.ini") Then
FileDelete("C:\temp\$~settings.ini")
Else
MsgBox(16, "خطأ", "تم بالفعل مسح البيانات")
EndIf
Case $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSwitch
WEnd
EndFunc
Func _ComInfo()
$GUI = GUICreate("جهاز الكومبيوتر", 240, 585, -1, -1)
GUICtrlCreateGroup("معلومات تخص جهاز الكومبيوتر", 10, 10, 220, 530)
GUICtrlCreateInput("Computer Name: " & @ComputerName, 20, 30, 200, 20, $ES_READONLY)
GUICtrlCreateInput("Username: " & @UserName, 20, 60, 200, 20, $ES_READONLY)
GUICtrlCreateInput("OS Type: " & @OSTYPE, 20, 90, 200, 20, $ES_READONLY)
GUICtrlCreateInput("OS Service Pack: " & @OSServicePack, 20, 120, 200, 20, $ES_READONLY)
GUICtrlCreateInput("Language: " & _GetLang(@OSLang) & " (" & @OSLang & ")", 20, 150, 200, 20, $ES_READONLY)
GUICtrlCreateInput("OS Version: " & @OSVersion, 20, 180, 200, 20, $ES_READONLY)
GUICtrlCreateInput("OS Build Number: " & @OSBuild, 20, 210, 200, 20, $ES_READONLY)
GUICtrlCreateInput("Processor Arch: " & @ProcessorArch, 20, 240, 200, 20, $ES_READONLY)
GUICtrlCreateInput("Keyboard Layout: " & _GetKBLayout(@KBLayout) & " (" & @KBLayout & ")", 20, 270, 200, 20, $ES_READONLY)
GUICtrlCreateInput("LAN IP: " & @IPAddress1, 20, 300, 200, 20, $ES_READONLY)
GUICtrlCreateInput("DNS IP: " & _GetIP(), 20, 330, 200, 20, $ES_READONLY)
GUICtrlCreateInput("C:\ Volume Label: " & $CD_VOLUME, 20, 360, 200, 20, $ES_READONLY)
GUICtrlCreateInput("C:\ Serial: " & $CD_SERIAL, 20, 390, 200, 20, $ES_READONLY)
$Round_TOTALSPACE = Round($CD_TOTALSPACE / 1000, 1)
GUICtrlCreateInput("C:\ Total Space: " & $Round_TOTALSPACE & " GB", 20, 420, 200, 20, $ES_READONLY)
$Round_FREESPACE = Round($CD_FREESPACE / 1000, 1)
GUICtrlCreateInput("C:\ Free Space: " & $Round_FREESPACE & " GB", 20, 450, 200, 20, $ES_READONLY)
GUICtrlCreateInput("C:\ System Type: " & $CD_SYSTEMTYPE, 20, 480, 200, 20, $ES_READONLY)
GUICtrlCreateInput("C:\ Status: " & $CD_STATUS, 20, 510, 200, 20, $ES_READONLY)
$ReturnMenu = GUICtrlCreateButton("رجووووع", 45, 550, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _MouseInfo()
HotKeySet("{F9}", "_GetColor")
HotKeySet("{F10}", "_GetMousePos")
$GUI = GUICreate("حسب موقع الفأرة", 240, 200, -1, -1)
GUICtrlCreateGroup("يمكنك معرفة", 10, 10, 220, 150)
GUICtrlCreateInput("Mouse Cursor: " & MouseGetCursor(), 20, 30, 200, 20, $ES_READONLY)
GUICtrlCreateLabel(" F9 أشر على لون بالماوس و اضغط على", 20, 60)
$PixelColor = GUICtrlCreateInput("", 20, 80, 200, 20, $ES_READONLY)
GUICtrlCreateLabel("F10 لمعرفة احداثيات الماوس اضغط على", 20, 110)
GUICtrlCreateLabel("x", 20, 132)
$xPos = GUICtrlCreateInput("", 30, 130, 30, 20, $ES_READONLY)
GUICtrlCreateLabel("y", 70, 132)
$yPos = GUICtrlCreateInput("", 80, 130, 30, 20, $ES_READONLY)
$ReturnMenu = GUICtrlCreateButton("رجوووع", 45, 167, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $ReturnMenu
HotKeySet("{F9}")
HotKeySet("{F10}")
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _Hexing()
$GUI = GUICreate("Hexing~", 420, 290, -1, -1)
$StringToHexLabel = GUICtrlCreateLabel("= الهكس = ", 10, 2, 120, 50)
$StringInput = GUICtrlCreateInput("", 10, 50, 400, 20)
$CalcStringToHexButton = GUICtrlCreateButton("حســــــاب", 10, 79)
$HexedStringInput = GUICtrlCreateInput("", 10, 115, 400, 20, $ES_READONLY)
$CopyHexedString = GUICtrlCreateButton("نــسخ", 70, 79)
$ShowHexedString = GUICtrlCreateButton("إضهار", 107, 79)
$ClearHexed = GUICtrlCreateButton("مــسح", 147, 79)
$HexToStringLabel = GUICtrlCreateLabel("= الهكس =", 10, 150, 150, 50)
$HexInput = GUICtrlCreateInput("", 10, 190, 400, 20)
$CalcHexToStringButton = GUICtrlCreateButton("حســــــاب", 10, 220)
$StringFromHexInput = GUICtrlCreateInput("", 10, 259, 400, 20, $ES_READONLY)
$CopyStringFromHex = GUICtrlCreateButton("نــسخ", 70, 220)
$ShowStringFromHex = GUICtrlCreateButton("إضهار", 107, 220)
$ClearString = GUICtrlCreateButton("مــسح", 147, 220)
GUICtrlSetFont($StringToHexLabel, 20, "", "", "Impact")
GUICtrlSetFont($HexToStringLabel, 20, "", "", "Impact")
$ReturnMenu = GUICtrlCreateButton("رجوووع", 260, 10, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $CalcStringToHexButton
$Read_String = GUICtrlRead($StringInput)
$HEX = _StringToHex($Read_String)
GUICtrlSetData($HexedStringInput, $HEX)
Case $nMsg = $CalcHexToStringButton
$Read_Hex = GUICtrlRead($HexInput)
$STRING = _HexToString($Read_Hex)
GUICtrlSetData($StringFromHexInput, $STRING)
Case $nMsg = $CopyHexedString
$Read_Hexed_String = GUICtrlRead($HexedStringInput)
ClipPut($Read_Hexed_String)
Case $nMsg = $CopyStringFromHex
$Read_String_From_Hex = GUICtrlRead($StringFromHexInput)
ClipPut($Read_String_From_Hex)
Case $nMsg = $ShowHexedString
$Read_Hexed_String_2 = GUICtrlRead($HexedStringInput)
MsgBox(64, " الناتــج", $Read_Hexed_String_2)
Case $nMsg = $ShowStringFromHex
$Read_String_From_Hex_2 = GUICtrlRead($StringFromHexInput)
MsgBox(64, " النـــاتج", $Read_String_From_Hex_2)
Case $nMsg = $ClearHexed
GUICtrlSetData($StringInput, "")
GUICtrlSetState($StringInput, $GUI_FOCUS)
Case $nMsg = $ClearString
GUICtrlSetData($HexInput, "")
GUICtrlSetState($HexInput, $GUI_FOCUS)
Case $nMsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _ComputerProgs()
$GUI = GUICreate(" برامج مكتبية", 190, 235, -1, -1)
GUICtrlCreateGroup(" يمكنك الوصول إلى ", 10, 10, 170, 180)
$Calculator = GUICtrlCreateButton("الحاسبــــــة", 20, 30, 150)
$Paint = GUICtrlCreateButton("الرســـــــام", 20, 60, 150)
$Notepad = GUICtrlCreateButton("المفكـــــرة", 20, 90, 150)
$CommandPrompt = GUICtrlCreateButton("موجــــــة الأوامر", 20, 120, 150)
$Wordpad = GUICtrlCreateButton("الوارد باد", 20, 150, 150)
$ReturnMenu = GUICtrlCreateButton("رجوووع", 20, 200, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $Calculator
Run("calc.exe")
Case $nMsg = $Paint
Run("mspaint.exe")
Case $nMsg = $Notepad
Run("notepad.exe")
Case $nMsg = $CommandPrompt
Run("cmd.exe")
Case $nMsg = $Wordpad
Run("wordpad.exe")
Case $nmsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _Games()
$GUI = GUICreate(" ترفيــــــــه", 190, 235, -1, -1)
GUICtrlCreateGroup(" الألعاب", 10, 10, 170, 180)
$FreeCell = GUICtrlCreateButton("الخلية الحـــرة", 20, 30, 150)
$Hearts = GUICtrlCreateButton("الكوبة عبرالشبكــة", 20, 60, 150)
$Minesweeper = GUICtrlCreateButton("كانســـة الألغــــام", 20, 90, 150)
$Patience = GUICtrlCreateButton("سوليتيــــــــر", 20, 120, 150)
$Solitaire = GUICtrlCreateButton("العنكبـــــــوت", 20, 150, 150)
$ReturnMenu = GUICtrlCreateButton("رجوووع", 20, 200, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $FreeCell
Run("freecell.exe")
Case $nMsg = $Hearts
Run("mshearts.exe")
Case $nMsg = $Minesweeper
Run("winmine.exe")
Case $nMsg = $Patience
Run("sol.exe")
Case $nMsg = $Solitaire
Run("spider.exe")
Case $nmsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _WinManager()
$GUI = GUICreate(" إدارة المهام", 290, 240, -1, -1)
GUICtrlCreateGroup(" إدارة المهام", 10, 10, 270, 195)
GUICtrlCreateLabel(" برامج مفتوحــــة", 20, 30)
$WindowList = GUICtrlCreateCombo("حدد البرنامج", 20, 50, 250, 20, $CBS_DROPDOWNLIST)
$Activate = GUICtrlCreateButton("إحضار إلى الأمام", 20, 80, 120)
$Close = GUICtrlCreateButton("إغلاق البرنامج", 150, 80, 120)
$Flash = GUICtrlCreateButton("تنشيطه في الشريط", 20, 110, 150)
$HowManyInput = GUICtrlCreateInput(1, 180, 113, 40, 20)
$HowMany = GUICtrlCreateUpDown($HowManyInput)
GUICtrlSetLimit($HowMany, 99, 0)
GUICtrlCreateLabel("الزمن بالثوان", 220, 116)
$GetProcess = GUICtrlCreateButton("البرنامج id قيمة ", 20, 140, 120)
$GetText = GUICtrlCreateButton("معلومات النافذة المفتوحة", 150, 140, 120)
$KillWindow = GUICtrlCreateButton("اخفاء و اضهار السطح", 20, 170, 120)
$Refresh = GUICtrlCreateButton("تحديث", 150, 170, 120)
$ReturnMenu = GUICtrlCreateButton("رجوووع", 70, 210, 150)
_Refresh()
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $Activate
WinActivate(GUICtrlRead($WindowList))
Case $nMsg = $Close
WinClose(GUICtrlRead($WindowList))
Case $nMsg = $Flash
WinFlash(GUICtrlRead($WindowList), "" , GUICtrlRead($HowManyInput))
Case $nMsg = $GetProcess
$Get = WinGetProcess(GUICtrlRead($WindowList))
MsgBox(0, Default, "Process ID: " & $Get)
Case $nMsg = $GetText
$Get = WinGetText(GUICtrlRead($WindowList))
MsgBox(0, Default, "Text found:" & @CRLF & $Get)
Case $nMsg = $KillWindow
WinKill(GUICtrlRead($WindowList))
Case $nMsg = $Refresh
_Refresh()
Case $nMsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _Password()
$GUI = GUICreate(" وضع كلمة مرور لاداتك", 270, 110, -1, -1)
GUICtrlCreateLabel("الرقم السري =====", 10, 10)
GUICtrlCreateLabel("تشفيــــــره =======", 10, 31)
GUICtrlCreateLabel("", 10, 52)
$Password = GUICtrlCreateInput("", 110, 7, 150, 20, $ES_PASSWORD)
$EncryptPassword = GUICtrlCreateInput("", 110, 28, 150, 20, $ES_PASSWORD)
$EncryptLevel = GUICtrlCreateInput(1, 110, 49, 40, 20)
$UpDown = GUICtrlCreateUpDown($EncryptLevel)
GUICtrlSetLimit($UpDown, 10, 1)
$CreatePassword = GUICtrlCreateButton("الموافقـــة", 60, 75, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
GUIDelete($GUI)
_Menu()
Case $nMsg = $CreatePassword
$Read_Password = GUICtrlRead($Password)
$Read_EncryptPassword = GUICtrlRead($EncryptPassword)
$Read_Level = GUICtrlRead($EncryptLevel)
$Encrypted_Pass = _StringEncrypt(1, $Read_Password, $Read_EncryptPassword, $Read_Level)
IniWrite("C:\temp\$~settings.ini", "Password", "Pass", $Encrypted_Pass)
IniWrite("C:\temp\$~settings.ini", "Password", "EncPass", $Read_EncryptPassword)
IniWrite("C:\temp\$~settings.ini", "Password", "EncLevel", $Read_Level)
GUIDelete($GUI)
MsgBox(64, " *السلام عليكم", "0 كلمة المرور تم اعتمادها في حالة عدم الاختيار فهي.")
Exit
EndSelect
WEnd
EndFunc
Func _Customizing()
EndFunc
Func _Homepage()
ShellExecute("http://ams4arab.arabstar.biz/")
EndFunc
; # START - FUNCTIONS #
Func _Check()
If FileExists("C:\temp\$~settings.ini") And IniRead("C:\temp\$~settings.ini", "Password", "Pass", "Not Found") <> "Not Found" Then
$GetPassword = InputBox(" رقم المــــرور", " من فضلك أكتب الرقم الصحيح", "", "*", 200, 130)
$Read_Pass = IniRead("C:\temp\$~settings.ini", "Password", "Pass", "Not Found")
$Read_EncPass = IniRead("C:\temp\$~settings.ini", "Password", "EncPass", "Not Found")
$Read_EncLevel = IniRead("C:\temp\$~settings.ini", "Password", "EncLevel", "Not Found")
If _StringEncrypt(0, $Read_Pass, $Read_EncPass, $Read_EncLevel) == $GetPassword Then
MsgBox(64, " مرحبــا", " كلمة المرور صحيحة")
Else
MsgBox(16, "خطــأ", " !! لا يمكنك المرور ")
Exit
EndIf
EndIf
EndFunc
Func _Refresh()
$List = WinList()
For $i = 1 To $List[0][0]
If $List[$i][0] <> "" And IsVisible($List[$i][1]) Then
GUICtrlSetData($WindowList, $List[$i][0])
EndIf
Next
EndFunc
Func IsVisible($Handle)
If BitAnd(WinGetState($Handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc
Func _GetColor()
$pos = MouseGetPos()
$GetColor = PixelGetColor($pos[0], $pos[1])
$Hex = "0x" & Hex($GetColor, 6)
GUICtrlSetData($PixelColor, $Hex)
EndFunc
Func _GetMousePos()
$pos = MouseGetPos()
GUICtrlSetData($xPos, $pos[0])
GUICtrlSetData($yPos, $pos[1])
EndFunc
Func _GetLang($Param1)
Select
Case StringInStr("0413,0813", $Param1)
Return "Dutch"
Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,2409,2809, 2c09,3009,3409", $Param1)
Return "English"
Case StringInStr("040c,080c,0c0c,100c,140c,180c", $Param1)
Return "French"
Case StringInStr("0407,0807,0c07,1007,1407", $Param1)
Return "German"
Case StringInStr("0410,0810", $Param1)
Return "Italian"
Case StringInStr("0414,0814", $Param1)
Return "Norwegian"
Case StringInStr("0415", $Param1)
Return "Polish"
Case StringInStr("0416,0816", $Param1)
Return "Portuguese"
Case StringInStr("040a,080a,0c0a,100a,140a,180a,1c0a,200a,240a,280a, 2c0a,300a,340a,380a,3c0a,400a,440a,480a,4c0a,500a", $Param1)
Return "Spanish"
Case StringInStr("041d,081d", $Param1)
Return "Swedish"
Case Else
Return "Other"
EndSelect
EndFunc
Func _GetKBLayout($Param1)
Select
Case StringInStr("0436", $Param1)
Return "Afrikaans"
Case StringInStr("041c", $Param1)
Return "Albanian"
Case StringInStr("0401,0801,0c01,1001,1401,1801,1c01,3001,3401,3801, 3c01,4001", $Param1)
Return "Arabic"
Case StringInStr("042b", $Param1)
Return "Armenian"
Case StringInStr("042c,082c", $Param1)
Return "Azeri"
Case StringInStr("042d", $Param1)
Return "Basque"
Case StringInStr("0423", $Param1)
Return "Belarusian"
Case StringInStr("0402", $Param1)
Return "Bulgarian"
Case StringInStr("0403", $Param1)
Return "Catalan"
Case StringInStr("0404,0804,0c04,1004,1404", $Param1)
Return "Chinese"
Case StringInStr("041a", $Param1)
Return "Croatian"
Case StringInStr("0405", $Param1)
Return "Czech"
Case StringInStr("0406", $Param1)
Return "Danish"
Case StringInStr("0413,0813", $Param1)
Return "Dutch"
Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,2409,2809, 2c09,3009,3409", $Param1)
Return "English"
Case StringInStr("0425", $Param1)
Return "Estonian"
Case StringInStr("0438", $Param1)
Return "Faeroese"
Case StringInStr("0429", $Param1)
Return "Farsi"
Case StringInStr("040b", $Param1)
Return "Finnish"
Case StringInStr("040c,080c,0c0c,100c,140c,180c", $Param1)
Return "French"
Case StringInStr("0437", $Param1)
Return "Georgian"
Case StringInStr("0407,0807,0c07,1007,1407", $Param1)
Return "German"
Case StringInStr("408", $Param1)
Return "Greek"
Case StringInStr("040d", $Param1)
Return "Hebrew"
Case StringInStr("0439", $Param1)
Return "Hindi"
Case StringInStr("040e", $Param1)
Return "Hungarian"
Case StringInStr("040f", $Param1)
Return "Icelandic"
Case StringInStr("0421", $Param1)
Return "Indonesian"
Case StringInStr("0410,0810", $Param1)
Return "Italian"
Case StringInStr("0411", $Param1)
Return "Japanese"
Case StringInStr("034f", $Param1)
Return "Kazakh"
Case StringInStr("0412", $Param1)
Return "Konkani"
Case StringInStr("0412", $Param1)
Return "Korean"
Case StringInStr("0426", $Param1)
Return "Latvian"
Case StringInStr("0427", $Param1)
Return "Lithuanian"
Case StringInStr("042f", $Param1)
Return "Macedonian"
Case StringInStr("043e,083e", $Param1)
Return "Malay"
Case StringInStr("044e", $Param1)
Return "Marathi"
Case StringInStr("0414,0814", $Param1)
Return "Norwegian"
Case StringInStr("0415", $Param1)
Return "Polish"
Case StringInStr("0416,0816", $Param1)
Return "Portuguese"
Case StringInStr("0418", $Param1)
Return "Romanian"
Case StringInStr("0419", $Param1)
Return "Russian"
Case StringInStr("044f", $Param1)
Return "Sanskrit"
Case StringInStr("081a,0c1a", $Param1)
Return "Serbian"
Case StringInStr("041b", $Param1)
Return "Slovak"
Case StringInStr("0424", $Param1)
Return "Slovenian"
Case StringInStr("040a,080a,0c0a,100a,140a,180a,1c0a,200a,240a,280a, 2c0a,300a,340a,380a,3c0a,400a,440a,480a,4c0a,500a", $Param1)
Return "Spanish"
Case StringInStr("0441", $Param1)
Return "Swahili"
Case StringInStr("041d,081d", $Param1)
Return "Swedish"
Case StringInStr("0449", $Param1)
Return "Tamil"
Case StringInStr("0444", $Param1)
Return "Tatar"
Case StringInStr("041e", $Param1)
Return "Thai"
Case StringInStr("041f", $Param1)
Return "Turkish"
Case StringInStr("0422", $Param1)
Return "Ukrainian"
Case StringInStr("0420", $Param1)
Return "Urdu"
Case StringInStr("0443,0843", $Param1)
Return "Uzbek"
Case StringInStr("042a", $Param1)
Return "Vietnamese"
Case Else
Return "Other"
EndSelect
EndFunc
; # END - FUNCTIONS #
السلام عليكم
اصنع اداتك بميزات عدة و استغل تنوع استعمال الأكواد لتكن مدخلا لك للتعامل مع هذه اللغة الجميلة
#include <Inet.au3>
#include <String.au3>
Global Const $BS_ICON = 0x0040
Global Const $BS_PUSHLIKE = 0x1000
Global Const $ES_READONLY = 2048
Global Const $CD_VOLUME = DriveGetLabel("C:\")
Global Const $CD_SERIAL = DriveGetSerial("C:\")
Global Const $CD_TOTALSPACE = DriveSpaceTotal("C:\")
Global Const $CD_FREESPACE = DriveSpaceFree("C:\")
Global Const $CD_SYSTEMTYPE = DriveGetFileSystem("C:\")
Global Const $CD_STATUS = DriveStatus("C:\")
Global Const $GUI_FOCUS = 256
Global Const $CBS_DROPDOWNLIST = 0x0003
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Global Const $ES_PASSWORD = 32
Global $aHButtons[10], $IniRead[10]
Global $WindowList, $Password, $PixelColor, $xPos, $yPos
If Not FileExists("C:\temp") Then DirCreate("C:\temp")
_Check()
_Menu()
Func _Menu()
$MainGUI = GUICreate(" الفهـــرس", 170, 315, -1, -1)
$ApplicationLauncher = GUICtrlCreateButton("البرامج المفضلة", 10, 10, 150)
$ComputerInformation = GUICtrlCreateButton("معلومات جهاز الكومبيوتر", 10, 40, 150)
$MouseInformation = GUICtrlCreateButton("تحديد اللون و موقع ا لماوس", 10, 70, 150)
$Hexing = GUICtrlCreateButton("الهكس", 10, 100, 150)
$ComputerPrograms = GUICtrlCreateButton("برامج مكتبية", 10, 130, 150)
$Games = GUICtrlCreateButton("ألعاب الكومبيوتر", 10, 160, 150)
$WindowManager = GUICtrlCreateButton("إدارة المهام", 10, 190, 150)
$SetPassword = GUICtrlCreateButton("اضافة رقم مرور للأداة", 10, 220, 150)
$Customizing = GUICtrlCreateButton("إغـــلاق", 10, 250, 150)
$Homepage = GUICtrlCreateButton("تجدني هناااا", 10, 280, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $ApplicationLauncher
GUIDelete($MainGUI)
_AppLauncher()
Case $nMsg = $ComputerInformation
GUIDelete($MainGUI)
_ComInfo()
Case $nMsg = $MouseInformation
GUIDelete($MainGUI)
_MouseInfo()
Case $nMsg = $Hexing
GUIDelete($MainGUI)
_Hexing()
Case $nMsg = $ComputerPrograms
GUIDelete($MainGUI)
_ComputerProgs()
Case $nMsg = $Games
GUIDelete($MainGUI)
_Games()
Case $nMsg = $WindowManager
GUIDelete($MainGUI)
_WinManager()
Case $nMsg = $SetPassword
GUIDelete($MainGUI)
_Password()
Case $nMsg = $Customizing
GUIDelete($MainGUI)
_Customizing()
Case $nMsg = $Homepage
_Homepage()
EndSelect
WEnd
EndFunc
Func _AppLauncher()
$GUI = GUICreate("برامجي", 140, 355, -1, -1)
GUICtrlCreateGroup("اختر برامجك المفضلة", 10, 10, 110, 270)
$ClearData = GUICtrlCreateButton("مسح كل البيــانات", 10, 290, 110)
$ReturnMenu = GUICtrlCreateButton("رجووووع", 10, 320, 110)
Local $left = 20, $top = 30
For $i = 0 To UBound($aHButtons) - 1
$aHButtons[$i] = GUICtrlCreateButton("", $left, $top, 40, 40, $BS_ICON + $BS_PUSHLIKE)
$top += 50
If $i == 4 Then
$left = 70
$top = 30
EndIf
Next
If FileExists("C:\temp\$~settings.ini") Then
For $i = 0 To UBound($aHButtons) - 1
$IniRead[$i] = IniRead("C:\temp\$~settings.ini", "AppLauncher", "Button" & $i, "Not Found")
If $IniRead[$i] <> "Not Found" Then GUICtrlSetImage($aHButtons[$i], $IniRead[$i], 1)
Next
EndIf
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $aHButtons[0] To $aHButtons[UBound($aHButtons) - 1]
For $i = 0 To UBound($aHButtons) - 1
If $aHButtons[$i] == $nMsg Then
$IniRead[$i] = IniRead("C:\temp\$~settings.ini", "AppLauncher", "Button" & $i, "Not Found")
If FileExists("C:\temp\$~settings.ini") And $IniRead[$i] <> "Not Found" Then
ShellExecute($IniRead[$i])
Else
$fod_Button = FileOpenDialog("Select a file", @DesktopDir, "Executeable's (*.exe)", 3, "", $GUI)
If Not @error Then
IniWrite("C:\temp\$~settings.ini", "AppLauncher", "Button" & $i, $fod_Button)
GUICtrlSetImage($aHButtons[$i], $fod_Button, 1)
EndIf
EndIf
EndIf
Next
Case $ClearData
If FileExists("C:\temp\$~settings.ini") Then
FileDelete("C:\temp\$~settings.ini")
Else
MsgBox(16, "خطأ", "تم بالفعل مسح البيانات")
EndIf
Case $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSwitch
WEnd
EndFunc
Func _ComInfo()
$GUI = GUICreate("جهاز الكومبيوتر", 240, 585, -1, -1)
GUICtrlCreateGroup("معلومات تخص جهاز الكومبيوتر", 10, 10, 220, 530)
GUICtrlCreateInput("Computer Name: " & @ComputerName, 20, 30, 200, 20, $ES_READONLY)
GUICtrlCreateInput("Username: " & @UserName, 20, 60, 200, 20, $ES_READONLY)
GUICtrlCreateInput("OS Type: " & @OSTYPE, 20, 90, 200, 20, $ES_READONLY)
GUICtrlCreateInput("OS Service Pack: " & @OSServicePack, 20, 120, 200, 20, $ES_READONLY)
GUICtrlCreateInput("Language: " & _GetLang(@OSLang) & " (" & @OSLang & ")", 20, 150, 200, 20, $ES_READONLY)
GUICtrlCreateInput("OS Version: " & @OSVersion, 20, 180, 200, 20, $ES_READONLY)
GUICtrlCreateInput("OS Build Number: " & @OSBuild, 20, 210, 200, 20, $ES_READONLY)
GUICtrlCreateInput("Processor Arch: " & @ProcessorArch, 20, 240, 200, 20, $ES_READONLY)
GUICtrlCreateInput("Keyboard Layout: " & _GetKBLayout(@KBLayout) & " (" & @KBLayout & ")", 20, 270, 200, 20, $ES_READONLY)
GUICtrlCreateInput("LAN IP: " & @IPAddress1, 20, 300, 200, 20, $ES_READONLY)
GUICtrlCreateInput("DNS IP: " & _GetIP(), 20, 330, 200, 20, $ES_READONLY)
GUICtrlCreateInput("C:\ Volume Label: " & $CD_VOLUME, 20, 360, 200, 20, $ES_READONLY)
GUICtrlCreateInput("C:\ Serial: " & $CD_SERIAL, 20, 390, 200, 20, $ES_READONLY)
$Round_TOTALSPACE = Round($CD_TOTALSPACE / 1000, 1)
GUICtrlCreateInput("C:\ Total Space: " & $Round_TOTALSPACE & " GB", 20, 420, 200, 20, $ES_READONLY)
$Round_FREESPACE = Round($CD_FREESPACE / 1000, 1)
GUICtrlCreateInput("C:\ Free Space: " & $Round_FREESPACE & " GB", 20, 450, 200, 20, $ES_READONLY)
GUICtrlCreateInput("C:\ System Type: " & $CD_SYSTEMTYPE, 20, 480, 200, 20, $ES_READONLY)
GUICtrlCreateInput("C:\ Status: " & $CD_STATUS, 20, 510, 200, 20, $ES_READONLY)
$ReturnMenu = GUICtrlCreateButton("رجووووع", 45, 550, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _MouseInfo()
HotKeySet("{F9}", "_GetColor")
HotKeySet("{F10}", "_GetMousePos")
$GUI = GUICreate("حسب موقع الفأرة", 240, 200, -1, -1)
GUICtrlCreateGroup("يمكنك معرفة", 10, 10, 220, 150)
GUICtrlCreateInput("Mouse Cursor: " & MouseGetCursor(), 20, 30, 200, 20, $ES_READONLY)
GUICtrlCreateLabel(" F9 أشر على لون بالماوس و اضغط على", 20, 60)
$PixelColor = GUICtrlCreateInput("", 20, 80, 200, 20, $ES_READONLY)
GUICtrlCreateLabel("F10 لمعرفة احداثيات الماوس اضغط على", 20, 110)
GUICtrlCreateLabel("x", 20, 132)
$xPos = GUICtrlCreateInput("", 30, 130, 30, 20, $ES_READONLY)
GUICtrlCreateLabel("y", 70, 132)
$yPos = GUICtrlCreateInput("", 80, 130, 30, 20, $ES_READONLY)
$ReturnMenu = GUICtrlCreateButton("رجوووع", 45, 167, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $ReturnMenu
HotKeySet("{F9}")
HotKeySet("{F10}")
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _Hexing()
$GUI = GUICreate("Hexing~", 420, 290, -1, -1)
$StringToHexLabel = GUICtrlCreateLabel("= الهكس = ", 10, 2, 120, 50)
$StringInput = GUICtrlCreateInput("", 10, 50, 400, 20)
$CalcStringToHexButton = GUICtrlCreateButton("حســــــاب", 10, 79)
$HexedStringInput = GUICtrlCreateInput("", 10, 115, 400, 20, $ES_READONLY)
$CopyHexedString = GUICtrlCreateButton("نــسخ", 70, 79)
$ShowHexedString = GUICtrlCreateButton("إضهار", 107, 79)
$ClearHexed = GUICtrlCreateButton("مــسح", 147, 79)
$HexToStringLabel = GUICtrlCreateLabel("= الهكس =", 10, 150, 150, 50)
$HexInput = GUICtrlCreateInput("", 10, 190, 400, 20)
$CalcHexToStringButton = GUICtrlCreateButton("حســــــاب", 10, 220)
$StringFromHexInput = GUICtrlCreateInput("", 10, 259, 400, 20, $ES_READONLY)
$CopyStringFromHex = GUICtrlCreateButton("نــسخ", 70, 220)
$ShowStringFromHex = GUICtrlCreateButton("إضهار", 107, 220)
$ClearString = GUICtrlCreateButton("مــسح", 147, 220)
GUICtrlSetFont($StringToHexLabel, 20, "", "", "Impact")
GUICtrlSetFont($HexToStringLabel, 20, "", "", "Impact")
$ReturnMenu = GUICtrlCreateButton("رجوووع", 260, 10, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $CalcStringToHexButton
$Read_String = GUICtrlRead($StringInput)
$HEX = _StringToHex($Read_String)
GUICtrlSetData($HexedStringInput, $HEX)
Case $nMsg = $CalcHexToStringButton
$Read_Hex = GUICtrlRead($HexInput)
$STRING = _HexToString($Read_Hex)
GUICtrlSetData($StringFromHexInput, $STRING)
Case $nMsg = $CopyHexedString
$Read_Hexed_String = GUICtrlRead($HexedStringInput)
ClipPut($Read_Hexed_String)
Case $nMsg = $CopyStringFromHex
$Read_String_From_Hex = GUICtrlRead($StringFromHexInput)
ClipPut($Read_String_From_Hex)
Case $nMsg = $ShowHexedString
$Read_Hexed_String_2 = GUICtrlRead($HexedStringInput)
MsgBox(64, " الناتــج", $Read_Hexed_String_2)
Case $nMsg = $ShowStringFromHex
$Read_String_From_Hex_2 = GUICtrlRead($StringFromHexInput)
MsgBox(64, " النـــاتج", $Read_String_From_Hex_2)
Case $nMsg = $ClearHexed
GUICtrlSetData($StringInput, "")
GUICtrlSetState($StringInput, $GUI_FOCUS)
Case $nMsg = $ClearString
GUICtrlSetData($HexInput, "")
GUICtrlSetState($HexInput, $GUI_FOCUS)
Case $nMsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _ComputerProgs()
$GUI = GUICreate(" برامج مكتبية", 190, 235, -1, -1)
GUICtrlCreateGroup(" يمكنك الوصول إلى ", 10, 10, 170, 180)
$Calculator = GUICtrlCreateButton("الحاسبــــــة", 20, 30, 150)
$Paint = GUICtrlCreateButton("الرســـــــام", 20, 60, 150)
$Notepad = GUICtrlCreateButton("المفكـــــرة", 20, 90, 150)
$CommandPrompt = GUICtrlCreateButton("موجــــــة الأوامر", 20, 120, 150)
$Wordpad = GUICtrlCreateButton("الوارد باد", 20, 150, 150)
$ReturnMenu = GUICtrlCreateButton("رجوووع", 20, 200, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $Calculator
Run("calc.exe")
Case $nMsg = $Paint
Run("mspaint.exe")
Case $nMsg = $Notepad
Run("notepad.exe")
Case $nMsg = $CommandPrompt
Run("cmd.exe")
Case $nMsg = $Wordpad
Run("wordpad.exe")
Case $nmsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _Games()
$GUI = GUICreate(" ترفيــــــــه", 190, 235, -1, -1)
GUICtrlCreateGroup(" الألعاب", 10, 10, 170, 180)
$FreeCell = GUICtrlCreateButton("الخلية الحـــرة", 20, 30, 150)
$Hearts = GUICtrlCreateButton("الكوبة عبرالشبكــة", 20, 60, 150)
$Minesweeper = GUICtrlCreateButton("كانســـة الألغــــام", 20, 90, 150)
$Patience = GUICtrlCreateButton("سوليتيــــــــر", 20, 120, 150)
$Solitaire = GUICtrlCreateButton("العنكبـــــــوت", 20, 150, 150)
$ReturnMenu = GUICtrlCreateButton("رجوووع", 20, 200, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $FreeCell
Run("freecell.exe")
Case $nMsg = $Hearts
Run("mshearts.exe")
Case $nMsg = $Minesweeper
Run("winmine.exe")
Case $nMsg = $Patience
Run("sol.exe")
Case $nMsg = $Solitaire
Run("spider.exe")
Case $nmsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _WinManager()
$GUI = GUICreate(" إدارة المهام", 290, 240, -1, -1)
GUICtrlCreateGroup(" إدارة المهام", 10, 10, 270, 195)
GUICtrlCreateLabel(" برامج مفتوحــــة", 20, 30)
$WindowList = GUICtrlCreateCombo("حدد البرنامج", 20, 50, 250, 20, $CBS_DROPDOWNLIST)
$Activate = GUICtrlCreateButton("إحضار إلى الأمام", 20, 80, 120)
$Close = GUICtrlCreateButton("إغلاق البرنامج", 150, 80, 120)
$Flash = GUICtrlCreateButton("تنشيطه في الشريط", 20, 110, 150)
$HowManyInput = GUICtrlCreateInput(1, 180, 113, 40, 20)
$HowMany = GUICtrlCreateUpDown($HowManyInput)
GUICtrlSetLimit($HowMany, 99, 0)
GUICtrlCreateLabel("الزمن بالثوان", 220, 116)
$GetProcess = GUICtrlCreateButton("البرنامج id قيمة ", 20, 140, 120)
$GetText = GUICtrlCreateButton("معلومات النافذة المفتوحة", 150, 140, 120)
$KillWindow = GUICtrlCreateButton("اخفاء و اضهار السطح", 20, 170, 120)
$Refresh = GUICtrlCreateButton("تحديث", 150, 170, 120)
$ReturnMenu = GUICtrlCreateButton("رجوووع", 70, 210, 150)
_Refresh()
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = $Activate
WinActivate(GUICtrlRead($WindowList))
Case $nMsg = $Close
WinClose(GUICtrlRead($WindowList))
Case $nMsg = $Flash
WinFlash(GUICtrlRead($WindowList), "" , GUICtrlRead($HowManyInput))
Case $nMsg = $GetProcess
$Get = WinGetProcess(GUICtrlRead($WindowList))
MsgBox(0, Default, "Process ID: " & $Get)
Case $nMsg = $GetText
$Get = WinGetText(GUICtrlRead($WindowList))
MsgBox(0, Default, "Text found:" & @CRLF & $Get)
Case $nMsg = $KillWindow
WinKill(GUICtrlRead($WindowList))
Case $nMsg = $Refresh
_Refresh()
Case $nMsg = $ReturnMenu
GUIDelete($GUI)
_Menu()
EndSelect
WEnd
EndFunc
Func _Password()
$GUI = GUICreate(" وضع كلمة مرور لاداتك", 270, 110, -1, -1)
GUICtrlCreateLabel("الرقم السري =====", 10, 10)
GUICtrlCreateLabel("تشفيــــــره =======", 10, 31)
GUICtrlCreateLabel("", 10, 52)
$Password = GUICtrlCreateInput("", 110, 7, 150, 20, $ES_PASSWORD)
$EncryptPassword = GUICtrlCreateInput("", 110, 28, 150, 20, $ES_PASSWORD)
$EncryptLevel = GUICtrlCreateInput(1, 110, 49, 40, 20)
$UpDown = GUICtrlCreateUpDown($EncryptLevel)
GUICtrlSetLimit($UpDown, 10, 1)
$CreatePassword = GUICtrlCreateButton("الموافقـــة", 60, 75, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
GUIDelete($GUI)
_Menu()
Case $nMsg = $CreatePassword
$Read_Password = GUICtrlRead($Password)
$Read_EncryptPassword = GUICtrlRead($EncryptPassword)
$Read_Level = GUICtrlRead($EncryptLevel)
$Encrypted_Pass = _StringEncrypt(1, $Read_Password, $Read_EncryptPassword, $Read_Level)
IniWrite("C:\temp\$~settings.ini", "Password", "Pass", $Encrypted_Pass)
IniWrite("C:\temp\$~settings.ini", "Password", "EncPass", $Read_EncryptPassword)
IniWrite("C:\temp\$~settings.ini", "Password", "EncLevel", $Read_Level)
GUIDelete($GUI)
MsgBox(64, " *السلام عليكم", "0 كلمة المرور تم اعتمادها في حالة عدم الاختيار فهي.")
Exit
EndSelect
WEnd
EndFunc
Func _Customizing()
EndFunc
Func _Homepage()
ShellExecute("http://ams4arab.arabstar.biz/")
EndFunc
; # START - FUNCTIONS #
Func _Check()
If FileExists("C:\temp\$~settings.ini") And IniRead("C:\temp\$~settings.ini", "Password", "Pass", "Not Found") <> "Not Found" Then
$GetPassword = InputBox(" رقم المــــرور", " من فضلك أكتب الرقم الصحيح", "", "*", 200, 130)
$Read_Pass = IniRead("C:\temp\$~settings.ini", "Password", "Pass", "Not Found")
$Read_EncPass = IniRead("C:\temp\$~settings.ini", "Password", "EncPass", "Not Found")
$Read_EncLevel = IniRead("C:\temp\$~settings.ini", "Password", "EncLevel", "Not Found")
If _StringEncrypt(0, $Read_Pass, $Read_EncPass, $Read_EncLevel) == $GetPassword Then
MsgBox(64, " مرحبــا", " كلمة المرور صحيحة")
Else
MsgBox(16, "خطــأ", " !! لا يمكنك المرور ")
Exit
EndIf
EndIf
EndFunc
Func _Refresh()
$List = WinList()
For $i = 1 To $List[0][0]
If $List[$i][0] <> "" And IsVisible($List[$i][1]) Then
GUICtrlSetData($WindowList, $List[$i][0])
EndIf
Next
EndFunc
Func IsVisible($Handle)
If BitAnd(WinGetState($Handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc
Func _GetColor()
$pos = MouseGetPos()
$GetColor = PixelGetColor($pos[0], $pos[1])
$Hex = "0x" & Hex($GetColor, 6)
GUICtrlSetData($PixelColor, $Hex)
EndFunc
Func _GetMousePos()
$pos = MouseGetPos()
GUICtrlSetData($xPos, $pos[0])
GUICtrlSetData($yPos, $pos[1])
EndFunc
Func _GetLang($Param1)
Select
Case StringInStr("0413,0813", $Param1)
Return "Dutch"
Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,2409,2809, 2c09,3009,3409", $Param1)
Return "English"
Case StringInStr("040c,080c,0c0c,100c,140c,180c", $Param1)
Return "French"
Case StringInStr("0407,0807,0c07,1007,1407", $Param1)
Return "German"
Case StringInStr("0410,0810", $Param1)
Return "Italian"
Case StringInStr("0414,0814", $Param1)
Return "Norwegian"
Case StringInStr("0415", $Param1)
Return "Polish"
Case StringInStr("0416,0816", $Param1)
Return "Portuguese"
Case StringInStr("040a,080a,0c0a,100a,140a,180a,1c0a,200a,240a,280a, 2c0a,300a,340a,380a,3c0a,400a,440a,480a,4c0a,500a", $Param1)
Return "Spanish"
Case StringInStr("041d,081d", $Param1)
Return "Swedish"
Case Else
Return "Other"
EndSelect
EndFunc
Func _GetKBLayout($Param1)
Select
Case StringInStr("0436", $Param1)
Return "Afrikaans"
Case StringInStr("041c", $Param1)
Return "Albanian"
Case StringInStr("0401,0801,0c01,1001,1401,1801,1c01,3001,3401,3801, 3c01,4001", $Param1)
Return "Arabic"
Case StringInStr("042b", $Param1)
Return "Armenian"
Case StringInStr("042c,082c", $Param1)
Return "Azeri"
Case StringInStr("042d", $Param1)
Return "Basque"
Case StringInStr("0423", $Param1)
Return "Belarusian"
Case StringInStr("0402", $Param1)
Return "Bulgarian"
Case StringInStr("0403", $Param1)
Return "Catalan"
Case StringInStr("0404,0804,0c04,1004,1404", $Param1)
Return "Chinese"
Case StringInStr("041a", $Param1)
Return "Croatian"
Case StringInStr("0405", $Param1)
Return "Czech"
Case StringInStr("0406", $Param1)
Return "Danish"
Case StringInStr("0413,0813", $Param1)
Return "Dutch"
Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,2409,2809, 2c09,3009,3409", $Param1)
Return "English"
Case StringInStr("0425", $Param1)
Return "Estonian"
Case StringInStr("0438", $Param1)
Return "Faeroese"
Case StringInStr("0429", $Param1)
Return "Farsi"
Case StringInStr("040b", $Param1)
Return "Finnish"
Case StringInStr("040c,080c,0c0c,100c,140c,180c", $Param1)
Return "French"
Case StringInStr("0437", $Param1)
Return "Georgian"
Case StringInStr("0407,0807,0c07,1007,1407", $Param1)
Return "German"
Case StringInStr("408", $Param1)
Return "Greek"
Case StringInStr("040d", $Param1)
Return "Hebrew"
Case StringInStr("0439", $Param1)
Return "Hindi"
Case StringInStr("040e", $Param1)
Return "Hungarian"
Case StringInStr("040f", $Param1)
Return "Icelandic"
Case StringInStr("0421", $Param1)
Return "Indonesian"
Case StringInStr("0410,0810", $Param1)
Return "Italian"
Case StringInStr("0411", $Param1)
Return "Japanese"
Case StringInStr("034f", $Param1)
Return "Kazakh"
Case StringInStr("0412", $Param1)
Return "Konkani"
Case StringInStr("0412", $Param1)
Return "Korean"
Case StringInStr("0426", $Param1)
Return "Latvian"
Case StringInStr("0427", $Param1)
Return "Lithuanian"
Case StringInStr("042f", $Param1)
Return "Macedonian"
Case StringInStr("043e,083e", $Param1)
Return "Malay"
Case StringInStr("044e", $Param1)
Return "Marathi"
Case StringInStr("0414,0814", $Param1)
Return "Norwegian"
Case StringInStr("0415", $Param1)
Return "Polish"
Case StringInStr("0416,0816", $Param1)
Return "Portuguese"
Case StringInStr("0418", $Param1)
Return "Romanian"
Case StringInStr("0419", $Param1)
Return "Russian"
Case StringInStr("044f", $Param1)
Return "Sanskrit"
Case StringInStr("081a,0c1a", $Param1)
Return "Serbian"
Case StringInStr("041b", $Param1)
Return "Slovak"
Case StringInStr("0424", $Param1)
Return "Slovenian"
Case StringInStr("040a,080a,0c0a,100a,140a,180a,1c0a,200a,240a,280a, 2c0a,300a,340a,380a,3c0a,400a,440a,480a,4c0a,500a", $Param1)
Return "Spanish"
Case StringInStr("0441", $Param1)
Return "Swahili"
Case StringInStr("041d,081d", $Param1)
Return "Swedish"
Case StringInStr("0449", $Param1)
Return "Tamil"
Case StringInStr("0444", $Param1)
Return "Tatar"
Case StringInStr("041e", $Param1)
Return "Thai"
Case StringInStr("041f", $Param1)
Return "Turkish"
Case StringInStr("0422", $Param1)
Return "Ukrainian"
Case StringInStr("0420", $Param1)
Return "Urdu"
Case StringInStr("0443,0843", $Param1)
Return "Uzbek"
Case StringInStr("042a", $Param1)
Return "Vietnamese"
Case Else
Return "Other"
EndSelect
EndFunc
; # END - FUNCTIONS #