nid help in save

Gerald · September 28, 2009

can some one help me

i made my program i want to save the drop down menu in .inf

my text box is save properly but in my drop menu i can save it plss help me

her is my code

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_icon=star-wars\Dart Wader.ico

#AutoIt3Wrapper_Res_Comment=Cat-Hotkey Final 0.1

#AutoIt3Wrapper_Res_Description=Cat-Hotkey Final 0.1

#AutoIt3Wrapper_Res_Fileversion=0.1.0.0

#AutoIt3Wrapper_Res_LegalCopyright=Gerald Catague

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=d:\project code\project dota\layout pic\form13.kxf

$sIniFile = @WindowsDir & "\Cat-Hotkey Config.ini"

$spm = IniRead($sIniFile, "Cat-Hotkey Final 0.1", "spam msg 1", "Walng Hero d2")

$spm2 = IniRead($sIniFile, "Cat-Hotkey Final 0.1", "spam msg 2", "nc dude")

$spm3 = IniRead($sIniFile, "Cat-Hotkey Final 0.1", "spam msg 3", "back n sir")

$spm4 = IniRead($sIniFile, "Cat-Hotkey Final 0.1", "spam msg 4", "-apso")

$mainbody = GUICreate("Cat-Hotkey Final 0.1", 356, 306, 356, 217)

$PageControl1 = GUICtrlCreateTab(8, 8, 340, 256)

GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)

$TabSheet1 = GUICtrlCreateTabItem("Msg Set")

$Checkbox1 = GUICtrlCreateCheckbox("Enemy Hp", 248, 227, 81, 17)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Checkbox2 = GUICtrlCreateCheckbox("Allies Hp", 168, 227, 73, 17)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Button4 = GUICtrlCreateButton("Save Setting", 96, 163, 163, 25)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Input1 = GUICtrlCreateInput($spm, 48, 83, 121, 24)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Input2 = GUICtrlCreateInput($spm2, 48, 123, 121, 24)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Input3 = GUICtrlCreateInput($spm3, 208, 83, 121, 24)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Input4 = GUICtrlCreateInput($spm4, 208, 123, 121, 24)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Label1 = GUICtrlCreateLabel("F6 =", 16, 83, 31, 20)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Label2 = GUICtrlCreateLabel("F7 =", 16, 123, 31, 20)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Label3 = GUICtrlCreateLabel("F8 =", 176, 83, 31, 20)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Label4 = GUICtrlCreateLabel("F9 =", 176, 123, 27, 20)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

$Group1 = GUICtrlCreateGroup("HP bar view", 160, 203, 177, 57)

GUICtrlSetFont(-1, 10, 400, 0, "Arial")

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Label14 = GUICtrlCreateLabel("Press F5 to on/off Send Msg", 104, 51, 158, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label16 = GUICtrlCreateLabel("Click Help for more info", 16, 242, 132, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$TabSheet2 = GUICtrlCreateTabItem("Inventory key set")

$C9 = GUICtrlCreateCombo("NumPad 9", 56, 75, 105, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$C8 = GUICtrlCreateCombo("NumPad 8", 56, 107, 105, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$C7 = GUICtrlCreateCombo("NumPad 7", 56, 139, 105, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$C6 = GUICtrlCreateCombo("NumPad 6", 56, 171, 105, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$C5 = GUICtrlCreateCombo("NumPad 5", 56, 203, 105, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$C4 = GUICtrlCreateCombo("NumPad 4", 216, 75, 113, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$C3 = GUICtrlCreateCombo("NumPad 3", 216, 107, 113, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$C2 = GUICtrlCreateCombo("NumPad 2", 216, 139, 113, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$C1 = GUICtrlCreateCombo("NumPad 1", 216, 171, 113, 25)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Label5 = GUICtrlCreateLabel("Alt+w =", 16, 107, 43, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label6 = GUICtrlCreateLabel("Alt+e =", 16, 75, 41, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label7 = GUICtrlCreateLabel("Alt+q =", 16, 139, 41, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label8 = GUICtrlCreateLabel("Alt+d =", 16, 171, 41, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label9 = GUICtrlCreateLabel("Alt+s =", 16, 203, 41, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label10 = GUICtrlCreateLabel("Alt+a =", 176, 75, 41, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label11 = GUICtrlCreateLabel("Alt+c =", 176, 107, 40, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label12 = GUICtrlCreateLabel("Alt+x =", 176, 139, 39, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label13 = GUICtrlCreateLabel("Alt+z =", 176, 171, 39, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label15 = GUICtrlCreateLabel("Cat-Hotkey Final 0.1 are Copyright to Gerald Catague", 40, 242, 293, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

$Label17 = GUICtrlCreateLabel("Press [Home] to Run Coztom Hotkey", 88, 48, 204, 19)

GUICtrlSetFont(-1, 9, 400, 0, "Arial")

GUICtrlCreateTabItem("")

$Button1 = GUICtrlCreateButton("OK", 110, 272, 75, 25)

$Button2 = GUICtrlCreateButton("Cancel", 190, 272, 75, 25)

$Button3 = GUICtrlCreateButton("Help", 272, 272, 75, 25)

Global $hotkeysset = False

Global $msgauto = False

Global $hidesbody = False

HotKeySet("{HOME}","TogglePause")

HotKeySet("{F5}","TPause")

HotKeySet("{Insert}","hidebody")

GUISetState(@SW_SHOW)

#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 and Hide [insert]")

TrayCreateItem("")

$exititem = TrayCreateItem("Exit")

TraySetState()

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $Checkbox2

trunHpviewbyKey()

Case $Checkbox1

trunHpviewbyKeyKalaban()

Case $Button3

about()

Case $Button1

TogglePause()

Case $Button2

Exit

case $Button4

IniWrite($sIniFile, "Cat-Hotkey Final 0.1", "spam msg 1", GUICtrlRead($Input1))

IniWrite($sIniFile, "Cat-Hotkey Final 0.1", "spam msg 2", GUICtrlRead($Input2))

IniWrite($sIniFile, "Cat-Hotkey Final 0.1", "spam msg 3", GUICtrlRead($Input3))

IniWrite($sIniFile, "Cat-Hotkey Final 0.1", "spam msg 4", GUICtrlRead($Input4))

MsgBox(0,"Cat-Hotkey Final 0.1","Auto Send Msg Save!!")

EndSwitch

$msg = TrayGetMsg()

Select

Case $msg = 0

ContinueLoop

Case $msg = $prefsitem

about()

case $msg = $showtray

hidebody()

Case $msg = $aboutitem

about()

Case $msg = $exititem

ExitLoop

EndSelect

WEnd

func _hidebody()

GUISetState(@SW_HIDE, $mainbody)

TrayTip("Cat-Hotkey Final 0.1", "Click the Help to see instruction", 5, 1)

EndFunc

func _showbody()

GUISetState(@SW_SHOW, $mainbody)

TrayTip("Cat-Hotkey Final 0.1", "Click the Help to see instruction", 5, 1)

EndFunc

Func TogglePause()

$hotkeysset = Not $hotkeysset

If $hotkeysset = True Then

hotkeyon()

Else

hotkeyoff()

EndIf

EndFunc

Func hidebody()

$hidesbody = Not $hidesbody

If $hidesbody = True Then

_hidebody()

Else

_showbody()

EndIf

EndFunc

Func TPause()

$msgauto = Not $msgauto

If $msgauto = True Then

ongamemsgon()

Else

ongamemsgoff()

EndIf

EndFunc

func trunHpviewbyKey()

If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) Then

MsgBox(0, "Cat-Hotkey Final 0.1", "Ingame Press [Ctrl+Q] to active the HP bar")

CalltheHPview()

Else

MsgBox(0, "Cat-Hotkey Final 0.1", "Allies Hp Viewr disable")

setdisable()

EndIf

EndFunc

Func trunHpviewbyKeyKalaban()

If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then

MsgBox(0, "Cat-Hotkey Final 0.1", "Ingame Press [Ctrl+W] to active the HP bar")

CalltheHPview()

Else

MsgBox(0, "Cat-Hotkey Final 0.1", "enemy Hp Viewr disable")

setdisable()

EndIf

EndFunc

Func CalltheHPview()

HotKeySet("^q","dokasapi")

HotKeySet("^w","dokalaban")

EndFunc

func dokasapi()

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

send("[")

Send("{[ down}") ;Holds the A key down

TrayTip("Cat-Hotkey Final0.1", "The allies Hp View was active", 5, 1)

EndFunc

Func dokalaban()

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

send("]")

Send("{] down}") ;Holds the A key down

TrayTip("Cat-Hotkey Final0.1", "The Enemy Bar was active", 5, 1)

EndFunc

func setdisable()

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send("{] up}") ;Holds the [ key up

Send("{[ up}")

TrayTip("Cat-Hotkey Final0.1", "The Hp bar was disable", 5, 1)

EndFunc

;on game MsgBox

func hotkeyon()

HotKeySet("!z","alt_Z")

HotKeySet("!x","alt_X")

HotKeySet("!c","alt_c")

HotKeySet("!a","alt_a")

HotKeySet("!s","alt_s")

HotKeySet("!d","alt_d")

HotKeySet("!q","alt_q")

HotKeySet("!w","alt_w")

HotKeySet("!e","alt_e")

GUICtrlSetState($C1, $GUI_DISABLE)

GUICtrlSetState($C2, $GUI_DISABLE)

GUICtrlSetState($C3, $GUI_DISABLE)

GUICtrlSetState($C4, $GUI_DISABLE)

GUICtrlSetState($C5, $GUI_DISABLE)

GUICtrlSetState($C6, $GUI_DISABLE)

GUICtrlSetState($C7, $GUI_DISABLE)

GUICtrlSetState($C8, $GUI_DISABLE)

GUICtrlSetState($C9, $GUI_DISABLE)

GUICtrlSetData($Button1, "Stop")

TrayTip("Cat-Hotkey Final0.1", "Costomize Hotkey is Active", 5, 1)

EndFunc

Func hotkeyoff()

HotKeySet("!z")

HotKeySet("!x")

HotKeySet("!c")

HotKeySet("!a")

HotKeySet("!s")

HotKeySet("!d")

HotKeySet("!q")

HotKeySet("!w")

HotKeySet("!e")

GUICtrlSetState($C1, $GUI_ENABLE)

GUICtrlSetState($C2, $GUI_ENABLE)

GUICtrlSetState($C3, $GUI_ENABLE)

GUICtrlSetState($C4, $GUI_ENABLE)

GUICtrlSetState($C5, $GUI_ENABLE)

GUICtrlSetState($C6, $GUI_ENABLE)

GUICtrlSetState($C7, $GUI_ENABLE)

GUICtrlSetState($C8, $GUI_ENABLE)

GUICtrlSetState($C9, $GUI_ENABLE)

GUICtrlSetData($Button1, "OK")

TrayTip("Cat-Hotkey Final0.1", "Costomize Hotkey are Disable", 5, 1)

EndFunc

func ongamemsgon()

HotKeySet("{F6}","msg")

HotKeySet("{F7}","msg2")

HotKeySet("{F8}","msg3")

HotKeySet("{F9}","msg4")

GUICtrlSetState($Input1, $GUI_DISABLE)

GUICtrlSetState($Input2, $GUI_DISABLE)

GUICtrlSetState($Input3, $GUI_DISABLE)

GUICtrlSetState($Input4, $GUI_DISABLE)

TrayTip("Cat-Hotkey Final0.1", "Auto Send Msg Is Active", 5, 1)

EndFunc

Func ongamemsgoff()

HotKeySet("{F6}")

HotKeySet("{F7}")

HotKeySet("{F8}")

HotKeySet("{F9}")

GUICtrlSetState($Input1, $GUI_ENABLE)

GUICtrlSetState($Input2, $GUI_ENABLE)

GUICtrlSetState($Input3, $GUI_ENABLE)

GUICtrlSetState($Input4, $GUI_ENABLE)

TrayTip("Cat-Hotkey Final0.1", "Auto Send Msg Is Disable", 5, 1)

EndFunc

Func msg()

$string = GUICtrlRead($Input1)

$string = StringReplace ($string, "^", "{^}")

$string = StringReplace ($string, "!", "{!}")

$string = StringReplace ($string, "@", "@")

$string = StringReplace ($string, "@", "s")

$string = StringReplace ($string, "$", "$")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

send ("{ENTER}")

Send($string)

send ("{ENTER}")

EndFunc

Func msg2()

$string = GUICtrlRead($Input2)

$string = StringReplace ($string, "^", "{^}")

$string = StringReplace ($string, "!", "{!}")

$string = StringReplace ($string, "@", "@")

$string = StringReplace ($string, "@", "s")

$string = StringReplace ($string, "$", "$")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

send ("{ENTER}")

Send($string)

send ("{ENTER}")

EndFunc

Func msg3()

$string = GUICtrlRead($Input3)

$string = StringReplace ($string, "^", "{^}")

$string = StringReplace ($string, "!", "{!}")

$string = StringReplace ($string, "@", "@")

$string = StringReplace ($string, "@", "s")

$string = StringReplace ($string, "$", "$")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

send ("{ENTER}")

Send($string)

send ("{ENTER}")

EndFunc

Func msg4()

$string = GUICtrlRead($Input4)

$string = StringReplace ($string, "^", "{^}")

$string = StringReplace ($string, "!", "{!}")

$string = StringReplace ($string, "@", "@")

$string = StringReplace ($string, "@", "s")

$string = StringReplace ($string, "$", "$")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

send ("{ENTER}")

Send($string)

send ("{ENTER}")

EndFunc

;;Numpad

Func alt_Z()

$string = GUICtrlRead($C1)

$string = StringReplace ($string, "NumPad 1", "{NumPad1}")

$string = StringReplace ($string, "Letter A", "a")

$string = StringReplace ($string, "Letter B", "b")

$string = StringReplace ($string, "Letter C", "c")

$string = StringReplace ($string, "Letter D", "d")

$string = StringReplace ($string, "Letter E", "e")

$string = StringReplace ($string, "Letter F", "f")

$string = StringReplace ($string, "Letter G", "g")

$string = StringReplace ($string, "Letter H", "h")

$string = StringReplace ($string, "Letter I", "i")

$string = StringReplace ($string, "Letter J", "j")

$string = StringReplace ($string, "Letter K", "k")

$string = StringReplace ($string, "Letter L", "l")

$string = StringReplace ($string, "Letter M", "m")

$string = StringReplace ($string, "Letter N", "n")

$string = StringReplace ($string, "Letter O", "o")

$string = StringReplace ($string, "Letter P", "p")

$string = StringReplace ($string, "Letter Q", "q")

$string = StringReplace ($string, "Letter R", "r")

$string = StringReplace ($string, "Letter S", "s")

$string = StringReplace ($string, "Letter T", "t")

$string = StringReplace ($string, "Letter U", "u")

$string = StringReplace ($string, "Letter V", "v")

$string = StringReplace ($string, "Letter W", "w")

$string = StringReplace ($string, "Letter X", "x")

$string = StringReplace ($string, "Letter Y", "y")

$string = StringReplace ($string, "Letter Z", "z")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send($string)

EndFunc

Func alt_X()

$string = GUICtrlRead($C2)

$string = StringReplace ($string, "NumPad 2", "{NumPad2}")

$string = StringReplace ($string, "Letter A", "a")

$string = StringReplace ($string, "Letter B", "b")

$string = StringReplace ($string, "Letter C", "c")

$string = StringReplace ($string, "Letter D", "d")

$string = StringReplace ($string, "Letter E", "e")

$string = StringReplace ($string, "Letter F", "f")

$string = StringReplace ($string, "Letter G", "g")

$string = StringReplace ($string, "Letter H", "h")

$string = StringReplace ($string, "Letter I", "i")

$string = StringReplace ($string, "Letter J", "j")

$string = StringReplace ($string, "Letter K", "k")

$string = StringReplace ($string, "Letter L", "l")

$string = StringReplace ($string, "Letter M", "m")

$string = StringReplace ($string, "Letter N", "n")

$string = StringReplace ($string, "Letter O", "o")

$string = StringReplace ($string, "Letter P", "p")

$string = StringReplace ($string, "Letter Q", "q")

$string = StringReplace ($string, "Letter R", "r")

$string = StringReplace ($string, "Letter S", "s")

$string = StringReplace ($string, "Letter T", "t")

$string = StringReplace ($string, "Letter U", "u")

$string = StringReplace ($string, "Letter V", "v")

$string = StringReplace ($string, "Letter W", "w")

$string = StringReplace ($string, "Letter X", "x")

$string = StringReplace ($string, "Letter Y", "y")

$string = StringReplace ($string, "Letter Z", "z")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send($string)

EndFunc

Func alt_c()

$string = GUICtrlRead($C3)

$string = StringReplace ($string, "NumPad 3", "{NumPad3}")

$string = StringReplace ($string, "Letter A", "a")

$string = StringReplace ($string, "Letter B", "b")

$string = StringReplace ($string, "Letter C", "c")

$string = StringReplace ($string, "Letter D", "d")

$string = StringReplace ($string, "Letter E", "e")

$string = StringReplace ($string, "Letter F", "f")

$string = StringReplace ($string, "Letter G", "g")

$string = StringReplace ($string, "Letter H", "h")

$string = StringReplace ($string, "Letter I", "i")

$string = StringReplace ($string, "Letter J", "j")

$string = StringReplace ($string, "Letter K", "k")

$string = StringReplace ($string, "Letter L", "l")

$string = StringReplace ($string, "Letter M", "m")

$string = StringReplace ($string, "Letter N", "n")

$string = StringReplace ($string, "Letter O", "o")

$string = StringReplace ($string, "Letter P", "p")

$string = StringReplace ($string, "Letter Q", "q")

$string = StringReplace ($string, "Letter R", "r")

$string = StringReplace ($string, "Letter S", "s")

$string = StringReplace ($string, "Letter T", "t")

$string = StringReplace ($string, "Letter U", "u")

$string = StringReplace ($string, "Letter V", "v")

$string = StringReplace ($string, "Letter W", "w")

$string = StringReplace ($string, "Letter X", "x")

$string = StringReplace ($string, "Letter Y", "y")

$string = StringReplace ($string, "Letter Z", "z")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send($string)

EndFunc

Func alt_a()

$string = GUICtrlRead($C4)

$string = StringReplace ($string, "NumPad 4", "{NumPad4}")

$string = StringReplace ($string, "Letter A", "a")

$string = StringReplace ($string, "Letter B", "b")

$string = StringReplace ($string, "Letter C", "c")

$string = StringReplace ($string, "Letter D", "d")

$string = StringReplace ($string, "Letter E", "e")

$string = StringReplace ($string, "Letter F", "f")

$string = StringReplace ($string, "Letter G", "g")

$string = StringReplace ($string, "Letter H", "h")

$string = StringReplace ($string, "Letter I", "i")

$string = StringReplace ($string, "Letter J", "j")

$string = StringReplace ($string, "Letter K", "k")

$string = StringReplace ($string, "Letter L", "l")

$string = StringReplace ($string, "Letter M", "m")

$string = StringReplace ($string, "Letter N", "n")

$string = StringReplace ($string, "Letter O", "o")

$string = StringReplace ($string, "Letter P", "p")

$string = StringReplace ($string, "Letter Q", "q")

$string = StringReplace ($string, "Letter R", "r")

$string = StringReplace ($string, "Letter S", "s")

$string = StringReplace ($string, "Letter T", "t")

$string = StringReplace ($string, "Letter U", "u")

$string = StringReplace ($string, "Letter V", "v")

$string = StringReplace ($string, "Letter W", "w")

$string = StringReplace ($string, "Letter X", "x")

$string = StringReplace ($string, "Letter Y", "y")

$string = StringReplace ($string, "Letter Z", "z")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send($string)

EndFunc

Func alt_s()

$string = GUICtrlRead($C5)

$string = StringReplace ($string, "NumPad 5", "{NumPad5}")

$string = StringReplace ($string, "Letter A", "a")

$string = StringReplace ($string, "Letter B", "b")

$string = StringReplace ($string, "Letter C", "c")

$string = StringReplace ($string, "Letter D", "d")

$string = StringReplace ($string, "Letter E", "e")

$string = StringReplace ($string, "Letter F", "f")

$string = StringReplace ($string, "Letter G", "g")

$string = StringReplace ($string, "Letter H", "h")

$string = StringReplace ($string, "Letter I", "i")

$string = StringReplace ($string, "Letter J", "j")

$string = StringReplace ($string, "Letter K", "k")

$string = StringReplace ($string, "Letter L", "l")

$string = StringReplace ($string, "Letter M", "m")

$string = StringReplace ($string, "Letter N", "n")

$string = StringReplace ($string, "Letter O", "o")

$string = StringReplace ($string, "Letter P", "p")

$string = StringReplace ($string, "Letter Q", "q")

$string = StringReplace ($string, "Letter R", "r")

$string = StringReplace ($string, "Letter S", "s")

$string = StringReplace ($string, "Letter T", "t")

$string = StringReplace ($string, "Letter U", "u")

$string = StringReplace ($string, "Letter V", "v")

$string = StringReplace ($string, "Letter W", "w")

$string = StringReplace ($string, "Letter X", "x")

$string = StringReplace ($string, "Letter Y", "y")

$string = StringReplace ($string, "Letter Z", "z")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send($string)

EndFunc

Func alt_d()

$string = GUICtrlRead($C6)

$string = StringReplace ($string, "NumPad 6", "{NumPad6}")

$string = StringReplace ($string, "Letter A", "a")

$string = StringReplace ($string, "Letter B", "b")

$string = StringReplace ($string, "Letter C", "c")

$string = StringReplace ($string, "Letter D", "d")

$string = StringReplace ($string, "Letter E", "e")

$string = StringReplace ($string, "Letter F", "f")

$string = StringReplace ($string, "Letter G", "g")

$string = StringReplace ($string, "Letter H", "h")

$string = StringReplace ($string, "Letter I", "i")

$string = StringReplace ($string, "Letter J", "j")

$string = StringReplace ($string, "Letter K", "k")

$string = StringReplace ($string, "Letter L", "l")

$string = StringReplace ($string, "Letter M", "m")

$string = StringReplace ($string, "Letter N", "n")

$string = StringReplace ($string, "Letter O", "o")

$string = StringReplace ($string, "Letter P", "p")

$string = StringReplace ($string, "Letter Q", "q")

$string = StringReplace ($string, "Letter R", "r")

$string = StringReplace ($string, "Letter S", "s")

$string = StringReplace ($string, "Letter T", "t")

$string = StringReplace ($string, "Letter U", "u")

$string = StringReplace ($string, "Letter V", "v")

$string = StringReplace ($string, "Letter W", "w")

$string = StringReplace ($string, "Letter X", "x")

$string = StringReplace ($string, "Letter Y", "y")

$string = StringReplace ($string, "Letter Z", "z")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send($string)

EndFunc

Func alt_q()

$string = GUICtrlRead($C7)

$string = StringReplace ($string, "NumPad 7", "{NumPad7}")

$string = StringReplace ($string, "Letter A", "a")

$string = StringReplace ($string, "Letter B", "b")

$string = StringReplace ($string, "Letter C", "c")

$string = StringReplace ($string, "Letter D", "d")

$string = StringReplace ($string, "Letter E", "e")

$string = StringReplace ($string, "Letter F", "f")

$string = StringReplace ($string, "Letter G", "g")

$string = StringReplace ($string, "Letter H", "h")

$string = StringReplace ($string, "Letter I", "i")

$string = StringReplace ($string, "Letter J", "j")

$string = StringReplace ($string, "Letter K", "k")

$string = StringReplace ($string, "Letter L", "l")

$string = StringReplace ($string, "Letter M", "m")

$string = StringReplace ($string, "Letter N", "n")

$string = StringReplace ($string, "Letter O", "o")

$string = StringReplace ($string, "Letter P", "p")

$string = StringReplace ($string, "Letter Q", "q")

$string = StringReplace ($string, "Letter R", "r")

$string = StringReplace ($string, "Letter S", "s")

$string = StringReplace ($string, "Letter T", "t")

$string = StringReplace ($string, "Letter U", "u")

$string = StringReplace ($string, "Letter V", "v")

$string = StringReplace ($string, "Letter W", "w")

$string = StringReplace ($string, "Letter X", "x")

$string = StringReplace ($string, "Letter Y", "y")

$string = StringReplace ($string, "Letter Z", "z")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send($string)

EndFunc

Func alt_w()

$string = GUICtrlRead($C8)

$string = StringReplace ($string, "NumPad 8", "{NumPad8}")

$string = StringReplace ($string, "Letter A", "a")

$string = StringReplace ($string, "Letter B", "b")

$string = StringReplace ($string, "Letter C", "c")

$string = StringReplace ($string, "Letter D", "d")

$string = StringReplace ($string, "Letter E", "e")

$string = StringReplace ($string, "Letter F", "f")

$string = StringReplace ($string, "Letter G", "g")

$string = StringReplace ($string, "Letter H", "h")

$string = StringReplace ($string, "Letter I", "i")

$string = StringReplace ($string, "Letter J", "j")

$string = StringReplace ($string, "Letter K", "k")

$string = StringReplace ($string, "Letter L", "l")

$string = StringReplace ($string, "Letter M", "m")

$string = StringReplace ($string, "Letter N", "n")

$string = StringReplace ($string, "Letter O", "o")

$string = StringReplace ($string, "Letter P", "p")

$string = StringReplace ($string, "Letter Q", "q")

$string = StringReplace ($string, "Letter R", "r")

$string = StringReplace ($string, "Letter S", "s")

$string = StringReplace ($string, "Letter T", "t")

$string = StringReplace ($string, "Letter U", "u")

$string = StringReplace ($string, "Letter V", "v")

$string = StringReplace ($string, "Letter W", "w")

$string = StringReplace ($string, "Letter X", "x")

$string = StringReplace ($string, "Letter Y", "y")

$string = StringReplace ($string, "Letter Z", "z")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send($string)

EndFunc

Func alt_e()

$string = GUICtrlRead($C9)

$string = StringReplace ($string, "NumPad 9", "{NumPad9}")

$string = StringReplace ($string, "Letter A", "a")

$string = StringReplace ($string, "Letter B", "b")

$string = StringReplace ($string, "Letter C", "c")

$string = StringReplace ($string, "Letter D", "d")

$string = StringReplace ($string, "Letter E", "e")

$string = StringReplace ($string, "Letter F", "f")

$string = StringReplace ($string, "Letter G", "g")

$string = StringReplace ($string, "Letter H", "h")

$string = StringReplace ($string, "Letter I", "i")

$string = StringReplace ($string, "Letter J", "j")

$string = StringReplace ($string, "Letter K", "k")

$string = StringReplace ($string, "Letter L", "l")

$string = StringReplace ($string, "Letter M", "m")

$string = StringReplace ($string, "Letter N", "n")

$string = StringReplace ($string, "Letter O", "o")

$string = StringReplace ($string, "Letter P", "p")

$string = StringReplace ($string, "Letter Q", "q")

$string = StringReplace ($string, "Letter R", "r")

$string = StringReplace ($string, "Letter S", "s")

$string = StringReplace ($string, "Letter T", "t")

$string = StringReplace ($string, "Letter U", "u")

$string = StringReplace ($string, "Letter V", "v")

$string = StringReplace ($string, "Letter W", "w")

$string = StringReplace ($string, "Letter X", "x")

$string = StringReplace ($string, "Letter Y", "y")

$string = StringReplace ($string, "Letter Z", "z")

$A_KeyDelay = -0

$keydown = -0

opt("sendkeydelay" , $A_KeyDelay)

opt("sendkeydowndelay" , $keydown)

Send($string)

EndFunc

;;about

Func about()

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("About", 264, 330, 359, 200)

GUISetIcon("D:\003.ico")

$GroupBox111 = GUICtrlCreateGroup("", 8, 1, 249, 297)

$Group1 = GUICtrlCreateGroup("Instruction key", 16, 24, 217, 121)

$Label11 = GUICtrlCreateLabel("[insert] = Hide and show Cat-Hoteky", 24, 40, 175, 17)

$Label21 = GUICtrlCreateLabel("[Home] = On/Off The HotKey", 24, 56, 143, 17)

$Label31 = GUICtrlCreateLabel("[F5] = On/Off Auto Send Msg", 24, 72, 146, 17)

$Label41 = GUICtrlCreateLabel("For more Info how to use this e-mail me at", 24, 96, 199, 17)

$Label51 = GUICtrlCreateLabel("game_catague@yahoo.com", 24, 112, 138, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group222 = GUICtrlCreateGroup("Special Thank's to the Following", 16, 152, 217, 137)

$Label61 = GUICtrlCreateLabel("kiel_allen_21", 24, 176, 66, 17)

$Label71 = GUICtrlCreateLabel("Save the auto send Msg", 24, 208, 120, 17)

$Label81 = GUICtrlCreateLabel("And Change the key of auto Msg", 24, 224, 160, 17)

$Label91 = GUICtrlCreateLabel("Give The Idea of The Following:", 24, 192, 153, 17)

$Label101 = GUICtrlCreateLabel("And You!! Thank You for Suporting me", 24, 240, 187, 17)

$Label111 = GUICtrlCreateLabel("More Version To come ^^,)", 24, 264, 132, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Button111 = GUICtrlCreateButton("&OK", 97, 299, 75, 25, 0)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

GUIDelete($Form1)

ExitLoop

Case $Button111

GUIDelete($Form1)

ExitLoop

EndSwitch

WEnd

EndFunc

adik2dmax666 · February 9, 2010

lol alang nag rereply sa dota utilities mo ah ... add mo ko sa ym phili_blu09@yahoo.com tulungan mo ako gwa garena tunnel lahat sa room at autoclicker

Edited February 9, 2010 by adik2dmax666

Yashied · February 9, 2010

Gerald, use [аutoit][/аutoit] tag please.

Sign In

nid help in save

Recommended Posts

Gerald

Link to comment

Share on other sites

adik2dmax666

Link to comment

Share on other sites

Yashied

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta