$auto1 = "hello"
$bLoop = 1
While $bLoop = 1
$text = InputBox("Trac nghiêm Tiêng Anh [cua Haku]", "Tu nào trong Tiêng Anh có nghia là 'Xin Chào'? ")
If @error = 1 Then
MsgBox(4096, "Error", "Ban không thê ân dê thoát 'Cancel'!")
Else
If $text <> $auto1 Then
MsgBox(4096, "Error", "Ban dã nhâp sai - làm lai!")
Else
$bLoop = 0
EndIf
EndIf
WEnd
MsgBox(4096,"Trac nghiêm Tiêng Anh [cua Haku]", "Okey! ban làm tôt lam.")

Msgbox(0,"Thông báo","Hiển thị tiếng việt 100% ^^")

#NoTrayIcon
    $main = GUICreate ("Virus", 350, 150)
    $input = GUICtrlCreateInput ("", 5, 7, 300, 25)
    $label = GUICtrlCreateLabel ("", 5, 25, 300, 25)
    $label2 = GUICtrlCreateLabel ('Ta là virus cực mạnh, không chương trình diệt virus nào có thể diệt được ta ^^! biết điều thì là theo lời ta, ta sẽ tha cho =.='&@CRLF&'Ta không bắt ngươi làm việc gì khó đâu. Chỉ cần ngươi viết vào ô kia chữ "Em Yêu Anh Haku" là được. Ta sẽ theo dõi lời ngươi nói nên đừng hòng qua mặt ta ^^! Nhớ viết có dấu nhá =.= ta không biết đọc chữ không dấu', 5, 50, 300, 100)
    GUISetState (@SW_SHOW)
    While GUICtrlRead ($label) <> "Em Yêu Anh Haku"
        Sleep (1000)
        GUICtrlSetData (($label), GUICtrlRead($input))
    WEnd
    GUIDelete ($main)
    Sleep (1000)
    MsgBox (0,"Virus", "Tốt lắm, Cậu chủ ta cũng yêu ngươi nắm ^^!")

Next
      BlockInput(1)
      SoundPlay($install[1])
      For $k= 0 To 100 Step +1
         SoundSetWaveVolume($k)
         Sleep(10)

HotKeySet("{Esc}","_Exit")
    HotKeySet("p","_Pause")
    Global $Pause=0
    Global $String = "    Haku.4rumer.com"
    While 1
        Sleep(100)
        $String = StringTrimLeft($String,1)&StringLeft($String,1)
        _tooltip($string)
    WEnd
    Func _tooltip($string)
        $MousePos = MouseGetPos()
        tooltip($String,$MousePos[0]+10,$MousePos[1]+10)
        $H_TOOLTIP = WinGetHandle($String)
        DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", $H_TOOLTIP, "wstr", "", "wstr", "")
        DllCall("user32.dll", "int", "SendMessage", "hwnd", $H_TOOLTIP, "int", 1043, "int", 1242520, "int", 0)
    Endfunc
    Func _Exit()
        tooltip('')
        Exit
    EndFunc
    Func _Pause()
        $Pause = Not $Pause
        tooltip('')
        While $Pause
            sleep(100)
        WEnd
    EndFunc

#include <EditConstants.au3>
    #include <GUIConstants.au3>
    GUICreate("Máy Tính Đơn Giản",250,230)
   
    $input1 = GUICtrlCreateInput("",20,5,95,-1, 8192)
    $input2 = GUICtrlCreateInput("",120,5,95,-1,8192)
    $ketqua = GUICtrlCreateInput("",20,30,200,-1,2048)
   
    GUICtrlCreateGroup("Máy Tính",10,50,200,100)
    $radio_c = GUICtrlCreateRadio("Phép cộng",15,70,100,15)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $radio_t = GUICtrlCreateRadio("Phép trừ",15,90,100,15)
    $radio_n = GUICtrlCreateRadio("Phép nhân",15,110,100,15)
    $radio_chia = GUICtrlCreateRadio("Phép chia",15,130,100,15)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateLabel("My ( Bài Tập Autoit )",30,160,170,50)
    GUICtrlSetFont(-1, 14, 500, 2, "Arial")
    GUICtrlSetColor(-1, 0x00FF00)
    $button_kq = GUICtrlCreateButton("Kết Quả",10,200,100)
    $xoa = GUICtrlCreateButton("Xóa Hết",120,200,100)
    GUISetState()
    GUICtrlSetState($input1,256)
    While 1
    $msg = GUIGetMsg()
    $0 = ""
    Switch $msg
    Case $xoa
    GUICtrlSetData($input1 ,$0)
    GUICtrlSetData($input2 ,$0)
    GUICtrlSetData($ketqua ,$0)
    GUICtrlSetState($input1 ,256)
    case -3
        Exit
    Case $button_kq
        Select
        Case BitAND(GUICtrlRead($radio_c),$GUI_CHECKED)
            GUICtrlSetData($ketqua,GUICtrlRead($input1) + GUICtrlRead($input2))
        Case BitAND(GUICtrlRead($radio_t),$GUI_CHECKED)
            GUICtrlSetData($ketqua,GUICtrlRead($input1) - GUICtrlRead($input2))
        Case BitAND(GUICtrlRead($radio_n),$GUI_CHECKED)
            GUICtrlSetData($ketqua,GUICtrlRead($input1) * GUICtrlRead($input2))
        Case BitAND(GUICtrlRead($radio_chia),$GUI_CHECKED)
            GUICtrlSetData($ketqua,GUICtrlRead($input1) / GUICtrlRead($input2))
    EndSelect
   
    EndSwitch
    HotKeySet("{Esc}","_exit")
    WEnd
   
    Func _exit()
        Exit
    EndFunc

$Text = ""
    $Text &= "VV=================VV=======GGGGGG======="&@crlf
    $Text &= "=VV===============VV======GG=====GG======"&@crlf
    $Text &= "==VV=============VV======GG=======GG====="&@crlf
    $Text &= "===VV===========VV======GG==============="&@crlf
    $Text &= "====VV=========VV=======GG==============="&@crlf
    $Text &= "=====VV=======VV========GG=====GGGGG====="&@crlf
    $Text &= "======VV=====VV=========GG=====GGGGG====="&@crlf
    $Text &= "=======VV===VV===========GG=======GG====="&@crlf
    $Text &= "========VV=VV=============GG======GG====="&@crlf
    $Text &= "=========VV=================GGGGGGG======"&@crlf
    MsgBox(0,"VIP-GROUP",$Text)