Beiträge von PenGuin

[autoit]

$IniPath = @ScriptDir & "\Quickchat.ini"

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Form1", 363, 436, 617, 213)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 345, 337)
GUICtrlSetFont(-1, 12)
$Button1 = GUICtrlCreateButton("Button1", 96, 368, 177, 57)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
_FillEdit($Edit1, $IniPath, "Quickchat")
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FillEdit($hWnd, $sPath, $sSection)
Local $sInput = ""
$aRead = IniReadSection($sPath, $sSection)
If @error Then SetError(1, 0, 0)
If IsArray($aRead) Then
For $i = 1 To Ubound($aRead) - 1
If Not ($i = UBound($aRead) -1) Then
$sInput &= ($aRead[$i][1]) & @CRLF
Else
$sInput &= ($aRead[$i][1])
EndIf
Next
GUICtrlSetData($hWnd, $sInput & @CRLF)
If @error Then SetError(2, 0, 0)
EndIf
Return 1
EndFunc

[/autoit]

[autoit][/autoit] [autoit][/autoit] [autoit]

Func _GetKeyName($iKey)
Local $aKey[116][2] = [ _
[0x01, "Linke Maustaste"],[0x02, "Rechte Maustaste"],[0x04, "Mittlere Maustaste"],[0x05, "X1 Maus-Taste"],[0x06, "X2 Maus-Taste"], _
[0x08, "Löschtaste rückwärts"],[0x09, "Tabulator-Taste"],[0x0C, "Entf-Taste"],[0x0D, "Enter/Return-Taste"],[0x10, "Shift/Umschalt-Taste"], _
[0x11, "Ctrl/Strg-Taste"],[0x12, "Alt-Taste"],[0x13, "Pause-Taste"],[0x14, "Feststelltaste"],[0x1B, "Esc-Taste"],[0x20, "Leertaste"],[0x21, "Bild-auf Taste"], _
[0x22, "Bild-ab Taste"],[0x23, "Ende-Taste"],[0x24, "Pos 1-Taste"],[0x25, "Pfeiltaste nach links"],[0x26, "Pfeiltaste nach oben"], _
[0x27, "Pfeiltaste nach rechts"],[0x28, "Pfeiltaste nach unten"],[0x29, "Auswahltaste"],[0x2A, "Druck"],[0x2B, "Ausführentaste"], _
[0x2C, "Drucktaste"],[0x2D, "Einfg-Taste"],[0x2E, "Entf-Taste"],[0x30, "0"],[0x31, "1"],[0x32, "2"],[0x33, "3"],[0x34, "4"],[0x35, "5"], _
[0x36, "6"],[0x37, "7"],[0x38, "8"],[0x39, "9"],[0x41, "A"],[0x42, "B"],[0x43, "C"],[0x44, "D"],[0x45, "E"],[0x46, "F"],[0x47, "G"],[0x48, "H"], _
[0x49, "I"],[0x4A, "J"],[0x4B, "K"],[0x4C, "L"],[0x4D, "M"],[0x4E, "N"],[0x4F, "O"],[0x50, "P"],[0x51, "Q"],[0x52, "R"],[0x53, "S"],[0x54, "T"],[0x55, "U"], _
[0x56, "V"],[0x57, "W"],[0x58, "X"],[0x59, "Y"],[0x5A, "Z"],[0x5B, "Linke Windows-Taste"],[0x5C, "Rechte Windows-Taste"],[0x60, "rechter Nummerblock Taste 0"], _
[0x61, "rechter Nummerblock Taste 1"],[0x62, "rechter Nummerblock Taste 2"],[0x63, "rechter Nummerblock Taste 3"],[0x64, "rechter Nummerblock Taste 4"], _
[0x65, "rechter Nummerblock Taste 5"],[0x66, "rechter Nummerblock Taste 6"],[0x67, "rechter Nummerblock Taste 7"],[0x68, "rechter Nummerblock Taste 8"], _
[0x69, "rechter Nummerblock Taste 9"],[0x6A, "rechter Nummerblock Malzeichen"],[0x6B, "rechter Nummerblock Pluszeichen"],[0x6C, "Eingabetaste"], _
[0x6D, "rechter Nummerblock Minuszeichen"],[0x6E, "rechter Nummerblock Kommazeichen"],[0x6F, "rechter Nummerblock Geteiltzeichen"],[0x70, "F1"], _
[0x71, "F2"],[0x72, "F3"],[0x73, "F4"],[0x74, "F5"],[0x75, "F6"],[0x76, "F7"],[0x77, "F8"],[0x78, "F9"],[0x79, "F10"],[0x7A, "F11"],[0x7B, "F12"], _
[0x7C, "F13"],[0x7D, "F14"],[0x7E, "F15"],[0x7F, "F16"],[0x80, "F17"],[0x81, "F18"],[0x82, "F19"],[0x83, "F20"],[0x84, "F21"],[0x85, "F22"], _
[0x86, "F23"],[0x87, "F24"],[0x90, "Num-Taste"],[0x91, "Rollen-Taste"],[0xA0, "linke Shift/Umschalt/Feststelltaste"], _
[0xA1, "rechte Shift/Umschalt/Feststelltaste"],[0xA2, "linke Ctrl/Strg-Taste"],[0xA3, "rechte Ctrl/Strg-Taste"], _
[0xA4, "(linke) Alt-Taste"],[0xA5, "(rechte) Alt Gr-Taste"]]
Local $Index = _ArraySearch($aKey, $iKey)
If Not @error Then
Return $aKey[$Index][1]
Else
Return "Error, can't evaluate key."
EndIf
EndFunc ;==>_GetKeyName

[/autoit]

[autoit]

Global $iOldHex

[/autoit] [autoit][/autoit] [autoit]

Func About()
SplashTextOn("Über ...", "Hallo das ist das Aboutsplash!")
Do
Sleep(50)
Until _CheckKey()
SplashOff()
EndFunc ;==>About

[/autoit] [autoit][/autoit] [autoit]

Func _CheckKey()
For $i = 1 To 165
$iValue = StringTrimLeft(Hex($i), 6)
$iHex = "0x" & $iValue
$aResult = DllCall("user32.dll", "short", "GetAsyncKeyState", "int", $iHex)
If @error Then Return SetError(@error, @extended, 0)
If BitAND($aResult[0], 32768) <> 0 And $iHex <> $iOldHex Then
$iOldHex = $iHex
Return True
EndIf
Next
EndFunc ;==>_CheckKey

[/autoit]

[autoit]

Global $iOldHex

[/autoit] [autoit][/autoit] [autoit]

Do
Sleep(50)
Until _CheckKey()
MsgBox(0, "", "Key pressed.")

[/autoit] [autoit][/autoit] [autoit]

Func _CheckKey()
For $i = 1 To 165
$iValue = StringTrimLeft(Hex($i), 6)
$iHex = "0x" & $iValue
$aResult = DllCall("user32.dll", "short", "GetAsyncKeyState", "int", $iHex)
If @error Then Return SetError(@error, @extended, 0)
If BitAND($aResult[0], 32768) <> 0 And $iHex <> $iOldHex Then
$iOldHex = $iHex
Return True
EndIf
Next
EndFunc ;==>_CheckKey

[/autoit]

[autoit]

While 1 ;Endlosschleife
Sleep(20000) ;Wartet 20 Sekunden (Zeit wird in ms angegeben!)
MouseClick("left", $x, $y, 1) ;Klickt auf Punkt x, y
WEnd

[/autoit]