Mit der alten MoveTo läuft alles. Nur mit der neuen Version gibt es bei mir Probleme.
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $btup, "int", 0, "long", $pos)
ElseIf StringUpper($inkey) = "?" Then $skey = 0x3f $lparam = 0x000c0001 DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", 0xDB, "int", $lparam) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_CHAR, "int", $skey, "int", $lparam) Sleep(20) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", 0xDB, "int", BitOR($lparam, 0xC0000000)) Sleep($kdown) $skey = 0x08 $ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0) $lparam = BitShift($ret[0], -16) $lparam = BitOr($lparam, 1) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "int", $lparam) Sleep($kdown) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "int", BitOR($lparam, 0xC0000000))
#Include <WinAPI.au3>
#include <WindowsConstants.au3>
Dim $Keys[0xFF + 1]
_send_vkey("?kommt nix an?")
Func _GetVK($Chr)
$Chr = String($Chr)
For $i = 1 To 0xFF
If $Keys[$i] = $Chr Then Return $i
Next
EndFunc ;==>_GetVK
func _send_vkey($array="")
$array = stringsplit($array,"")
For $i = 1 To $array[0]
_WinAPI_PostMessage (WinGetHandle("Guild Wars"), $WM_KEYDOWN, _GetVK($array[$i]), 0)
Sleep(30)
_WinAPI_PostMessage (WinGetHandle("Guild Wars"), $WM_KEYup, _GetVK($array[$i]), 0)
Sleep(75)
Next
Sleep(100)
endfunc
D:\Documents and Settings\admin\Desktop\New Folder\lösch mich.au3 (15) : ==> Subscript used with non-Array variable.: $resign[1] = "?" $resign^ ERROR