abccc

#Region ### START Koda GUI section ###
$LOGIN1 = GUICreate("LOGIN iBOTVN",  253, 225, 357, 199)
GUISetIcon ($dirdata & 'img\icon.ico', -1)
$LOGO1 = GUICtrlCreatePic($dirdata & 'img\logo.jpg', 24, 8, 196, 89)
$IPUSER1 = GUICtrlCreateInput($ruser2, 19, 112, 142, 21)
$IPPASS1 = GUICtrlCreateInput($rpass2, 19, 146, 142, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$BLOGIN1 = GUICtrlCreateButton("Button1", 176, 112, 59, 57, BitOR($BS_DEFPUSHBUTTON,$BS_ICON))
GUICtrlSetImage(-1, $dirdata & 'img\blogin.ico', 1)
GUICtrlCreateLabel("http://ibotvn.com", 112, 72, 94, 20)
$StatusBar1 = _GUICtrlStatusBar_Create($LOGIN1)
_GUICtrlStatusBar_SetText($StatusBar1, ' Copyright (c) 2015 iBOTVN.COM')
$cCheckbox1 = GUICtrlCreateCheckbox("Nhớ mật khẩu", 19, 168, 97, 17)
GUICtrlSetState($cCheckbox1,$GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Func _BLOGIN1()

    $user = GUICtrlRead($IPUSER1)
    $pass = GUICtrlRead($IPPASS1)
	If ($user == "") Then
	   MsgBox(0, "", "Tài khoản trống!")
	ElseIf ($pass == "") Then
	   MsgBox(0, "", "Mật khẩu trống!")
	   EndIf
    If $user == '' Or $pass == '' Then Return -1
    $oIE = _IECreate('http://ibotvn.com/forum/login', 0, 0)
    _GUICtrlStatusBar_SetText($StatusBar1, ' >> Đang đăng nhập ...')
	$oForm = _IEGetObjById($oIE, 'pageLogin')
    $oUser = _IEGetObjByName($oIE, 'login')
    $oPass = _IEGetObjByName($oIE, 'password')
    _IEFormElementSetValue($oUser, $user)
    _IEFormElementSetValue($oPass, $pass)
	_GUICtrlStatusBar_SetText($StatusBar1, ' >> Kiểm tra tài khoản ...')
    _IEFormSubmit($oForm)
    $PageSource = _IEBodyReadHTML($oIE)
	$PageText = _IEBodyReadText($oIE)
    If StringInStr($PageText, 'Trang chủ') > 0 Then
	   TrayTip("iBOTVN", "Đăng nhập thành công!", 0)
	    Local $RIPUSER1 = GUICtrlRead($IPUSER1)

		GUISetState(@SW_HIDE, $LOGIN1)
		 Sleep(200)
	    GUISetState(@SW_SHOW, $IBOT2)
        $logout = _StringBetween($PageSource, 'href="logout/', '"')[0]
        _IENavigate ($oIE,'http://ibotvn.com/forum/logout/'&$logout )
		_IEQuit($oIE)
	 Else
		_GUICtrlStatusBar_SetText($StatusBar1, ' Copyright (c) 2015 iBOTVN.COM')
        MsgBox(0, "Thông Báo", "Đăng nhập thất bại")
    EndIf
 EndFunc