Dota hoykey

[Gerald]

this is my first script in autoit script i will share this script to everyone to make my script better post your comment her

expandcollapse popup

#include <GUIConstants.au3>


#Region ### START Koda GUI section ### Form=C:\Documents and Settings\_Gerald__\Desktop\Form2.kxf

$body = GUICreate("Dota Hotkey and Auto send Msg v.1", 328, 150, 312, 450)
$Label1 = GUICtrlCreateLabel("F2", 16, 32, 16, 17)
$salita1 = GUICtrlCreateInput("Back na Sir", 40, 32, 113, 21)
$Label2 = GUICtrlCreateLabel("F3", 168, 32, 16, 17)
$salita3 = GUICtrlCreateInput("Push Tayo", 192, 32, 121, 21)
$Label3 = GUICtrlCreateLabel("F4", 16, 56, 16, 17)
$salita2 = GUICtrlCreateInput("Basag lang", 40, 56, 113, 21)
$Label4 = GUICtrlCreateLabel("F5", 168, 56, 16, 17)
$salita4 = GUICtrlCreateInput("hahaha nice 1", 192, 56, 121, 21)
$OK = GUICtrlCreateButton("OK", 192, 120, 59, 25, 0)
$About = GUICtrlCreateButton("About", 256, 120, 59, 25, 0)
$Label5 = GUICtrlCreateLabel("Create By: Gerald Catague", 104, 88, 130, 17)
$Label6 = GUICtrlCreateLabel("Instruction Click About", 8, 128, 110, 17)
$keyrun = HotKeySet("{Home}","runkey")
$hidetry = HotKeySet("{insert}","_show")
$showtry = HotKeySet("{delete}","_hide")
$pausekey = HotKeySet("{end}","pausehotkeys")
GUISetState(@SW_SHOW)
TrayTip("Dota Hotkey and Auto Send msg", "Run Dota and Press Home To run Hotkey", 5, 1)
#EndRegion ### END Koda GUI section ###
Opt("TrayMenuMode",1); Default tray menu items (Script Paused/Exit) will not be shown.

$prefsitem  = TrayCreateItem("Instruction")
TrayCreateItem("")
$aboutitem  = TrayCreateItem("About")
TrayCreateItem("")
$showtray   = TrayCreateItem("Show [Insert]")
$hidetray   = TrayCreateItem("Hide[Delete]")
TrayCreateItem("")
$exititem   = TrayCreateItem("Exit")

TraySetState()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $keyrun
            runkey()
            case $pausekey
        Case $hidetry
        case $showtry

    EndSwitch
        $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $prefsitem
            instructiontry()

            
        Case $msg = $aboutitem
            abouttrymsg()
        Case $msg = $exititem
            ExitLoop
    EndSelect
WEnd
func _hide()
    GUISetState(@SW_HIDE, $body)
 TrayTip("Dota Hotkey and Auto Send msg", "Click the about to see instruction", 5, 1)
EndFunc


func _show()
    GUISetState(@SW_SHOW, $body)
     TrayTip("Dota Hotkey and Auto Send msg", "Click the about to see instruction", 5, 1)
EndFunc
Func alert()
    if WinGetTitle("Warcraft III") <> "This Gui Title" then
        
        send ("{ENTER}")
    Send(GUICtrlRead($salita1))
    send ("{ENTER}")
    Sleep(10000)
    Return

    EndIf
EndFunc


Func panasar()
    if WinGetTitle("Warcraft III") <> "This Gui Title" then
        
        send ("{ENTER}")
    Send(GUICtrlRead($salita3))
    send ("{ENTER}")
    Sleep(10000)
    Return
    EndIf
EndFunc

Func panasar2()
    if WinGetTitle("Warcraft III") <> "This Gui Title" then
        
        send ("{ENTER}")
    Send(GUICtrlRead($salita2))
    send ("{ENTER}")
    Sleep(10000)
    Return
    EndIf
EndFunc


Func panasar3()
    if WinGetTitle("Warcraft III") <> "This Gui Title" then
        
        send ("{ENTER}")
    Send(GUICtrlRead($salita4))
    send ("{ENTER}")
    Sleep(10000)
    Return
    EndIf
EndFunc


Func runkey()
    
HotKeySet("!z", "sendky1") ;Shift-Alt-d
HotKeySet("!x", "sendky2") ;Shift-Alt-d
HotKeySet("!c", "sendky3") ;Shift-Alt-d
HotKeySet("!a", "sendky4") ;Shift-Alt-d
HotKeySet("!s", "sendky5") ;Shift-Alt-d
HotKeySet("!d", "sendky6") ;Shift-Alt-d
HotKeySet("!q", "sendky7") ;Shift-Alt-d
HotKeySet("!w", "sendky8") ;Shift-Alt-d
HotKeySet("!e", "sendky9") ;Shift-Alt
HotKeySet("{F2}", "alert") ;Shift-Alt-d
HotKeySet("{F3}", "panasar")
HotKeySet("{F4}", "panasar2")
HotKeySet("{F5}", "panasar3")
 ;Shift-Alt-d
TrayTip("Dota Hotkey and Auto Send msg", "hotkey Runing to Disable Press End", 5, 1)
    
    
EndFunc

func pausehotkeys()
    HotKeySet("!z")
HotKeySet("!x") ;Shift-Alt-d
HotKeySet("!c") ;Shift-Alt-d
HotKeySet("!a") ;Shift-Alt-d
HotKeySet("!s") ;Shift-Alt-d
HotKeySet("!d") ;Shift-Alt-d
HotKeySet("!q") ;Shift-Alt-d
HotKeySet("!w") ;Shift-Alt-d
HotKeySet("!e") ;Shift-Alt
HotKeySet("{F2}") ;Shift-Alt-d
HotKeySet("{F3}")
HotKeySet("{F4}")
HotKeySet("{F5}")

TrayTip("Dota Hotkey and Auto Send msg", "hotkeyPause to resume Press Home", 5, 1)
    EndFunc



Func sendky1()
    if WinGetTitle("Warcraft III") <> "This Gui Title" then
    Send("{NumPad1}")
    Return
    EndIf
EndFunc

Func sendky2()
        if WinGetTitle("Warcraft III") <> "This Gui Title" then
    Send("{NumPad2}")
    Return
    EndIf
EndFunc

Func sendky3()
        if WinGetTitle("Warcraft III") <> "This Gui Title" then
    Send("{NumPad3}")
    Return
    EndIf
EndFunc


Func sendky4()
        if WinGetTitle("Warcraft III") <> "This Gui Title" then
    Send("{NumPad4}")
    Return
    EndIf
EndFunc


Func sendky5()
        if WinGetTitle("Warcraft III") <> "This Gui Title" then
    Send("{NumPad5}")
    Return
    EndIf
EndFunc


Func sendky6()
        if WinGetTitle("Warcraft III") <> "This Gui Title" then
    Send("{NumPad6}")
    Return
    EndIf
EndFunc


Func sendky7()
        if WinGetTitle("Warcraft III") <> "This Gui Title" then
    Send("{NumPad7}")
    Return
    EndIf
EndFunc


Func sendky8()
        if WinGetTitle("Warcraft III") <> "This Gui Title" then
    Send("{NumPad8}")
    Return
    EndIf
EndFunc


Func sendky9()
        if WinGetTitle("Warcraft III") <> "This Gui Title" then
    Send("{NumPad9}")
    Return
    EndIf
EndFunc

func abouttrymsg()
    Msgbox(64, "About:", "dota hotkey")
EndFunc

Func instructiontry()
    
    Msgbox(64, "Preferences:", "catague")
    EndFunc

post you suggestion her

[adik2dmax666]

lol pag click ko ng about walang lumabas.