#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=test.Haku.exe
#AutoIt3Wrapper_Outfile_x64=test.Haku.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Global $Text = 'Trả Lời Thật Lòng Nhé'
Global $min = 0
Global $max = 9
Global $i = 1

Dim $iMouseX, $iOldMouseX, $iMouseY, $iOldMouseY
Dim $TitelleistenHoehe = 32

Opt("MouseCoordMode", 0)
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Haku.4rumer.Com", 170, 90,-1,-1,$WS_CAPTION)
$label01 = GUICtrlCreateLabel('EM CÓ YÊU ANH KHÔNG?',5, 5, 165,20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
$Bu_YES =  GUICtrlCreateButton('Có',15, 25, 60,35)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Bu_NO =  GUICtrlCreateButton('Không',95, 25, 60,35)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$label02 = GUICtrlCreateLabel($Text,22, 75, 130,22)
;GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetColor(-1, 0x3333FF)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUICtrlSetOnEvent($Bu_YES, "_Bu_YES")
GUICtrlSetOnEvent($Bu_NO, "_Bu_NO")

While 1
   _YES_NO()
   _HieuUngAbout()
  Sleep(50)
WEnd
Func _HieuUngAbout()
  Sleep(50)
  $i += 1
  GUICtrlSetData($Label02,StringLeft($text,$i))
  GUICtrlSetColor($Label02,0xFF&Random($min, $max, 1)&Random($min, $max, 1)&Random($min, $max, 1)&Random($min, $max, 1))
  If $i >= StringLen($text) Then $i = 0
  EndFunc

Func _YES_NO()
  $iMouseX = MouseGetPos(0)
  $iMouseY = MouseGetPos(1)

If $iMouseX > 15 And $iMouseX < 80 And $iMouseY > 16 + $TitelleistenHoehe And $iMouseY < 55 + $TitelleistenHoehe Then
     If GUICtrlRead($Bu_NO) = 'Có' And GUICtrlRead($Bu_YES) = 'Không' Then
     GUICtrlSetData($Bu_NO, 'Không')
     GUICtrlSetData($Bu_YES, 'Có')
     EndIf
ElseIf $iMouseX > 95 And $iMouseX < 160 And $iMouseY > 16 + $TitelleistenHoehe And $iMouseY < 55 + $TitelleistenHoehe Then
      If GUICtrlRead($Bu_NO) = 'Không' And GUICtrlRead($Bu_YES) = 'Có' Then
     GUICtrlSetData($Bu_NO, 'Có')
     GUICtrlSetData($Bu_YES, 'Không')
     EndIf
EndIf
EndFunc

Func _Bu_NO()
  If GUICtrlRead($Bu_NO) = 'Không' And GUICtrlRead($Bu_YES) = 'Có' Then
     GUICtrlSetData($Bu_NO, 'Có')
     GUICtrlSetData($Bu_YES, 'Không')
  ElseIf GUICtrlRead($Bu_NO) = 'Có' Or GUICtrlSetData($Bu_YES, 'Có') Then
    MsgBox(262144+64, 'Haku.4rumer.Com', 'THIỆT KHÔNG VẬY E?'  &@CRLF& "ĐỪNG LÀM ANH MỪNG HỤT NHE :-X")
    MsgBox(262144+64, 'Haku.4rumer.Com', 'ANH... s2 <3 :-X'  &@CRLF& "ANH CŨNG YÊU EM NHIỀU LẮM ĐÓ... :-X")
    Exit
  EndIf
EndFunc

Func _Bu_YES()
    If GUICtrlRead($Bu_NO) = 'Có' And GUICtrlRead($Bu_YES) = 'Không' Then
     GUICtrlSetData($Bu_NO, 'Không')
     GUICtrlSetData($Bu_YES, 'Có')
  ElseIf GUICtrlRead($Bu_NO) = 'Có' Or GUICtrlSetData($Bu_YES, 'Có') Then
    MsgBox(262144+64, 'Haku.4rumer.Com', 'THIỆT KHÔNG VẬY E?'  &@CRLF& "ĐỪNG LÀM ANH MỪNG HỤT NHE :-X")
    MsgBox(262144+64, 'Haku.4rumer.Com', 'ANH... s2 <3 :-X'  &@CRLF& "ANH CŨNG YÊU EM NHIỀU LẮM ĐÓ... :-X")
    Exit
  EndIf
EndFunc