#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=AnhThichEm.exe
#AutoIt3Wrapper_Outfile_x64=AnhThichEm.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------


 Author:         Admin.Haku


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

WinMinimizeAll()

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

FileInstall ("baby.jpg", "baby.jpg")
FileInstall ("valentine.jpg", "valentine.jpg")
$main1= GUICreate ("",400,200)
GUISetBkColor (0x00FFaa)
GUISetFont (9, "Comic Sans MS")
$msgbox= GUICtrlCreateLabel ('Trông Ấy dễ thương thế nào ý… ^^!          '&@CRLF&' Dễ thương nhứt trong tất cả những người mình biết luôn :D    '&@CRLF&' Thật 100% lun đấy ^^!'&@CRLF&' Mình nhìn Ấ sao mà thấy tim mình loạn nhịp cả lên…      '&@CRLF&' Có lẽ mình thích Ấ mất tiu òi :P '&@CRLF&' Mình tự hỏi hổng biết Ấy có thích mình hông nhỉ… :D ?',10,20,350,100)
$traloi= GUICtrlCreateButton ("Trả Lời",160, 150, 52, 27)
GUISetState()
While 1
   $select= GUIGetMsg()
   Select
Case $select= $GUI_EVENT_CLOSE
   MsgBox (0, "Haku.4rumer.Com", 'Ấy chưa trả lời mình mà…   Trả lời mình đi ^^!')
Case $select= $traloi
   ExitLoop
   EndSelect
WEnd
GUIDelete($main1)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$main= GUICreate ("", 1000, 379)
GUISetBkColor (0x00FFaa)
$mainpic= GUICtrlCreatePic ("baby.jpg", 250, 1, 501, 379)
GUISetFont (9, "Comic Sans MS")
$yeu= GUICtrlCreateButton ("Thích", 20, 150, 100, 85)
$kyeu= GUICtrlCreateButton ("Không Thích", 850, 150, 125, 85)
GUISetState()
Global $mouse= True, $var[1]

Func _Mouse()
   Sleep (100)
   While $mouse
      $var= MouseGetPos()
      $select= GUIGetMsg()

      Select
      Case $select= $GUI_EVENT_CLOSE
         MsgBox (0, "Haku.4rumer.Com", 'Ấy chưa trả lời mình mà…   Trả lời mình đi ^^!')
      Case $select= $yeu
         MsgBox (0,"", 'Mình biết ngay mà, Biết ngay là Ấy cũng thích mình mà ^^!  HìHì')
         ExitLoop
      Case $select=$kyeu
         MsgBox (0,"Haku.4rumer.Com",'Ấy thật nhẫn tâm :(, lời Ấy nói làm tim mình muốn vỡ cả ra… hix hix   Tự nhiên mún nghe bài heartbroken quá '&@CRLF&'Ấy xác nhận lại lần nữa đi ^^!')
      Case $var[0]< 100
         $var[0]= 100
      Case $var[0]> 300
         $var[0]= 300
      Case $var[1]< 300
         $var[1]= 300
      Case $var[1]> 510
         $var[1]= 510
      EndSelect
      MouseMove ($var[0], $var[1])
   WEnd
   $pic= "valentine.jpg"
   SplashImageOn ("Haku.4rumer.Com", $pic, 1000, 600)
   Sleep(5000)
   SplashOff()
   WinMinimizeAllUndo()
   FileDelete ("baby.jpg")
   FileDelete ("valentine.jpg")
   Exit
EndFunc

While 1
   $var= MouseGetPos()
   If ($var[0]>1 And $var[0]<1000 And $var[1]>1 And $var[1]< 1000) Then
      _Mouse()
   EndIf
   Sleep (100)
WEnd