#cs ===============================================================================
	*XPedite Pro*   ver Beta-1 - 10.10.2005
	Autor: 		Robert M @ QT Appraisal
	E-mail:		XPCleanMenu@aol.com
	Language:    English
	OSystem: 	Windows Xp
	Features: Automate Programs, send Keys, Letters, passwords, etc
	- 3 Folders with 9 XPeditable (automated) Programs each with 200 Actions for each Program
	- Completely Menu Driven to Accept Keys Mouse Moves, Clicks, Wait time, etc
	- Set Title, Actual Program Icon (from your executable) Set password protection
	- Send large files/letters with right click copy/paste control
	- Auto Start a program or not, password or not, both are your choice
	- Nice Visuals, GPS style Main menu, that hides ( return by placing Mouse in upperleft corner)
	- Advanced editable ini files with understandable notations
	- Can set a program to auto run in less than 2 minutes!!
	- *** Speacial Voice feature for Children or Visual impared ***
	- ...
	- ... Beta version for Autoit users
	Requirements: Legal copy of Microsoft Windows Xp
	Construction: Autoit 3.1.1+, SciTE 1.64
	Thanks to all, Enjoy...
#ce ===============================================================================
#include <GuiConstants.au3>
#NoTrayIcon

Opt("MouseCoordMode", 0)        ;1=absolute, 0=relative, 2=client

Dim $QT_web = "www.XPCleanMenu.HostRocket.com"
Dim $QT_mail = "XPCleanMenu@aol.com"
Dim	$version = "Ver 1.0.1"
Dim $tim = 500
Dim $Start_[10], $Data_[205], $Icon_[10], $Plabel_[10], $Title_[10], $Prog_[10]
Dim $shw, $Stop, $Loop, $Loop2 = 0, $PN, $Vc = "off", $TVc = "", $Vcc
Dim $Ms_t3 = "", $Key_A, $Ms_In, $Ms_t, $Mpos_1, $Mpos_2, $NLine, $Folder, $Notice2, $Voice, $GPS_Menu2
Dim $o_speech = ObjCreate ("SAPI.SpVoice")
If UBound(ProcessList(@ScriptName)) > 2 Then
	MsgBox(64, "* NOTE * ", "*XPedite Pro* was already running  ", 5)
	Exit
EndIf
Call("Set_Updater")
DirGetSize(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\")
If @error = 1 Then
	DirCreate(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\Favorites\")
	DirCreate(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\Business\")
	DirCreate(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\Personal\")
EndIf
$GPS_pic = @TempDir & "\Xpd-GPS-P.jpg"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\GPS-Pro.jpg", $GPS_pic)
$Sound_lnk = @TempDir & "\Sound_lnk.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Notify.wav", $Sound_lnk)
$Sound_clk = @TempDir & "\Sound_clk.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Clickerx.wav", $Sound_clk)
$Sound_grp = @TempDir & "\Sound_grp.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Group_open.wav", $Sound_grp)
$Sound_bar = @TempDir & "\Sound_bar.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\xpinfbar.wav", $Sound_bar)
$Btn_gif = @TempDir & "\Button.gif"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Button.gif", $Btn_gif)
HotKeySet("{F2}", "Sys_Start")
HotKeySet("{F1}", "Voice")
HotKeySet( "{ESC}", "Get_pos")

;GUICreate("my gui", 500, 500)
;GUISetState()
$GPS_Menu = GUICreate("*XPedite Pro* Main", 248, 393, 5, 80, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW)
GUISetBkColor(0x0066FF)
$Start_[1] = GUICtrlCreateLabel("", 40, 50, 32, 32)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "XPedite")
$Start_[2] = GUICtrlCreateLabel("", 100, 50, 32, 32)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "XPedite")
$Start_[3] = GUICtrlCreateLabel("", 160, 50, 32, 32)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "XPedite")
$Start_[4] = GUICtrlCreateLabel("", 40, 120, 32, 32)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "XPedite")
$Start_[5] = GUICtrlCreateLabel("", 100, 120, 32, 32)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "XPedite")
$Start_[6] = GUICtrlCreateLabel("", 160, 120, 32, 32)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "XPedite")
$Start_[7] = GUICtrlCreateLabel("", 40, 190, 32, 32)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "XPedite")
$Start_[8] = GUICtrlCreateLabel("", 100, 190, 32, 32)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "XPedite")
$Start_[9] = GUICtrlCreateLabel("", 160, 190, 32, 32)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "XPedite")
For $dis = 1 To 9
	GUICtrlSetState($Start_[$dis], $GUI_DISABLE)
Next
$GPS_1 = GUICtrlCreateLabel("", 30, 330, 20, 20)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Check Up-Dates")
$GPS_2 = GUICtrlCreateLabel("", 50, 310, 20, 20)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Settings")
$GPS_3 = GUICtrlCreateLabel("", 70, 325, 100, 35)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Stop  XPedite")
$GPS_4 = GUICtrlCreateLabel("", 170, 310, 20, 20)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Hide  XPedite")
$GPS_5 = GUICtrlCreateLabel("", 190, 330, 20, 20)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Exit  XPedite")
$a = CreateRoundRectRgn(-25, 92, 300, 300, 350, 350)
$b = CreatePolyRgn("0,10,0,220,248,220,270,10")
CombineRgn($a, $b)
$b = CreateRoundRectRgn(0, 0, 30, 30, 35, 35)
CombineRgn($a, $b)
$b = CreateRoundRectRgn(220, 0, 30, 30, 35, 35)
CombineRgn($a, $b)
$b = CreatePolyRgn("10,0,0,220,248,220,237,0")
CombineRgn($a, $b)
SetWindowRgn($GPS_Menu, $a)
$GPS_A = GUICtrlCreatePic($GPS_pic, 0, 0, 248, 393)
GUISetBkColor(0x0066FF)
GUICtrlCreateLabel("", 23, 34, 198, 259, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x0066FF)
$Icon_[1] = GUICtrlCreateIcon("shell32.dll", 50, 40, 50, 32, 32)
$Icon_[2] = GUICtrlCreateIcon("shell32.dll", 50, 100, 50, 32, 32)
$Icon_[3] = GUICtrlCreateIcon("shell32.dll", 50, 160, 50, 32, 32)
$Icon_[4] = GUICtrlCreateIcon("shell32.dll", 50, 40, 120, 32, 32)
$Icon_[5] = GUICtrlCreateIcon("shell32.dll", 50, 100, 120, 32, 32)
$Icon_[6] = GUICtrlCreateIcon("shell32.dll", 50, 160, 120, 32, 32)
$Icon_[7] = GUICtrlCreateIcon("shell32.dll", 50, 40, 190, 32, 32)
$Icon_[8] = GUICtrlCreateIcon("shell32.dll", 50, 100, 190, 32, 32)
$Icon_[9] = GUICtrlCreateIcon("shell32.dll", 50, 160, 190, 32, 32)
$Plabel_[1] = GUICtrlCreateLabel("", 35, 90, 60, 20)
$Plabel_[2] = GUICtrlCreateLabel("", 94, 90, 60, 20)
$Plabel_[3] = GUICtrlCreateLabel("", 150, 90, 60, 20)
$Plabel_[4] = GUICtrlCreateLabel("", 35, 160, 60, 20)
$Plabel_[5] = GUICtrlCreateLabel("", 94, 160, 60, 20)
$Plabel_[6] = GUICtrlCreateLabel("", 150, 160, 60, 20)
$Plabel_[7] = GUICtrlCreateLabel("", 35, 230, 60, 20)
$Plabel_[8] = GUICtrlCreateLabel("", 94, 230, 60, 20)
$Plabel_[9] = GUICtrlCreateLabel("", 155, 230, 60, 20)
$GUI_A = GUICtrlCreateLabel("", 23, 34, 198, 259, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x0066FF)
GUICtrlSetState($GUI_A, $GUI_SHOW)
$Icon_A1 = GUICtrlCreateIcon("shell32.dll", 1, 40, 50, 32, 32)
GUICtrlSetImage(-1, "shell32.dll", 129)
GUICtrlSetState(-1, $GUI_SHOW)
$Icon_A4 = GUICtrlCreateIcon("shell32.dll", 1, 40, 120, 32, 32)
GUICtrlSetImage(-1, "shell32.dll", 126)
GUICtrlSetState(-1, $GUI_SHOW)
$Icon_A7 = GUICtrlCreateIcon("shell32.dll", 1, 40, 190, 32, 32)
GUICtrlSetImage(-1, "shell32.dll", 127)
GUICtrlSetState(-1, $GUI_SHOW)
$Albl_1 = GUICtrlCreateLabel( "Favorites", 100, 65)
$Albl_2 = GUICtrlCreateLabel( "Business", 100, 135)
$Albl_3 = GUICtrlCreateLabel( "Personal", 100, 205)
GUICtrlSetState($GUI_A, $GUI_HIDE)
GUICtrlSetState($Icon_A1, $GUI_HIDE)
GUICtrlSetState($Icon_A4, $GUI_HIDE)
GUICtrlSetState($Icon_A7, $GUI_HIDE)
GUICtrlSetState($Albl_1, $GUI_HIDE)
GUICtrlSetState($Albl_2, $GUI_HIDE)
GUICtrlSetState($Albl_3, $GUI_HIDE)
$Register = GUICtrlCreateLabel("Registration - Verified              " & $version, 30, 20, 200, 20)
$Notice = GUICtrlCreateLabel("System >  Setting Up...", 30, 270, 190, 20)
GUICtrlSetFont(-1, 9, 650)
GUICtrlSetColor(-1, 0x00ff00)
$Choice = GUICtrlCreateLabel("  ** Please Choose a Folder **", 30, 250, 200, 20)
GUICtrlSetFont(-1, 9, 650)
GUICtrlSetColor(-1, 0x00ff00)
GUICtrlSetState($Choice, $GUI_HIDE)
GUISetState()
SoundPlay($Sound_lnk, 1)
Call("Sys_Start")
GUICtrlSetData($Notice, "System >  Loading Menus ... ")
Sleep($tim)
$GPS_Menu2 = GUICreate("*XPedite Pro* Set-up", 240, 280, 5, 80, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW + $WS_EX_CLIENTEDGE + $WS_EX_DLGMODALFRAME, $GPS_Menu)
GUISetBkColor("")
$Start_A = GUICtrlCreateLabel("", 12, 52, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Create a New XPedite Program")
$Start_B = GUICtrlCreateLabel("", 12, 102, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Select/Change Menu Folder")
$Start_C = GUICtrlCreateLabel("", 12, 152, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Delete and Advanced File Editing ")
$Start_D = GUICtrlCreateLabel("", 10, 200, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Toggle Voice On/Off - or use *F1* Key")
$Start_E = GUICtrlCreateLabel("", 190, 240, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Close Set-up")
GUICtrlCreateLabel("", 0, 0, 240, 38, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
GUICtrlCreateLabel("", 0, 38, 240, 204, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x0066FF)
GUICtrlCreateLabel("", 0, 242, 240, 38, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$Icon_A = GUICtrlCreatePic($Btn_gif, 12, 52, 30, 30, $SS_SUNKEN)
$Icon_B = GUICtrlCreatePic($Btn_gif, 12, 102, 30, 30, $SS_SUNKEN)
$Icon_C = GUICtrlCreatePic($Btn_gif, 12, 152, 30, 30, $SS_SUNKEN)
$Icon_D = GUICtrlCreatePic($Btn_gif, 12, 202, 30, 30, $SS_SUNKEN)
$Icon_E = GUICtrlCreateIcon("shell32.dll", 1, 190, 245, 30, 30)
GUICtrlSetImage(-1, "shell32.dll", 131)
GUICtrlSetCursor(-1, 0)
$settings = GUICtrlCreateLabel(" *XPedite Pro* - Program Set-up ", 10, 10, 230, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlSetColor(-1, 0x00ff00)
$Notice2 = GUICtrlCreateLabel("System >  ... Set-up ...", 10, 255, 180, 20)
GUICtrlSetFont(-1, 9, 650)
GUICtrlSetColor(-1, 0x00ff00)
GUICtrlCreateLabel("*Create*  -  New Program ", 50, 60, 180, 20)
GUICtrlSetFont(-1, 9, 650)
GUICtrlCreateLabel("*Folders*  -  Select Menu Folder ", 50, 110, 180, 20)
GUICtrlSetFont(-1, 9, 650)
GUICtrlCreateLabel("*Delete/Edit* - Programs ", 50, 160, 180, 20)
GUICtrlSetFont(-1, 9, 650)
GUICtrlCreateLabel("Delete/Advanced Edit of Programs ", 50, 175, 180, 20)
$Voice = GUICtrlCreateLabel("*Voice* Mouse over key = Off", 50, 210, 180, 20)
GUICtrlSetFont(-1, 9, 650)
GUISetState(@SW_HIDE, $GPS_Menu2)
$GPS_Menu3 = GUICreate("*XPedite Pro* Title", -1, 430, -1, -1, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW + $WS_EX_CLIENTEDGE + $WS_EX_DLGMODALFRAME + $WS_EX_ACCEPTFILES)
GUISetBkColor("")
$Title_1A = GUICtrlCreateInput("", 20, 110, 90, 20)
$Prog_1A = GUICtrlCreateInput("", 10, 230, 280, 20)
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
$Pass_1A = GUICtrlCreateInput("", 20, 350, 90, 20)
$Min3 = GUICtrlCreateLabel("", 385, 5, 10, 10)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Minimize this Menu")
$Label_1A = GUICtrlCreateLabel("", 360, 110, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Accept Program Title")
$Label_2A = GUICtrlCreateLabel("", 360, 197, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "No Program to Start")
$Label_2B = GUICtrlCreateLabel("", 360, 229, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Accept Program to Start")
$Label_3A = GUICtrlCreateLabel("", 360, 319, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "No Password")
$Label_3B = GUICtrlCreateLabel("", 360, 351, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Accept Password")
$Label_4A = GUICtrlCreateLabel("", 360, 395, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Close Create")
GUICtrlCreateLabel("", 0, 0, 400, 38, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$T_lbl = GUICtrlCreateLabel("", 0, 38, 400, 110, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x00ff00)
GUICtrlCreateLabel("", 0, 148, 400, 10, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$P_lbl = GUICtrlCreateLabel("", 0, 158, 400, 110, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x0066FF)
GUICtrlCreateLabel("", 0, 268, 400, 10, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$W_lbl = GUICtrlCreateLabel("", 0, 278, 400, 112, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x0066FF)
GUICtrlCreateLabel("", 0, 390, 400, 40, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$Xcreate = GUICtrlCreateLabel(" *XPedite Pro*   -   Create a New  XPedite Program ", 10, 10, 400, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlSetColor(-1, 0x00ff00)
$Create = GUICtrlCreateLabel("Please type a Title Name", 15, 400, 340, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlSetColor(-1, 0x00ff00)
GUICtrlCreateLabel("1.  Create a Title    ", 10, 50, 250, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlCreateLabel("Please type in a Title Name to be displayed on the menu", 10, 70, 450, 20)
GUICtrlCreateLabel("This should be 10 charactors or less.. E-Mailer.. etc.", 10, 85, 400, 20)
GUICtrlCreateLabel("2.  Program to Launch...  or Press None", 10, 170, 350, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlCreateLabel("Please Drag & Drop a Program Icon OR Type-in the location", 10, 190, 400, 20)
GUICtrlCreateLabel("This must be an *.exe* or *.lnk* type of file", 10, 205, 400, 20)
GUICtrlCreateLabel("3.  Set a Password...  or Press None", 10, 290, 350, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlCreateLabel("Please type a Password if desired", 10, 310, 400, 20)
GUICtrlCreateLabel("*NOTE* Write this down... It will not be shown again", 10, 325, 400, 20)
$IMin_3 = GUICtrlCreatePic($Btn_gif, 385, 5, 10, 10, $SS_SUNKEN)
$Icon_1A = GUICtrlCreatePic($Btn_gif, 360, 110, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*Accept*", 305, 117, 50, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_2A = GUICtrlCreatePic($Btn_gif, 360, 197, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*None*", 305, 204, 50, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_2B = GUICtrlCreatePic($Btn_gif, 360, 229, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*Accept*", 305, 236, 50, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_3A = GUICtrlCreatePic($Btn_gif, 360, 319, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*None*", 305, 326, 50, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_3B = GUICtrlCreatePic($Btn_gif, 360, 351, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*Accept*", 305, 358, 50, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_4A = GUICtrlCreateIcon("shell32.dll", 1, 360, 395, 30, 30)
GUICtrlSetImage(-1, "shell32.dll", 131)
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_HIDE, $GPS_Menu3)
$GPS_Menu4 = GUICreate("*XPedite Pro* Actions", 400, 430, 30, 30, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW + $WS_EX_CLIENTEDGE + $WS_EX_DLGMODALFRAME + $WS_EX_ACCEPTFILES)
GUISetBkColor("")
$Wait_1A = GUICtrlCreateInput("", 220, 80, 50, 20)
$Text_1A = GUICtrlCreateInput("", 10, 170, 280, 20)
$Min4 = GUICtrlCreateLabel("", 385, 5, 10, 10)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Minimize this Menu")
$Label_WA = GUICtrlCreateLabel("", 360, 77, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Accept Wait time")
$Label_TA = GUICtrlCreateLabel("", 360, 162, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Accept Text to be sent")
$Label_KA = GUICtrlCreateLabel("", 360, 247, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Set Key to be sent")
$Label_MA = GUICtrlCreateLabel("", 360, 297, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Set Mouse Move")
$Label_MB = GUICtrlCreateLabel("", 360, 327, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Set Mouse Left Click")
$Label_MC = GUICtrlCreateLabel("", 360, 357, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Set Mouse Right Click")
$Label_CC = GUICtrlCreateLabel("", 360, 395, 30, 30)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Finished & Close Create")
GUICtrlCreateLabel("", 0, 0, 400, 38, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$WT_lbl = GUICtrlCreateLabel("", 0, 38, 400, 75, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x00ff00)
GUICtrlCreateLabel("", 0, 113, 400, 10, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$TT_lbl = GUICtrlCreateLabel("", 0, 123, 400, 75, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x00ff00)
GUICtrlCreateLabel("", 0, 198, 400, 10, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$KY_lbl = GUICtrlCreateLabel("", 0, 208, 400, 75, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x00ff00)
GUICtrlCreateLabel("", 0, 283, 400, 10, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$MM_lbl = GUICtrlCreateLabel("", 0, 293, 400, 97, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, 0x00ff00)
GUICtrlCreateLabel("", 0, 390, 400, 40, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$Acreate = GUICtrlCreateLabel(" *XPedite Pro*   -   Send Control Actions, 200 Maximum", 10, 10, 400, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlSetColor(-1, 0x00ff00)
$Create2 = GUICtrlCreateLabel("Set Action #1 - Press *X* When Finished >>>", 15, 400, 340, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlSetColor(-1, 0x00ff00)
GUICtrlCreateLabel("Wait Time - Important!  ", 10, 50, 250, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlCreateLabel("Allow *Your Program* process to complete", 10, 70, 450, 20)
GUICtrlCreateLabel("Numbers only for Seconds.. ie 1", 10, 85, 400, 20)
GUICtrlCreateLabel("Send Text", 10, 130, 350, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlCreateLabel("Please type a message, password, or text to be sent", 10, 150, 400, 20)
GUICtrlCreateLabel("Send a Key", 10, 215, 350, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlCreateLabel("will send *Enter*, *Tab*, *Arrow* or *F* keys ", 10, 235, 400, 20)
GUICtrlCreateLabel("Mouse Commands", 10, 300, 350, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlCreateLabel("Move Mouse First, then send Right or Left Click", 10, 320, 400, 20)
GUICtrlCreateLabel("Push buttons, copy/paste letters, open programs, etc.", 10, 335, 400, 20)
$IMin_4 = GUICtrlCreatePic($Btn_gif, 385, 5, 10, 10, $SS_SUNKEN)
$Icon_WA = GUICtrlCreatePic($Btn_gif, 360, 77, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*Accept*", 301, 84, 50, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_TA = GUICtrlCreatePic($Btn_gif, 360, 162, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*Accept*", 301, 168, 50, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_KA = GUICtrlCreatePic($Btn_gif, 360, 247, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*Set Key*", 297, 253, 70, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_MA = GUICtrlCreatePic($Btn_gif, 360, 297, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*Mouse Move*", 270, 303, 90, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_MB = GUICtrlCreatePic($Btn_gif, 360, 327, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*Left Click*", 286, 332, 80, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_MC = GUICtrlCreatePic($Btn_gif, 360, 357, 30, 30, $SS_SUNKEN)
GUICtrlCreateLabel("*Right Click*", 280, 362, 80, 20)
GUICtrlSetFont(-1, 9, 650)
$Icon_4A = GUICtrlCreateIcon("shell32.dll", 1, 360, 395, 30, 30)
GUICtrlSetImage(-1, "shell32.dll", 131)
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_HIDE, $GPS_Menu4)
$GPS_Menu5 = GUICreate("*XPedite Pro* Set Key", 150, 430, 720, -1, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW + $WS_EX_CLIENTEDGE + $WS_EX_DLGMODALFRAME + $WS_EX_ACCEPTFILES)
GUISetBkColor(0x00ff00)
$None_4 = GUICtrlCreateLabel("", 110, 365, 25, 25)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "No Key - Return to Create Menu")
GUICtrlCreateLabel("", 0, 0, 150, 38, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
GUICtrlCreateLabel("", 0, 38, 10, 352, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
GUICtrlCreateLabel("", 140, 38, 10, 352, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
GUICtrlCreateLabel("", 0, 390, 150, 40, $SS_SUNKEN, $WS_EX_DLGMODALFRAME)
GUICtrlSetBkColor(-1, "")
$Bcreate = GUICtrlCreateLabel(" Key Choices", 10, 10, 120, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlSetColor(-1, 0x00ff00)
$Create3 = GUICtrlCreateLabel(" Select Key", 15, 400, 120, 20)
GUICtrlSetFont(-1, 10, 650)
GUICtrlSetColor(-1, 0x00ff00)
GUIStartGroup()
$Auto_11 = GUICtrlCreateRadio("Enter Key", 30, 45, 100, 20)
$Auto_12 = GUICtrlCreateRadio("Tab Key", 30, 65, 100, 20)
$Auto_13 = GUICtrlCreateRadio("Arrow Down", 30, 85, 100, 20)
$Auto_14 = GUICtrlCreateRadio("Arrow Up", 30, 105, 100, 20)
$Auto_15 = GUICtrlCreateRadio("Arrow Left", 30, 125, 100, 20)
$Auto_16 = GUICtrlCreateRadio("Arrow Right", 30, 145, 100, 20)
$Auto_1 = GUICtrlCreateRadio(" F1 Key", 30, 165, 100, 20)
$Auto_2 = GUICtrlCreateRadio(" F2 Key", 30, 185, 100, 20)
$Auto_3 = GUICtrlCreateRadio(" F3 Key", 30, 205, 100, 20)
$Auto_4 = GUICtrlCreateRadio(" F4 Key", 30, 225, 100, 20)
$Auto_5 = GUICtrlCreateRadio(" F5 Key", 30, 245, 100, 20)
$Auto_6 = GUICtrlCreateRadio(" F6 Key", 30, 265, 100, 20)
$Auto_7 = GUICtrlCreateRadio(" F7 Key", 30, 285, 100, 20)
$Auto_8 = GUICtrlCreateRadio(" F8 Key", 30, 305, 100, 20)
$Auto_9 = GUICtrlCreateRadio(" F9 Key", 30, 325, 100, 20)
$Auto_10 = GUICtrlCreateRadio(" F10 Key", 30, 345, 100, 20)
GUICtrlSetState($Auto_11, $GUI_CHECKED)
GUIStartGroup()
GUICtrlCreateIcon("shell32.dll", 1, 110, 365, 25, 25)
GUICtrlSetImage(-1, "shell32.dll", 131)
$Crate4 = GUICtrlCreateLabel("No Key - Exit", 20, 370, 90, 20)
GUICtrlSetFont(-1, 10, 650)
opt("TrayMenuMode", 1)
opt("TrayOnEventMode", 1)
$upgrade_tray = TrayCreateItem ("Check New Releases")
TrayItemSetOnEvent (-1, "Set_Update")
TrayCreateItem ("")
$show_tray = TrayCreateItem ("Show *XPedite Pro*")
TrayItemSetOnEvent (-1, "Set_Show")
TrayCreateItem ("")
$hide_tray = TrayCreateItem ("Hide *XPedite Pro*")
TrayItemSetOnEvent (-1, "Set_Hide")
TrayCreateItem ("")
$trans_tray = TrayCreateItem ("Set XPedite Visibility")
TrayItemSetOnEvent (-1, "Set_Trans")
TrayCreateItem ("")
$stop_tray = TrayCreateItem ("Stop Xpedited Program")
TrayItemSetOnEvent (-1, "Set_Stop")
TrayCreateItem ("")
$about_tray = TrayCreateItem ("About QT Appraisal")
TrayItemSetOnEvent (-1, "Set_QT")
TrayCreateItem ("")
$exit_tray = TrayCreateItem ("Exit  *XPedite Pro*")
TrayItemSetOnEvent (-1, "Set_Exit")
TraySetState ()
GUICtrlSetData($Notice, "System >     ... Ready ... ")
While 1
	$Stop = ""
	ToolTip("")
	$Msg = GUIGetMsg()
	If $Msg = $Start_D Or $Vcc = "call" Then
		SoundPlay($Sound_clk)
		Call("Voice")
	EndIf
	$TVc = $TVc + 1
	If $TVc >= 100000 Then $TVc = 50
	If $Vc = "on" And $TVc >= 50 Then
		$a = GUIGetCursorInfo()
		If $a[4] = $Icon_[1] Then $o_speech.Speak ("1", 8)
		If $a[4] = $Icon_[2] Then $o_speech.Speak ("2", 8)
		If $a[4] = $Icon_[3] Then $o_speech.Speak ("3", 8)
		If $a[4] = $Icon_[4] Then $o_speech.Speak ("4", 8)
		If $a[4] = $Icon_[5] Then $o_speech.Speak ("5", 8)
		If $a[4] = $Icon_[6] Then $o_speech.Speak ("6", 8)
		If $a[4] = $Icon_[7] Then $o_speech.Speak ("7", 8)
		If $a[4] = $Icon_[8] Then $o_speech.Speak ("8", 8)
		If $a[4] = $Icon_[9] Then $o_speech.Speak ("9", 8)
		$TVc = 1
	EndIf
	If $Msg = $Start_[1] Then
		SoundPlay($Sound_clk)
		$PN = 1
		Call("Run_Program")
	EndIf
	If $Msg = $Start_[2] Then
		SoundPlay($Sound_clk)
		$PN = 2
		Call("Run_Program")
	EndIf
	If $Msg = $Start_[3] Then
		SoundPlay($Sound_clk)
		$PN = 3
		Call("Run_Program")
	EndIf
	If $Msg = $Start_[4] Then
		SoundPlay($Sound_clk)
		$PN = 4
		Call("Run_Program")
	EndIf
	If $Msg = $Start_[5] Then
		SoundPlay($Sound_clk)
		$PN = 5
		Call("Run_Program")
	EndIf
	If $Msg = $Start_[6] Then
		SoundPlay($Sound_clk)
		$PN = 6
		Call("Run_Program")
	EndIf
	If $Msg = $Start_[7] Then
		SoundPlay($Sound_clk)
		$PN = 7
		Call("Run_Program")
	EndIf
	If $Msg = $Start_[8] Then
		SoundPlay($Sound_clk)
		$PN = 8
		Call("Run_Program")
	EndIf
	If $Msg = $Start_[9] Then
		SoundPlay($Sound_clk)
		$PN = 9
		Call("Run_Program")
	EndIf
	If $Msg = $GPS_1 Then
		SoundPlay($Sound_clk)
		Call("Set_Update")
	EndIf
	If $Msg = $GPS_2 Then
		SoundPlay($Sound_clk)
		GUICtrlSetData($Notice2, "System >  Show Set-up... ")
		GUISetState(@SW_HIDE, $GPS_Menu)
		GUISetState(@SW_SHOW, $GPS_Menu2)
	EndIf
	If $Msg = $GPS_3 Then
		SoundPlay($Sound_clk)
		Call("Set_Stop")
	EndIf
	If $Msg = $GPS_4 Then
		SoundPlay($Sound_clk)
		Call("Set_Hide")
	EndIf
	If $Msg = $GPS_5 Then
		SoundPlay($Sound_clk)
		Call("Set_Exit")
	EndIf
	If $Msg = $Start_A Then
		SoundPlay($Sound_clk)
		Call("Create")
	EndIf
	If $Msg = $Start_B Then
		SoundPlay($Sound_clk)
		GUISetState(@SW_HIDE, $GPS_Menu2)
		Call("Sys_Start")
	EndIf
	If $Msg = $Start_C Then
		SoundPlay($Sound_clk)
		GUISetState(@SW_HIDE, $GPS_Menu2)
		Call("Advanced")
	EndIf
	If $Msg = $Start_E Then
		SoundPlay($Sound_clk)
		Call("Set_Show")
	EndIf
	$pos = MouseGetPos()
	If $pos[0] > - 1 And $pos[0] < 12 And $pos[1] > - 1 And $pos[1] < 12 Then
		Call("Set_Show")
	EndIf
	$Loop = $Loop + 1
	If $Loop >= 200 And $Loop2 = 0 Then
		GUICtrlSetData($Notice, "System >     ... Ready ... ")
		GUICtrlSetData($Notice2, "System >     ... Ready ... ")
		$Loop2 = 1
		$Loop = 0
	EndIf
	If $Loop >= 200 And $Loop2 = 1 Then
		GUICtrlSetData($Notice, "System >   *XPedeite Pro* ")
		GUICtrlSetData($Notice2, "System >   *XPedeite Pro* ")
		$Loop2 = 0
		$Loop = 100
	EndIf
	Sleep(10)
WEnd
;---------------------- Functions --------------------------------------------------------------------------------------------
Func Sys_Start()
	GUICtrlSetData($Notice, "System >  Initializing...")
	Sleep($tim)
	GUICtrlSetData($Notice, "System >  Searching Folders...")
	Sleep($tim)
	GUISetState(@SW_SHOW, $GPS_Menu)
	GUICtrlSetState($Start_[1], $GUI_ENABLE)
	GUICtrlSetState($Start_[4], $GUI_ENABLE)
	GUICtrlSetState($Start_[7], $GUI_ENABLE)
	GUICtrlSetState($GUI_A, $GUI_SHOW)
	GUICtrlSetState($Icon_A1, $GUI_SHOW)
	GUICtrlSetState($Icon_A4, $GUI_SHOW)
	GUICtrlSetState($Icon_A7, $GUI_SHOW)
	GUICtrlSetState($Albl_1, $GUI_SHOW)
	GUICtrlSetState($Albl_2, $GUI_SHOW)
	GUICtrlSetState($Albl_3, $GUI_SHOW)
	GUICtrlSetState($Choice, $GUI_SHOW)
	GUICtrlSetData($Notice, "[F1]=Voice on   [F2]=This Menu")
	While 1
		$MsgA = GUIGetMsg()
		If $MsgA = $Start_[1] Then
			$Folder = "Favorites"
			ExitLoop
		EndIf
		If $MsgA = $Start_[4] Then
			$Folder = "Business"
			ExitLoop
		EndIf
		If $MsgA = $Start_[7] Then
			$Folder = "Personal"
			ExitLoop
		EndIf
		If $MsgA = $GPS_5 Then
			SoundPlay($Sound_clk)
			Call("Set_Exit")
		EndIf
		$TVc = $TVc + 1
		If $TVc >= 100000 Then $TVc = 30
		If $Vc = "on" And $TVc >= 30 Then
			$a = GUIGetCursorInfo()
			If $a[4] = $Icon_A1 Then $o_speech.Speak ("1", 8)
			If $a[4] = $Icon_A4 Then $o_speech.Speak ("2", 8)
			If $a[4] = $Icon_A7 Then $o_speech.Speak ("3", 8)
			$TVc = 1
		EndIf
		Sleep(10)
	WEnd
	GUICtrlSetState($GUI_A, $GUI_HIDE)
	GUICtrlSetState($Icon_A1, $GUI_HIDE)
	GUICtrlSetState($Icon_A4, $GUI_HIDE)
	GUICtrlSetState($Icon_A7, $GUI_HIDE)
	GUICtrlSetState($Albl_1, $GUI_HIDE)
	GUICtrlSetState($Albl_2, $GUI_HIDE)
	GUICtrlSetState($Albl_3, $GUI_HIDE)
	GUICtrlSetState($Choice, $GUI_HIDE)
	For $dis = 1 To 9
		GUICtrlSetState($Start_[$dis], $GUI_DISABLE)
	Next
	GUICtrlSetImage($Icon_[1], "")
	GUICtrlSetImage($Icon_[2], "")
	GUICtrlSetImage($Icon_[3], "")
	GUICtrlSetImage($Icon_[4], "")
	GUICtrlSetImage($Icon_[5], "")
	GUICtrlSetImage($Icon_[6], "")
	GUICtrlSetImage($Icon_[7], "")
	GUICtrlSetImage($Icon_[8], "")
	GUICtrlSetImage($Icon_[9], "")
	GUICtrlSetData($Plabel_[1], "")
	GUICtrlSetData($Plabel_[2], "")
	GUICtrlSetData($Plabel_[3], "")
	GUICtrlSetData($Plabel_[4], "")
	GUICtrlSetData($Plabel_[5], "")
	GUICtrlSetData($Plabel_[6], "")
	GUICtrlSetData($Plabel_[7], "")
	GUICtrlSetData($Plabel_[8], "")
	GUICtrlSetData($Plabel_[9], "")
	$PN = 1
	GUICtrlSetData($Notice, "System >  Searching Programs...")
	Sleep($tim)
	While 1
		If $PN >= 10 Then
			If $Vc = "on" Then
				$Vc = "off"
				$Vcc = "call"
			EndIf
			Return
		EndIf
		If FileExists(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini") Then
			GUICtrlSetData($Notice, "System >  Found Program #" & $PN & "...")
			Sleep($tim)
			GUICtrlSetState($Start_[$PN], $GUI_ENABLE)
			$Title_[$PN] = IniRead(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini", "Title", "Key_1", "Not Found")
			If $Title_[$PN] = "Not Found" Then
				GUICtrlSetData($Notice, "Error >  Title Not Found...")
				Sleep($tim)
				MsgBox(0, "Error", "Program #" & $PN & " - Title Not Found" & @CRLF & " This File will be Deleted")
				GUICtrlSetData($Plabel_[$PN], "Available")
				GUICtrlSetImage($Icon_[$PN], "shell32.dll", 200)
				FileDelete(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini")
			Else
				GUICtrlSetData($Plabel_[$PN], $Title_[$PN])
				GUICtrlSetData($Notice, "System >  Loading " & $Title_[$PN] & "...")
				Sleep($tim + 300)
			EndIf
			If FileExists(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini") Then
				$Prog_[$PN] = IniRead(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini", "Program", "Key_1", "Not Found")
				If $Prog_[$PN] = "Not Found" Then
					GUICtrlSetData($Notice, "Error >  Program Not Found...")
					MsgBox(0, "Error", "Program #" & $PN & " - Program Not Found" & @CRLF & " This File will be Deleted")
					GUICtrlSetData($Plabel_[$PN], "Available")
					GUICtrlSetImage($Icon_[$PN], "shell32.dll", 200)
					GUICtrlSetState($Icon_[$PN], $GUI_SHOW)
					FileDelete(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini")
				ElseIf $Prog_[$PN] = "None" Then
					GUICtrlSetImage($Icon_[$PN], "shell32.dll", 86)
					GUICtrlSetState($Icon_[$PN], $GUI_SHOW)
				Else
					GUICtrlSetImage($Icon_[$PN], $Prog_[$PN])
					GUICtrlSetState($Icon_[$PN], $GUI_SHOW)
					If @error Then
						MsgBox(0, "EXE Icon Error", "Program #" & $PN & " - EXE Icon Not Found")
						GUICtrlSetImage($Icon_[$PN], "shell32.dll", 86)
						GUICtrlSetState($Icon_[$PN], $GUI_SHOW)
					EndIf
					GUICtrlSetData($Notice, "System >  Setting Image...")
					Sleep($tim)
					GUICtrlSetData($Notice, "System > " & $Title_ & $PN & " Complete")
					Sleep($tim)
				EndIf
			EndIf
		Else
			GUICtrlSetData($Notice, "System >  NO.. Program #" & $PN & "...")
			Sleep($tim)
			GUICtrlSetData($Plabel_[$PN], "Available")
			GUICtrlSetImage($Icon_[$PN], "shell32.dll", 200)
			GUICtrlSetState($Icon_[$PN], $GUI_SHOW)
			GUICtrlSetState($Start_[$PN], $GUI_ENABLE)
		EndIf
		Sleep($tim)
		$PN = $PN + 1
	WEnd
EndFunc   ;==>Sys_Start
Func Run_Program()
	$d = 0
	If FileExists(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini") Then
		$Pass_1 = IniRead(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini", "Password", "Key_1", "Not Found")
		If $Pass_1 = "Not Found" Then
			GUICtrlSetData($Notice, "Error >  Program Not Found...")
			MsgBox(0, "Error", " Program Not Found" & @CRLF & " This File will be Deleted")
			FileDelete(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini")
			Return
		ElseIf $Pass_1 = "None" Then
			$ST_1 = "No Load again"
		Else
			$Answ = InputBox("Password", "This File is Password Protected" & @CRLF & " Please type in the Correct Password")
			If Not $Answ == $Pass_1 Then Return
		EndIf
	EndIf
	If FileExists(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini") Then
		GUICtrlSetData($Notice, "System >  Found Program #" & $PN & "...")
		Sleep($tim)
		$Title_1 = IniRead(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini", "Title", "Key_1", "Not Found")
		If $Title_1 = "Not Found" Then
			GUICtrlSetData($Notice, "Error >  Title Not Found...")
			Sleep($tim)
			MsgBox(0, "Error", "Program - Title Not Found" & @CRLF & " This File will be Deleted")
			FileDelete(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini")
			Return
		Else
			GUICtrlSetData($Notice, "System >  XPedite " & $Title_1 & "...")
			Sleep($tim)
			GUICtrlSetData($Notice, "** This Menu will Hide Now **")
			Sleep($tim)
			TraySetState (4)
			TrayTip("If Necessary", " Use this Icon to *STOP* Expedite", 5, 1)
			Sleep($tim)
			TraySetState (8)
			GUISetState(@SW_HIDE, $GPS_Menu)
			Sleep($tim)
		EndIf
	Else
		GUICtrlSetData($Notice, "    *** Program Not Found ***")
		Sleep($tim)
		GUISetState(@SW_HIDE, $GPS_Menu)
		Call("Create")
		Return
	EndIf
	If FileExists(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini") Then
		$Prog_1 = IniRead(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini", "Program", "Key_1", "Not Found")
		If $Prog_1 = "Not Found" Then
			GUICtrlSetData($Notice, "Error >  Program Not Found...")
			MsgBox(0, "Error", " Program Not Found" & @CRLF & " This File will be Deleted")
			FileDelete(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini")
			Return
		ElseIf $Prog_1 = "None" Then
			$ST_1 = "No Load"
		Else
			Sleep($tim)
			$PID = Run($Prog_1)
			WinWaitActive("")
		EndIf
	EndIf
	$d = 1
	ToolTip(" Running Data", 0, 0)
	While 1
		If $Stop = "Stop" Then Return
		If $d >= 200 Then
			MsgBox(0, "OverFlow Error", " There are more than 200 Actions")
			Return
		EndIf
		If $Stop = "Stop" Then Return
		$Data_[$d] = IniRead(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $PN & ".ini", "Actions", "Key_" & $d, "Not Found")
		If $Data_[$d] = "Not Found" Then
			GUISetState(@SW_SHOW, $GPS_Menu)
			Sleep($tim)
			GUICtrlSetData($Notice, "** Program Completed **")
			Sleep($tim)
			Return
		EndIf
		If $Stop = "Stop" Then Return
		$NLine = StringSplit($Data_[$d], ",")
		$D_info = $NLine[1]
		If $Stop = "Stop" Then Return
		If $D_info = "Wait" Then
			ToolTip(" Wait " & $NLine[2], 0, 0)
			Call("Sleeper")
			Sleep($tim)
			$d = $d + 1
		EndIf
		If $Stop = "Stop" Then Return
		If $D_info = "Text" Then
			ToolTip(" Send Text ", 0, 0)
			$result = StringTrimLeft($Data_[$d], 5)
			Send($result, 1)
			Sleep($tim)
			$d = $d + 1
		EndIf
		If $Stop = "Stop" Then Return
		If $D_info = "Keys" Then
			ToolTip(" Send Key ", 0, 0)
			$result = StringTrimLeft($Data_[$d], 5)
			Send($result, 1)
			Sleep($tim)
			$d = $d + 1
		EndIf
		If $Stop = "Stop" Then Return
		If $D_info = "Move" Then
			ToolTip(" Mouse Move ", 0, 0)
			MouseMove($NLine[2], $NLine[3])
			Sleep($tim)
			$d = $d + 1
		EndIf
		If $Stop = "Stop" Then Return
		If $D_info = "Left" Then
			SoundPlay($Sound_clk)
			ToolTip(" Left Click ", 0, 0)
			MouseClick("Left")
			Sleep(100)
			$d = $d + 1
		EndIf
		If $Stop = "Stop" Then Return
		If $D_info = "Right" Then
			SoundPlay($Sound_clk)
			ToolTip(" Right Click ", 0, 0)
			MouseClick("Right")
			Sleep($tim)
			$d = $d + 1
		EndIf
		If $Stop = "Stop" Then Return
		Sleep(10)
	WEnd
EndFunc   ;==>Run_Program
Func Create()
	GUISetState(@SW_HIDE, $GPS_Menu2)
	GUICtrlSetBkColor($T_lbl, 0x00ff00)
	GUISetState(@SW_SHOW, $GPS_Menu3)
	GUICtrlSetState($Prog_1A, $GUI_DISABLE)
	GUICtrlSetState($Pass_1A, $GUI_DISABLE)
	GUICtrlSetState($Title_1A, $GUI_ENABLE)
	GUICtrlSetData($Title_1A, "*Title Here*")
	GUICtrlSetData($Create, "Please type a Title Name")
	While 2
		$Msg2 = GUIGetMsg()
		If $shw = "show" And WinActive("*XPedite Pro*") Then
			Sleep($tim)
			GUICtrlSetData($Title_1A, "*Title Here*")
			$shw = ""
		EndIf
		If $Msg2 = $Min3 Then
			SoundPlay($Sound_clk)
			GUISetState(@SW_MINIMIZE, $GPS_Menu3)
			$shw = "show"
		EndIf
		If $Msg2 = $Label_4A Then
			SoundPlay($Sound_clk)
			Call("Set_Show")
			Return
		EndIf
		If $Msg2 = $Label_1A Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create, "***** Reading Title ***** ")
			Sleep($tim)
			$Title_1 = GUICtrlRead($Title_1A)
			GUICtrlSetData($Create, "Title is accepted as " & $Title_1)
			Sleep($tim)
			ExitLoop
		EndIf
		Sleep(20)
	WEnd
	GUICtrlSetData($Create, "Moving to - Launch Program")
	Sleep($tim)
	GUICtrlSetState($Title_1A, $GUI_DISABLE)
	GUICtrlSetState($Pass_1A, $GUI_DISABLE)
	GUICtrlSetBkColor($T_lbl, 0x0066FF)
	GUICtrlSetBkColor($P_lbl, 0x00ff00)
	GUISetState(@SW_HIDE, $GPS_Menu3)
	GUISetState(@SW_SHOW, $GPS_Menu3)
	GUICtrlSetState($Prog_1A, $GUI_ENABLE)
	GUICtrlSetState($Prog_1A, $GUI_ACCEPTFILES)
	GUICtrlSetData($Prog_1A, "* Drag and Drop an Icon Here* ***Remove this text***")
	GUICtrlSetData($Create, "Please DROP a Short-cut (picture) in the box")
	While 3
		$Msg3 = GUIGetMsg()
		If $shw = "show" And WinActive("*XPedite Pro*") Then
			Sleep($tim)
			GUICtrlSetData($Prog_1A, "* Drag and Drop an Icon Here* ***Remove this text***")
			$shw = ""
		EndIf
		If $Msg3 = $Min3 Then
			SoundPlay($Sound_clk)
			GUISetState(@SW_MINIMIZE, $GPS_Menu3)
			$shw = "show"
		EndIf
		If $Msg3 = $Label_4A Then
			SoundPlay($Sound_clk)
			Call("Set_Show")
			Return
		EndIf
		If $Msg3 = $Label_2A Then
			SoundPlay($Sound_clk)
			$Prog_1 = "None"
			GUICtrlSetData($Create, "***** Reading Program ***** ")
			Sleep($tim)
			GUICtrlSetData($Create, "Program is accepted as " & $Prog_1)
			Sleep($tim)
			ExitLoop
		EndIf
		If $Msg3 = $Label_2B Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create, "***** Reading Program ***** ")
			Sleep($tim)
			$Prog_1 = GUICtrlRead($Prog_1A)
			$result = StringInStr($Prog_1, ".lnk")
			If $result >= 5 Then
				$details = FileGetShortcut($Prog_1)
				$Prog_1 = $details[0]
				GUICtrlSetData($Create, "*.lnk* Program Launch is accepted")
				Sleep($tim)
				ExitLoop
			EndIf
			$result2 = StringInStr($Prog_1, ".exe")
			If $result2 >= 5 Then
				GUICtrlSetData($Create, "*.exe* Program Launch is accepted")
				Sleep($tim)
				ExitLoop
			EndIf
			GUICtrlSetData($Create, "*NOTE* Program Launch was *NOT* accepted")
			Sleep(3000)
			GUICtrlSetData($Create, "Please DROP a Short-cut (picture) in the box")
		EndIf
		Sleep(20)
	WEnd
	GUICtrlSetData($Create, "Moving to - Password")
	Sleep($tim)
	GUICtrlSetState($Title_1A, $GUI_DISABLE)
	GUICtrlSetState($Prog_1A, $GUI_DISABLE)
	GUICtrlSetBkColor($P_lbl, 0x0066FF)
	GUICtrlSetBkColor($W_lbl, 0x00ff00)
	GUISetState(@SW_HIDE, $GPS_Menu3)
	GUISetState(@SW_SHOW, $GPS_Menu3)
	GUICtrlSetState($Pass_1A, $GUI_ENABLE)
	GUICtrlSetData($Pass_1A, "*Password Here*")
	GUICtrlSetData($Create, "Please type in a Password")
	While 4
		$Msg4 = GUIGetMsg()
		If $shw = "show" And WinActive("*XPedite Pro*") Then
			Sleep($tim)
			GUICtrlSetData($Pass_1A, "*Password Here*")
			$shw = ""
		EndIf
		If $Msg4 = $Min3 Then
			SoundPlay($Sound_clk)
			GUISetState(@SW_MINIMIZE, $GPS_Menu3)
			$shw = "show"
		EndIf
		If $Msg4 = $Label_4A Then
			SoundPlay($Sound_clk)
			Call("Set_Show")
			Return
		EndIf
		If $Msg4 = $Label_3A Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create, "***** Reading Password ***** ")
			Sleep($tim)
			$Pass_1 = "None"
			GUICtrlSetData($Create, "Password is accepted as None ")
			Sleep($tim)
			ExitLoop
		EndIf
		If $Msg4 = $Label_3B Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create, "***** Reading Password ***** ")
			Sleep($tim)
			$Pass_1 = GUICtrlRead($Pass_1A)
			GUICtrlSetData($Create, "Password is accepted as " & $Pass_1)
			Sleep($tim)
			ExitLoop
		EndIf
		Sleep(20)
	WEnd
	GUICtrlSetData($Create, "** Saving Information to File **")
	Sleep($tim)
	GUICtrlSetState($Pass_1A, $GUI_DISABLE)
	GUICtrlSetBkColor($W_lbl, 0x0066FF)
	GUISetState(@SW_HIDE, $GPS_Menu3)
	GUISetState(@SW_SHOW, $GPS_Menu3)
	For $x = 1 To 10
		If $x >= 10 Then
			GUICtrlSetColor($Create, 0xff0000)
			GUICtrlSetData($Create, "*Not Avaialble* Maximum 9 XPedite Programs")
			Sleep(4000)
			GUICtrlSetData($Create, "You must *Delete* a previous program First")
			Sleep(4000)
			GUICtrlSetColor($Create, 0x00ff00)
			Call("Set_Show")
			Return
		EndIf
		If Not FileExists(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini") Then ExitLoop
	Next
	IniWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini", "Title", "Key_1", $Title_1)
	IniWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini", "Program", "Key_1", $Prog_1)
	IniWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini", "Password", "Key_1", $Pass_1)
	GUICtrlSetData($Create, "** Save to File Complete **")
	Sleep($tim)
	GUISetState(@SW_HIDE, $GPS_Menu3)
	Sleep(10)
	GUISetState(@SW_SHOW, $GPS_Menu4)
	GUICtrlSetData($Wait_1A, "1")
	GUICtrlSetData($Text_1A, "*Type your text Here*")
	GUISetState(@SW_SHOW, $GPS_Menu4)
	$d = 1
	While 1
		$Msg5 = GUIGetMsg()
		If $shw = "show" And WinActive("*XPedite Pro*") Then
			Sleep($tim)
			GUICtrlSetData($Wait_1A, "1")
			GUICtrlSetData($Text_1A, "*Type your text Here*")
			GUICtrlSetData($Create2, "Please set Action #" & $d)
			$shw = ""
		EndIf
		If $Msg5 = $Min4 Then
			SoundPlay($Sound_clk)
			GUISetState(@SW_MINIMIZE, $GPS_Menu4)
			$shw = "show"
		EndIf
		If $Msg5 = $Label_CC Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create2, "Leaving Create - Program is ready to use ")
			Sleep($tim)
			GUISetState(@SW_HIDE, $GPS_Menu4)
			Call("Sys_Start")
			Call("Set_Show")
			Return
		EndIf
		If $Msg5 = $Label_WA Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create2, "***** Reading Wait time ***** ")
			Sleep($tim)
			$Wait_1 = GUICtrlRead($Wait_1A)
			If $Wait_1 >= .5 Then
				$Data_[$d] = $Wait_1
				IniWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini", "Actions", "Key_" & $d, "Wait," & $Data_[$d])
				GUICtrlSetData($Create2, "Wait time is accepted")
				Sleep($tim)
				$d = $d + 1
				GUICtrlSetData($Create2, "Please set Action #" & $d)
			Else
				GUICtrlSetColor($Create2, 0xff0000)
				GUICtrlSetData($Create2, "***** Wait time NOT accepted ***** ")
				Sleep(4000)
				GUICtrlSetColor($Create2, 0x00ff00)
				$shw = "show"
				GUICtrlSetData($Create2, "Please set Action #" & $d)
			EndIf
		EndIf
		If $Msg5 = $Label_TA Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create2, "***** Reading Text ***** ")
			Sleep($tim)
			$Text_1 = GUICtrlRead($Text_1A)
			If $Text_1 <> "" Then
				$Data_[$d] = $Text_1
				IniWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini", "Actions", "Key_" & $d, "Text," & $Data_[$d])
				GUICtrlSetData($Create2, "Text was accepted")
				Sleep($tim)
				$d = $d + 1
				GUICtrlSetData($Create2, "Please set Action #" & $d)
			Else
				GUICtrlSetColor($Create2, 0xff0000)
				GUICtrlSetData($Create2, "***** Text was NOT accepted ***** ")
				Sleep(4000)
				GUICtrlSetColor($Create2, 0x00ff00)
				$shw = "show"
				GUICtrlSetData($Create2, "Please set Action #" & $d)
			EndIf
		EndIf
		If $Msg5 = $Label_KA Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create2, "Waiting for - Key Selection")
			Sleep($tim)
			Call("Set_Key")
			GUISetState(@SW_HIDE, $GPS_Menu5)
			GUICtrlSetData($Create2, "***** Reading Key ***** ")
			Sleep($tim)
			If $Key_A <> "" Then
				$Data_[$d] = $Key_A
				IniWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini", "Actions", "Key_" & $d, "Keys," & $Data_[$d])
				GUICtrlSetData($Create2, "Key was accepted")
				Sleep($tim)
				$d = $d + 1
				GUICtrlSetData($Create2, "Please set Action #" & $d)
			Else
				GUICtrlSetColor($Create2, 0xff0000)
				GUICtrlSetData($Create2, "***** Key was NOT accepted ***** ")
				Sleep(4000)
				GUICtrlSetColor($Create2, 0x00ff00)
				$shw = "show"
				GUICtrlSetData($Create2, "Please set Action #" & $d)
			EndIf
		EndIf
		If $Msg5 = $Label_MA Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create2, "***** Ready to Read Mouse ***** ")
			Sleep($tim)
			Call("Set_Mouse")
			If $Ms_t <> 0 And $Ms_In <> "" Then
				$Data_[$d] = $Mpos_1 & "," & $Mpos_2
				IniWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini", "Actions", "Key_" & $d, "Move," & $Data_[$d])
				GUICtrlSetData($Create2, "Mouse Move was accepted")
				Sleep($tim)
				$d = $d + 1
				$Ms_In = ""
				GUICtrlSetData($Create2, "Please set Action #" & $d)
			Else
				GUICtrlSetColor($Create2, 0xff0000)
				GUICtrlSetData($Create2, "***** Mouse Move was NOT accepted ***** ")
				Sleep(4000)
				GUICtrlSetColor($Create2, 0x00ff00)
				$shw = "show"
				GUICtrlSetData($Create2, "Please set Action #" & $d)
			EndIf
		EndIf
		If $Msg5 = $Label_MB Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create2, "***** Set Left Click at Last Mouse Move ***** ")
			Sleep($tim)
			$Data_[$d] = "Left"
			IniWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini", "Actions", "Key_" & $d, "Left," & $Data_[$d])
			GUICtrlSetData($Create2, "Left Click was Set")
			Sleep($tim)
			$d = $d + 1
			GUICtrlSetData($Create2, "Please set Action #" & $d)
		EndIf
		If $Msg5 = $Label_MC Then
			SoundPlay($Sound_clk)
			GUICtrlSetData($Create2, "***** Set Right Click at Last Mouse Move ***** ")
			Sleep($tim)
			$Data_[$d] = "Right"
			IniWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\" & $Folder & "\Program_" & $x & ".ini", "Actions", "Key_" & $d, "Right," & $Data_[$d])
			GUICtrlSetData($Create2, "Right Click was Set")
			Sleep($tim)
			$d = $d + 1
			GUICtrlSetData($Create2, "Please set Action #" & $d)
		EndIf
		Sleep(20)
	WEnd
EndFunc   ;==>Create
Func Set_Key()
	GUISetState(@SW_SHOW, $GPS_Menu5)
	While 1
		$Msg6 = GUIGetMsg()
		If $Msg6 = $None_4 Then
			$Key_A = ""
			Return
		EndIf
		If $Msg6 = $Auto_1 Then
			$Key_A = "{F1}"
			Return
		EndIf
		If $Msg6 = $Auto_2 Then
			$Key_A = "{F2}"
			Return
		EndIf
		If $Msg6 = $Auto_3 Then
			$Key_A = "{F3}"
			Return
		EndIf
		If $Msg6 = $Auto_4 Then
			$Key_A = "{F4}"
			Return
		EndIf
		If $Msg6 = $Auto_5 Then
			$Key_A = "{F5}"
			Return
		EndIf
		If $Msg6 = $Auto_6 Then
			$Key_A = "{F6}"
			Return
		EndIf
		If $Msg6 = $Auto_7 Then
			$Key_A = "{F7}"
			Return
		EndIf
		If $Msg6 = $Auto_8 Then
			$Key_A = "{F8}"
			Return
		EndIf
		If $Msg6 = $Auto_9 Then
			$Key_A = "{F9}"
			Return
		EndIf
		If $Msg6 = $Auto_10 Then
			$Key_A = "{F10}"
			Return
		EndIf
		If $Msg6 = $Auto_11 Then
			$Key_A = "{ENTER}"
			Return
		EndIf
		If $Msg6 = $Auto_12 Then
			$Key_A = "{TAB}"
			Return
		EndIf
		If $Msg6 = $Auto_13 Then
			$Key_A = "{UP}"
			Return
		EndIf
		If $Msg6 = $Auto_14 Then
			$Key_A = "{DOWN}"
			Return
		EndIf
		If $Msg6 = $Auto_15 Then
			$Key_A = "{LEFT}"
			Return
		EndIf
		If $Msg6 = $Auto_16 Then
			$Key_A = "{RIGHT}"
			Return
		EndIf
	WEnd
EndFunc   ;==>Set_Key
Func Set_Mouse()
	GUISetState(@SW_HIDE, $GPS_Menu4)
	$Ms_t = 10
	$Ms_t2 = 0
	$Ms_t3 = "set"
	$Ms_In = ""
	While 1
		If $Ms_t = 0 Or $Ms_In <> "" Then
			GUISetState(@SW_SHOW, $GPS_Menu4)
			$Ms_t3 = ""
			ToolTip("")
			Return
		EndIf
		$Ms_t2 = $Ms_t2 + 1
		If $Ms_t2 >= 100 Then
			$Ms_t = $Ms_t - 1
			$Ms_t2 = 0
		EndIf
		ToolTip( "Place Mouse at Desired location" & @CRLF & "and Press Escape Button *(ESC)*" & @CRLF & " Time Remaining = " & $Ms_t)
		Sleep(10)
	WEnd
EndFunc   ;==>Set_Mouse
Func Get_pos()
	If $Ms_t3 = "set" Then
		$Ms_In = MouseGetPos()
		$Mpos_1 = $Ms_In[0]
		$Mpos_2 = $Ms_In[1]
	EndIf
EndFunc   ;==>Get_pos
Func Sleeper()
	$timer = TimerInit()
	While 1
		If $Stop = "stop" Then Return
		$diff = Round(TimerDiff($timer) / 1000)
		If $diff >= $NLine[2] Then Return
		ToolTip( " Wait " & $NLine[2] & " Sec:  " & $diff, 0, 0)
		Sleep(50)
	WEnd
EndFunc   ;==>Sleeper
Func Advanced()
	GUICtrlSetData($Notice2, "System >  Advanced... ")
	$Get_File = FileOpenDialog("*XPedite Pro*  Delete - Advanced Editing", @ProgramFilesDir & "\QTasc\XPedite\Settings\Programs\", "XPedite Files (*.ini)", 1)
	If $Get_File <> "" Then
		If Not FileExists($Get_File) Then
			MsgBox(0, "Error 1", "Unable to open file.")
			Return
		EndIf
		$iMsgBoxAnswer = MsgBox(35, "Delete - Advanced Edit of XPedited Programs", "Press *Yes*      to delete the selected program" & @CRLF & "(Hint - This will remove this program you created!)    " & @CRLF & "" & @CRLF & "Press *No*       For Advaned Ini Editing of Selected Program" & @CRLF & "" & @CRLF & "Press *Canel*   to return to Menu ", 22)
		Select
			Case $iMsgBoxAnswer = 6
				If FileExists($Get_File) Then
					FileDelete($Get_File)
					call("Sys_Start")
				EndIf
			Case $iMsgBoxAnswer = 7
				If FileExists($Get_File) Then
					Run(@SystemDir & "\notepad.exe " & $Get_File)
					Sleep($tim)
				EndIf
			Case $iMsgBoxAnswer = 2
		EndSelect
	EndIf
	GUISetState(@SW_SHOW, $GPS_Menu)
EndFunc   ;==>Advanced
Func Voice()
	GUICtrlSetData($Notice2, "System >  Set Voice on/off... ")
	If $Vc = "off" Then
		GUICtrlSetData($Voice, "*Voice* Mouse over key = On")
		GUICtrlSetData($Notice, "System >  Set Voice On... ")
		$Vc = "on"
		$Vcc = ""
		GUISetState(@SW_HIDE, $GPS_Menu2)
		GUISetState(@SW_SHOW, $GPS_Menu)
		Return
	EndIf
	If $Vc = "on" Then
		GUICtrlSetData($Voice, "*Voice* Mouse over key = Off")
		GUICtrlSetData($Notice, "System >  Set Voice Off... ")
		$Vc = "off"
		GUISetState(@SW_HIDE, $GPS_Menu2)
		GUISetState(@SW_SHOW, $GPS_Menu)
		Return
	EndIf
EndFunc   ;==>Voice
Func Set_Update()
	GUICtrlSetData($Notice, "System >  Check Releases... ")
	$PID = Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)
	WinWaitActive("")
	FileDelete(@ProgramFilesDir & "\QTasc\XPedite\Settings\UpDate.dat")
EndFunc   ;==>Set_Update
Func Set_Show()
	GUICtrlSetData($Notice, "System >  Set Show... ")
	If WinExists("*XPedite Pro* Set-up") Then GUISetState(@SW_HIDE, $GPS_Menu2)
	If WinExists("*XPedite Pro* Title") Then GUISetState(@SW_HIDE, $GPS_Menu3)
	If WinExists("*XPedite Pro* Actions") Then GUISetState(@SW_HIDE, $GPS_Menu4)
	If WinExists("*XPedite Pro* Set Key") Then GUISetState(@SW_HIDE, $GPS_Menu5)
	GUISetState(@SW_SHOW, $GPS_Menu)
EndFunc   ;==>Set_Show
Func Set_Hide()
	GUICtrlSetData($Notice, "System >  Set Hide... ")
	GUISetState(@SW_HIDE, $GPS_Menu)
EndFunc   ;==>Set_Hide
Func Set_QT()
	GUICtrlSetData($Notice, "System >  QTasc info... ")
	SoundPlay($Sound_grp)
	$iMsgBoxAnswer = MsgBox(32, "*XPedite Pro* ,  by   QTasc", "WHO IS,  QT APPRAISAL SERVICE CO ?" & @CRLF & "" & @CRLF & "We are a Real Estate Appraisal Company based in Riverside, California. " & @CRLF & "" & @CRLF & "Thank you." & @CRLF & "" & @CRLF & "", 60)
	Select
		Case $iMsgBoxAnswer = -1
	EndSelect
	SoundPlay($Sound_grp)
EndFunc   ;==>Set_QT
Func Set_Trans()
	GUICtrlSetData($Notice, "System >  Set Visability... ")
	$Trans_ans = InputBox("Set XPedite Visability", "Please Type a number for the % of transparency ie..." & @CRLF & @CRLF & " 25 or 50 or " & @CRLF & @CRLF & " 75 or 100 ", "", " 3", "", "", -1, -1, 15)
	Select
		Case @error = 0
			If $Trans_ans > 24 And $Trans_ans < 101 Then
				$transNum = $Trans_ans * 2.55
				WinSetTrans($GPS_Menu, "", $transNum)
			Else
				MsgBox(64, "Sorry!", " Please use numbers ONLY from " & @CRLF & @CRLF & " 25 to 100... 45, 65, etc ")
			EndIf
	EndSelect
EndFunc   ;==>Set_Trans
Func Set_Exit()
	GUICtrlSetData($Notice, "System >  Good Bye... ")
	SoundPlay($Sound_lnk, 1)
	Exit
EndFunc   ;==>Set_Exit
Func Set_Stop()
	GUICtrlSetData($Notice, "System >  Set Stop... ")
	$Stop = "stop"
	If WinExists("*XPedite Pro* Set-up") Then GUISetState(@SW_HIDE, $GPS_Menu2)
	If WinExists("*XPedite Pro* Title") Then GUISetState(@SW_HIDE, $GPS_Menu3)
	If WinExists("*XPedite Pro* Actions") Then GUISetState(@SW_HIDE, $GPS_Menu4)
	If WinExists("*XPedite Pro* Set Key") Then GUISetState(@SW_HIDE, $GPS_Menu5)
	GUISetState(@SW_SHOW, $GPS_Menu)
EndFunc   ;==>Set_Stop
Func Set_Updater()
If Not FileExists(@ProgramFilesDir & "\QTasc\XPedite\Settings\UpDate.dat") Then
	FileWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\UpDate.dat", @YDAY)
Else
	$Uold = FileReadLine(@ProgramFilesDir & "\QTasc\XPedite\Settings\UpDate.dat", 1)
	If $Uold >=320 Then 
		FileDelete(@ProgramFilesDir & "\QTasc\XPedite\Settings\UpDate.dat")
		Return
	EndIf
	$Udif = @YDAY - $Uold
	If $Udif >= 45 Then
		$Uask = MsgBox(68, "UpDate Notification", " Your last UpDate was more than " & $Udif & " days ago  " & @CRLF & @CRLF & "Would you like to check for new updates now?        " & @CRLF & @CRLF)
		If $Uask = 6 Then
			Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)
			WinWaitActive("")
		EndIf
		FileDelete(@ProgramFilesDir & "\QTasc\XPedite\Settings\UpDate.dat")
		FileWrite(@ProgramFilesDir & "\QTasc\XPedite\Settings\UpDate.dat", @YDAY)
	EndIf
EndIf
EndFunc
Func SetWindowRgn($h_win, $rgn)
	DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $rgn, "int", 1)
EndFunc   ;==>SetWindowRgn
Func CreatePolyRgn($pt)
	Local $ALTERNATE = 1
	Local $buffer = ""
	$pt = StringSplit($pt, ",")
	For $i = 1 To $pt[0]
		$buffer = $buffer & "int;"
	Next
	$buffer = StringTrimRight($buffer, 1)
	$lppt = DllStructCreate ($buffer)
	For $i = 1 To $pt[0]
		DllStructSetData ($lppt, $i, $pt[$i])
	Next
	$ret = DllCall("gdi32.dll", "long", "CreatePolygonRgn", "ptr", DllStructGetPtr ($lppt), "int", Int($pt[0] / 2), "int", $ALTERNATE)
	DllStructDelete ($lppt)
	Return $ret[0]
EndFunc   ;==>CreatePolyRgn
Func CreateRoundRectRgn($l, $t, $w, $h, $e1, $e2)
	$ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $l, "long", $t, "long", $l + $w, "long", $t + $h, "long", $e1, "long", $e2)
	Return $ret[0]
EndFunc   ;==>CreateRoundRectRgn
Func CombineRgn(ByRef $rgn1, ByRef $rgn2)
	DllCall("gdi32.dll", "long", "CombineRgn", "long", $rgn1, "long", $rgn1, "long", $rgn2, "int", 2)
EndFunc   ;==>CombineRgn