#include<_HttpRequest.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Reg Bsai Coin", 354, 203)
$Input1 = GUICtrlCreateInput("57109", 46, 24, 265, 40)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Alice", 48, 80, 265, 41)
$Label1 = GUICtrlCreateLabel("Success:", 24, 140, 70, 17)
$Label2 = GUICtrlCreateLabel("Fail:", 189, 140, 70, 17)
$Label3 = GUICtrlCreateLabel("", 24, 170, 200, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Alice()
	EndSwitch
WEnd

Func Alice()
	$Sucess = 0
	$Fail = 0
	While 1
		If RegBsaiCoin('57109') = True Then
			$Sucess = $Sucess+1
			GUICtrlSetData($Label1,"Success: "&$Sucess)
		Else
			$Fail = $Fail+1
			GUICtrlSetData($Label2,"Fail: "&$Fail)
		EndIf
	WEnd
EndFunc

Func RegBsaiCoin($RefCode)
	$Mail = GetMail()
	If $Mail = False then $check = False
	_HttpRequest(2,'https://bsai.io/?t='&$RefCode)
	_HttpRequest(2,'https://bsai.io/wp-content/themes/Bsai_2.6/module/get_code.php','reg_mail_code='&$Mail)
	$VeriCode = GetCode()
	If $VeriCode <> False Then
		$check = True
		ConsoleWrite("Sucess: "&$Mail&@LF)
		FileWriteLine(@ScriptDir&"\Account.txt",$Mail)
	Else
		$check = False
	EndIf
	$Username = StringSplit($Mail,"@")[1]
	$dataPost='reg_mail_username='&$Username&'&reg_mail_email='&$Mail&'&reg_mail_password=271198&reg_mail_code='&$VeriCode
	_HttpRequest(2,'https://bsai.io/wp-content/themes/Bsai_2.6/module/reg.php',$dataPost)
	_HttpRequest(2,'https://bsai.io/?t='&$RefCode)
	Return $check
EndFunc


Func GetMail()
	$GetNewMail = _HttpRequest(2, 'https://10minutemail.net/address.api.php?new=1')
	$GetNewMail = StringRegExp($GetNewMail,'mail_get_mail":"(.*?)","mail_get_host',3)
	If Not IsArray($GetNewMail) Then
		ConsoleWrite("Get Mail Fail!!!: "&@LF)
		Return False
	EndIf
	$NewMail = $GetNewMail[0]
	Return $NewMail
EndFunc


Func GetCode()
	$A = 0
	While 1
		Time_delay('10')
		$A = $A+1
		If $A > 10 Then ExitLoop
		$GetMail = _HttpRequest(2, 'https://10minutemail.net/address.api.php')
		$GetMail_ = StringRegExp($GetMail,'mail_id":"(.*?)","from"',3)
		If Not IsArray($GetMail_) Then ContinueLoop
		$Mail_Code = $GetMail_[0]
		$ReadMail = _HttpRequest(2, 'https://10minutemail.net/readmail.html?mid='&$Mail_Code)
		$ReadMail = StringRegExp($ReadMail,'Code is: (.*?) ',3)
		If Not IsArray($ReadMail) Then ContinueLoop
		$Code = $ReadMail[0]
		ConsoleWrite("Code: "&$Code&@LF)
		Return $Code
	WEnd
	ConsoleWrite("Get Code Fail!!!: "&@LF)
	Return False
EndFunc

Func Time_delay($time)
	For $i = 0 to $time *10
		$a= $time *10 - $i
		GUICtrlSetData($Label3,'Time delay: Đợi nhận mã '&$a/10&' giây.')
		sleep(100)
	Next
EndFunc