У меня не получалось использовать ControlSend в ВОВ-ку. Можете привести пример , как должен выглядеть скрипт для ВОВ? Чтобы ControlSend вбивал акк и пасс.dwerf сказал(а):С помощью
очень даже получается, по крайней мере, если полноэкранный режим выключен.
Warden, несколько мне известно, вообще ничего толком не защищает, а следит за подобными процессами и отсылает соответствующие сообщения на сервер - могут забанить.
Зачем попу гармошка?Medic84 сказал(а):Как сказал Kaster игры основанные на основе DirectX не поддаются ControlSend'ам. Т.к. контролы у них своеобразные, и Au3Info их отследить не может.
$sPath = 'D:\World of Warcraft\Wow.exe'
$sLogin = 'Login'
$sPassword = 'Password'
Opt('SendKeyDelay', 50)
Opt('SendKeyDownDelay', 50)
If Not FileExists($sPath) Then Exit
$iPid = Run($sPath)
If @error Then Exit
Sleep(10000)
$aWinList = WinList('World of Warcraft')
For $i = 1 To $aWinList[0][0] Step +1
If WinGetProcess($aWinList[$i][1]) = $iPid Then
WinSetState($aWinList[$i][1], '', @SW_MINIMIZE)
Sleep(1000)
ControlSend($aWinList[$i][1], '', '', $sLogin, 1)
ControlSend($aWinList[$i][1], '', '', '{TAB}')
ControlSend($aWinList[$i][1], '', '', $sPassword, 1)
ControlSend($aWinList[$i][1], '', '', '{Enter}')
Sleep(1000)
WinSetState($aWinList[$i][1], '', @SW_MAXIMIZE)
ExitLoop
EndIf
Next
Run("C:\Program Files\SocksCapV2\sc32.exe")
sleep(3000)
send("!f")
send("s")
sleep(3000)
send("IP {ENTER}")
sleep(3000)
send("{DOWN}")
sleep(500)
send("{ENTER}")
$sChat = 'Wanna buy food'
Opt('SendKeyDelay', 50)
Opt('SendKeyDownDelay', 50)
If @error Then Exit
$aWinList = WinList('World of Warcraft')
$pid = WinGetProcess("World of Warcraft")
For $i = 1 To $aWinList[0][0] Step +1
If WinGetProcess($aWinList[$i][1]) = $Pid Then
Sleep(1000)
ControlSend($aWinList[$i][1], '', '', '{Enter}')
ControlSend($aWinList[$i][1], '', '', $sChat, 1)
ControlSend($aWinList[$i][1], '', '', '{Enter}')
sleep(10000)
ControlSend($aWinList[$i][1], '', '', '{Enter}')
ControlSend($aWinList[$i][1], '', '', $sChat, 1)
ControlSend($aWinList[$i][1], '', '', '{Enter}')
sleep(10000)
Sleep(1000)
ExitLoop
EndIf
Next