#CLOSED
Opt("SendkeyDelay",100)
Opt("SendkeyDownDelay,100)
Func giveup()
RS(500,1000)
ControlSend($client, "", "", "{-}")
RS(200,1000)
ControlSend($client, "", "", "r")
RS(50,100)
ControlSend($client, "", "", "e")
RS(50,100)
ControlSend($client, "", "", "s")
RS(50,100)
ControlSend($client, "", "", "i")
RS(50,100)
ControlSend($client, "", "", "g")
RS(50,100)
ControlSend($client, "", "", "n")
RS(50,100)
ControlSend($client, "", "", "{Enter}")
Sleep(100)
While _memoryread($death,$hprocess,'int')<>1
RS(25,50)
WEnd
RS(2000,3000)
$x = Random(413,601)
$y = Random(385,397)
ControlClick($client,"","","left",1,$x,$y)
Sleep(1000)
EndFunc
#include <WindowsConstants.au3>
#include <WinAPI.au3>
Opt("WinTitleMatchMode", 3)
Dim $Keys[0xFF + 1]
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
Func _GetVK($Chr)
$Chr = String($Chr)
For $i = 1 To 0xFF
If $Keys[$i] = $Chr Then Return $i
Next
EndFunc ;==>_GetVK
Func WINAPI_send($Text, $win = "Guild Wars", $Sleep1 = 90, $Sleep2 = 130)
$hwnd = WinGetHandle($win)
$len = StringLen($Text)
$Array_Text = StringSplit($Text, "")
For $i = 1 To $len
_WinAPI_PostMessage($hwnd, $WM_KEYDOWN, _GetVK($Array_Text[$i]), 0)
Sleep(Random($Sleep1 - 5, $Sleep1 + 5))
_WinAPI_PostMessage($hwnd, $WM_KEYup, _GetVK($Array_Text[$i]), 0)
Sleep(Random($Sleep2 - 5, $Sleep2 + 5))
Next
EndFunc ;==>WINAPI_send
Func Paste_send($Text, $win = "Guild Wars", $Sleep1 = 90, $Sleep2 = 130); 80, 120
Opt("SendKeyDownDelay", $Sleep1)
Opt("SendKeyDelay", $Sleep2)
$hwnd = WinGetHandle($win)
$Anfang = ClipGet()
ClipPut($Text)
Sleep(Random($Sleep1 - 5, $Sleep1 + 5))
ControlSend($hwnd, "", "", "{CTRLDOWN}v{CTRLup}")
Sleep(Random($Sleep2 - 5, $Sleep2 + 5))
ClipPut($Anfang)
EndFunc ;==>Paste_send