Sorry for the wall of code, but here is the whole thing. All it should do is click a barracks and find the 'train troops' button.
Code:
#include <GDIPlus.au3>
#include <WinAPIProc.au3>
#include <ScreenCapture.au3>
#include <ColorConstants.au3>
#include <Misc.au3>
Opt("MouseClickDelay", 10)
Opt("MouseClickDownDelay", 10)
Global $hBitmap; Image for pixel functions
Global $hHBitmap; Handle Image for Pixel Functions
Global $BSpos[2] ; Inside BlueStacks positions relative to the screen
Global $ichkBackground = 0
$Title = "BlueStacks App Player for Windows (beta-1)" ; Window name
$Full = WinGetTitle ($Title) ; Get The Full Title..
$HWnD = WinGetHandle ($Full) ; Get The Handle
WinActivate ($HWnD)
WinMove ($HWnD, "", 0, 0)
Global $RunState = True
;Barrak 01 - 131, 309
;Barrak 02 - 296, 46
;Barrak 03 - 838, 50
;Barrak 04 - 994, 314
HotKeySet ("{F7}", "Train")
While 1
Sleep (100)
WEnd
Func Train()
While 1
If _Sleep(500) Then ExitLoop
Click(1, 1) ;Click Away
If _Sleep(500) Then ExitLoop
Click(131, 309) ;Click Barrack 01
If _Sleep(500) Then ExitLoop
Local $TrainPos = _PixelSearch(625, 457, 686, 520, Hex(0x885733, 6), 5) ;Finds Train Troops button
If IsArray($TrainPos) = False Then
;SetLog("Barrack " & $i + 1 & " is not available")
MsgBox ($MB_SYSTEMMODAL, "Barracks is not available", "")
If _Sleep(500) Then ExitLoop
Else
MsgBox ($MB_SYSTEMMODAL, "Found it!!", "")
;Click($TrainPos[0], $TrainPos[1]) ;Click Train Troops button
EndIf
WEnd
EndFunc ;==>Train
Func Click($x, $y, $times = 1, $speed = 0)
If $times <> 1 Then
For $i = 0 To ($times - 1)
ControlClick($HWnD, "", "", "left", "1", $x, $y)
If _Sleep($speed, False) Then ExitLoop
Next
Else
ControlClick($HWnD, "", "", "left", "1", $x, $y)
EndIf
EndFunc ;==>Click
Func _Sleep($iDelay, $iSleep = True)
Local $iBegin = TimerInit()
While TimerDiff($iBegin) < $iDelay
If $RunState = False Then Return True
If $iSleep = True Then Sleep(100)
WEnd
Return False
EndFunc ;==>_Sleep
Func _PixelSearch($iLeft, $iTop, $iRight, $iBottom, $iColor, $iColorVariation)
_CaptureRegion($iLeft, $iTop, $iRight, $iBottom)
For $x = $iRight - $iLeft To 0 Step -1
For $y = $iBottom - $iTop To 0 Step -1
Local $nColor1 = $iColor
Local $nColor2 = _PixelGetColor_GetPixel($x, $y)
If _ColorCheckVariation($nColor1, $nColor2, $iColorVariation) Then
Local $Pos[2] = [$iLeft + $x, $iTop + $y]
Return $Pos
EndIf
Next
Next
Return 0
EndFunc ;==>_PixelSearch
Func _CaptureRegion($iLeft = 0, $iTop = 0, $iRight = 599, $iBottom = 1065, $ReturnBMP = False)
_GDIPlus_BitmapDispose($hBitmap)
_WinAPI_DeleteObject($hHBitmap)
If $ichkBackground = 1 Then
Local $iW = Number($iRight) - Number($iLeft), $iH = Number($iBottom) - Number($iTop)
Local $hDC_Capture = _WinAPI_GetWindowDC(ControlGetHandle("BlueStacks App Player", "", "[CLASS:BlueStacksApp; INSTANCE:1]"))
Local $hMemDC = _WinAPI_CreateCompatibleDC($hDC_Capture)
$hHBitmap = _WinAPI_CreateCompatibleBitmap($hDC_Capture, $iW, $iH)
Local $hObjectOld = _WinAPI_SelectObject($hMemDC, $hHBitmap)
DllCall("user32.dll", "int", "PrintWindow", "hwnd", $HWnD, "handle", $hMemDC, "int", 0)
_WinAPI_SelectObject($hMemDC, $hHBitmap)
_WinAPI_BitBlt($hMemDC, 0, 0, $iW, $iH, $hDC_Capture, $iLeft, $iTop, 0x00CC0020)
Global $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hHBitmap)
_WinAPI_DeleteDC($hMemDC)
_WinAPI_SelectObject($hMemDC, $hObjectOld)
_WinAPI_ReleaseDC($HWnD, $hDC_Capture)
Else
getBSPos()
$hHBitmap = _ScreenCapture_Capture("", $iLeft + $BSpos[0], $iTop + $BSpos[1], $iRight + $BSpos[0], $iBottom + $BSpos[1])
Global $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hHBitmap)
EndIf
If $ReturnBMP Then Return $hBitmap
EndFunc ;==>_CaptureRegion
Func getBSPos()
$aPos = ControlGetPos($Title, "", "[CLASS:BlueStacksApp; INSTANCE:1]")
$tPoint = DllStructCreate("int X;int Y")
DllStructSetData($tPoint, "X", $aPos[0])
DllStructSetData($tPoint, "Y", $aPos[1])
_WinAPI_ClientToScreen(WinGetHandle(WinGetTitle($Title)), $tPoint)
$BSpos[0] = DllStructGetData($tPoint, "X")
$BSpos[1] = DllStructGetData($tPoint, "Y")
EndFunc ;==>getBSPos
Func _PixelGetColor_GetPixel($iX, $iY)
Local $aPixelColor = _GDIPlus_BitmapGetPixel($hBitmap, $iX, $iY)
Return Hex($aPixelColor, 6)
EndFunc ;==>_PixelGetColor_GetPixel
Func _ColorCheckVariation($nColor1, $nColor2, $sVari = 5)
Local $Red1, $Red2, $Blue1, $Blue2, $Green1, $Green2
$Red1 = Dec(StringMid(String($nColor1), 1, 2))
$Blue1 = Dec(StringMid(String($nColor1), 3, 2))
$Green1 = Dec(StringMid(String($nColor1), 5, 2))
$Red2 = Dec(StringMid(String($nColor2), 1, 2))
$Blue2 = Dec(StringMid(String($nColor2), 3, 2))
$Green2 = Dec(StringMid(String($nColor2), 5, 2))
If Abs($Blue1 - $Blue2) > $sVari Then Return False
If Abs($Green1 - $Green2) > $sVari Then Return False
If Abs($Red1 - $Red2) > $sVari Then Return False
Return True
EndFunc ;==>_ColorCheckVariation