Nguyễn Hoàng Vũ

#include <_httpRequest.au3>
#include <Array.au3>

Global $link_login = 'https://login.yahoo.com/?intl=vn&specId=yidReg&done=https%3A%2F%2Fwww.yahoo.com&nr=1'
Global $__Request
$username = 'binguyen_linatuli@yahoo.com'
$password = 'congaru123'

_check_yahoo($username,$password)
If Not @error Then

  MsgBox(0,0,_get_confirm())

EndIf


Func _get_confirm()

  $__Request = _HttpRequest("_2",'https://mail.yahoo.com')

  $code = StringRegExp($__Request,'(\d+) là mã khôi phục tài khoản Facebook của bạn',1)
  If @error Then
    Return SetError(1,1,'No Find code')
  Else
;~     If MsgBox(64,"Thành công!",'Mã xác nhận của bạn là : ' & $code[0] & @CRLF & '(Ấn Ok để coppy)') Then ClipPut($code[0])
    Return $code[0]
  EndIf

EndFunc


Func _check_yahoo($username, $password)

    Local $acrumb, $sessionIndex
    $__Request = _HttpRequest(2, 'https://login.yahoo.com')
    $acrumb = _Get_Hidden('acrumb', $__Request)
    $sessionIndex = _Get_Hidden('sessionIndex', $__Request)

    $__data2send = 'acrumb=' & $acrumb & '&sessionIndex=' & $sessionIndex & '&username=' & $username & '&passwd=&signin=Ti%E1%BA%BFp%C2%A0theo'
    $__Request = _HttpRequest("2", $link_login, $__data2send)

    If StringInStr($__Request, 'Rất tiếc, chúng tôi không nhận ra địa chỉ email này.') Then Return SetError(1,1,'No find Email')

    $hiddens = _HttpRequest_SearchHiddenValues($__Request, '', False)

    $browser = $hiddens('browser-fp-data')
    $crumb = $hiddens('crumb')
    $acrumb = $hiddens('acrumb')
    $sessionIndex = $hiddens('sessionIndex')

    $__data2send  = 'browser-fp-data=' & $browser & '&crumb=' & $crumb & '&acrumb=' & $acrumb & '&sessionIndex=' & $sessionIndex
    $__data2send &= '&displayName=' & $username & '&username=' & $username & '&passwordContext=normal&password=' & $password & '&verifyPassword=Đăng nhập'

    $link = _GetLocationRedirect()
    $__Request = _HttpRequest(2,$link,$__data2send)
    If StringInStr($__Request,'uh-avatar') Then Return True
    Return SetError(1,2,'Password incorect.')

EndFunc   ;==>_check_yahoo

Func _Get_Hidden($value, $__Request = $__Request)

    Local $string = StringRegExp($__Request, 'name\="' & $value & '" value="(.*?)"', 1)
    If Not @error Then Return $string[0]

    $string = StringRegExp($__Request, 'id\="' & $value & '" value="(.*?)"', 1)
    If @error Then Return SetError(1, 1, 'No Find value ' & $value)
    Return $string[0]

EndFunc   ;==>_Get_Hidden