#cs ===============================================================================
	
	*XPClean Menu* +PLUS  ver 3.3.5E - 02.22.2006
	Autor: 		Robert M @ QT Appraisal
	E-mail:		XPCleanMenu@aol.com
	Language:    English
	OSystem: 	Windows Xp
	
	Features: Menu system to Clean-up, Tune-up and Optimize Windows Xp
	
	- Skin-able Menu bar, new deisgns and fully functional ; more designs to come
	- Menu item to run Xp Restore Program (create restore point for safety)
	- Web link and menu item to install/start Adaware (removes ad and pop-up problems)
	- Web link and menu item to install/start Microsoft Spyware/Defender Program (removes spyware problems)
	- Tabs for removing programs and files (XPClean part)
	- Auto-clean checked boxes (cleans files automatically)
	- Web link and menu item to install/start CCleaner ; free & Registy First Aid (registry cleaner); limited freeware
	- Menu item to run Defrag hard-drive
	- Used as listed makes all programs even more effective
	- Web link and menu item to install/start Microsoft Tweak UI (Win Xp tweak program)
	- Folds very nicely
	- Multi-Language ( in process )
	
	Requirements: Legal copy of Microsoft Windows Xp
	Construction: Autoit 3.1+ (beta), SciTE 1.64+
	
	Thanks to all, Enjoy...
	
#ce ===============================================================================


#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <String.au3>
;#include <INet.au3>
#notrayicon
#include <GuiTab.au3>

;#include <Translation.au3>
; program - web info
Dim $QT_web = "www.XPCleanMenu.HostRocket.com"
Dim $QT_mail = "XPCleanMenu@aol.com"
Dim $Version = "3.3.5E"
Dim $Promo_A, $Promo_B, $Promo_C, $Promo_1="", $1_Promo, $New_Bar="", $newID="", $QTMB="show" 
Dim $TMS = 250 ; sets transparency of Start Menu Bar
Dim $VMS = 3, $VRMS = -68, $VX = 598, $VY = 61, $V = "", $loc = "in", $VR_ST = 200 ; sets move location of Start Menu Bar $VU=71, 
Dim $BoxAnswer, $1tip = "", $hide="", $rst="", $PID="", $Data_L1="", $NLine, $Custom="", $Custom_run=""
Dim $temp_folder = "", $Fname, $iCnt = 0, $sCnt = 0, $S_file, $Auto_Delete = "", $numID, $RnumID = "", $State_Set = 0, $Designer
Dim $GUIWidth, $GUIHeight, $Set_Restore = "", $Auto_win = "", $Share_win = "", $Full = "", $D_info="", $Data_ , $NDLine, $Title
Dim $Imp_pic, $Start_10="",$Udif
DIM $St_1, $St_2, $St_3, $St_4, $St_5, $St_6, $St_7, $St_8

$header = "   *XPClean Menu* +PLUS                                            Ver " & $Version
$RUNDLL32 = @SystemDir & "\rundll32.exe"
$GUIWidth = 512 ; @DesktopWidth / 2
$GUIHeight = 384 ; @DesktopHeight / 2

; check if exists @homedrive\temp\
DirGetSize(@HomeDrive & "\Temp\")
If @error= 1 Then
	DirCreate(@HomeDrive & "\Temp\")
EndIf
; checks for exe folder
DirGetSize(@ProgramFilesDir & "\QTasc\XPClean\Settings\Skins\")
If @error = 1 Then
	DirCreate(@ProgramFilesDir & "\QTasc\XPClean\Settings\Skins\")
EndIf
DirGetSize(@ProgramFilesDir & "\QTasc\XPClean\Settings\Languages\")
If @error = 1 Then
	DirCreate(@ProgramFilesDir & "\QTasc\XPClean\Settings\Languages\")
EndIf

; If Not FileExists(@ProgramFilesDir & "\QTasc\XPClean\Language.txt") Then Call("Set_Language")

; setup background pics and run splash
Do
	$Logo_jpg = @TempDir & "\XPClean-logo.jpg"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\XPClean-Main-Pic-Jpg.jpg", $Logo_jpg)  ;source must be literal string
	$Logo_icon = @TempDir & "\XPClean-Icon.ico"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\XPClean-Main-Pic-Icon.ico", $Logo_icon)
	$Favorites_jpg = @TempDir & "\Favorites-bk.jpg"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\Favorites-Backgnd-jpg.jpg", $Favorites_jpg)
	$Temp_jpg = @TempDir & "\Temp-bk.jpg"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\Temp-Backgnd-jpg.jpg", $Temp_jpg)
	$Unused_jpg = @TempDir & "\Unused-bk.jpg"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\Unused-Backgnd-jpg.jpg", $Unused_jpg)
	$History_jpg = @TempDir & "\History-bk.jpg"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\History-Backgnd-jpg.jpg", $History_jpg)
	$Personal_jpg = @TempDir & "\Personal-bk.jpg"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\Personal-Backgnd-jpg.jpg", $Personal_jpg)
	$System_jpg = @TempDir & "\System-bk.jpg"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\System-Backgnd-jpg.jpg", $System_jpg)
	$Security_jpg = @TempDir & "\Security-bk.jpg"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\Security-Backgnd-jpg.jpg", $Security_jpg)
	$Recycle_lnk = @TempDir & "\Recycle_bin.lnk"
	FileInstall("C:\XPClean-web\Settings\XPClean-pics\Recycle_bin.lnk", $Recycle_lnk)
	$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)

	SplashImageOn("", $Logo_jpg, -1, -1, -1, -1, 1)
	SoundPlay ($Sound_lnk,1)
	Sleep(4000)
Until SplashOff()

; check if process already exists
$g_szVersion = "My XP Cleaner"
If WinExists($g_szVersion) Then
	MouseMove(500,5)
	MsgBox(64, "* NOTE * ", "*XPClean Menu* was already running  ", 5)
	SoundPlay ($Sound_lnk,1)
	Exit ; It's already running
EndIf
AutoItWinSetTitle($g_szVersion)

; setup XPClean run/error log
If Not FileExists(@WindowsDir & "\XPClean.log") Then
	_FileCreate(@WindowsDir & "\XPClean.log")
	_FileWriteLog(@WindowsDir & "\XPClean.log", "Menu Setup complete")
EndIf

; setup auto delete log ( how many files auto deleted from this program )
If Not FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\Auto Deleted Files.log") Then
	_FileCreate(@ProgramFilesDir & "\QTasc\XPClean\Settings\Auto Deleted Files.log")
	_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\Auto Deleted Files.log", "Auto Deleted Files.log Setup complete")
	_FileWriteLog(@WindowsDir & "\XPClean.log", "Auto Deleted Files.log Setup complete")
EndIf

;check for updates every 45 days
Call("Set_Updater")

; setup GUI, tabs, button configuration and display on screen
Do
	$Dummy_win = GUICreate('')
	$MAIN = GUICreate($header, $GUIWidth, -1, -1, -1, -1, -1, $Dummy_win)  ; will create a dialog box that when displayed is centered
	GUISetFont(9, 400, -1, "MS Sans Serif")
	GUISetIcon($Logo_icon)
	
	;set help as (F1) Key
	GUISetHelp(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.xpcleanmenu.hostrocket.com/Help%20Center/help.html")
	
	$_SHARENUM = Random(1, 24, 1)   ; random asking user to share this menu
	If $_SHARENUM = 1 Then $_SHARE = "     Lets STOP the Hackers,  Share this Menu!"
	If $_SHARENUM = 2 Then $_SHARE = "     Great Program Huh?  Share it with your Friends!"
	If $_SHARENUM = 3 Then $_SHARE = "     If this works for you,  It will help others too!,  Share!"
	If $_SHARENUM = 4 Then $_SHARE = "     Its Easy to Share,  Just push the botton below!"
	If $_SHARENUM = 5 Then $_SHARE = "     Time to send this Menu on to your Friends!"
	If $_SHARENUM = 6 Then $_SHARE = "     Help me - Help you - Help Friends,  Share this Menu!"
	If $_SHARENUM = 7 Then $_SHARE = "     Don't Keep this Great thing Silent,  Share Today!"
	If $_SHARENUM = 8 Then $_SHARE = "     Over 87% of computers have ad or spyware,  Share!"
	If $_SHARENUM = 9 Then $_SHARE = "     Lets Clean-up the Computer world,  Share this Menu!"
	If $_SHARENUM = 10 Then $_SHARE = "     STOP Hackers, STOP Crashes,  Share this Menu!"
	If $_SHARENUM = 11 Then $_SHARE = "     Believe me!  This program was alot of Work,  Share it!"
	If $_SHARENUM = 12 Then $_SHARE = "     Please E-Mail us,  let us know you shared!"
	If $_SHARENUM = 13 Then $_SHARE = "     Value has many forms,  If you find Value,  Share it!"
	If $_SHARENUM = 14 Then $_SHARE = "     FREE - FREE - FREE and...    FREE to Share!"
	If $_SHARENUM = 15 Then $_SHARE = "     2 Things,  1.Close all programs and...  2.Share this Menu!"
	If $_SHARENUM = 16 Then $_SHARE = "     Show appreciation!     Just E-mail us to say you shared!"
	If $_SHARENUM = 17 Then $_SHARE = "     New Up-Dates may be Available - Contact Us"
	If $_SHARENUM = 18 Then $_SHARE = "     1/1/2005, California Law sets fines for Spyware."
	If $_SHARENUM = 19 Then $_SHARE = "     January 2006, Microsoft releases a free (Win Xp) Defender Program."
	If $_SHARENUM = 20 Then $_SHARE = "     Late 2005, Microsoft to release *OneCare* - I haven't seen it*"
	If $_SHARENUM = 21 Then $_SHARE = "     New..  *XPClean Menu*  Now supports Multi-languages"
	If $_SHARENUM = 22 Then $_SHARE = "     NEW!!!  Toy BOX  Have you seen it? - Check-out The Up-Dates"
	If $_SHARENUM = 23 Then $_SHARE = "     Toy BOX... Toy BOX... Toy BOX...  Fun Programs Now On-Line "
	If $_SHARENUM = 24 Then $_SHARE = "     Help US.. Help You.. Have Fun!!!    See our New Toy BOX!! "
	
	$tab = GUICtrlCreateTab(9, 8, 492, 345, BitOR($TCS_MULTILINE, $TCS_RIGHTJUSTIFY))
	
	$tab1 = GUICtrlCreateTabItem("    My Favorites    ")
	GUICtrlCreatePic($Favorites_jpg, 10, 31, 491, 321, $SS_SUNKEN)
	GUICtrlSetState(-1, $GUI_DEFBUTTON) ; will display this tab first
	GUICtrlCreateLabel("PLEASE Create a Restore Point...", 165, 60, 260, 25)
	$tab11OK = GUICtrlCreateButton("Create Restore", 30, 55, 120, 25, $BS_ICON)
	GUICtrlSetTip(-1, "Built-in Win Xp, If you accidently delete important files, you can Restore them later")
	GUICtrlCreateLabel("Removes Adware from Computers", 165, 105, 260, 25)
	$tab12OK = GUICtrlCreateButton("Adaware SE", 30, 100, 120, 25)
	GUICtrlSetTip(-1, "Freeware Program, Excellent AD POP-UP stopper")
	GUICtrlCreateLabel("Removes Spyware Programs", 165, 150, 260, 25)
	$tab13OK = GUICtrlCreateButton("Microsoft Defender", 30, 145, 120, 25)
	GUICtrlSetTip(-1, "Free for Win Xp, Excellent SPY PROGRAM eraser")
	GUICtrlCreateLabel("Removes TAB items, Temp, Unused, History and More!", 165, 195, 350, 25)
	$tab14OK = GUICtrlCreateButton("Auto-XPClean", 30, 190, 120, 25)
	GUICtrlSetTip(-1, "Automate Cleaning of TAB File items")
	GUICtrlCreateLabel("Removes Invalid Registry Entries", 165, 240, 250, 25)
	$tab15OK = GUICtrlCreateButton("Registry Cleaner", 30, 235, 120, 25)
	GUICtrlSetTip(-1, "Freeware, Muilti-purpose Registry Cleaner")
	GUICtrlCreateLabel("Organizes Hard-Drive Programs", 165, 285, 250, 25)
	$tab16OK = GUICtrlCreateButton("Win Xp Defregment", 30, 280, 120, 25)
	GUICtrlSetTip(-1, "Built-in Win Xp, Optimizes Hard-Drive space")
	GUICtrlCreateLabel($_SHARE, 20, 325, 540, 30)
	
	$tab2 = GUICtrlCreateTabItem(" Temporary ")
	GUICtrlCreatePic($Temp_jpg, 10, 31, 491, 321, $SS_SUNKEN)
	GUICtrlCreateLabel("Lists All Files in this Temporary Folder", 165, 60, 260, 25)
	$tab21OK = GUICtrlCreateButton(@HomeDrive & "\Temp\", 30, 55, 120, 25)
	GUICtrlSetTip(-1, " Show List and Option to Delete files in this Temporary Storage Folder ")
	GUICtrlCreateLabel("Temporary System Folder Files", 165, 105, 260, 25)
	$tab22OK = GUICtrlCreateButton(@WindowsDir & "\Temp\", 30, 100, 120, 25)
	GUICtrlSetTip(-1, " Show List and Option to Delete files in this Temporary Storage Folder ")
	GUICtrlCreateLabel(@UserName & " Temporary Folder Files", 165, 150, 360, 25)
	$tab23OK = GUICtrlCreateButton("\User Name\Temp\", 30, 145, 120, 25)
	GUICtrlSetTip(-1, " Show List and Option to Delete files in this Temporary Storage Folder ")
	GUICtrlCreateLabel(@UserName & " (Internet) Cookies Folder Files", 165, 195, 250, 25)
	$tab24OK = GUICtrlCreateButton("\User Name\Cookies\", 30, 190, 120, 25)
	GUICtrlSetTip(-1, " Show List and Option to Delete files in Internet Cookie Storage Folder ")
	GUICtrlCreateLabel("Temporary Internet Folder Files", 165, 240, 250, 25)
	$tab25OK = GUICtrlCreateButton("Temp Internet Files\", 30, 235, 120, 25)
	GUICtrlSetTip(-1, " Show List and Option to Delete files in the Temporary Storage Folder ")
	GUICtrlCreateLabel("Temporary (Garbage) Folder Files", 165, 285, 250, 25)
	$tab26OK = GUICtrlCreateButton("Recycle Bin", 30, 280, 120, 25)
	GUICtrlSetTip(-1, "Show List and option to Remove files inside Recycle Bin Folder")
	GUICtrlCreateLabel($_SHARE, 20, 325, 540, 30)
	
	$tab3 = GUICtrlCreateTabItem(" Unused ")
	GUICtrlCreatePic($Unused_jpg, 10, 31, 491, 321, $SS_SUNKEN)
	GUICtrlCreateLabel("Searches for All Back-up Files", 165, 60, 260, 25)
	$tab31OK = GUICtrlCreateButton("*.Bak Files", 30, 55, 120, 25)
	GUICtrlSetTip(-1, "Lists *.Bak files in Windows Explorer")
	GUICtrlCreateLabel("Searches for All Old Files", 165, 105, 260, 25)
	$tab32OK = GUICtrlCreateButton("*.Old Files", 30, 100, 120, 25)
	GUICtrlSetTip(-1, "Lists *.Old files in Windows Explorer")
	GUICtrlCreateLabel("Searches for All Temporary Files", 165, 150, 260, 25)
	$tab33OK = GUICtrlCreateButton("*.Tmp Files", 30, 145, 120, 25)
	GUICtrlSetTip(-1, "Lists *.Tmp files in Windows Explorer")
	GUICtrlCreateLabel("Searches for All Dump (old crash) Files", 165, 195, 250, 25)
	$tab34OK = GUICtrlCreateButton("*.Dmp Files", 30, 190, 120, 25)
	GUICtrlSetTip(-1, "Lists *.Dmp files in Windows Explorer")
	GUICtrlCreateLabel("Searches for All Help (old index) Files", 165, 240, 250, 25)
	$tab35OK = GUICtrlCreateButton("*.Gid Files", 30, 235, 120, 25)
	GUICtrlSetTip(-1, "Lists *.Gid files in Windows Explorer")
	GUICtrlCreateLabel("Searches for All Junk Files", 165, 285, 250, 25)
	$tab36OK = GUICtrlCreateButton("*.$*  *.~*  *.000  Files", 30, 280, 120, 25)
	GUICtrlSetTip(-1, "Lists junk type files in Windows Explorer")
	GUICtrlCreateLabel($_SHARE, 20, 325, 540, 30)
	
	$tab4 = GUICtrlCreateTabItem(" History ")
	GUICtrlCreatePic($History_jpg, 10, 31, 491, 321, $SS_SUNKEN)
	GUICtrlCreateLabel(@UserName & " History Folder (Recently used) Files", 165, 60, 290, 25)
	$tab41OK = GUICtrlCreateButton("\User Name\Recent\", 30, 55, 120, 25)
	GUICtrlSetTip(-1, " Show List and Option to Delete files in this Tracking Storage Folder ")
	GUICtrlCreateLabel("History Folder (Recently used) for Word, Excel, Powerpoint", 165, 105, 290, 25)
	$tab42OK = GUICtrlCreateButton("Microsoft Office", 30, 100, 120, 25)
	GUICtrlSetTip(-1, "Show List and Option to Delete files in this Tracking Storage Folder")
	GUICtrlCreateLabel("Lists " & @UserName & " History of Web-Sites visited", 165, 150, 290, 25)
	$tab43OK = GUICtrlCreateButton("User Name\History\", 30, 145, 120, 25)
	GUICtrlSetTip(-1, "Show List and Option to Delete files in this Web-Site Tracking Storage Folder")
	GUICtrlCreateLabel("Internet Explorer Favorites History Folder Files ", 165, 195, 290, 25)
	$tab44OK = GUICtrlCreateButton("Internet Favorites", 30, 190, 120, 25)
	GUICtrlSetTip(-1, "Show List and Option to Delete files in this Web-Site Favorites Storage Folder")
	GUICtrlCreateLabel("Set-up CMD Extended Win Xp Clean Manager", 165, 240, 290, 25)
	$tab45OK = GUICtrlCreateButton("Set-up Clean Mngr", 30, 235, 120, 25)
	GUICtrlSetTip(-1, "Check 10 or more cleaning tools than standard Windows")
	GUICtrlCreateLabel("Runs CMD Extended Win Xp Clean Manager", 165, 285, 290, 25)
	$tab46OK = GUICtrlCreateButton("Run Clean Mngr", 30, 280, 120, 25)
	GUICtrlSetTip(-1, "Cleans old setup, compressed, etc Files")
	GUICtrlCreateLabel($_SHARE, 20, 325, 540, 30)
	
	$tab5 = GUICtrlCreateTabItem(" Personal ")
	GUICtrlCreatePic($Personal_jpg, 10, 31, 491, 321, $SS_SUNKEN)
	GUICtrlCreateLabel("Searches for Picture Files", 165, 60, 260, 25)
	$tab51OK = GUICtrlCreateButton(".Bmp .Jpg  Files", 30, 55, 120, 25)
	GUICtrlSetTip(-1, "Lists picture files in Windows Explorer")
	GUICtrlCreateLabel("Searches for Screen Saver Files", 165, 105, 260, 25)
	$tab52OK = GUICtrlCreateButton(".Scr  Files", 30, 100, 120, 25)
	GUICtrlSetTip(-1, "Lists screen saver files in Windows Explorer")
	GUICtrlCreateLabel("Searches for Sound Files", 165, 150, 260, 25)
	$tab53OK = GUICtrlCreateButton(".Wav .Mp3 .Mid", 30, 145, 120, 25)
	GUICtrlSetTip(-1, "Lists music files in Windows Explorer")
	GUICtrlCreateLabel("Searches for Video Files", 165, 195, 250, 25)
	$tab54OK = GUICtrlCreateButton(".Avi .Mpg .Wmv  Files", 30, 190, 120, 25)
	GUICtrlSetTip(-1, "Lists movie files in Windows Explorer")
	GUICtrlCreateLabel("Searches for all Files and Folders in My Documents", 165, 240, 250, 25)
	$tab55OK = GUICtrlCreateButton("My Documents", 30, 235, 120, 25)
	GUICtrlSetTip(-1, "Shows all files/folders under My Documents")
	GUICtrlCreateLabel("Searches for All *.??? (you pick) Files", 165, 285, 250, 25)
	$tab56OK = GUICtrlCreateButton("User's Choice", 30, 280, 120, 25)
	GUICtrlSetTip(-1, "Lists files User types in ie.. *.dat or *.??? ")
	GUICtrlCreateLabel($_SHARE, 20, 325, 540, 30)
	
	$tab6 = GUICtrlCreateTabItem(" System ")
	GUICtrlCreatePic($System_jpg, 10, 31, 491, 321, $SS_SUNKEN)
	GUICtrlCreateLabel("Lists Win Xp Start-up Program short-cuts", 165, 60, 260, 25)
	$tab61OK = GUICtrlCreateButton("Win Xp Start-up", 30, 55, 120, 25)
	GUICtrlSetTip(-1, "Shows Start-up Program (short-cuts) that load when Win Xp starts")
	GUICtrlCreateLabel("Win Xp Add-ons, Installed Programs, Old Restore Points", 165, 105, 270, 25)
	$tab62OK = GUICtrlCreateButton("Win Xp Components", 30, 100, 120, 25)
	GUICtrlSetTip(-1, "Sub-menu to clean add-ons, programs and old restore points")
	GUICtrlCreateLabel("Microsoft *Tweak Utility* for Windows Xp Settings", 165, 150, 260, 25)
	$tab63OK = GUICtrlCreateButton("Microsoft Tweak UI", 30, 145, 120, 25)
	GUICtrlSetTip(-1, "A Microsoft programers tool with multiple settings for Windows Xp")
	GUICtrlCreateLabel("Set Your Favorite Internet Explorer *Home Page*", 165, 195, 250, 25)
	$tab64OK = GUICtrlCreateButton("IE Start Web-Site", 30, 190, 120, 25)
	GUICtrlSetTip(-1, "Set Internet Explorers Starting page Web Address")
	GUICtrlCreateLabel("Remove, Change or add New Internet Explorer Window Title", 165, 240, 250, 25)
	$tab65OK = GUICtrlCreateButton("IE Window Title", 30, 235, 120, 25)
	GUICtrlSetTip(-1, "Edit *Brought to you by *Brand name*, add New or leave Blank")
	GUICtrlCreateLabel("Lists Win Xp SYSTEM Start-up Programs", 165, 285, 250, 25)
	$tab66OK = GUICtrlCreateButton("System Start-up", 30, 280, 120, 25)
	GUICtrlSetTip(-1, "Remove check boxes from Start-up Programs that load when Win Xp System starts")
	GUICtrlCreateLabel($_SHARE, 20, 325, 540, 30)
	
	$tab7 = GUICtrlCreateTabItem(" Security ")
	GUICtrlCreatePic($Security_jpg, 10, 31, 491, 321, $SS_SUNKEN)
	GUICtrlCreateLabel("Win Xp Security for Firewall, Auto-Updates, Anti-Virus", 165, 60, 270, 25)
	$tab71OK = GUICtrlCreateButton("Security Center", 30, 55, 120, 25)
	GUICtrlSetTip(-1, "Settings for Windows Xp Security Center")
	GUICtrlCreateLabel("Win Xp Internet Privacy Options and Pop-Up Blocker", 165, 105, 270, 25)
	$tab72OK = GUICtrlCreateButton("Internet Privacy", 30, 100, 120, 25)
	GUICtrlSetTip(-1, "Set Internet Privacy level and Pop-Up Blocker")
	GUICtrlCreateLabel("Win Xp Internet Atuo-Complete Forms and Passwords", 165, 150, 270, 25)
	$tab73OK = GUICtrlCreateButton("Internet Passwords", 30, 145, 120, 25)
	GUICtrlSetTip(-1, "Set/Clear Auto-Complete Forms and Passwords")
	GUICtrlCreateLabel("Win Xp User Accessability and Password protection", 165, 195, 250, 25)
	$tab74OK = GUICtrlCreateButton("User Accounts", 30, 190, 120, 25)
	GUICtrlSetTip(-1, "Set Administration Preferences and Passwords")
	GUICtrlCreateLabel("AOL provides users Spy, Ad and McAfee virus scans FREE", 165, 240, 250, 25)
	$tab75OK = GUICtrlCreateButton("AOL Security Edition", 30, 235, 120, 25)
	GUICtrlSetTip(-1, "On-line Link to AOL Security Downloads")
	GUICtrlCreateLabel("Great Free Anti-Virus Program, If you don't have one.", 165, 285, 250, 25)
	$tab76OK = GUICtrlCreateButton("AVG Anti-Virus", 30, 280, 120, 25)
	GUICtrlSetTip(-1, "On-line Link to this Great Free Anti-Virus Program")
	GUICtrlCreateLabel($_SHARE, 20, 325, 540, 30)
	
	$tab8 = GUICtrlCreateTabItem(" About  ")
	GUICtrlCreatePic($Logo_jpg, 225, 37, 256, 192)
	$tab81OK = GUICtrlCreateButton("QT Appraisal", 30, 55, 120, 25)
	GUICtrlSetTip(-1, "Who is QT Appraisal Service")
	$tab82OK = GUICtrlCreateButton("Make a Donation", 30, 100, 120, 25)
	GUICtrlSetTip(-1, "*Keep us working for you*  Research, Programming and our Web-site")
	$tab83OK = GUICtrlCreateButton("Check New Releases", 30, 145, 120, 25)
	GUICtrlSetTip(-1, "Goto *XPClean Menu* on-line - Search for new Updates or new Versions")
	$tab84OK = GUICtrlCreateButton("Help Files", 30, 190, 120, 25)
	GUICtrlSetTip(-1, "Displays  *XPClean Menu*  Help and Information")
	;GUICtrlCreateLabel("See what Microsoft says about Deleting Files", 165, 243, 250, 25)
	$tab85OK = GUICtrlCreateButton("Microsoft says...", 30, 235, 120, 25)
	GUICtrlSetTip(-1, "See what Microsoft says about Deleting Files")
	$tech1 = GUICtrlCreateButton("  ", 466, 308, 27, 37, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 47) ; sets an icon as the button^ notice needs this too
	GUICtrlSetTip(-1, "Techincal Service Center")
	;GUICtrlCreateLabel("*NEW* Optional Menu Bars - ad Your Favorite Design... NOW!", 165, 285, 350, 25)
	$tab87OK = GUICtrlCreateButton("Chage Language", 30, 280, 120, 25)
	GUICtrlSetTip(-1, "Sets a New Language for *XPClean Menu*")
	GUICtrlCreateLabel("    Thank you.. Sincerely,  QTasc ", 200, 260, 280, 30)
	GUICtrlSetFont(-1, 16, 15)
	GUICtrlCreateLabel($_SHARE, 20, 325, 540, 30)
	
	GUICtrlCreateTabItem("") ; end tabitem definition
	
	opt("GUICoordMode", 1)
	$tab86OK = GUICtrlCreateButton("New Menu Bar Skin", 240, 365, 140, 25)
	GUICtrlSetTip(-1, "*NEW* Optional Menu Bars - ad Your Favorite Design... NOW!")
	$_CANCEL = GUICtrlCreateButton("Cancel", 410, 365, 70, 25)
	$_SHARE = GUICtrlCreateButton("Share this Menu - With Friends", 35, 365, 180, 25)
	GUICtrlSetTip(-1, "Opens E-letter for E-mail")
	
	GUISetState(@SW_HIDE, $MAIN)
	
	; creates Technical Service Center
	$CTLwin = GUICreate("   *XPClean Menu*   Technical Service Center", -1, -1, -1, -1, -1, -1, $MAIN)  ; will create a dialog box that when displayed is centered
	GUICtrlCreateLabel("Root Drive: " & @HomeDrive & "   OS Folder: " & @WindowsDir & "   Name: " & @UserName & " ", 15, 20, 430, 25)
	GUICtrlCreateLabel("Opens XPClean Settings Folder", 165, 60, 260, 25)
	$CTL1 = GUICtrlCreateButton("\XPClean\Settings\", 30, 55, 120, 25)
	GUICtrlSetTip(-1, "Reads \XPClean\Settings\ Folder for Event logs")
	GUICtrlCreateLabel("Opens *XPClean Menu* Event log", 165, 105, 260, 25)
	$CTL2 = GUICtrlCreateButton("XPClean.log", 30, 100, 120, 25)
	GUICtrlSetTip(-1, "Opens Editable XPClean.log File in notepad.exe")
	GUICtrlCreateLabel("Opens Win Xp Restore Point", 165, 150, 260, 25)
	$CTL3 = GUICtrlCreateButton("Restore Point", 30, 145, 120, 25)
	GUICtrlSetTip(-1, "Find a date to restore system data")
	GUICtrlCreateLabel("Opens Registry First Aid Reg.key Back-up folder", 165, 195, 250, 25)
	$CTL4 = GUICtrlCreateButton("Reg 1st Aid Back-up", 30, 190, 120, 25)
	GUICtrlSetTip(-1, "Find a date and Reg.Key to restore")
	GUICtrlCreateLabel("Opens Windows File Folder", 165, 240, 250, 25)
	$CTL5 = GUICtrlCreateButton("\Windows\", 30, 235, 120, 25)
	GUICtrlSetTip(-1, "Open and view windows folder files")
	GUICtrlCreateLabel("Future Control", 165, 285, 250, 25)
	$CTL6 = GUICtrlCreateButton("Control ID-6", 30, 280, 120, 25)
	GUICtrlSetTip(-1, "Available")
	
	$CTL_OK = GUICtrlCreateButton("OK", 240, 365, 70, 25)
	$CTL_CANCEL = GUICtrlCreateButton("Cancel", 320, 365, 70, 25)
	
	GUISetState(@SW_HIDE, $CTLwin)
	
	; creates start menu bar
	$Start_Menu = GUICreate("*XPClean Menu*", $VX, $VY, $VR_ST, $VMS, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW, $Dummy_win)
	$Promo_A = GUICtrlCreatePic($Logo_jpg, 0, 0, 150, 150)
	;$Promo_B = GUICtrlCreatePic($One_Logo, 0, 0, 150, 130) 
	;GUICtrlSetState(-1, $GUI_HIDE)
	$Start_1 = GUICtrlCreateButton("", 150, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 39)
	$Start_2 = GUICtrlCreateButton("", 200, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 141)
	$Start_3 = GUICtrlCreateButton("", 250, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 22)
	$Start_4 = GUICtrlCreateButton("", 300, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 72)
	$Start_5 = GUICtrlCreateButton("", 350, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 166)
	$Start_6 = GUICtrlCreateButton("", 400, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 80)
	$Start_7 = GUICtrlCreateButton("", 450, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 221)
	$Start_8 = GUICtrlCreateButton("", 500, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 160)
	$Start_9 = GUICtrlCreateButton("", 550, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 131)
	$Start_10 = GUICtrlCreateButton("", 650, 0, 50, 40, $BS_ICON); dummy for skins
	GUICtrlSetState(-1, $GUI_HIDE)
	$Start_11 = GUICtrlCreateButton("", 650, 0, 50, 40, $BS_ICON); dummy for skins
	GUICtrlSetState(-1, $GUI_HIDE)
	$Start_12 = GUICtrlCreateButton("", 650, 0, 50, 40, $BS_ICON); dummy for skins
	GUICtrlSetState(-1, $GUI_HIDE)
	$Hiden = GUICtrlCreateButton("", 650, 0, 50, 40, $BS_ICON); dummy for skins
	GUICtrlSetState(-1, $GUI_HIDE)
	$Promo_C=GUICtrlCreateLabel(" Restore    Adware    Spyware   AutoClean  Registry    Defrag     Full Menu    Share         Exit", 150, 42, 450, 25)
	
	$Trans = WinSetTrans($Start_Menu, "*XPClean Menu*", $TMS)
	$begin = TimerInit()
	
	;sets tray icon
	opt("TrayMenuMode", 1)   ; Default tray menu items (Script Paused/Exit) will not be shown.
	opt("TrayOnEventMode", 1)
	;TraySetClick (16); right click
	
	$upgrade_tray = TrayCreateItem ("Check New Releases")
	TrayItemSetOnEvent (-1, "Set_Update")
	TrayCreateItem ("")
	$show_tray = TrayCreateItem ("Show Menu-Bar")
	TrayItemSetOnEvent (-1, "Set_Show")
	TrayCreateItem ("")
	$hide_tray = TrayCreateItem ("Hide Menu-Bar")
	TrayItemSetOnEvent (-1, "Set_Hide")
	TrayCreateItem ("")
	$trans_tray = TrayCreateItem ("Set Menu-Bar Visibility")
	TrayItemSetOnEvent (-1, "Set_Trans")
	TrayCreateItem ("")
	$about_tray = TrayCreateItem ("About QT Appraisal")
	TrayItemSetOnEvent (-1, "Set_QT")
	TrayCreateItem ("")
	$reset_tray = TrayCreateItem ("Reset/Unlock Menu")
	TrayItemSetOnEvent (-1, "Set_Reset")
	TrayCreateItem ("")
	$exit_tray = TrayCreateItem ("Exit  *XPClean Menu*")
	TrayItemSetOnEvent (-1, "Set_Exit")
	
	TraySetState ()
	
	GUISetState(@SW_HIDE, $CTLwin)
	GUISetState(@SW_HIDE, $MAIN)
	
Until _FileWriteLog(@WindowsDir & "\XPClean.log", "XPClean Menu Initiated") ; *XPClean Menu* initiated with no errors

GUISwitch($Start_Menu)
GUISetState(@SW_SHOW, $Start_Menu)       ; will display Start Menu Bar with buttons

Do
	$Msg = GUIGetMsg()
	
	; controls Start Menu move out (up)
	If WinExists($Start_Menu) And $loc = "in" Then
		$dif = TimerDiff($begin)
		If $dif >= 60000 or $hide = "hide" Then
			SoundPlay($Sound_bar)
			$loc = "moved out"
			$VM = $VMS
			$hide=""
			For $V = 1 To $VY + 11
				$VM = $VM - 1
				WinMove($Start_Menu, "", $VR_ST, $VM)
				Sleep(10)
			Next
			If $1tip = "" Then
				SplashTextOn("", "Place Mouse Curser HERE to return Menu Bar", -1, 20, -1, 2, 1)
				Sleep(3500)
				SplashOff()
				$1tip = "off"
			EndIf
			;If $Promo_1="on" And $QTMB="show" Then
			;	GUICtrlSetState($Promo_B, $GUI_HIDE)
			;	GUICtrlSetState($Promo_A, $GUI_SHOW)
			;	GUICtrlSetData($Promo_C," Restore    Adware    Spyware   AutoClean  Registry    Defrag     Full Menu    Share         Exit")
			;	$Promo_1=""
			;EndIf
			;$1_Promo = Random(1, 20, 1)   ; random to show *One Touch* Promotion
			;If $1_Promo= 5 or $1_Promo = 10 or $1_Promo= 15 And $QTMB="show" Then
			;	GUICtrlSetState($Promo_A, $GUI_HIDE)
			;	GUICtrlSetState($Promo_B, $GUI_SHOW)
			;	GUICtrlSetData($Promo_C," *XPedite Clean* - Auto-Run Solution for *XPClean Menu* comming late 2005, Check Updates!")
			;	$Promo_1="on"
			;EndIf 
		EndIf
	EndIf
	
	; controls Start Menu move in (down)
	If WinExists($Start_Menu) And $loc = "out" Then
		SoundPlay($Sound_bar)
		$loc = "moved in"
		$VRM = $VRMS
		For $VR = 1 To $Vy + 11
			$VRM = $VRM + 1
			WinMove($Start_Menu, "", $VR_ST, $VRM)
			Sleep(10)
		Next
	EndIf
	
	; controls Start Menu reset counter
	If WinExists($Start_Menu) And $loc = "moved in" Then
		$begin = TimerInit()
		$loc = "in"
	EndIf
	
	; controls Start Menu return from upper/middle screen position
	$pos = MouseGetPos()
	If $pos[0] > 400 And $pos[0] < 700 And $pos[1] > - 1 And $pos[1] < 12 And $loc = "Moved out" Then
		$begin = TimerInit()
		$loc = "out"
	EndIf
	
	; controls Show Main Menu
	If $Msg = $Start_7 Or $ST_7 = "go" Then
		SoundPlay($Sound_clk)
		;SoundPlay($Sound_grp) ; if you want the sound
		$St_7 = ""
		$Full = "show"
		GUISwitch($MAIN)
		GUISetState(@SW_SHOW, $MAIN)
		WinSetState($MAIN, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls toggle Start selection
	If $msg = $Start_11 then
		SoundPlay($Sound_clk)
		Call("Toggle_Select")
		$begin = TimerInit()
	EndIf
	
	; controls Start toggled Selection
	If $msg= $Start_12 then
		SoundPlay($Sound_clk)
		call("Toggle_Start")
	EndIf
	
	; controls Hide button
	If $msg= $Hiden then
		$Hide = "hide"
		SoundPlay($Sound_clk)
	EndIf
	
	; controls Custom Order Run-Only
	If $msg= $Custom And $Custom_run <>"" then
		SoundPlay($Sound_clk)
		Run($Custom_run)
	EndIf
	
	; controls Restore Point
	If $Msg = $tab11OK Or $Msg = $Start_1 Or $St_1 = "go" Then
		If $Msg= $Start_1 Or $St_1 = "go" Then SoundPlay($Sound_clk)
		If $Full = "show" Then WinSetState($MAIN, "", @SW_MINIMIZE) ; Stops you from changing anything
		$St_1 = ""
		If FileExists(@SystemDir & "\restore\rstrui.exe") Then
			TraySetState (4)
			MsgBox(64, "* NOTE * ", "Please close all open Programs", 5)
			TrayTip("If Possible, close some of these Programs", " **But not this one** ", 5, 1)
			Sleep(2000)
			TraySetState (8)
			$PID = Run(@SystemDir & "\restore\rstrui.exe")
			WinWaitActive("")
			Call("Cycle")
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Restore Point Initialized")
			$Set_Restore = "ok"
			If $Full = "show" Then GUISwitch($MAIN)
		Else
			MsgBox(64, "Sorry! ", "This Win XP Program - was not found", 8)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Restore.exe not found")
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
		$begin = TimerInit()
	EndIf
	
	; controls Adaware
	If $Msg = $tab12OK Or $Msg = $Start_2 Or $St_2 = "go" Then
		If $Msg = $Start_2 Or $St_2 = "go" Then SoundPlay($Sound_clk)
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$ST_2 = ""
		If FileExists(@ProgramFilesDir & "\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe") Then
			$PID = Run(@ProgramFilesDir & "\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe")
			WinWaitActive("")
			Call("Cycle")
		Else
			$iMsgBoxAnswer = MsgBox(68, "Sorry", "The Program was not found" & @CRLF & "" & @CRLF & "           Press *Yes*" & @CRLF & "" & @CRLF & "   to visit the web-site and" & @CRLF & "  Install this Great program" & @CRLF & "" & @CRLF & "", 20)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Ad-Aware.exe was not found")
			Select
				Case $iMsgBoxAnswer = 6  ;Yes
					$PID = Run(@ComSpec & " /c Start www.lavasoft.com" , "", @SW_HIDE)
					WinWaitActive("")
					Call("Cycle")
			EndSelect
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
		$begin = TimerInit()
	EndIf
	
	; controls Microsoft Spyware button
	If $Msg = $tab13OK Or $Msg = $Start_3 Or $St_3 = "go" Then
		If $Msg = $Start_3 Or $St_3 = "go" Then SoundPlay($Sound_clk)
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$ST_3 = ""
		If FileExists(@ProgramFilesDir & "\Windows Defender\MSASCui.exe") Then
			$PID = Run(@ProgramFilesDir & "\Windows Defender\MSASCui.exe")
			WinWaitActive("")
			Call("Cycle")
		Else
			$iMsgBoxAnswer = MsgBox(68, "Sorry", "The Program was not found" & @CRLF & "" & @CRLF & "           Press *Yes*" & @CRLF & "" & @CRLF & "   to visit the web-site and" & @CRLF & "  Install this Great program" & @CRLF & "" & @CRLF & "", 20)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "\Windows Defender\MSASCui.exe was not found")
			Select
				Case $iMsgBoxAnswer = 6  ;Yes
					$PID = Run(@ComSpec & " /c Start http://www.microsoft.com/athome/security/spyware/software/default.mspx" , "", @SW_HIDE)
					WinWaitActive("")
					Call("Cycle")	
			EndSelect
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
		$begin = TimerInit()
	EndIf
	
	; controls Auto XPClean button
	If $Msg = $tab14OK Or $Msg = $Start_4 Or $St_4 = "go" Then
		If $Msg = $Start_4 or $St_4 = "go" Then SoundPlay($Sound_clk)
		If $Set_Restore = "" Then MsgBox(64, "Please", "Create a Restore Point First  ", 2)
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$St_4 = ""
		If WinExists("*XPClean Menu* - Automate XPClean") Then
			GUISetState(@SW_SHOW, $Auto_win)
			$Del_loop=""
			$Auto_msg = GUIGetMsg()
			
		Else
			$Auto_win = GUICreate("*XPClean Menu* - Automate XPClean", $GUIWidth, $GUIHeight, -1, -1, -1, -1, $MAIN)
			GUICtrlCreateLabel(" DELETE ALL FILES for the Checked Boxes in... ", 54, 27, 480, 30)
			GUICtrlSetFont(-1, 10, 30)
			
			$Auto_Temp = GUICtrlCreateGroup("Temp Files", 15, 65, 235, 105)
			$Auto_1 = GUICtrlCreateCheckbox(@HomeDrive & "\Temp\", 20, 80, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_2 = GUICtrlCreateCheckbox(@WindowsDir & "\Temp\", 20, 100, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_3 = GUICtrlCreateCheckbox(@UserName & "\Temp\", 20, 120, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_4 = GUICtrlCreateCheckbox(@UserName & "\Cookies\", 20, 140, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_Unused = GUICtrlCreateGroup("Unused Files", 15, 173, 235, 123)
			$Auto_11 = GUICtrlCreateCheckbox(@HomeDrive & "\*\*.Bak (Backup Files)", 20, 190, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_12 = GUICtrlCreateCheckbox(@HomeDrive & "\*\*.Old (Old Files)", 20, 210, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_13 = GUICtrlCreateCheckbox(@HomeDrive & "\*\*.Tmp (Temporary Files)", 20, 230, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_14 = GUICtrlCreateCheckbox(@HomeDrive & "\*\*.Dmp (Windows Dump Files)", 20, 250, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_15 = GUICtrlCreateCheckbox(@HomeDrive & "\*\*.Gid (old index Files)", 20, 270, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_History = GUICtrlCreateGroup("History Files", 255, 65, 235, 80)
			$Auto_21 = GUICtrlCreateCheckbox(@UserName & "\Recent-History\", 260, 80, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_22 = GUICtrlCreateCheckbox(" MS Office\Recent-History\", 260, 100, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_23 = GUICtrlCreateCheckbox(@UserName & "\Internet Recent-History\", 260, 120, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			$Auto_CMD = GUICtrlCreateGroup("CMD Extended Win Xp Clean Manager Files", 255, 148, 235, 148)
			GUICtrlCreateLabel("Set-up Extended Clean Manager", 305, 180, 180, 20)
			$Auto_Set = GUICtrlCreateButton("  ", 263, 167, 37, 37, $BS_ICON)
			GUICtrlSetImage(-1, "shell32.dll", 165) ;set icon as button^ notice needs this too
			GUICtrlSetTip(-1, "Setup check boxes to clean listed items below")
			$Auto_Run = GUICtrlCreateCheckbox("Extended Clean Manager - Run", 260, 210, 225, 20)
			GUICtrlSetState (-1, $GUI_CHECKED )
			GUICtrlCreateLabel("INCLUDED FILES: Temp download / Setup", 260, 230, 225, 20)
			GUICtrlCreateLabel("Temp Internet, Old Chk Disk, Debug Dump", 260, 245, 225, 20)
			GUICtrlCreateLabel("Off-line Web, Temp Desktop, Temp setup log", 260, 260, 225, 20)
			GUICtrlCreateLabel("Recycle Bin, Old Compressed, Web Temp", 260, 275, 225, 20)
			
			$t_label = GUICtrlCreateLabel("                                  ", 10, 310, 500, 25)
			$d_label = GUICtrlCreateLabel("                ", 340, 345, 120, 25)
			$Del_loop=""
			$Auto_Cancel = GUICtrlCreateButton("  Cancel  ", 20, 340, 200, 25)
			$Auto_Delete = GUICtrlCreateButton("Delete", 240, 340, 80, 25)
			
			GUISetState($Auto_win)
			GUISetState(@SW_SHOW, $Auto_win)       ; will display the dialog box
		EndIf
		
		While 1
			$Auto_msg = GUIGetMsg()
			If $Auto_msg = $GUI_EVENT_CLOSE Or $Auto_msg = $Auto_Cancel Then
				;SoundPlay($Sound_grp)
				GUISetState(@SW_HIDE, $Auto_win)
				If $Full = "show" Then GUISwitch($MAIN)
				If $Full = "show" Then WinSetState($MAIN, "", @SW_RESTORE) ; This turns the window back on
				$begin = TimerInit()
				ExitLoop
			EndIf
			
			; controls Win XP Clean Manager - setup
			If $Auto_msg = $Auto_Set Then
				If Not FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log") Then
					RunWait(@ComSpec & " /c" & "Cleanmgr /Sageset:99", "", @SW_HIDE)
					_FileCreate(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log")
					_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log", "SageSET Setup is complete")
					_FileWriteLog(@WindowsDir & "\XPClean.log", "Clean Manager Setup complete")
				ElseIf FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log") Then
					RunWait(@ComSpec & " /c" & "Cleanmgr /Sageset:99", "", @SW_HIDE)
					_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log", "SageSET Setup is complete")
					_FileWriteLog(@WindowsDir & "\XPClean.log", "Clean Manager Setup complete")
				Else
					MsgBox(64, "Sorry! ", "This Program - was not found", 6)
					_FileWriteLog(@WindowsDir & "\XPClean.log", "SageSET set-up not complete")
				EndIf
			EndIf
			
			If $Auto_msg = $Auto_Delete Then
				$iMsgBoxAnswer = MsgBox(68, "Confirn Delete", "Please confirm you wish to... " & @CRLF & "" & @CRLF & "           DELETE ALL Files" & @CRLF & "" & @CRLF & "", 20)
				Select
					Case $iMsgBoxAnswer = 6  ;Yes
							$Del_loop="go"
					Case $iMsgBoxAnswer = 7  ;No
							$Del_loop=""
					Case $iMsgBoxAnswer = -1 ;Timeout
							$Del_loop=""
				EndSelect
				
				If $Del_loop = "go" Then
					
					$numID = 0
					$TnumID = 0
					If BitAND(GUICtrlRead($Auto_1), $GUI_CHECKED) = $GUI_CHECKED Then
						$Temp_Dir = @HomeDrive & "\Temp\"
						$Temp_File = "*.*"
						$Del_Dir = "go"
						Call("Delete_Temp")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_2), $GUI_CHECKED) = $GUI_CHECKED Then
						$Temp_Dir = @WindowsDir & "\Temp\"
						$Temp_File = "*.*"
						$Del_Dir = "go"
						Call("Delete_Temp")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_3), $GUI_CHECKED) = $GUI_CHECKED Then
						$Temp_Dir = @UserProfileDir & "\Local Settings\Temp\"
						$Temp_File = "*.*"
						$Del_Dir = "go"
						Call("Delete_Temp")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_4), $GUI_CHECKED) = $GUI_CHECKED Then
						$Temp_Dir = @UserProfileDir & "\Cookies\"
						$Temp_File = "*.*"
						$Del_Dir = "go"
						Call("Delete_Temp")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_21), $GUI_CHECKED) = $GUI_CHECKED Then
						$Temp_Dir = @UserProfileDir & "\Recent\"
						$Temp_File = "*.*"
						$Del_Dir = "go"
						Call("Delete_Temp")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_22), $GUI_CHECKED) = $GUI_CHECKED Then
						$Temp_Dir = @UserProfileDir & "\Application Data\Microsoft\office\recent\"
						$Temp_File = "*.*"
						$Del_Dir = "go"
						Call("Delete_Temp")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_23), $GUI_CHECKED) = $GUI_CHECKED Then
						$Del_IFile = "\*.*"
						Call("Delete_Internet")
						$Del_IFile = ""
						$IFile = ""
						$ILine = ""
						$RnumID = ""
						GUICtrlSetData($t_label, " Searching - Empty Temporary Internet Folders ...Please wait... ")
						Sleep(2000)
						$Temp_Dir = @UserProfileDir & "\Local Settings\Temporary Internet Files\Content.IE5\"
						$Temp_File = "*.*"
						$Del_Dir = "go"
						Call("Delete_Temp")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_11), $GUI_CHECKED) = $GUI_CHECKED Then
						$Del_File = "\*.bak"
						Call("Delete_Unused")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_12), $GUI_CHECKED) = $GUI_CHECKED Then
						$Del_File = "\*.old"
						Call("Delete_Unused")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_13), $GUI_CHECKED) = $GUI_CHECKED Then
						$Del_File = "\*.tmp"
						Call("Delete_Unused")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_14), $GUI_CHECKED) = $GUI_CHECKED Then
						$Del_File = "\*.dmp"
						Call("Delete_Unused")
					EndIf
					
					If BitAND(GUICtrlRead($Auto_15), $GUI_CHECKED) = $GUI_CHECKED Then
						$Del_File = "\*.gid"
						Call("Delete_Unused")
					EndIf
					
					; controls Win XP Clean Manager - Run
					If BitAND(GUICtrlRead($Auto_Run), $GUI_CHECKED) = $GUI_CHECKED Then
						GUICtrlSetData($t_label, "  ...Please wait... ")
						If Not FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log") Then
							RunWait(@ComSpec & " /c" & "Cleanmgr /Sageset:99", "", @SW_HIDE)
							_FileCreate(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log")
							_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log", "SageSET Setup is complete")
							_FileWriteLog(@WindowsDir & "\XPClean.log", "Clean Manager Setup complete")
						ElseIf FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log") Then
							RunWait(@ComSpec & " /c" & "Cleanmgr /Sagerun:99", "", @SW_HIDE)
							_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log", "SageSET Cleaned old files")
							_FileWriteLog(@WindowsDir & "\XPClean.log", "Clean Manager Cleaned old files")
						Else
							MsgBox(64, "Sorry! ", "This Program - was not found", 6)
							_FileWriteLog(@WindowsDir & "\XPClean.log", "SageSET set-up not complete")
						EndIf
					EndIf
					GUICtrlSetData($d_label, " Files Deleted: " & $numID)
					GUICtrlSetData($t_label, "                       ")
					MsgBox(64, "Finished Auto Delete! ", "      Total Files Deleted:  " & $numID & "     " & @CRLF & @CRLF & "* Not Including Clean Manager *", 12)
					_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\Auto Deleted Files.log", "Auto Deleted Files = " & $numID)
					_FileWriteLog(@WindowsDir & "\XPClean.log", "Auto Deleted Files = " & $numID & " User " & @UserName)
				EndIf
			EndIf	
		WEnd
	ElseIf $Msg = $tab14OK And $Set_Restore = "not in use" Or $Msg = $Start_4 And $Set_Restore = "not in use" Then
		If $Msg = $Start_4 Then SoundPlay($Sound_clk)
		MsgBox(64, "Sorry! ", "Please ""Create"" a Restore Point First  ", 5)
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on	EndIf
		$begin = TimerInit()
	EndIf
	
	; controls CCleaner and Registry First Aid
	If $Msg = $tab15OK Or $Msg = $Start_5 Or $St_5 = "go" Then
		If $Msg = $Start_5 Or $St_5 = "go" Then SoundPlay($Sound_clk)
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$St_5 = ""
		$iMsgBoxAnswer = MsgBox(35, "Registry Cleaner Program Options", "Press *Yes*      to use *CCleaner* a Great Crap and Registry cleaner" & @CRLF & "(Hint - This program was added because it is 100% FREE!)    " & @CRLF & "" & @CRLF & "Press *No*       to use Registry 1st Aid  (Original program - limited freeware)" & @CRLF & "" & @CRLF & "Press *Canel*   to return to Menu ", 22)
		Select
			Case $iMsgBoxAnswer = 6  ;Yes - CCleaner
				If FileExists(@ProgramFilesDir & "\CCleaner\CCleaner.exe") Then
					$PID = Run(@ProgramFilesDir & "\CCleaner\CCleaner.exe")
					WinWaitActive("")
					Call("Cycle")
				Else
					$i2MsgBoxAnswer = MsgBox(68, "Sorry", "The Program was not found" & @CRLF & "" & @CRLF & "           Press *Yes*" & @CRLF & "" & @CRLF & "   to visit the web-site and" & @CRLF & "  Install this Great program" & @CRLF & "" & @CRLF & "", 20)
					_FileWriteLog(@WindowsDir & "\XPClean.log", "CCleaner.exe was not found")
					Select
						Case $i2MsgBoxAnswer = 6  ;Yes
							$PID = Run(@ComSpec & " /c Start www.ccleaner.com" , "", @SW_HIDE)
							WinWaitActive("")
							Call("Cycle")
					EndSelect
				EndIf		
			Case $iMsgBoxAnswer = 7  ;No - Registry 1st Aid (original program)
				If FileExists(@ProgramFilesDir & "\RFA\reg1aid.exe") Then
					$PID = Run(@ProgramFilesDir & "\RFA\reg1aid.exe")
					WinWaitActive("")
					Call("Cycle")
				Else
					$i2MsgBoxAnswer = MsgBox(68, "Sorry", "The Program was not found" & @CRLF & "" & @CRLF & "           Press *Yes*" & @CRLF & "" & @CRLF & "   to visit the web-site and" & @CRLF & "  Install this Great program" & @CRLF & "" & @CRLF & "", 20)
					_FileWriteLog(@WindowsDir & "\XPClean.log", "reg1aid.exe was not found")
					Select
						Case $i2MsgBoxAnswer = 6  ;Yes
							$PID = Run(@ComSpec & " /c Start www.rosecitysoftware.com/Reg1Aid/" , "", @SW_HIDE)
							WinWaitActive("")
							Call("Cycle")
					EndSelect
				EndIf	
			Case $iMsgBoxAnswer = 2  ;Cancel
					
		EndSelect
	If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	$begin = TimerInit()
	EndIf
	
	; controls Defragment
	If $Msg = $tab16OK Or $Msg = $Start_6 Or $St_6 = "go" Then
		If $Msg = $Start_6 Or $St_6 = "go" Then SoundPlay($Sound_clk)
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$St_6 = ""
		If FileExists(@ProgramsCommonDir & "\Accessories\System Tools\Disk Defragmenter.lnk") Then
			MsgBox(64, " Thank You! ", "*XPClean Menu* will now  *Close*  for this last process", 4)
			$PID = Run("mmc Dfrg.msc", @SystemDir)
			SoundPlay ($Sound_lnk,1)
			Exit
		Else
			MsgBox(48, "Sorry! ", "This Win XP Program - was not found", 8)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "mmc Dfrg.msc (Defragmenter) was not found")
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
		$begin = TimerInit()
	EndIf
	
	; controls Search for Temp Files (part 1 of 2)
	; controls history search
	; controls Win Xp start-up
	If $Msg = $tab21OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$temp_folder = @HomeDrive & "\Temp"
		$Fname = "Temp"
	ElseIf $Msg = $tab22OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$temp_folder = @WindowsDir & "\Temp\"
		$Fname = "Temp"
	ElseIf $Msg = $tab23OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$temp_folder = @UserProfileDir & "\Local Settings\Temp\"
		$Fname = "Temp"
	ElseIf $Msg = $tab24OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$temp_folder = @UserProfileDir & "\Cookies\"
		$Fname = "Cookies"
		$iMsgBoxAnswer = MsgBox(64, "* NOTE * ", "Some Cookies are helpful to automate  LOG IN  information" & @CRLF & "" & @CRLF & "Example;    User Name =**********  and   Password=**********" & @CRLF & "" & @CRLF & "Uses Include;   On-Line banking,   Memberships,   etc." & @CRLF & "" & @CRLF & "However, Most Cookies are unwanted", 10)
	ElseIf $Msg = $tab25OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$temp_folder = @UserProfileDir & "\Local Settings\Temporary Internet Files\"
		$Fname = "Temporary Internet Files"
	ElseIf $Msg = $tab41OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$temp_folder = @UserProfileDir & "\Recent\"
		$Fname = "Recent"
	ElseIf $Msg = $tab42OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$temp_folder = @UserProfileDir & "\Application Data\Microsoft\office\recent\"
		$Fname = "Recent"
	ElseIf $Msg = $tab43OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$temp_folder = @UserProfileDir & "\Local Settings\History\"
		$Fname = "History"
	ElseIf $Msg = $tab44OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$temp_folder = @UserProfileDir & "\Favorites\"
		$Fname = "Favorites"
	ElseIf $Msg = $tab55OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$temp_folder = @MyDocumentsDir
		$Fname = "My Documents"
	ElseIf $Msg = $tab61OK Then
		$iMsgBoxAnswer = MsgBox(35, "Sart-Up *Memory Resident* Folder Options", "Press *Yes*      to view    All Users Start-up Programs" & @CRLF & "(Hint - This is where most Start-up Programs are located)    " & @CRLF & "" & @CRLF & "Press *No*       to view    Current Users Start-up Programs" & @CRLF & "" & @CRLF & "Press *Canel*   to return to Menu ", 22)
		Select
			Case $iMsgBoxAnswer = 6  ;Yes - All Users
					If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
					$temp_folder = @StartupCommonDir
					$Fname = "Start-up"
			Case $iMsgBoxAnswer = 7  ;No - Cuurent User
					If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
					$temp_folder = @StartupDir
					$Fname = "Start-up"
			Case $iMsgBoxAnswer = 2  ;Cancel
					If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
					$temp_folder = ""
					$Fname = ""
		EndSelect
	EndIf
	
	; controls Search engine for Temp Files (part 2 of 2)
	If $temp_folder <> "" Then
		Sleep(700)
		Run( "explorer.exe " & $temp_folder & "", "", @SW_MAXIMIZE)
		Sleep(500)
		WinWaitActive("")
		WinSetTitle("", "", "*XPClean Menu* - " & $Fname)
		Sleep(1000)
		If $iCnt < 2 Then $iMsgBoxAnswer = MsgBox(64, "Select Files to Delete", "To Delete Selected files" & @CRLF & "" & @CRLF & "1. Hold down *Control* or *Shift* Key" & @CRLF & "2. Use Mouse *Click* to Select Files" & @CRLF & "3. Press *Delete* Key ", 10)
		$temp_folder = ""
		$iCnt = $iCnt + 1
		Sleep(4000)
		While 4
			If Not WinExists("*XPClean Menu* - " & $Fname) Then ExitLoop
			If $rst="go" then
				$rst=""
				ExitLoop
			EndIf
			Sleep(100)
		WEnd
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Search for Unused Files (part 1 of 2)
	; NOTE $tab5(1,2,3,4)OK (large Personal Files)is in this "Search for Unused Files" controls
	If $Msg = $tab31OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$S_file = "*.bak"
	ElseIf $Msg = $tab32OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$S_file = "*.old"
	ElseIf $Msg = $tab33OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$S_file = "*.tmp"
	ElseIf $Msg = $tab34OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$S_file = "*.dmp"
	ElseIf $Msg = $tab35OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$S_file = "*.gid"
	ElseIf $Msg = $tab36OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$S_file = "*.$*, *.~*, *.000"
		
		; controls 	System Files (large Personal Files)
	ElseIf $Msg = $tab51OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$S_file = "*.bmp, *.jpg, *.tif"
	ElseIf $Msg = $tab52OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$S_file = "*.scr"
	ElseIf $Msg = $tab53OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$S_file = "*.wav, *.mp3, *.mid"
	ElseIf $Msg = $tab54OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		$S_file = "*.avi, *.mpg, *.wmv"
		
		; controls User Choice search for file(s)
	ElseIf $Msg = $tab56OK Then
		$User_ans = InputBox("User Search", "Please Type a file name ie..." & @CRLF & @CRLF & " *.doc" & @CRLF & @CRLF & "name.txt")
		If $User_ans <> "" Then
			$S_file = $User_ans
			If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
		EndIf
	EndIf
	
	; controls Search engine for Unused Files (part 2 of 2)
	If $S_file <> "" Then
		$S_find = Run("explorer.exe" & " " & @HomeDrive & "\", "", @SW_MAXIMIZE)
		Sleep(700)
		WinWaitActive("")
		WinSetTitle("", "", "*XPClean Menu* - \" & $S_file)
		Send("{F3}")
		Sleep(4000)
		Send("{l}")
		Sleep(1000)
		Send($S_file)
		Sleep(1000)
		Send("{enter}")
		Sleep(10000)
		$S_file = ""
		$iCnt = $iCnt + 1
		ProcessWaitClose($S_find)
		;WinWaitClose( "Search Results", "", 120)
		While 4
			If Not WinExists( "Search Results") Then ExitLoop
			If $rst="go" then
				$rst=""
				ExitLoop
			EndIf
			Sleep(100)
		WEnd
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Recycle Bin
	If $Msg = $tab26OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$Fname = "Recycle Bin"
		$PID=Run(@ComSpec & " /C START " & $Recycle_lnk , "", @SW_HIDE)
		Sleep(900)
		WinWaitActive("")
		WinSetTitle("", "", "*XPClean Menu* - " & $Fname)
		Sleep(1000)
		If $iCnt < 2 Then $iMsgBoxAnswer = MsgBox(64, "Select Files to Delete", "To Delete Selected files" & @CRLF & "" & @CRLF & "1. Hold down *Control* or *Shift* Key" & @CRLF & "2. Use Mouse *Click* to Select Files" & @CRLF & "3. Press *Delete* Key ", 10)
		$temp_folder = ""
		$iCnt = $iCnt + 1
		Sleep(4000)
		While 4
			If Not WinExists("*XPClean Menu* - " & $Fname) Then ExitLoop
			If $rst="go" then
				$rst=""
				ExitLoop
			EndIf
			Sleep(100)
		WEnd
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
		$Fname = ""
		If @error Then
			MsgBox(64, "Sorry! ", "This Win XP Program - was not found", 8)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Empty Recycle Bin did not function")
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Win XP Clean Manager - setup
	If $Msg = $tab45OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		If Not FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log") Then
			RunWait(@ComSpec & " /c" & "Cleanmgr /Sageset:99", "", @SW_HIDE)
			_FileCreate(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log")
			_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log", "SageSET Setup is complete")
			MsgBox(64, "Great! ", "Press *Run Clean Mngr* to Clean", 8)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Clean Manager Setup complete")
		ElseIf FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log") Then
			RunWait(@ComSpec & " /c" & "Cleanmgr /Sageset:99", "", @SW_HIDE)
			_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log", "SageSET Setup is complete")
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Clean Manager Setup complete")
			MsgBox(64, "Great! ", "Press *Run Clean Mngr* to Clean", 8)
		Else
			MsgBox(64, "Sorry! ", "This Program - was not found", 6)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "SageSET set-up not complete")
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Win XP Clean Manager - Run
	If $Msg = $tab46OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		If Not FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log") Then
			RunWait(@ComSpec & " /c" & "Cleanmgr /Sageset:99", "", @SW_HIDE)
			_FileCreate(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log")
			_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log", "SageSET Setup is complete")
			MsgBox(64, "Great! ", "Press *Run Clean Mngr* to Clean", 8)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Clean Manager Setup complete")
		ElseIf FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log") Then
			RunWait(@ComSpec & " /c" & "Cleanmgr /Sagerun:99", "", @SW_HIDE)
			_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\SageSET.log", "SageSET Cleaned old files")
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Clean Manager Cleaned old files")
		Else
			MsgBox(64, "Sorry! ", "This Program - was not found", 6)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "SageSET set-up not complete")
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Win Xp Additional Components
	If $Msg = $tab62OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		If @error Then
			MsgBox(64, "Sorry! ", "This Win XP Program - was not found", 8)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Additional Components did not function")
		EndIf
		$PID = Run(@SystemDir & "\cleanmgr.exe")
		WinWaitActive("Disk Cleanup for", "", 60)
		Sleep(2000)
		Send("{tab}")
		Send("{tab}")
		Send("{tab}")
		Send("{tab}")
		Send("{RIGHT}")
		Sleep(1000)
		MsgBox(64, "Additional Components", "Locate Unused Programs/Components/Restore points to Remove   ", 4)
		Sleep(500)
		While 4
			If Not WinExists("Disk Cleanup for") Then ExitLoop
			If $rst="go" then
				$rst=""
				ExitLoop
			EndIf
			Sleep(100)
		WEnd
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Tweak UI
	If $Msg = $tab63OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		If FileExists(@SystemDir & "\TweakUI.exe") Then
			$PID = Run(@SystemDir & "\TweakUI.exe")
			WinWaitActive("")
			Call("Cycle")
		Else
			$iMsgBoxAnswer = MsgBox(68, "Sorry", "The Program was not found" & @CRLF & "" & @CRLF & "           Press *Yes*" & @CRLF & "" & @CRLF & "   to visit the web-site and" & @CRLF & "  Install this Great program" & @CRLF & "" & @CRLF & "", 20)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "Tweak UI.exe was not found")
			Select
				Case $iMsgBoxAnswer = 6  ;Yes
					$PID = Run(@ComSpec & " /c Start www.microsoft.com/windowsxp/downloads/powertoys/xppowertoys.mspx" , "", @SW_HIDE)
					WinWaitActive("")
					Call("Cycle")
			EndSelect
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls IE Home Web-page
	If $Msg = $tab64OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$Home_page = Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
		Sleep(4000)
		WinSetTitle("", "", "*XPClean Menu* - Set Home Page")
		$Home_set = InputBox("Set Internet Explorer Home Page", "This is Your IE Home. To change this, type in a NEW Web-site ie... " & @CRLF & @CRLF & " XPCleanMenu.HostRocket.com " & @CRLF & @CRLF & " MSN.com ")
		WinSetOnTop(-1, "", 1)
		If $Home_set <> "" Then
			$PID = Run(@ComSpec & " /C START inetcpl.cpl", "", @SW_HIDE)
			If @error Then
				MsgBox(64, "Sorry! ", "This Windows Xp Program was not found   ", 8)
			EndIf
			Sleep(500)
			Send("http:\\" & $Home_set)
			Send("{ENTER}")
			ControlClick('Internet Properties', '', 'Button7')
			Sleep(1000)
		EndIf
		If WinExists( "*XPClean Menu* - Set Home Page") Then WinClose( "*XPClean Menu* - Set Home Page")
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls IE Title Window
	If $Msg = $tab65OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$I_Title = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Window Title")
		If $I_Title = "" Then $I_Title = "Blank (Not set)"
		$I_Title_set = InputBox("Set Internet Explorer Window Title  ", "Below is Your Current IE Window Title." & @CRLF & @CRLF & $I_Title & @CRLF & @CRLF & "To change this, type in a NEW Title ie... " & @CRLF & " by, " & @UserName & "   ... or leave blank ", "", " ", "-1", "-1", "-1", "-1", "60")
		Select
			Case @error = 0 ;OK - The string returned is valid
				RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Window Title", "REG_SZ", $I_Title_set)
		EndSelect
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls System Start-up Programs
	If $Msg = $tab66OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$PID = Run(@ComSpec & " /C START msconfig.exe @5", "", @SW_HIDE)
		If @error Then
			MsgBox(64, "Sorry! ", "This Windows Xp Program was not found   ", 8)
		EndIf
		Sleep(1500)
		$iMsgBoxAnswer = MsgBox(0, "SYSTEM Start-Up  *Memory Resident*  CheckBox Options", "Please TAB over to *Start up* " & @CRLF & "(Hint - This is where most SYSTEM Start-up Programs are located)    " & @CRLF & "" & @CRLF & "Un-Check Boxes of Programs *you recognize* and Do Not want to run at Start-up" & @CRLF & "" & @CRLF & "You can re-check those boxes later, if you wish... Use Some CAUTION HERE! ", 22)
		
		WinWaitClose("System Configuration Utility", "", 90)
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Security Center
	If $Msg = $tab71OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$PID = Run(@ComSpec & " /C START wscui.cpl", "", @SW_HIDE)
		If @error Then
			MsgBox(64, "Sorry! ", "This Windows Xp Program was not found   ", 8)
		EndIf
		Sleep(3000)
		WinWaitClose("Windows Security Center", "", 90)
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Internet Properties - Privacy
	If $Msg = $tab72OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$PID = Run(@ComSpec & " /C START inetcpl.cpl", "", @SW_HIDE)
		If @error Then
			MsgBox(64, "Sorry! ", "This Windows Xp Program was not found   ", 8)
		EndIf
		Sleep(500)
		Send("+{tab}")
		Send("{RIGHT}")
		Send("{RIGHT}")
		WinWaitClose("Internet Properties", "", 90)
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Internet Content - auto complete Passwords and forms
	If $Msg = $tab73OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$PID = Run(@ComSpec & " /C START inetcpl.cpl", "", @SW_HIDE)
		If @error Then
			MsgBox(64, "Sorry! ", "This Windows Xp Program was not found   ", 8)
		EndIf
		Sleep(500)
		Send("+{tab}")
		Send("{RIGHT}")
		Send("{RIGHT}")
		Send("{RIGHT}")
		ControlClick('Internet Properties', '', 'Button9')
		WinWaitClose("AutoComplete Settings", "", 90)
		If WinExists("Internet Properties") Then WinClose("Internet Properties")
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls User Accounts
	If $Msg = $tab74OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$PID = Run(@ComSpec & " /C START nusrmgr.cpl", "", @SW_HIDE)
		Sleep(1000)
		Send("{tab}")
		Send("{ENTER}")
		WinWaitClose("User Accounts", "", 90)
		If @error Then
			MsgBox(64, "Sorry! ", "This Windows Xp Program was not found   ", 8)
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls AOL Security Edition
	If $Msg = $tab75OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$iMsgBoxAnswer = MsgBox(68, "AOL Security Edition", @CRLF & "" & @CRLF & "           Press *Yes*    " & @CRLF & "" & @CRLF & "   to visit Free AOL Security Downloads web-site to     " & @CRLF & "    Read about and Install these programs  " & @CRLF & "" & @CRLF & "", 20)
		If $iMsgBoxAnswer = 6 Then
			$PID = Run(@ComSpec & " /c Start http://www.aol.com/aol_downloads.adp", "", @SW_HIDE)
			WinWaitActive("")
			Call("Cycle")
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls AVG Anti-Vrus
	If $Msg = $tab76OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$iMsgBoxAnswer = MsgBox(68, "AVG Anti-Virus", @CRLF & "" & @CRLF & "           Press *Yes*    " & @CRLF & "" & @CRLF & "   to visit Free AVG Anti-Vrus web-site to     " & @CRLF & "    Read about and Install this program  " & @CRLF & "" & @CRLF & "", 20)
		If $iMsgBoxAnswer = 6 Then
			$PID = Run(@ComSpec & " /c Start http://free.grisoft.com/freeweb.php/doc/2/", "", @SW_HIDE)
			WinWaitActive("")
			Call("Cycle")
		EndIf
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls QT Appraisal button
	If $Msg = $tab81OK Then Call("Set_QT")
	
	; controls Make a Donation
	If $Msg = $tab82OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$PID = Run(@ComSpec & " /c Start https://www.paypal.com/xclick/business=xpcleanmenu@aol.com&amount=10%2e95&page_style=Primary&no_shipping=1&item_name=XPClean-Menu+Donation", "", @SW_HIDE)
		WinWaitActive("")
		Call("Cycle")
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Up-Dates
	If $Msg = $tab83OK  Or $Msg = $Start_10 Then Call("Set_Update")
	
	; controls Help button
	If $Msg = $tab84OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$PID = Run(@ComSpec & " /c Start http://www.xpcleanmenu.hostrocket.com/Help%20Center/help.html", "", @SW_HIDE)
		Sleep(7000)
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls Microsoft says...
	If $Msg = $tab85OK Then
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$PID = Run(@ComSpec & " /c Start http://support.microsoft.com/default.aspx?scid=kb;en-gb;842891", "", @SW_HIDE)
		WinWaitActive("")
		Call("Cycle")
		If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
	EndIf
	
	; controls NEW Menu Bar Skins >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
	If $Msg = $tab86OK Then
		$iMsgBoxAnswer = MsgBox(35, "*XPClean Menu* Optional Menu Bar Skins", "Press *Yes*      to open    A Previous installed Menu Bar Skin" & @CRLF & "(Hint - This is where you installed Optional Skins)    " & @CRLF & "" & @CRLF & "Press *No*       to view    Current Available Menu Bar Skins" & @CRLF & "" & @CRLF & "Press *Cancel*   to return to Menu ", 22)
			Select
				Case $iMsgBoxAnswer = 6  ;Yes - All Users
						If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
						$New_Bar = FileOpenDialog("*XPClean Menu* Optional Menu Bar Skins", @ProgramFilesDir & "\QTasc\XPClean\Settings\Skins", "Skins (*.xpc)", 1)
						Call("Set_Menu_Bar")
						If $Full = "show" Then WinSetState($header, "", @SW_RESTORE)
				Case $iMsgBoxAnswer = 7  ;No - Cuurent User
						If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) 
						$PID = Run(@ComSpec & " /c Start " & $QT_web, "", @SW_HIDE)
						Sleep(2000)
						FileDelete(@ProgramFilesDir & "\QTasc\XPClean\Settings\UpDate.dat")
						If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) 
				Case $iMsgBoxAnswer = 2  ;Cancel
					If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) 
			EndSelect
	EndIf
	
	; controls change Language
	If $Msg = $tab87OK Then
		Call("Set_Language")
	EndIf
	
	; controls Technical Service Center
	If $Msg = $tech1 Then
		$CTLans = InputBox("User Name", "Please Type in Your User Name. ", @UserName, "")
		If $CTLans <> "" Then
			$CTLpass = InputBox("E-mail Address", "Enter your E-mail Address. ", "", "")
		EndIf
		
		If $CTLans <> "" And $CTLpass <> "" Then
			MsgBox(0, "Thank You! ", "Your User Name: " & $CTLans & " " & @CRLF & "" & "@ E-mail Address: " & $CTLpass & " ", 10)
			If Not FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\UserName.log") Then
				_FileCreate(@ProgramFilesDir & "\QTasc\XPClean\Settings\UserName.log")
			EndIf
			_FileWriteLog(@ProgramFilesDir & "\QTasc\XPClean\Settings\UserName.log", "User: " & $CTLans & "  E-mail: " & $CTLpass)
			_FileWriteLog(@WindowsDir & "\XPClean.log", "User: " & $CTLans & "  E-mail: " & $CTLpass)
			
		EndIf
		
		If $CTLans = "*XPClean_Menu*" And $CTLpass = "Technical Service" Then
			;SoundPlay($Sound_grp)
			GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
			GUISwitch($CTLwin)
			GUISetState(@SW_SHOW, $CTLwin)
			
			While 1
				$CTLmsg = GUIGetMsg()
				
				If $CTLmsg = $CTL1 Then
					$PID = Run( "explorer.exe " & @ProgramFilesDir & "\QTasc\XPClean\Settings" & "", "")
				EndIf
				
				If $CTLmsg = $CTL2 Then
					$PID = Run( "Notepad.exe " & @WindowsDir & "\XPClean.log" & "")
				EndIf
				
				If $CTLmsg = $CTL3 Then
					$PID = Run(@SystemDir & "\restore\rstrui.exe")
				EndIf
				
				If $CTLmsg = $CTL4 Then
					$PID = Run( "explorer.exe " & @ProgramFilesDir & "\RFA\Backups" & "", "")
				EndIf
				
				If $CTLmsg = $CTL5 Then
					$PID = Run( "explorer.exe " & @WindowsDir & "", "")
				EndIf
				
				If $CTLmsg = $CTL_OK Or $CTLmsg = $CTL_CANCEL Or $CTLmsg = $GUI_EVENT_CLOSE Then
					;SoundPlay($Sound_grp)
					GUISetState(@SW_HIDE, $CTLwin)
					GUISwitch($MAIN)
					WinSetState($MAIN, "", @SW_RESTORE) ; This turns the window back on
					ExitLoop
				EndIf
			WEnd
		EndIf
	EndIf
	
	; controls Share this menu
	If $Msg = $_SHARE Or $Msg = $Start_8 Or $St_8 = "go" Then
		If $Msg = $Start_8 Or $St_8 = "go" Then SoundPlay($Sound_clk)
		;SoundPlay($Sound_grp)
		If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
		$St_8 = ""
		If WinExists("*XPClean Menu* - Share this Menu - E-Mail Instructions") Then
			GUISwitch($Share_win)
			GUISetState(@SW_SHOW, $Share_win)
		Else
			$Share_win = GUICreate("*XPClean Menu* - Share this Menu - E-Mail Instructions", $GUIWidth, $GUIHeight, -1, -1, -1, -1, $MAIN)
			GUICtrlCreateLabel("Simply...  Edit this E-Letter and Copy / Paste to your E-Mail", 10, 7, 600, 30)
			GUICtrlSetFont(-1, 14, 10)
			;Create an edit box with text in it
			$Share_Edit = GUICtrlCreateEdit("Hey, " & @CRLF & @CRLF & "I found a Great Windows Xp Clean-up and Tune-up Menu System! " & @CRLF & @CRLF & _
					"This Menu Program Cleans, Organizes and Optimizes Your Computer." & @CRLF & @CRLF & "Best of All it's FREE!" & @CRLF & @CRLF & _
					"This menu can help remove pop-ups, clean ad and spy programs, clean junk files" & @CRLF & _ 
					"and organize your hard drive to make Windows Xp faster and more fun!" & @CRLF & @CRLF & _ 
					" It really works, Check it out here:" & @CRLF & @CRLF & $QT_web & @CRLF & @CRLF & "Enjoy!", 10, 40, 480, 300)
			;GUICtrlSetData($Share_Edit,GUICtrlCreatePic ($destination_6, 225, 37, 256, 192)); place pic in GUI
			$Share_OK = GUICtrlCreateButton("OK", 210, 350, 70, 25)
			GUICtrlSetState($Share_Edit, 0)
			;GUISetState($Share_win) ; display the GUI
			GUISetState(@SW_SHOW, $Share_win)       ; will display the dialog box
		EndIf
		
		_FileWriteLog(@WindowsDir & "\XPClean.log", "Share E-mail was sent **********")
		
		While 1
			$Share_msg = GUIGetMsg()
			If $Share_msg = $GUI_EVENT_CLOSE Or $Share_msg = $Share_OK Then
				;SoundPlay($Sound_grp)
				GUISetState(@SW_HIDE, $Share_win)
				If $Full = "show" Then GUISwitch($MAIN)
				If $Full = "show" Then WinSetState($MAIN, "", @SW_RESTORE) ; This turns the window back on
				ExitLoop
			EndIf
			
			If $Share_msg = $Start_9 Then
				SoundPlay ($Sound_lnk,1)
				Exit
			EndIf
		WEnd
		If $Full="show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
		$begin = TimerInit()
	EndIf
	
	If $Msg = $_CANCEL Or $Msg = $GUI_EVENT_CLOSE Then
		;SoundPlay($Sound_grp)
		$Full = ""
		GUISetState(@SW_HIDE, $MAIN)
	EndIf
	
Until $Msg = $Start_9 ; Continue loop until EXIT is pressed
SoundPlay ($Sound_lnk,1)
Exit

;--------------- Functions --------------------------------------------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Func Delete_Temp()
	;this deletes everything in $dir
	$fHandle = FileFindFirstFile($Temp_Dir & $Temp_File)
	
	If $fHandle >= 0 Then
		While 1
			$result = FileFindNextFile($fHandle)
			If @error Then ExitLoop
			If $result <> "." And $result <> ".." Then
				$Msg = GUIGetMsg()
				If $Msg = $GUI_EVENT_CLOSE Then	ExitLoop
				If $Msg = $Auto_Cancel Then ExitLoop
				$numID = $numID + 1
				;Sleep(50)
				If StringInStr(FileGetAttrib($Temp_Dir & $result), "D") And $Del_Dir = "go" Then
					GUICtrlSetData($t_label, "Deleting - " & $Temp_Dir & $result)
					If $numID >= $TnumID + 5 Then
						$TnumID = $numID
						GUICtrlSetData($d_label, " Files Deleted: " & $TnumID)
					EndIf
					DirRemove($Temp_Dir & $result, 1)
				Else
					GUICtrlSetData($t_label, "Deleting - " & $Temp_Dir & $result)
					If $numID >= $TnumID + 5 Then
						$TnumID = $numID
						GUICtrlSetData($d_label, " Files Deleted: " & $TnumID)
					EndIf
					FileDelete($Temp_Dir & $result)
				EndIf
			EndIf
		WEnd
		FileClose($fHandle)
	EndIf
EndFunc   ;==>Delete_Temp

Func Delete_Unused()
	GUICtrlSetData($t_label, "Searching for " & $Del_File & " ...Please wait...")
	RunWait(@ComSpec & ' /c ' & 'dir "' & @HomeDrive & $Del_File & '" /a :h /b /s' & ' > "' & @TempDir & '\dir.txt"', '', @SW_HIDE)
	Sleep(2000)
	
	
	$hFile = FileOpen(@TempDir & "\dir.txt", 0)
	
	; Check if file opened for reading OK
	If $hFile = -1 Then
		MsgBox(0, "Error", "Unable to open file.")
		Return
	EndIf
	
	; Read in lines of text until the EOF is reached
	While 1
		$sLine = FileReadLine($hFile)
		If @error = -1 Then ExitLoop
		If $sLine <> "" Then
			$numID = $numID + 1
			GUICtrlSetData($t_label, "Deleting - " & $sLine)
			If $numID >= $TnumID + 5 Then
				$TnumID = $numID
				GUICtrlSetData($d_label, " Files Deleted: " & $TnumID)
			EndIf
			FileDelete($sLine)
			;Sleep(50)
			$Msg = GUIGetMsg()
			If $Msg = $GUI_EVENT_CLOSE Then	ExitLoop
			If $Msg = $Auto_Cancel Then ExitLoop
		EndIf
	WEnd
	FileClose($hFile)
EndFunc   ;==>Delete_Unused

Func Delete_Internet()
	GUICtrlSetData($t_label, "Searching for " & @UserName & "\Internet Recent-History\*.*   ...Please wait...")
	RunWait(@ComSpec & ' /c ' & 'dir "' & @UserProfileDir & '\Local Settings\Temporary Internet Files' & $Del_IFile & '" /a :h /b /s' & ' > "' & @TempDir & '\Idir.txt"', '', @SW_HIDE)
	Sleep(3000)
	$IFile = FileOpen(@TempDir & "\Idir.txt", 0)
	
	; Check if file opened for reading OK
	If $IFile = -1 Then
		MsgBox(0, "Error", "Unable to open file.")
		Return
	EndIf
	
	; Read in lines of text until the EOF is reached
	While 1
		$ILine = FileReadLine($IFile)
		If @error = -1 Then ExitLoop
		If $ILine <> "" Then
			$RnumID = $RnumID + 1
			If $RnumID >= 500 Then
				FileClose($IFile)
				$RnumID = ""
				GUICtrlSetData($t_label, "Searching for " & @UserName & "\Internet Recent-History\*.*   ...Please wait...")
				RunWait(@ComSpec & ' /c ' & 'dir "' & @UserProfileDir & '\Local Settings\Temporary Internet Files' & $Del_IFile & '" /a :h /b /s' & ' > "' & @TempDir & '\Idir.txt"', '', @SW_HIDE)
				Sleep(1500)
				$IFile = FileOpen(@TempDir & "\Idir.txt", 0)
				If @error = -1 Then ExitLoop
			EndIf
			$numID = $numID + 1
			GUICtrlSetData($t_label, "Deleting - " & $ILine)
			If $numID >= $TnumID + 5 Then
				$TnumID = $numID
				GUICtrlSetData($d_label, " Files Deleted: " & $TnumID)
			EndIf
			FileDelete($ILine)
			;Sleep(50)
			$Msg = GUIGetMsg()
			If $Msg = $GUI_EVENT_CLOSE Then	ExitLoop
			If $Msg = $Auto_Cancel Then ExitLoop
		EndIf
	WEnd
	FileClose($IFile)	
EndFunc   ;==>Delete_Internet

Func Set_Update()
	If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
	$PID = Run(@ComSpec & " /c Start  " & $QT_web, "", @SW_HIDE)
	WinWaitActive("")
	Call("Cycle")
	FileDelete(@ProgramFilesDir & "\QTasc\XPClean\Settings\UpDate.dat")
	If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
EndFunc   ;==>Set_Update

Func Set_Show()
	MouseMove(500,5)
	$begin = TimerInit()
	;$loc = "out"
EndFunc  

Func Set_Hide()
	$hide="hide"
EndFunc  

Func Set_Reset()
	_GUICtrlTabDeselectAll ($tab, 0)
	If $Full = "show" Then WinSetState($header, "", @SW_RESTORE)
	WinActivate($header)
	ControlFocus ( "*XPClean Menu*", "",$Start_Menu )
	$rst="go"
	$loc = "out"
EndFunc  

Func Set_QT()
	SoundPlay($Sound_grp)
	If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
	$iMsgBoxAnswer = MsgBox(32, "*XPClean Menu* ,  by   QTasc", "WHO IS,  QT APPRAISAL SERVICE Co ?" & @CRLF & "" & @CRLF & "We are a Real Estate Appraisal Company based in Riverside, California. We spend hours upon hours researching various internet sites, sending and receiving e-mails, downloading and uploading large appraisal files, digital maps; photos; signatures and more. For this, our network of computers are connected to the internet at all times and are vulnerable to many types of attacks. Our computers are cluttered with files, cookies, downloads, temporary files, recently old files, digitally compulated files, e-mails, etc combined with virus attacks, attached adware creating pop-up ads and spyware tracking our usage. " & @CRLF & "" & @CRLF & "Thus, I have spent hours cleaning and tuning-up our computer system and have finally designed a menu system to manage these great clean-up and tune-up programs…" & @CRLF & "" & @CRLF & "... I just thought you might appreciate and benefit from all of my efforts." & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "", 60)
	Select
		Case $iMsgBoxAnswer = -1 ;Timeout
	EndSelect
	SoundPlay($Sound_grp)
	If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
EndFunc   ;==>Set_QT

Func Set_Trans()
	$loc = "out"
	If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
	$Trans_ans = InputBox("Set Menu-Bar 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 ;OK - The string returned is valid
			If $Trans_ans > 24 And $Trans_ans < 101 Then
				$transNum = $Trans_ans * 2.55
				WinSetTrans($Start_Menu, "", $transNum)
				$TMS=$Trans_ans
			Else
				MsgBox(64, "Sorry!", " Please use numbers ONLY from " & @CRLF & @CRLF & " 25 to 100... 45, 65, etc ")
			EndIf
	EndSelect
	If $Full = "show" Then WinSetState($header, "", @SW_RESTORE)
EndFunc   ;==>Set_Trans

Func Set_Exit()
	SoundPlay ($Sound_lnk,1)
	Exit
EndFunc   ;==>Set_Exit

Func Cycle()
	While 4
		If Not ProcessExists($PID) Then Return
		If $rst="go" then
			$rst=""
			Return
		EndIf
		Sleep(100)
	WEnd
EndFunc

Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
   Dim $pos, $ret, $ret2
   $pos = WinGetPos($h_win)
   $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
   If $ret[0] Then
      $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
      If $ret2[0] Then
         Return 1
      Else
         Return 0
      EndIf
   Else
      Return 0
   EndIf
EndFunc

Func Set_Updater()
If Not FileExists(@ProgramFilesDir & "\QTasc\XPClean\Settings\UpDate.dat") Then
	FileWrite(@ProgramFilesDir & "\QTasc\XPClean\Settings\UpDate.dat", @YDAY)
Else
	$Uold = FileReadLine(@ProgramFilesDir & "\QTasc\XPClean\Settings\UpDate.dat", 1)
	If $Uold >=320 Then 
		FileDelete(@ProgramFilesDir & "\QTasc\XPClean\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(@ComSpec & " /c Start " & $QT_web , "", @SW_HIDE)
			WinWaitActive("")
		EndIf
		FileDelete(@ProgramFilesDir & "\QTasc\XPClean\Settings\UpDate.dat")
		FileWrite(@ProgramFilesDir & "\QTasc\XPClean\Settings\UpDate.dat", @YDAY)
	EndIf
EndIf
EndFunc

Func Set_Language()
	If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN) ; Stops you from changing anything
	
	MsgBox(32, "*XPClean Menu* ,  by   QTasc", "Language Settings - English only Version   ")
	
	If $Full = "show" Then WinSetState($header, "", @SW_RESTORE) ; This turns the window back on
EndFunc   ;==>Set_Update

;~ ;------------------ Set Menu Bar Skins-------------------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>



Func Ret_Menu_Bar()
	Dim $VRMS= -68, $VX=598, $VY=61, $QTMB="show", $Designer = "QT Appraisal", $Title = "*XPClean Menu*"
	
	; creates start menu bar
	$Start_Menu = GUICreate("*XPClean Menu*", $VX, $VY, $VR_ST, $VMS, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW, $Dummy_win)
	$Promo_A = GUICtrlCreatePic($Logo_jpg, 0, 0, 150, 150)
	;$Promo_B = GUICtrlCreatePic($One_Logo, 0, 0, 150, 130)
	;GUICtrlSetState(-1, $GUI_HIDE)
	$Start_1 = GUICtrlCreateButton("", 150, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 39)
	$Start_2 = GUICtrlCreateButton("", 200, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 141)
	$Start_3 = GUICtrlCreateButton("", 250, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 22)
	$Start_4 = GUICtrlCreateButton("", 300, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 72)
	$Start_5 = GUICtrlCreateButton("", 350, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 166)
	$Start_6 = GUICtrlCreateButton("", 400, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 80)
	$Start_7 = GUICtrlCreateButton("", 450, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 221)
	$Start_8 = GUICtrlCreateButton("", 500, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 160)
	$Start_9 = GUICtrlCreateButton("", 550, 0, 50, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 131)
	$Start_10 = GUICtrlCreateButton("", 650, 0, 50, 40, $BS_ICON); dummy for skins
	GUICtrlSetState(-1, $GUI_HIDE)
	$Start_11 = GUICtrlCreateButton("", 650, 0, 50, 40, $BS_ICON); dummy for skins
	GUICtrlSetState(-1, $GUI_HIDE)
	$Start_12 = GUICtrlCreateButton("", 650, 0, 50, 40, $BS_ICON); dummy for skins
	GUICtrlSetState(-1, $GUI_HIDE)
	$Promo_C=GUICtrlCreateLabel(" Restore    Adware    Spyware   AutoClean  Registry    Defrag     Full Menu    Share         Exit", 150, 42, 450, 25)
	
	$Trans = WinSetTrans($Start_Menu, "*XPClean Menu*", $TMS)
	$begin = TimerInit()
	
	GUISetState(@SW_SHOW, $Start_Menu) 
EndFunc   


Func Toggle_Select()
	$Data=GUICtrlRead($Data_L1)
	If $Data = "Exit" Then Return GUICtrlSetData($Data_L1, "Restore")
	If $Data = "Restore" Then Return GUICtrlSetData($Data_L1, "Adware")
	If $Data = "Adware" Then Return GUICtrlSetData($Data_L1, "Spyware")
	If $Data = "Spyware" Then Return GUICtrlSetData($Data_L1, "AutoClean")
	If $Data = "AutoClean" Then Return GUICtrlSetData($Data_L1, "Registry")
	If $Data = "Registry" Then Return GUICtrlSetData($Data_L1, "Defrag")
	If $Data = "Defrag" Then Return GUICtrlSetData($Data_L1, "Full Menu")
	If $Data = "Full Menu" Then Return GUICtrlSetData($Data_L1, "Share")
	If $Data = "Share" Then Return GUICtrlSetData($Data_L1, "Exit")
EndFunc

Func Toggle_Start()
	$Data=GUICtrlRead($Data_L1)
	If $Data = "Restore" Then
		$ST_1 = "go"
		Return
	EndIf
	If $Data = "Adware" Then
		$ST_2 = "go"
		Return
	EndIf
	If $Data = "Spyware" Then
		$ST_3 = "go"
		Return
	EndIf
	If $Data = "AutoClean" Then
		$ST_4 = "go"
		Return
	EndIf
	If $Data = "Registry" Then
		$ST_5 = "go"
		Return
	EndIf
	If $Data = "Defrag" Then
		$ST_6 = "go"
		Return
	EndIf
	If $Data = "Full Menu" Then
		$ST_7 = "go"
		Return
	EndIf
	If $Data = "Share" Then
		$ST_8 = "go"
		Return
	EndIf
	If $Data = "Exit" Then call("Set_Exit")
	EndFunc

Func Set_Menu_Bar()
	If $Full = "show" Then GUISetState(@SW_MINIMIZE, $MAIN)
	TraySetState (@SW_HIDE)
	SplashTextOn("Setup New Menu Bar", "   ...Please wait... " & @CRLF & " Verifying  New Menu File", 250, 80, 200, 200)
	Sleep(1000)
	
	$State_Set = 0
	If Not FileExists($New_Bar) Then
		SplashOff()
		Return
	EndIf
	
	$local = StringInStr($New_Bar, "\", 0, 7)
	$imp_pic = StringLeft ( $New_Bar, $Local )
	
	$NFile = FileOpen($New_Bar, 0)
	
	; Check if file opened for reading OK
	If $NFile = -1 Then
		MsgBox(0, "Error 2", "Unable to open file.")
		SplashOff()
		Return
	EndIf
	
	
	SplashTextOn("Setup New Menu Bar", "   ...Please wait... " & @CRLF & " Creating New Menu Bar ", 250, 80, 200, 200)
	Sleep(1000)
	
	GUIDelete ( $Start_Menu )
	If @error Then call("Ret_Menu_Bar")
	
	Dim $newID="", $VRMS= -188, $VX=600, $VY=180, $QTMB="" , $D_info , $Designer, $Title = "Unknown", $Start_10
	
	; creates start menu bar
	$Start_Menu = GUICreate("*XPClean Menu*", $VX, $VY, $VR_ST, $VMS, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW, $Dummy_win)
	
	; Read in lines of text until the EOF is reached
	While 1
		Sleep(100)
		If $State_Set= 1 Then ExitLoop
		$NLine = FileReadLine($NFile)
		If @error = -1 Then ExitLoop
		
		If $NLine <> "" Then
			$newID = $newID + 1
			$NDLine = $NLine
			$NLine = StringSplit( $NLine,",")
			$D_info = $NLine[1]
			Sleep(50)
			Call("Set_Create")
		EndIf
	WEnd
	FileClose($NFile)
	
	If Not WinExists($Start_Menu) Or $State_set = 1 Then
		GUIDelete ( $Start_Menu )
		call("Ret_Menu_Bar")
		MsgBox(0, "NOTICE", "Original Menu Bar Returned - E1")
		$Title = "*XPClean Menu* Bar"
		$Designer = "QT Appraisal Service"
	EndIf
	GUISetState(@SW_SHOW, $Start_Menu)
	$Trans = WinSetTrans($Start_Menu, "*XPClean Menu*", 250)
	Sleep(500)
	SplashTextOn("Setup New Menu Bar", "   ...Complete... " & @CRLF & $Title & @CRLF & $Designer & " " , 250, 80, 200, 200)
	Sleep(2000)
	$begin = TimerInit()
	SplashOff()
	GUISetCursor ( -1,-1) 
	TraySetState (@SW_SHOW)
	
	
EndFunc

Func Set_Create()
	
	;_ArrayDisplay( $NLine, "," )

	;MsgBox(0, "test", "id= " & $D_info & @CRLF & " $NLine[0[ = " & $NLine[0] & @CRLF & $NLine)
	
	If $D_info = "MAIN" Then
		Call("Ret_Menu_Bar")
		$State_set = 1 
		Return
	EndIf
	
	
	If $D_info = "DSGN" Then
		$Designer =  $NLine[2]
		GUICtrlSetData($Designer, $NLine[2])
		MsgBox(64, $Title,"Designed " & $Designer, 2)
		Return
	EndIf
	If $D_info = "TITL" Then
		$Title =  $NLine[2]
		Return
	EndIf
	If $D_info = "HGHT" Then
		$VY =  $NLine[2]
		Return
	EndIf
	; creates a Custom Order Run-Line Only
	If $D_info = "CORN" Then
		$Custom_run =  $NDLine
		Return
	EndIf
	; Round corner function call
	If $D_info = "ROND" Then
		_GuiRoundCorners($Start_Menu, 0, 0, 50, 50)
		Return
	EndIf
	; creates Start buttons
	If $D_info = "STB1" Then
		If $NLine[0] = 6 Then  $Start_1 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_1 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_1 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STB2" Then
		If $NLine[0] = 6 Then  $Start_2 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_2 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_2 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STB3" Then
		If $NLine[0] = 6 Then  $Start_3 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_3 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_3 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STB4" Then
		If $NLine[0] = 6 Then  $Start_4 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_4 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_4 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STB5" Then
		If $NLine[0] = 6 Then  $Start_5 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_5 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_5 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STB6" Then
		If $NLine[0] = 6 Then  $Start_6 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_6 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_6 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STB7" Then
		If $NLine[0] = 6 Then  $Start_7 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_7 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_7 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STB8" Then
		If $NLine[0] = 6 Then  $Start_8 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_8 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_8 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STB9" Then
		If $NLine[0] = 6 Then  $Start_9 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_9 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_9 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf	
	; creates Start Labels
	If $D_info = "STL1" Then
		If $NLine[0] = 6 Then $Start_1 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then $Start_1 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then $Start_1 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STL2" Then
		If $NLine[0] = 6 Then  $Start_2 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_2 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_2 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STL3" Then
		If $NLine[0] = 6 Then  $Start_3 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_3 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_3 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STL4" Then
		If $NLine[0] = 6 Then  $Start_4 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_4 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_4 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STL5" Then
		If $NLine[0] = 6 Then  $Start_5 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_5 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_5 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STL6" Then
		If $NLine[0] = 6 Then  $Start_6 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_6 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_6 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STL7" Then
		If $NLine[0] = 6 Then  $Start_7 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_7 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_7 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STL8" Then
		If $NLine[0] = 6 Then  $Start_8 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_8 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_8 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "STL9" Then
		If $NLine[0] = 6 Then  $Start_9 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_9 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_9 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	; creates QT button
	If $D_info = "LGOB" Then
		$Start_10 = GUICtrlCreateButton ($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $BS_ICON)
		GUICtrlSetState(-1, $GUI_FOCUS)
		Sleep(20)
		GUICtrlSetImage(-1, $Logo_icon)
		Return
	EndIf
	If $D_info = "LGOL" Then
		$Start_10 = GUICtrlCreateLabel ($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	; creates toggles
	If $D_info = "TGB1" Then
		If $NLine[0] = 6 Then  $Start_11 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_11 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_11 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "TGB2" Then
		If $NLine[0] = 6 Then  $Start_12 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_12 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_12 = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "TGL1" Then
		If $NLine[0] = 6 Then  $Start_11 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_11 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_11 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "TGL2" Then
		If $NLine[0] = 6 Then  $Start_12 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Start_12 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Start_12 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "TGLA" Then
		If $NLine[0] = 6 Then  $Data_L1 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Data_L1 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Data_L1 = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	; creates hide button
	If $D_info = "HDB1" Then
		If $NLine[0] = 6 Then  $Hiden = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Hiden = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Hiden = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "HDL1" Then
		If $NLine[0] = 6 Then  $Hiden = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Hiden = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Hiden = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	; creates Cutom Oder Buttons
	If $D_info = "COB1" Then
		If $NLine[0] = 6 Then  $Custom = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Custom = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Custom = GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "COL1" Then
		If $NLine[0] = 6 Then  $Custom = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  $Custom = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  $Custom = GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	; creates GUI controls
	If $D_info = "GSBC" Then 
		GUISetBkColor ($NLine[2])
		Return
	EndIf
	If $D_info = "GUSF" Then 
		GUISetFont ($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "GICN" Then 
		GUISetIcon ($NLine[2], $NLine[3])
		Return
	EndIf
	If $D_info = "SHOW" Then
		GUISetState()
		_FileWriteLog(@WindowsDir & "\XPClean.log", "New Menu Bar - Skin complete" & $Title)
		Return
	EndIf
	If $D_info = "GUSC" Then 
		GUISetCursor ($NLine[2], $NLine[3])
		Return
	EndIf
	; creates Controls
	If $D_info = "CAVI" Then 
		GUICtrlCreateAvi ($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "CBTN" Then
		If $NLine[0] = 6 Then  GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  GUICtrlCreateButton($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		GUICtrlSetState(-1, $GUI_FOCUS)
		Return
	EndIf
	If $D_info = "CLBL" Then
		If $NLine[0] = 6 Then  GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		If $NLine[0] = 7 Then  GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7])
		If $NLine[0] = 8 Then  GUICtrlCreateLabel($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		;GUICtrlSetState(-1, $GUI_FOCUS)
		GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
		Return
	EndIf
	If $D_info = "CGRH" Then 
		GUICtrlCreateGraphic ($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "CICN" Then 
		GUICtrlCreateIcon ($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6], $NLine[7], $NLine[8])
		Return
	EndIf
	If $D_info = "CMNU" Then 
		GUICtrlCreateMenu ($NLine[2], $NLine[3])
		Return
	EndIf
	If $D_info = "CMNI" Then 
		GUICtrlCreateMenuitem ($NLine[2], $NLine[3])
		Return
	EndIf
	If $D_info = "PIC1" Then 
		GUICtrlCreatePic ($Imp_pic & "File1_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "PIC2" Then 
		GUICtrlCreatePic ($Imp_pic & "File2_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "PIC3" Then 
		GUICtrlCreatePic ($Imp_pic & "File3_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "PIC4" Then 
		GUICtrlCreatePic ($Imp_pic & "File4_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "PIC5" Then 
		GUICtrlCreatePic ($Imp_pic & "File5_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "PIC6" Then 
		GUICtrlCreatePic ($Imp_pic & "File6_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "PIC7" Then 
		GUICtrlCreatePic ($Imp_pic & "File7_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "PIC8" Then 
		GUICtrlCreatePic ($Imp_pic & "File8_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "PIC9" Then 
		GUICtrlCreatePic ($Imp_pic & "File9_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "PIC10" Then 
		GUICtrlCreatePic ($Imp_pic & "File10_pic.jpg", $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "CPRG" Then 
		GUICtrlCreateProgress ($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "CSLD" Then 
		GUICtrlCreateSlider ($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "CTAB" Then 
		GUICtrlCreateTab ($NLine[2], $NLine[3], $NLine[4], $NLine[5], $NLine[6])
		Return
	EndIf
	If $D_info = "CTBI" Then 
		GUICtrlCreateTabItem ($NLine[2])
		Return
	EndIf
	; Control - Controls
	If $D_info = "SBKC" Then 
		GUICtrlSetBkColor ($NLine[2], $NLine[3])
		Return
	EndIf
	If $D_info = "FRED" Then 
		GUICtrlSetColor(-1,0xff0000)
		Return
	EndIf
	If $D_info = "FBLU" Then 
		GUICtrlSetColor(-1,0x8080ff)
		Return
	EndIf
	If $D_info = "SCUR" Then 
		GUICtrlSetCursor ($NLine[2], $NLine[3])
		Return
	EndIf
	If $D_info = "SDAT" Then 
		GUICtrlSetData ($NLine[2], $NLine[3])
		Return
	EndIf
	If $D_info = "SFNT" Then 
		GUICtrlSetFont ($NLine[2], $NLine[3], $NLine[4], $NLine[5])
		Return
	EndIf
	If $D_info = "SGRH" Then 
		GUICtrlSetGraphic ($NLine[2], $NLine[3])
		Return
	EndIf
	If $D_info = "SIMG" Then 
		GUICtrlSetImage ($NLine[2], $NLine[3])
		Return
	EndIf
	If $D_info = "SETS" Then 
		GUICtrlSetState ($NLine[2], $NLine[3])
		Return
	EndIf
	If $D_info = "STIP" Then 
		GUICtrlSetTip ($NLine[2], $NLine[3])
		Return
	EndIf
	
	SplashTextOn("Setup New Menu Bar", "   ...ERROR... " & @CRLF & " Re-Setting Default Menu Bar", 250, 80, 200, 200)
	Sleep(3000)
	_ArrayDisplay( $NLine, "," )
	$State_set= 1
	_FileWriteLog(@WindowsDir & "\XPClean.log", "ERROR ***Menu Bar*** " & $Title)
EndFunc