keine ahnung versuchs mal mit Global xD
For $i = 1 To 0xFF
$Chr = DllCall("user32.dll", "int", "MapVirtualKey", "int", $i, "int", 2)
$Chr = StringLower(ChrW(BitAND($Chr[0], 0xFFFF)))
$Keys[$i] = $Chr
Next
#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
#include <tt6.au3>
Func wayout()
PrepMoveTo()
MoveTo(1,x,y)
MoveTo(1,x,y)
..
.
StopMoveTo()
EndFunc
Quote:
MoveTo(1,-14995.5751953125+(Random(-6,6)),8277.9755859375+(Random(-6,6)))