Also hi ersmal bin neu hier =)
Habe schon vor längerem angefangen autoit zu scripten und habe mir dann gleich gedacht mal ein "leichtes" Projekt zu starten
(Einen Chat Bot) für http://www.knuddels.de/applet_old.html?c=-3
und da ich es nicht hinbekommen habe einen text in das minimierte chatfenster oder einem control im minimiertem fesnster zu senden musste ich das projekt leider wieder schmeissen...
ich habe bei meiner suche nach hilfe diesen code gefunden der auch wunderbar Im Editor/Notepad funktioniert aber leider nicht in diesen chatfenster geschweige den bei irgendeinen control in diesem chat.
Code
Global Const $VK_OEM_PLUS = 0xBB
Global Const $VK_OEM_MINUS = 0xBD
Global Const $VK_OEM_3 = 0xC0
Global Const $VK_TAB = 0x9
Global Const $VK_ESC = 0x1B
Global Const $VK_F5 = 0x74
Global Const $VK_F12 = 0x7B
Run("notepad")
WinWaitActive("Untitled")
$window = WinGetTitle("Untitled")
Dim $hWnd = ControlGetHandle($window,"","Edit1")
_SendKeys($hWnd, "123123123" & "{ENTER}"); using send keys
Func _MakeLong($LoWord, $HiWord)
Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc
Func _SendKeys($hWnd, $keys)
If $hWnd <= 0 Or StringLen($keys) = 0 Then
SetError(-1)
Return False
EndIf
$keys = StringUpper($keys)
$keys = StringReplace($keys, "`", Chr($VK_OEM_3))
$keys = StringReplace($keys, "~", Chr($VK_OEM_3))
$keys = StringReplace($keys, "-", Chr($VK_OEM_MINUS))
$keys = StringReplace($keys, "=", Chr($VK_OEM_PLUS))
$keys = StringReplace($keys, "{ENTER}", Chr(0xD))
$keys = StringReplace($keys, "{TAB}", Chr(0x9))
$keys = StringReplace($keys, "{ESC}", Chr($VK_ESC))
$keys = StringReplace($keys, "{F5}", Chr($VK_F5))
$keys = StringReplace($keys, "{F12}", Chr($VK_F12))
$keys = StringReplace($keys, "{SHIFT}", "+")
Local $i, $ret
Local $shiftdown = False
For $i = 1 To StringLen($keys)
If StringMid($keys, $i, 1) = "+" Then
DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWnd, "int", 0x100, "int", 0x10, "long", 0x002A0001)
DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWnd, "int", 0x100, "int", 0x10, "long", 0x402A0001)
$shiftdown = True
Sleep(1)
ContinueLoop
Else
$ret = DllCall("user32.dll", "int", "MapVirtualKey", "int", Asc(StringMid($keys, $i, 1)), "int", 0)
If IsArray($ret) Then
DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWnd, "int", 0x100, "int", Asc(StringMid($keys, $i, 1)), "long", _MakeLong(1, $ret[0]))
Sleep(1)
DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWnd, "int", 0x101, "int", Asc(StringMid($keys, $i, 1)), "long", _MakeLong(1, $ret[0]) + 0xC0000000)
EndIf
EndIf
If $shiftdown Then
Sleep(1)
DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWnd, "int", 0x101, "int", 0x10, "long", 0xC02A0001)
$shiftdown = False
EndIf
Next
Return True
EndFunc
Alles anzeigen
wäre nett wenn mir hier vielleicht irgendjemand helfen könnte
ich möchte lediglich einen text in das minimierte chatfenster / Control senden