; #FUNCTION# ====================================================================================================================
; Name...........: SimulKey
; Description ...: Simulate a Key-Send to a specified handle in the Background
; Author ........: Felix Lehmann
; Modified.......: If you modify this Script, please enter your name here
; Remarks .......: -
; Related .......: -
; Parameters ....: $hwnd = Specified Window to Send to
; ...............: $key = Key or String to Send (If String $string have to be enabled [see $string])
; ...............: $string = Set this to 1 If your "$key" is a string
; ...............: $state = Set this to 'up' or 'down' if u want a special event | Default is press the Key 1 Time
; ...............: $delay = The delay to hold the key down
; Return Values .: 1 = Done | -1 = Couldn't load user32.dll
; Link ..........; -
; ===============================================================================================================================

#include <SendMessage.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>

;https://www.autoitscript.com/forum/topic/188171-searching-for-working-imagesearch-and-i-cant-handle-a-d3dwindow/
;https://msdn.microsoft.com/en-us/library/dd375731(v=VS.85).aspx virtualkeylist
;https://github.com/xLinkOut/telegram-udf-autoit
;https://www.autoitscript.com/forum/files/file/365-metrogui-udf/
;https://www.autoitscript.com/forum/topic/179608-autoitc-compile-autoit-to-c/
;https://www.autoitscript.com/forum/files/file/437-teamviewerau3-udf/
;http://www.elitepvpers.com/forum/autoit/4128349-how-know-how-many-users-using-my-program.html
;http://www.elitepvpers.com/forum/autoit/4052952-ini-write-read-display-data.html
;https://www.autoitscript.com/autoit3/docs/functions/AdlibRegister.htm
;http://www.mpgh.net/forum/showthread.php?t=528572   d3dw hack
;http://www.elitepvpers.com/forum/autoit/3944271-autoit-cheat-engine.html

Func KeySend($hWnd,$Virtual_Key_Code)
if Not IsHWnd($hWnd) Then _
$hWnd = GUICtrlGetHandle($hWnd)
_SendMessage($hWnd,$WM_KEYDOWN,$Virtual_Key_Code,0)
_SendMessage($hWnd,$WM_KEYUP,$Virtual_Key_Code,0)
EndFunc

Func TextSend($hWnd,$Text)
if Not IsHWnd($hWnd) Then _
$hWnd = GUICtrlGetHandle($hWnd)
For $i = 1 To StringLen($Text)
$Char = StringMid($Text,$i,1)
_SendMessage($hWnd,$WM_CHAR,AscW($Char),0)
Next
EndFunc



Func SimulKey($hWnd, $key, $string = 0, $state = 'skip', $delay = 10)
    ;//Open DLL (user32)
    $user32 = DllOpen('user32.dll')
    If $user32 = -1 Then
        SetError(-1, 1, -1)
    EndIf

    ;//Handle Special Keys
    Switch StringLower($key)
        Case 'enter'
            $WM_ENTER = 0x0d
            $dCall = DllCall($user32, 'int', "MapVirtualKey", 'int', $WM_ENTER, 'int', 0)
            $lParam = BitOR(BitShift($dCall[0], -16), 1)
        Case 'space'
            $WM_SPACE = 0x20
            $dCall = DllCall($user32, 'int', "MapVirtualKey", 'int', $WM_SPACE, 'int', 0)
            $lParam = BitOR(BitShift($dCall[0], -16), 1)
        Case 'tab'
            $WM_TAB = 0x09
            $dCall = DllCall($user32, 'int', "MapVirtualKey", 'int', $WM_TAB, 'int', 0)
            $lParam = BitOR(BitShift($dCall[0], -16), 1)
            ;//Handle Standard Keys
        Case Else
            ;//Stringmode 1
            If $string = 1 Then
                $split = StringSplit($key, "")
                For $ctn = 1 To $split[0]
                    $split[$ctn] = Asc(StringLower($split[$ctn]))
                Next
                For $ctn = 1 To $split[0]
                    $dCall = DllCall($user32, 'int', "VkKeyScan", 'int', $split[$ctn])
                    $lParamAsc = DllCall($user32, 'int', "MapVirtualKey", 'int', $dCall[0], 'int', 0)
                    $lParam = BitOR(BitShift($lParamAsc[0], -16), 1)
                    $lUpParam = BitOR($lParam, 0xC0000000)
                    DllCall($user32, 'int', "PostMessage", 'hwnd', $hWnd, 'int', $WM_KEYDOWN, 'int', $dCall[0], 'int', $lParam)
                    Sleep($delay)
                    DllCall($user32, 'int', "PostMessage", 'hwnd', $hWnd, 'int', $WM_KEYUP, 'int', $dCall[0], 'int', $lUpParam)
                    Sleep(10)
                Next
                ;//Stringmode 0
            ElseIf $string = 0 Then
                $key = Asc(StringLower($key))
                $dCall = DllCall($user32, 'int', "VkKeyScan", 'int', $key)
                $lParamAsc = DllCall($user32, 'int', "MapVirtualKey", 'int', $dCall[0], 'int', 0)
                $lParam = BitOR(BitShift($lParamAsc[0], -16), 1)
            EndIf
    EndSwitch
    $lUpParam = BitOR($lParam, 0xC0000000)
    If $string = 0 Then
        Switch StringLower($state)
            Case 'skip'
                DllCall($user32, 'int', "PostMessage", 'hwnd', $hWnd, 'int', $WM_KEYDOWN, 'int', $dCall[0], 'int', $lParam)
                Sleep($delay)
                DllCall($user32, 'int', "PostMessage", 'hwnd', $hWnd, 'int', $WM_KEYUP, 'int', $dCall[0], 'int', $lUpParam)
            Case 'down'
                DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", $dCall[0], "int", $lParam)
            Case 'up'
                DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", $dCall[0], "int", $lParam)
        EndSwitch
    EndIf
    DllClose($user32)
	 SetLog($key, $COLOR_ORANGE)
    Return 1
EndFunc   ;==>SimulKey