[Hearthstone] Автоматизация добавления друзей

[Xion]

Для чего это может понадобиться: например для выполнения дейлика, задачей которого является просмотр игры друга, за выполнение которого дается колода карт
Как запускать: в скрипте указываем ссылку, откуда парсить батл теги, пример ссылки есть в самом скрипте
если необходимо парсить тему, содержащую несколько страниц, то можно воспользоваться циклом for $page и указать диапазон страниц, если страница одна можно цикл закомментировать
Перед запуском должен быть запущен HS и открыта панель друзей слева внизу

Спойлер: скрипт

; Press Esc to terminate script, Pause/Break to "pause"

#include <IE.au3>
#include <Array.au3>

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
TogglePause()

Local $sDataC[0]
For $page = 1 to 8
;$sUrl='http://eu.battle.net/hearthstone/ru/forum/topic/9413071259?page='&$page
$sUrl='http://www.hearthpwn.com/forums/hearthstone-general/players-and-teams-discussion/53614-looking-for-hearthstone-friends-post-your?page='&$page
$oIE=_IECreate($sUrl)
$sText = _IEBodyReadText($oIE)
If Not @error Then
   $sData = StringRegExp($sText, '([a-zA-Z1-9]+\#\d{3,5})', 3)
   _ArrayConcatenate($sDataC,$sData)
   ;_ArrayDisplay($sData)
EndIf
_IEQuit($oIE)
Next
;_ArrayDisplay($sDataC)

WinActivate("Hearthstone")
$coords = PixelSearch(0,650,320,1000,16770636)
For $sElement in $sDataC
$sElement = StringReplace($sElement,"#","{#}")
Sleep(Random(100,500))
MouseClick("left",$coords[0],$coords[1],1)
Sleep(Random(100,500))
;MsgBox(64,"",$sElement)
Send($sElement&"{ENTER}")
Sleep(Random(100,500))
Next

Func TogglePause()
	$Paused = NOT $Paused
	While $Paused
		sleep(100)
		ToolTip('Script is "Paused"',0,0)
	WEnd
	ToolTip("")
EndFunc

Func Terminate()
	Exit 0
EndFunc