Ticket #1625: Check.au3

File Check.au3, 18.2 KB (added by anonymous, 5 years ago)
Line 
1#RequireAdmin
2#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
3#AutoIt3Wrapper_Icon=D:\ico\Vatican-city.ico
4#AutoIt3Wrapper_Outfile=Check.exe
5#AutoIt3Wrapper_UseUpx=y
6#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
7; *** Start added by AutoIt3Wrapper ***
8#include <AutoItConstants.au3>
9#include <MsgBoxConstants.au3>
10; *** End added by AutoIt3Wrapper ***
11#include <ButtonConstants.au3>
12#include <EditConstants.au3>
13#include <GUIConstantsEx.au3>
14#include <GuiStatusBar.au3>
15#include <ProgressConstants.au3>
16#include <StaticConstants.au3>
17#include <WindowsConstants.au3>
18#include <StringConstants.au3>
19#include <FileConstants.au3>
20#include <WinAPIFiles.au3>
21#include <ScreenCapture.au3>
22#include <GuiEdit.au3>
23Global $g_bPaused = False
24HotKeySet("{PAUSE}", "TogglePause")
25HotKeySet("{ESC}", "Terminate")
26Opt("WinTitleMatchMode", 2)
27Opt("MouseCoordMode", 0)
28Opt("GUIResizeMode", $GUI_DOCKAUTO + $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKBOTTOM + $GUI_DOCKHCENTER + $GUI_DOCKVCENTER + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
29;Xac Dinh Thu Muc Cua Chuong Trinh
30Global $Save, $speed_Read, $Account_Uncheck, $Account_Success, $Count_Success, $Account_Gold, $Count_Gold, $Email, $PassWord
31$Img_Dir = "H:\IMG\"
32$Main_Dir = "H:\dATA\"
33$Cap_Dir = "H:\Capture\"
34$Result_Dir = "H:\Result\"
35Global $File_Success = $Result_Dir & "Account No Card.txt"
36Global $File_Account_Gold = $Result_Dir & "Account Have Card.txt"
37$File_Uncheck = $Main_Dir & "Checking.txt"
38If FileExists($Cap_Dir) = 0 Then
39        DirCreate($Cap_Dir)
40EndIf
41If FileExists($Main_Dir) = 0 Then
42        DirCreate($Main_Dir)
43EndIf
44If FileExists($Result_Dir) = 0 Then
45        DirCreate($Result_Dir)
46EndIf
47
48Global $Kve = GUICreate("Check Account", 1025, 688, 306, 95)
49GUISetFont(10, 400, 0, "Segoe UI")
50GUISetBkColor(0xE3E3E3)
51Global $Title = GUICtrlCreateLabel("Kve", 920, 8, 94, 24)
52GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
53GUICtrlSetColor(-1, 0x008080)
54Global $Uncheck_Label = GUICtrlCreateLabel("Account", 8, 8, 512, 29)
55GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
56Global $Uncheck_Input = GUICtrlCreateEdit("", 8, 40, 1009, 129)
57If FileExists($File_Uncheck) = 1 Then
58        FileOpen($File_Uncheck, 0)
59        $Save = FileRead($File_Uncheck)
60        GUICtrlSetData($Uncheck_Input, $Save)
61
62        FileClose($File_Uncheck)
63EndIf
64GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI")
65_GUICtrlEdit_SetLimitText($Uncheck_Input, 10000000000000000)
66Global $Success_Label = GUICtrlCreateLabel("Success", 8, 288, 288, 29)
67GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
68GUICtrlSetColor(-1, 0x008080)
69Global $Success_Output = GUICtrlCreateEdit("", 8, 320, 1009, 140)
70GUICtrlSetData(-1, "")
71GUICtrlSetBkColor(-1, 0xFFFFFF)
72Global $Gold_Label = GUICtrlCreateLabel("Gold", 8, 470, 288, 29)
73GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
74GUICtrlSetColor(-1, 0x808000)
75Global $Gold_Output = GUICtrlCreateEdit("", 8, 500, 1009, 140)
76GUICtrlSetData(-1, "")
77GUICtrlSetBkColor(-1, 0xFFFFFF)
78Global $Load = GUICtrlCreateButton("Check", 872, 240, 147, 33)
79GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
80GUICtrlSetColor(-1, 0x800000)
81Global $Progress = GUICtrlCreateProgress(8, 216, 1006, 17, $PBS_SMOOTH)
82Global $Current = GUICtrlCreateInput("Current", 8, 184, 1009, 25)
83GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
84Global $Information = GUICtrlCreateInput("Information", 8, 240, 225, 25, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER))
85GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
86GUICtrlSetColor(-1, 0x008080)
87Global $Mode = GUICtrlCreateInput("Ready", 248, 240, 225, 25, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER))
88GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
89GUICtrlSetColor(-1, 0x008080)
90Global $speed_Lable = GUICtrlCreateLabel("Speed :", 724, 240, 50, 20)
91GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
92Global $speed_Box = GUICtrlCreateCombo(1, 784, 240, 75, 25)
93GUICtrlSetData($speed_Box, "0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20", "")
94GUISetState(@SW_SHOW)
95While 1
96        $nMsg = GUIGetMsg()
97        Switch $nMsg
98                Case $GUI_EVENT_CLOSE
99                        ExitLoop
100                        Exit
101                Case $Load
102                        WinMinimizeAll()
103                        Clearn()
104                        Run("C:\Program Files (x86)\BlueStacks\HD-RunApp.exe")
105                        WinWaitActive("BlueStacks App Player")
106                        Global $bluestack = WinGetHandle("BlueStacks App Player")
107                        WinSetOnTop($bluestack, "", 1)
108                        WinActivate($bluestack)
109                        SendKeepActive($bluestack)
110                        $Account_Uncheck = GUICtrlRead($Uncheck_Input)
111                        $Account_Uncheck = StringReplace($Account_Uncheck, " |", "|")
112                        $Account_Uncheck = StringReplace($Account_Uncheck, "| ", "|")
113                        $speed_Read = GUICtrlRead($speed_Box)
114                        $speed_Read = $speed_Read * 100
115                        GUICtrlSetData($Uncheck_Input, $Account_Uncheck)
116                        FileOpen($File_Uncheck, 10)
117                        FileWrite($File_Uncheck, $Account_Uncheck)
118                        $line = FileReadToArray($File_Uncheck)
119                        FileClose($File_Uncheck)
120
121
122
123
124
125
126
127                        GUICtrlSetData($Uncheck_Label, "Account : " & UBound($line))
128                        For $i = 0 To (UBound($line) - 1)
129                                Global $Time_Begin = TimerInit()
130                                Global $endTime = 0
131
132                                GUICtrlSetData($Uncheck_Input, $Account_Uncheck)
133                                GUICtrlSetData($Progress, ($i / UBound($line)) * 100)
134                                $Checkedcount = $i + 1
135                                $Remain = UBound($line) - $Checkedcount
136                                GUICtrlSetData($Uncheck_Label, "Account : " & $Remain & " Checked : " & $Checkedcount)
137                                GUICtrlSetData($Current, $line[$i])
138                                If $line[$i] <> "" Then
139                                        $lineread = StringSplit($line[$i], "|")
140                                        For $c = 1 To (UBound($lineread) - 1)
141                                                If StringInStr($lineread[$c], '@') <> 0 And (StringInStr($lineread[$c], '.') <> 0) Then
142                                                        $Email = $lineread[$c]
143                                                        $PassWord = $lineread[$c + 1]
144Exitloop
145                                                EndIf
146                                        Next
147                                        GUICtrlSetData($Information, "Reset Bluestack")
148                                        Run("C:\Program Files (x86)\BlueStacks\HD-RunApp.exe")
149                                        WinWaitActive("BlueStacks App Player")
150                                        Global $bluestack = WinGetHandle("BlueStacks App Player")
151                                        WinSetOnTop($bluestack, "", 1)
152                                        WinActivate($bluestack)
153                                        SendKeepActive($bluestack)
154                                        Dim $Starbucks[21]
155                                        $Starbucks[0] = 20
156                                        $Starbucks[1] = $Img_Dir & "RunStarbucksApk.bmp"
157                                        $Starbucks[2] = $Img_Dir & "GetStarted.bmp"
158                                        $Starbucks[3] = $Img_Dir & "ChooseLogin.bmp"
159                                        $Starbucks[4] = $Img_Dir & "CheckLoginPage.bmp"
160                                        $Starbucks[5] = $Img_Dir & "Sock.bmp"
161                                        $Starbucks[6] = $Img_Dir & "Lag.bmp"
162                                        $Starbucks[7] = $Img_Dir & "ErrorPass.bmp"
163                                        $Starbucks[8] = $Img_Dir & "Show.bmp"
164                                        $Starbucks[9] = $Img_Dir & "Api.bmp"
165                                        $Starbucks[10] = $Img_Dir & "Loged.bmp"
166                                        $Starbucks[11] = $Img_Dir & "Menu.bmp"
167                                        $Starbucks[12] = $Img_Dir & "Error.bmp"
168                                        $Starbucks[13] = $Img_Dir & "AddressError.bmp"
169                                        $Starbucks[14] = $Img_Dir & "Le.bmp"
170                                        $Starbucks[15] = $Img_Dir & "Payuni.bmp"
171                                        $Starbucks[16] = $Img_Dir & "Reload.bmp"
172                                        $Starbucks[17] = $Img_Dir & "Reload2.bmp"
173                                        $Starbucks[18] = $Img_Dir & "AddressError.bmp"
174                                        $Starbucks[19] = $Img_Dir & "GetCard.bmp"
175                                        $Starbucks[20] = $Img_Dir & "CreateNewCard.bmp"
176                                        Global $logintime = 0
177                                        Global $RunStep = 0
178                                        Global $CompletedLoad = False
179                                        $Type = "White"
180                                                        $AccountBalance = "No Balance"
181                                                        $Payment = "No Payment"
182                                        $Logged = False
183                                        $x = 0
184                                        $y = 0
185                                        $x1 = 0
186                                        $y1 = 0
187                                        $RunStep = _WaitForImagesSearch($Starbucks, 60, 1, $x1, $y1, 0)
188                                        Do
189                                                $bluestack = WinGetHandle("BlueStacks App Player")
190                                                WinSetOnTop($bluestack, "", 1)
191                                                WinActivate($bluestack)
192                                                SendKeepActive($bluestack)
193
194                                                $RunStep = _WaitForImagesSearch($Starbucks, 60, 1, $x1, $y1, 0)
195                                                Switch $RunStep
196                                                        Case 0
197                                                                $endTime = TimerDiff($Time_Begin)
198
199                                                                $PicTransfer = $Cap_Dir & "\Error\" & $Email & "-" & $PassWord & ".bmp"
200                                                                _ScreenCapture_CaptureWnd($PicTransfer, $bluestack, False)
201                                                                If $endTime >= 600000 Then
202                                                                        WinClose($bluestack)
203                                                                        WinWaitClose($bluestack)
204                                                                        Run("C:\Program Files (x86)\BlueStacks\HD-RunApp.exe")
205                                                                        WinWaitActive("BlueStacks App Player")
206                                                                        $bluestack = WinGetHandle("BlueStacks App Player")
207                                                                        WinSetOnTop($bluestack, "", 1)
208                                                                        WinActivate($bluestack)
209                                                                        SendKeepActive($bluestack)
210                                                                        $RunStep = 1
211                                                                EndIf
212                                                        Case 1 ;RunStarbucksApk
213                                                                GUICtrlSetData($Information, "Run Starbucks App")
214                                                                ControlClick($bluestack, "", "", "left", 1, 339, 488) ;Run Starbucks App
215                                                        Case 2 ;GetStarted
216                                                                GUICtrlSetData($Information, "Get Started")
217                                                                ControlClick($bluestack, "", "", "left", 1, 534, 926) ;Get Started
218                                                        Case 3 ;ChooseLogin
219                                                                GUICtrlSetData($Information, "Load Login Page")
220                                                                ControlClick($bluestack, "", "", "left", 1, 550, 924) ;Load Login Page
221                                                        Case 4 ;CheckLoginPage
222                                                                GUICtrlSetData($Information, "Fill Email ( " & $logintime & " ) Time")
223                                                                BlockInput($BI_DISABLE)
224                                                                ControlClick($bluestack, "", "", "left", 1, 71, 194) ;Fill Email
225                                                                ClipPut($Email)
226                                                                Sleep(500)
227                                                                Send("^{v}")
228                                                                Sleep(500)
229                                                                GUICtrlSetData($Information, "Fill Pass ( " & $logintime & " ) Time")
230                                                                Send("{TAB}")
231                                                                ;ControlClick($bluestack, "", "", "left", 1, 71, 266) ;Fill Pass
232                                                                ClipPut($PassWord)
233                                                                Sleep(500)
234                                                                Send("^{v}")
235                                                                Sleep(500)
236                                                                ControlClick($bluestack, "", "", "left", 1, 554, 51) ;Loggin
237                                                                $logintime = $logintime + 1
238                                                                BlockInput($BI_ENABLE)
239                                                                GUICtrlSetData($Information, "Loggin")
240If $logintime >= 2 Then
241                                                        $CompletedLoad = True
242                                                EndIf
243                                                        Case 5
244                                                                GUICtrlSetData($Information, "Socks Die")
245                                                                ControlClick($bluestack, "", "", "left", 1, 46, 978) ;Socks Die
246                                                        Case 6
247                                                                GUICtrlSetData($Information, "Lag")
248                                                                ControlClick($bluestack, "", "", "left", 1, 46, 978) ;Lag
249                                                        Case 7 ;Error Pass
250                                                                GUICtrlSetData($Information, "Loggin Error")
251                                                                Sleep(1000)
252                                                                ControlClick($bluestack, "", "", "left", 1, 49, 972) ;Lag
253                                                                $logintime = 2
254                                                        Case 8 ;Show Me More
255                                                                GUICtrlSetData($Information, "Show me more")
256                                                                ControlClick($bluestack, "", "", "left", 1, 127, 830) ;Show me more
257                                                        Case 9 ;Api Error
258                                                                GUICtrlSetData($Information, "Error White Page")
259                                                                WinClose($bluestack)
260                                                                WinWaitClose($bluestack)
261                                                                Run("C:\Program Files (x86)\BlueStacks\HD-RunApp.exe")
262                                                                WinWaitActive("BlueStacks App Player")
263                                                                $bluestack = WinGetHandle("BlueStacks App Player")
264                                                                WinSetOnTop($bluestack, "", 1)
265                                                                WinActivate($bluestack)
266                                                                SendKeepActive($bluestack)
267                                                        Case 10 ;Logged
268                                                                GUICtrlSetData($Information, "Logging Success")
269                                                                $Logged = True
270                                                                Dim $arrayGold[10]
271                                                                $arrayGold[0] = 2
272                                                                $arrayGold[1] = $Img_Dir & "Gold.bmp"
273                                                                $arrayGold[2] = $Img_Dir & "Green.bmp"
274                                                                $Gold = _WaitForImagesSearch($arrayGold, 1, 1, $x1, $y1, 0)
275                                                                If $Gold = 1 Then
276                                                                        $Type = "Gold"
277                                                                EndIf
278                                                                If $Gold = 2 Then
279                                                                        $Type = "Green"
280
281                                                                EndIf
282
283                                                                If $Gold = 0 Then
284                                                                        $Type = "White"
285
286                                                                EndIf
287                                                                ControlClick($bluestack, "", "", "left", 1, 28, 49) ;Go to Menu
288
289                                                        Case 12
290                                                                WinClose($bluestack)
291                                                                WinWaitClose($bluestack)
292                                                                WinMinimizeAll()
293                                                                Run("C:\Program Files (x86)\BlueStacks\HD-RunApp.exe")
294                                                                WinWaitActive("BlueStacks App Player")
295                                                                $bluestack = WinGetHandle("BlueStacks App Player")
296                                                                WinActivate($bluestack)
297                                                                SendKeepActive($bluestack)
298                                                        Case 14 ;Show Me More
299                                                                GUICtrlSetData($Information, "Let go")
300                                                                ControlClick($bluestack, "", "", "left", 1, 127, 830) ;Letgo
301                                                        Case 11
302
303                                                                If $Logged = True Then
304
305                                                                        ControlClick($bluestack, "", "", "left", 1, 39, 291) ;Letgo
306                                                                EndIf
307                                                        Case 15
308                                                                Dim $arrayBalance[10]
309                                                                $arrayBalance[0] = 2
310                                                                $arrayBalance[1] = $Img_Dir & "00$.bmp"
311                                                                $arrayBalance[2] = $Img_Dir & "00$2.bmp"
312                                                                $Balance = _WaitForImagesSearch($arrayBalance, 1, 1, $x1, $y1, 0)
313                                                                If $Balance = 1 Then
314                                                                        $AccountBalance = "No Balance"
315                                                                EndIf
316                                                                If $Balance = 0 Then
317                                                                        $AccountBalance = "Have Balance"
318                                                                EndIf
319
320                                                                ControlClick($bluestack, "", "", "left", 1, 90, 593) ;Letgo
321                                                                ControlClick($bluestack, "", "", "left", 1, 90, 550) ;Letgo
322
323                                                        Case 16
324
325                                                                $Payment = "No Payment"
326                                                                GUICtrlSetData($Information, $Payment)
327                                                                $LineWrite = $Email & "|" & $PassWord & "|" & $Type & "|" & $AccountBalance & "|" & $Payment
328
329                                                                $Count_Success = $Count_Success + 1
330                                                                $Account_Success &= $LineWrite & @CRLF
331                                                                GUICtrlSetData($Success_Output, $Account_Success)
332                                                                GUICtrlSetData($Success_Label, $Payment & " : " & $Count_Success)
333                                                                GUICtrlSetData($Uncheck_Label, "Account : " & $Remain & " Checked : " & $Checkedcount & " Last Statut : " & $Payment)
334                                                                FileOpen($File_Success, 1)
335                                                                FileWrite($File_Success, $LineWrite & @CRLF)
336                                                                FileClose($File_Success)
337                                                                Clearn()
338                                                                $CompletedLoad = True
339                                                        Case 17
340                                                                $Payment = "Have Payment"
341                                                                $LineWrite = $Email & "|" & $PassWord & "|" & $Type & "|" & $AccountBalance & "|" & $Payment
342
343                                                                ControlClick($bluestack, "", "", "left", 1, 125, 684) ;Letgo
344                                                                GUICtrlSetData($Information, $Payment)
345                                                                $Count_Gold = $Count_Gold + 1
346                                                                $Account_Gold &= $LineWrite & @CRLF
347                                                                GUICtrlSetData($Gold_Output, $Account_Gold)
348                                                                GUICtrlSetData($Gold_Label, $Payment & " : " & $Count_Gold)
349                                                                GUICtrlSetData($Uncheck_Label, "Account : " & $Remain & " Checked : " & $Checkedcount & " Last Statut : " & $Payment)
350                                                                FileOpen($File_Account_Gold, 1)
351                                                                FileWrite($File_Account_Gold, $LineWrite & @CRLF)
352                                                                FileClose($File_Account_Gold)
353                                                                Sleep(1000)
354                                                                $PicTransfer = $Cap_Dir & $Email & "-" & $PassWord & ".bmp"
355                                                                _ScreenCapture_CaptureWnd($PicTransfer, $bluestack, False)
356                                                                Clearn()
357                                                                $CompletedLoad = True
358
359                                                        Case 18 ;No Address
360                                                                GUICtrlSetData($Information, "Account No Address")
361
362                                                                $CompletedLoad = True
363
364                                                        Case 19 ;Get Card
365                                                                GUICtrlSetData($Information, "Get Card")
366                                                                ControlClick($bluestack, "", "", "left", 1, 534, 926) ;Get Card
367                                                        Case 20 ;Get Card
368                                                                GUICtrlSetData($Information, "Get Card")
369                                                                ControlClick($bluestack, "", "", "left", 1, 517, 926) ;Get Card 2
370                                                EndSwitch
371
372                                        Until $CompletedLoad = True
373                                        $Account_Uncheck = StringReplace($Account_Uncheck, $line[$i], "")
374                                        $Account_Uncheck = StringReplace($Account_Uncheck, @CRLF & @CRLF, @CRLF)
375                                EndIf
376                        Next
377                        MsgBox($MB_SYSTEMMODAL, "Completed", "Completed")
378        EndSwitch
379WEnd
380Func Clearn()
381        Local $Dataold1 = "C:\ProgramData\BlueStacks\Android\Data.sparsefs\Store"
382        Local $Dataold2 = "C:\ProgramData\BlueStacks\Android\Data.sparsefs\Map"
383        Local $SDold1 = "C:\ProgramData\BlueStacks\Android\SDCard.sparsefs\Store"
384        Local $SDold2 = "C:\ProgramData\BlueStacks\Android\SDCard.sparsefs\Map"
385        Local $Data1 = "C:\ProgramData\Backup\Data.sparsefs\Store"
386        Local $Data2 = "C:\ProgramData\Backup\Data.sparsefs\Map"
387        Local $SD1 = "C:\ProgramData\Backup\SDCard.sparsefs\Store"
388        Local $SD2 = "C:\ProgramData\Backup\SDCard.sparsefs\Map"
389        Local $FolderData = "C:\ProgramData\BlueStacks\Android\Data.sparsefs\"
390        Local $FolderSD = "C:\ProgramData\BlueStacks\Android\SDCard.sparsefs\"
391        Run("C:\Program Files (x86)\BlueStacks\HD-Quit.exe")
392        GUICtrlSetData($Information, "Code by Kve :) ")
393        Sleep(1000)
394        FileDelete($Dataold1)
395        FileDelete($Dataold2)
396        FileDelete($SDold1)
397        FileDelete($SDold2)
398        Sleep(1000)
399        GUICtrlSetData($Information, "Thanks You")
400        FileCopy($Data1, $FolderData, $FC_OVERWRITE + $FC_CREATEPATH)
401        FileCopy($Data2, $FolderData, $FC_OVERWRITE + $FC_CREATEPATH)
402        FileCopy($SD1, $FolderSD, $FC_OVERWRITE + $FC_CREATEPATH)
403        FileCopy($SD2, $FolderSD, $FC_OVERWRITE + $FC_CREATEPATH)
404        Sleep(1000)
405EndFunc   ;==>Clearn
406Func _ImageSearch($findImage, $resultPosition, ByRef $x, ByRef $y, $tolerance)
407        Return _ImageSearchArea($findImage, $resultPosition, 0, 0, @DesktopWidth, @DesktopHeight, $x, $y, $tolerance)
408EndFunc   ;==>_ImageSearch
409Func _ImageSearchArea($findImage, $resultPosition, $x1, $y1, $right, $bottom, ByRef $x, ByRef $y, $tolerance)
410        If $tolerance > 0 Then $findImage = "*" & $tolerance & " " & $findImage
411        $result = DllCall("ImageSearchDLL.dll", "str", "ImageSearch", "int", $x1, "int", $y1, "int", $right, "int", $bottom, "str", $findImage)
412        If $result[0] = "0" Then Return 0
413        $array = StringSplit($result[0], "|")
414        $x = Int(Number($array[2]))
415        $y = Int(Number($array[3]))
416        If $resultPosition = 1 Then
417                $x = $x + Int(Number($array[4]) / 2)
418                $y = $y + Int(Number($array[5]) / 2)
419        EndIf
420        Return 1
421EndFunc   ;==>_ImageSearchArea
422Func _WaitForImageSearch($findImage, $waitSecs, $resultPosition, ByRef $x, ByRef $y, $tolerance)
423        $waitSecs = $waitSecs * 1000
424        $startTime = TimerInit()
425        While TimerDiff($startTime) < $waitSecs
426                $result = _ImageSearch($findImage, $resultPosition, $x, $y, $tolerance)
427                If $result > 0 Then
428                        Return 1
429                EndIf
430        WEnd
431        Return 0
432EndFunc   ;==>_WaitForImageSearch
433Func _WaitForImagesSearch($findImage, $waitSecs, $resultPosition, ByRef $x, ByRef $y, $tolerance)
434        $waitSecs = $waitSecs * 1000
435        $startTime = TimerInit()
436        While TimerDiff($startTime) < $waitSecs
437                For $i = 1 To $findImage[0]
438                        $result = _ImageSearch($findImage[$i], $resultPosition, $x, $y, $tolerance)
439                        If $result > 0 Then
440                                Return $i
441                        EndIf
442                Next
443        WEnd
444        Return 0
445EndFunc   ;==>_WaitForImagesSearch
446Func TogglePause()
447        $g_bPaused = Not $g_bPaused
448        While $g_bPaused
449                Sleep(100)
450                ToolTip('Pause', 0, 0)
451        WEnd
452        ToolTip("Running")
453EndFunc   ;==>TogglePause
454Func Terminate()
455        FileOpen($File_Uncheck, 10)
456        $v = 0
457        For $v = $i To (UBound($line) - 1)
458                FileWrite($File_Uncheck, $line[$v] & @CRLF)
459        Next
460        $Account_Uncheck = FileRead($File_Uncheck)
461        FileClose($File_Uncheck)
462        Exit
463EndFunc   ;==>Terminate
464Func Timeoutcheck()
465        $endTime = TimerDiff($Time_Begin)
466        GUICtrlSetData($Mode, "Run Time : " & Round($endTime / 1000) & " s")
467        If $endTime >= 600000 Then
468                WinClose($bluestack)
469                WinWaitClose($bluestack)
470                Run("C:\Program Files (x86)\BlueStacks\HD-RunApp.exe")
471                WinWaitActive("BlueStacks App Player")
472                $bluestack = WinGetHandle("BlueStacks App Player")
473                WinSetOnTop($bluestack, "", 1)
474                WinActivate($bluestack)
475                SendKeepActive($bluestack)
476                $RunStep = 1
477        EndIf
478EndFunc   ;==>Timeoutcheck