Hỏi đáp Nhờ sửa dùm code Ẩn/hiện dưới Taskbar

Xin nhờ các anh sửa dùm cái code sau sao cho nó ẩn/hiện khi nhấn dưới Taskbar

Mã (AutoIt):

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\Autoit\koda_1.7.2.0\Tool CCVV.kxf

Global $hwnd,$hien=True,$chay=False

Opt("GUIOnEventMode",1)
Opt("TrayIconHide",1)
Opt("TrayMenuMode",1)
Opt("TrayOnEventMode",1)
TraySetIcon("Shell32.dll",25)
TraySetOnEvent(-13,"anhien") ;Khi click chuột thì hiện Gui
TraySetOnEvent(-11,"info") ;Khi di chuyển chuột qua
TraySetClick(1)
TraySetState()
$trBD=TrayCreateItem("Ẩn/Hiện Cửa Sổ") ; mở 1 cửa sổ game và ẩn cửa sổ đó
TrayItemSetOnEvent(-1,"Ẩn Hiện Cửa Sổ") ; mở 1 cửa sổ game và ẩn cửa sổ đó
$trah=TrayCreateItem("Ẩn/Hiện Tool")
TrayItemSetOnEvent(-1,"Ẩn/Hiện Tool")
TrayCreateItem("")
$trth=TrayCreateItem("Thoát")
TrayItemSetOnEvent(-1,"Thoát")
;=>TrayIcon

$Form1 = GUICreate("Tool CCVV 1.0.0", 191, 304, 190, 121)
GUISetBkColor(0xD4D0C8)
$Tab1 = GUICtrlCreateTab(0, 0, 193, 321)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("CCVV")
$Group1 = GUICtrlCreateGroup("Chức Năng", 13, 32, 169, 193)
$Button1 = GUICtrlCreateButton("Thả Cá (24/24)", 29, 56, 131, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Cày Vàng", 29, 88, 131, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Quay Số", 29, 120, 131, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Giúp Đỡ", 29, 152, 131, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Cửa Sổ CCVV", 29, 184, 131, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button6 = GUICtrlCreateButton("Ẩn", 16, 232, 67, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1,"anhien")
GUICtrlSetTip(-1,"Ẩn Tool xuống Taskbar")
GUICtrlSetBkColor(-1, 0xEBE9ED)
GUICtrlCreateButton("Exit", 24, 272, 141, 17)
GUICtrlSetOnEvent(-1,"thoat")
$Button7 = GUICtrlCreateButton("Ẩn CCVV", 104, 232, 75, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xEBE9ED)
$TabSheet2 = GUICtrlCreateTabItem("Acc Fram")
$Gruop2 = GUICtrlCreateGroup("Acc Phụ Up Vàng", 13, 32, 169, 263)
$Checkbox1 = GUICtrlCreateCheckbox("Acc Chính", 24, 56, 75, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Acc 2", 24, 80, 75, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Acc 3", 24, 104, 75, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Acc 4", 24, 128, 75, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Acc 5", 24, 152, 75, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Acc 6", 24, 176, 75, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Acc 7", 24, 200, 75, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Acc 8", 24, 224, 75, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Acc 9", 24, 248, 75, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Acc 10", 24, 272, 75, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Acc 11", 100, 56, 75, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Acc 12", 100, 80, 75, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Acc 13", 100, 104, 75, 17)
$Checkbox14 = GUICtrlCreateCheckbox("Acc 14", 100, 128, 75, 17)
$Checkbox15 = GUICtrlCreateCheckbox("Acc 15", 100, 152, 75, 17)
$Checkbox16 = GUICtrlCreateCheckbox("Acc 16", 100, 176, 75, 17)
$Checkbox17 = GUICtrlCreateCheckbox("Acc 17", 100, 200, 75, 17)
$Checkbox18 = GUICtrlCreateCheckbox("Acc 18", 100, 224, 75, 17)
$Checkbox19 = GUICtrlCreateCheckbox("Acc 19", 100, 248, 75, 17)
$Checkbox20 = GUICtrlCreateCheckbox("Acc 20", 100, 272, 75, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("About")
$Edit1 = GUICtrlCreateEdit("", 8, 32, 177, 265)
GUICtrlSetData(-1, StringFormat("Thông tin\r\nPhiên bản hiện tại: 1.0.0\r\n\r\nPhần mềm được viết bởi\r\ntác giả \r\n\r\nLiên hệ Zing Me tường nhà\r\n\r\nhttp://me.zing.vn/u/1st.ly"))
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

;Ẩn hiện tray

Func anhien()
    info()
    TrayItemSetState($trah,4)
    $hien=Not $hien
    If $hien=True Then
        GUISetState(@SW_SHOW)
    Else
        GUISetState(@SW_HIDE)
    EndIf
EndFunc
Func info()
    TrayTip("Tool CCVV","Chương trình đang ẩn (Nhấp đôi để hiện)",3)
EndFunc
Func thoat()
    Exit
EndFunc
 

 

Mã (AutoIt):

Func anhien()
    If WinGetState ($Form1,"") = 7 Then
        GUISetState(@SW_HIDE)
    Else
        GUISetState(@SW_SHOW)
    EndIf
EndFunc
 

 

Cám ơn các sư huynh! Nhưng trong Code trên em lại không thể chạy được các phần khác ( Ví dụ như khi click vào Thả cá thì hiện MsgBox(64,"Thông báo","Đang thả cá",0)