_drivereasy_giveaway_TrunghieuTH10

#cs ------------------------------------------------------------------------------------------------------

======> Tự động Lấy Key bản quyền Driver Easy 1 Năm Miễn Phí - AutotIt3

 Author:    TrunghieuTH10 - https://facebook.com/SilentSoft.VN

    Khoảng 35 giây sẽ lấy được 1 key - có thể build rồi chạy nhiều file để get nhiều key 1 lúc

    Nếu báo "Key Not Found" là email chưa nhận được.
    - Có thể lấy những key đó bằng cách check mail thủ công: http://temp-mail.org
    - Khắc phục tránh bị "Key Not Found" là đặt thời gian chờ lấy email cao lên - sẽ phải đợi lâu 1 chút

    Sửa code 1 chút so với Video để mọi người dễ dàng lấy UDF ra làm tools khác
    Đã dổi server email để nhận Key liên tục mà không bị dán đoạn hay hạn chế

#ce ------------------------------------------------------------------------------------------------------

AutoItSetOption("TrayAutoPause", 0)
AutoItSetOption('TrayMenuMode', 1)
AutoItSetOption('MustDeclareVars', 1)
AutoItSetOption("TrayOnEventMode", 1)

Global $_GET_Temp_Email, $_Email_Link_Check, $_Mail_Check, $iKey, $intTime
Global $oHTTP, $_iServer = "https://tempail.com/"
Global $Keyfile = @ScriptDir & "\KEY_drivereasy_1YEAR.txt" ;~ Đường dẫn tệp lưu KEY
Global $_So_Key_Muon_Lay = 10 ;~ Nhập số key muốn lấy

SplashTextOn("", "Đang lấy key bản quyền 1 năm cho phần mềm Driver Easy - TrunghieuTH10", 520, 18, -1, 12, 33, "Tahoma", 10, 700)

For $i = 1 To $_So_Key_Muon_Lay
    $intTime = TimerInit()
    $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
    $_GET_Temp_Email = _Winhttp_Request_obj($oHTTP, $_iServer, 'data-clipboard-text="(.*?)"')
    If Not @error Then _drivereasy_giveaway_register($_GET_Temp_Email)
    If Not @error Then
        Sleep(30000) ;~ Thời gian chờ kiểm tra email để lấy key (đơn vị ms) mình để 3 giây
        $_Email_Link_Check = _Winhttp_Request_obj($oHTTP, $_iServer, '(https://tempail.com/en/mail_.*?)"')
        If Not @error Then $_Mail_Check = _Winhttp_Request_obj($oHTTP, $_Email_Link_Check, '(https://tempail.com/en/api/icerik/.*?)"')
        If Not @error Then $iKey = _Winhttp_Request_obj($oHTTP, $_Mail_Check)
        If Not @error Then $iKey = _drivereasy_giveaway_read_key($iKey)
        If Not @error Then ConsoleWrite((FileWriteLine($Keyfile, $iKey) - 1 + $i) & ". " & $iKey & @CRLF)
    EndIf
Next

Func _drivereasy_giveaway_register($sEmail)
    $sEmail = "prefixName=VCF&productId=26872-3&productType=DE&flag=true&email=" & $sEmail & "&confirmemail=" & $sEmail
    Local $oReceived = _Winhttp_Request_obj(1, "https://www.drivereasy.com/giveaway/wonderfox/ValidCode.php", "0", "POST", $sEmail)
    If StringInStr($oReceived, "Once your email address is verified") Then Return SetError(-1, 0, False)
    Return True
EndFunc

Func _drivereasy_giveaway_read_key($inetReceived)
    Local $KEY = StringRegExp($inetReceived, "([A-Z0-9]{5}-[A-Z0-9]{5}-[A-Z0-9]{5}-[A-Z0-9]{5}-[A-Z0-9]{5})", 3)
    If @error Then Return SetError(-1, 0, "Key Not Found")
    Return $KEY[0]
EndFunc

Func _Winhttp_Request_obj($oHTTP, $_iServer, $regEx = "0", $oAction = "GET", $oData = "")
    Local $User_Agent='Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.115 Safari/537.36'
    If BitOR($oHTTP = 1, $oHTTP = Default, $oHTTP = "HTTP") Then $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open($oAction, $_iServer, False)
    $oHTTP.SetRequestHeader('User-Agent', $User_Agent)
    If Not @error Then $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded");~ Content-Type: "application/x-www-form-urlencoded,"application/json", "multipart/form-data", "website"
    $oHTTP.SetRequestHeader('Referer', $_iServer)
    If Not @error Then $oHTTP.Send($oData)
    If Not @error Then $oHTTP.WaitForResponse
    Local $oReceived = $oHTTP.ResponseText
    Local $oStatusCode = $oHTTP.Status
    If $oStatusCode <> 200 Then ConsoleWrite("Response code: " & $oStatusCode & @CRLF)
    If $regEx <> "0" Then
        $oReceived = StringRegExp($oReceived, $regEx, 3)
        If @error Then Return SetError(-1, 0, 0)
        ConsoleWrite($oReceived[0] & @CRLF)
        Return $oReceived[0]
    EndIf
    Return $oReceived
EndFunc


;~================================================================
;
;   User Defined Functions For https://temp-mail.org
;
;       By TrunghieuTH10 - trunghieuth10@gmail.com
;
;~================================================================

Func _GET_Temp_mail_org()
    Local $sEmail = _Winhttp_Request_obj(1, "https://temp-mail.org/en/", 'class="mail opentip" value="(.*?)"')
    If @error Then SetError(-1, 0, 0)
    Return $sEmail
EndFunc

Func _ChangeMail_Temp_mail_org($iEmail, $iDomain)
    Local $sUrL = "https://temp-mail.org/en/option/change/"
    Local $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
    Local $csrf = _Winhttp_Request_obj($oHTTP, $sUrL, '"csrf" value="(.*?)"')
    If Not @error Then _Winhttp_Request_obj($oHTTP, $sUrL, "0", "POST", "csrf=" & $csrf & "&mail=" & $iEmail & "&domain=@" & $iDomain)
    Local $_Refresh_link = _Winhttp_Request_obj($oHTTP, "https://temp-mail.org/en/option/refresh/", 'https://temp-mail.org/en/view(.*?)"')
    Local $oReceived = _Winhttp_Request_obj($oHTTP, "https://temp-mail.org/en/view" & $_Refresh_link)
    ConsoleWrite(StringRegExp($oReceived, 'class="mail opentip" value="(.*?)"', 3)[0] & @CRLF)
    Return $oReceived
EndFunc