View previous topic :: View next topic |
Author |
Message |
vtol Valued Contributor
Joined: 05 Feb 2004 Posts: 642 Location: Eastern Indiana
|
Posted: Fri Nov 26, 2004 5:02 am Post subject: Window Scrutinizer |
|
|
Window Scrutinizer by vtol - enjoy...
Code: |
TITLE Window Scrutinizer
#
# Wrote by vtol
# VDS5
# 4-2004
# No Custom External DLL
# I remmed couple things like vdsrun50 and
# the Apply button graphic so it would run
# 1st time for you with Desktop icon.
#
# Free to use - but I have the rights of owner.
# If we can make money with it, we'll split it.
# hee hee hee
#
# Be sure to name the EXE Window Scrutinizer in
# order for its self installer to work right...
#
LIST CREATE,1
LIST CREATE,2,SORTED
LIST CREATE,3
LIST CREATE,4,SORTED
LIST CREATE,5,SORTED
LIST CREATE,6,SORTED
rem REM out below if Posted on Forum
%%cnum1 = 00CCCC
%%cnum2 = black
rem #resource add,bitmap,C:\VDS5\vRESOURCE\Window Scrutinizer\apply.bmp
DIALOG CREATE,Window Scrutinizer,-1,0,567,447,CLASS Window Scrutinizer v1.0
IF @winexists(Window Scrutinizer v1.0)
WINDOW activate,Window Scrutinizer v1.0
WINDOW normal,Window Scrutinizer v1.0
goto close
END
DIALOG ADD,SHAPE,backcolor,1,1,565,427,%%cnum1,%%cnum2
%%Color1 = 669999
%%Color2 = white
DIALOG ADD,MENU,File,Close
DIALOG ADD,MENU,Refresh WinList
DIALOG ADD,MENU,Refresh TaskList
DIALOG ADD,MENU,Refresh FavList
DIALOG ADD,MENU,View,Total WinList Number,View the Favorite LOG file,View the Task LIST,View the current Favorite LOG Save path
DIALOG ADD,MENU,Settings,View the current Favorite LOG Save path,Change the Favorite LOG Save PATH
DIALOG ADD,MENU,Options,Create a Desktop Shortcut,Delete the Desktop Shortcut
DIALOG ADD,MENU,Tools,Delete Files associated with Favorites
DIALOG ADD,MENU,Favorites,Delete Selected Favorite,Refresh Sort Favorites,Delete Files associated with Favorites,View the current Favorite LOG Save path,Change the Favorite LOG Save PATH
DIALOG ADD,MENU,Help,Main,Installation Help,About
rem DIALOG ADD,MENU,test
DIALOG ADD,STYLE,STYLE1,,11,,,996633
DIALOG ADD,STYLE,STYLE2,,,,669999,white
DIALOG ADD,STYLE,STYLE3,,,,FFFF99,gray
DIALOG ADD,STYLE,STYLE4,,11,,,
DIALOG ADD,STYLE,STYLE5,,24,,,006666
DIALOG ADD,STYLE,STYLE6,,9,,,white
DIALOG ADD,STYLE,STYLE7,,13,b,,
DIALOG ADD,STYLE,STYLE8,,,,silver,669999
DIALOG ADD,STYLE,STYLE9,,9,,669999,black
DIALOG ADD,LINE,LINE1,117,10,287,110
rem --------------------------------------------------------------------------- Memory
%%mem_clean = @SYSINFO(FREEMEM)
%%mem_sort = @SUBSTR(%%mem_clean,1,-3)
%%mem_megabyte = %%mem_sort""@FILL(1,,L)MB@FILL(2,,L)Free RAM Memory
DIALOG ADD,list,mem,30,224,186,19,Click to Refresh,,style9,click
dialog set,mem,@FILL(1,,L)%%mem_megabyte
DIALOG ADD,BUTTON,refreshmem,32,368,40,15,READ
rem --------------------------------------------------------------------------- CHECK
DIALOG ADD,TEXT,textactivate,123,40,173,19,Activate,,,style1
DIALOG ADD,CHECK,activate,123,20,18,18,,1
DIALOG ADD,TEXT,textmaximize,143,40,173,19,Maximize,,,style1
DIALOG ADD,CHECK,maximize,143,20,18,18,,1
DIALOG ADD,TEXT,textrestore,163,40,173,19,Restore,,,style1
DIALOG ADD,CHECK,restore,163,20,18,18,,1
DIALOG ADD,TEXT,texticonize,183,40,173,19,Minimize,,,style1
DIALOG ADD,CHECK,iconize,183,20,18,18,,1
DIALOG ADD,TEXT,textclose,204,40,173,19,Close,,,style1
DIALOG ADD,CHECK,close,204,20,18,18,,1
DIALOG ADD,TEXT,texthide,124,172,173,19,Hide Window,,,style1
DIALOG ADD,CHECK,hide,124,152,18,18,,
DIALOG ADD,TEXT,textunhide,144,172,173,19,UnHide Window,,,style1
DIALOG ADD,CHECK,unhide,144,152,18,18,,
DIALOG ADD,TEXT,textclosealt,204,172,173,19,Close ALT F4,,,style1
DIALOG ADD,CHECK,closealt,204,152,18,18,,
rem ---------------------------------------------------------------------------
Dialog set,activate,@zero(activate)
Dialog set,maximize,@zero(maximize)
Dialog set,restore,@zero(restore)
Dialog set,iconize,@zero(iconize)
Dialog set,close,@zero(close)
rem ---------------------------------------------------------------------------
DIALOG ADD,LINE,LINEsize,231,10,175,100
DIALOG ADD,TEXT,textheight,242,23,173,19,"Window Height",,,style1
DIALOG ADD,spin,height,239,127,47,15,0|1200,630,,style2
DIALOG ADD,TEXT,textwidth,272,23,173,19,"Window Width",,,style1
DIALOG ADD,spin,width,269,127,47,15,0|1200,470,,style2
DIALOG ADD,BUTTON,size,297,28,140,27,Apply Size,,style4
DIALOG ADD,LINE,LINE2,117,305,254,110
DIALOG ADD,LINE,LINE3,231,193,366,100
rem TOP shape backgroung color below:
DIALOG ADD,SHAPE,backmypooter,123,310,243,98,%%Color1,%%Color2
rem BOTTOM shape background color below:
DIALOG ADD,SHAPE,background,234,196,360,94,%%Color1,%%Color2
dialog ADD,text,mycomptitle,259,217,335,78,Online Help Messages,,,style5
rem Below handles the Online Text Messages: <<<<<<<<<<<<<<<<<<<< Online HELP Messages
dialog ADD,text,message,242,215,335,78,,,,style6
DIALOG ADD,list,classboxtitle,53,12,62,19,,style3
dialog set,classboxtitle,Class Name
DIALOG ADD,edit,classbox,53,73,145,19,,,style2
rem dialog disable,classbox
DIALOG ADD,list,identifierboxtitle,53,224,82,19,,style3
dialog set,identifierboxtitle,Identifier Name
DIALOG ADD,edit,identifierbox,53,305,105,19,,,style2
rem dialog disable,identifierbox
DIALOG ADD,list,statusboxtitle,53,415,79,19,,style3
dialog set,statusboxtitle,"Window Status"
DIALOG ADD,edit,statusbox,53,493,64,19,,,style2
rem dialog disable,statusbox
rem ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo WINLIST
LIST WINLIST, 2
rem >> NOTE: message are limited to 95 charactors for some reason in BOX1 <<
LIST Append, 1, 2
LIST savefile,1,c:\Window Scrutinizer\data\win-list.txt
wait "0.2"
If @ZERO(@index(1))
LIST delete, 1
END
rem ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo TASKLIST
LIST TASKLIST, 4,n
rem ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
rem %%list_total = @count(1) <------ this way when roll SPIN back to number 1
%%list_total = @pred(@count(1))
%%count_hint = A total of @pred(@count(1)) are currently Running..
rem -------------------------------------------------------------------------- SPIN Dialog
DIALOG ADD,spin,winnumber,6,517,40,15,0|%%list_total,1,,click,NOEDIT,style2
DIALOG ADD,edit,spintotal,30,475,40,17,@FILL(2,,L)Total,,style2
DIALOG ADD,edit,spintotal2,30,516,40,17,,,style3
dialog set,spintotal2,@FILL(1,,L)@pred(@count(1))
rem DIALOG ADD,edit,box1,6,12,502,42,,,,multi,wrap,readonly
rem -------------------------------------------------------------------------- BOX1 Dialog
DIALOG ADD,combo,box1,6,12,502,22,,,click,sorted,style2
DIALOG ADD,TEXT,textbox1,28,11,173,19,WinList Selector,,,style1
DIALOG ADD,edit,urladdress,75,12,545,39,,,multi,wrap,style2
LIST Append,box1, 1
rem dialog set,box1,Wintask Listing here...
dialog set,urladdress,Internet Explorer Browser "<"editbox">"
rem -------------------------------------------------------------------------- TASK Dialog
DIALOG ADD,list,killtitle,340,194,29,21,,,sorted,style3
dialog set,killtitle,Task
DIALOG ADD,combo,kill,340,221,336,20,,,click,sorted,style2
LIST Append,kill, 4
dialog set,kill,@item(4)
rem -------------------------------------------------------------------------- FAV Dialog
DIALOG ADD,list,favtitle,368,12,29,21,,,sorted,style3
dialog set,favtitle,FAV
DIALOG ADD,combo,fav,368,39,518,20,,,click,sorted,style2
rem --------------------------------------------------------------------------- BUTTONs
DIALOG ADD,BUTTON,apply,168,140,140,30,APPLY,,style7
DIALOG ADD,BUTTON,getwindow,135,331,201,35,Get"("Select")" Window with Mouse
DIALOG ADD,BUTTON,geturl,176,331,201,35,Get HTML URL Address,,style4
DIALOG ADD,BUTTON,killer,340,10,140,22,Kill the selected Task
DIALOG ADD,BUTTON,savetasklist,343,156,27,17,SAV,Save the Task List
DIALOG ADD,BUTTON,favrite,398,10,157,22,Load Favorite in New Window
DIALOG ADD,BUTTON,deletefav,398,176,157,22,Delete the selected Favorite
DIALOG ADD, STATUS,statis
dialog set,statis,@FILL(4,,L)Welcome to"," Window Scrutinizer..
DIALOG ADD,PROGRESS,fake,395,345,210,26,,,style8
DIALOG SET,fake,100
wait 1
DIALOG SHOW
dialog focus,Statis
dialog set,box1,@item(1)
rem --------------------------------------------------------------------------- Testing
rem goto skip-test
IF @equal(@curdir(),c:\vds5)
%%install_folder = c:\Window Scrutinizer
%%verify_install = Success
goto testing-skip
END
:skip-test
rem --------------------------------------------------------------------------- END test
IF @FILE(settings.ini)
INIFILE OPEN,@PATH(%0)settings.ini
%%install_folder = @INIREAD(install,path)
INIFILE CLOSE
END
rem --------------------------------------------------------------------------- Install
wait "0.1"
INIFILE OPEN,@PATH(%0)settings.ini
%%verify_install = @INIREAD(installation,statis)
INIFILE CLOSE
If @NULL(%%verify_install)
%%verify_install = natta
END
:testing-skip
IF @unequal(%%verify_install,Success)
Window hide,"Window" Scrutinizer
%%first_query = @query(Press OK to Install "Window" Scrutinizer)
IF @unequal(%%first_query,1)
goto close
END
%%install_folder = @DIRDLG(Choose "("or Create")" a Installation Folder,%%location,shownewfolderbutton)
IF @NULL(%%install_folder)
%%cancel_query = @query(Press OK to Install to the default Folder Location.@CR()Or Press Cancel to Quit Installation.@CR()@CR()Default Folder Location: @FILL(2,,L) C":\Window Scrutinizer")
IF @unequal(%%cancel_query,1)
goto close
END
%%install_folder = C:\"Window" Scrutinizer
END
%%settings_ini = %%install_folder""\settings.ini
%%url_folder = %%install_folder""\url\
%%url_ini_filename = %%install_folder""\data\log.ini
%%data_folder = %%install_folder""\data\
%%graphics_folder = %%install_folder""\graphics\
wait "0.2"
DIRECTORY create,%%install_folder
DIRECTORY create,%%url_folder
DIRECTORY create,%%data_folder
DIRECTORY create,%%graphics_folder
wait "0.3"
INIFILE OPEN,%%settings_ini
INIFILE WRITE,log ini,file,%%url_ini_filename
INIFILE WRITE,install,path,%%install_folder
INIFILE WRITE,data,path,%%data_folder
INIFILE WRITE,graphics,path,%%graphics_folder
INIFILE CLOSE
wait "0.3"
%%current_url_log_savefile = %%install_folder""\url\url.log
%%current_url_log_filepath = %%install_folder""\url
rem info @CR()%%install_folder""\data\log.ini
INIFILE OPEN,%%install_folder""\data\log.ini
INIFILE WRITE,url path,location,%%current_url_log_filepath
INIFILE WRITE,url save filename,location,%%current_url_log_savefile
INIFILE CLOSE
wait "0.2"
rem ------------------------------------- FIND WINDOWS VERSION
%%Winver = @SYSINFO(WINVER)
%%ver = @substr(%%Winver,1,1)
%%Win_root = @WINDIR(W)
%%WXP_sysdll = %%Win_root""\system32\vdsrun50.dll
%%W98_sysdll = %%Win_root""\system\vdsrun50.dll
rem -----------------------------------------------------------
rem #resource add,binary,C:\VDS5\vRESOURCE\Window Scrutinizer\vdsrun50.dll,1
IF @EQUAL(%%ver,5)
INIFILE OPEN,%%settings_ini
INIFILE WRITE,windows,version,XP
INIFILE CLOSE
wait "0.2"
IF @NOT(@FILE(%%WXP_sysdll))
rem BINFILE SAVERES,BINARY,1,%%WXP_sysdll
END
END
IF @EQUAL(%%ver,4)
INIFILE OPEN,%%settings_ini
INIFILE WRITE,windows,version,W98
INIFILE CLOSE
wait "0.2"
IF @NOT(@FILE(%%W98_sysdll))
rem BINFILE SAVERES,BINARY,1,%%W98_sysdll
END
END
wait "0.3"
INIFILE OPEN,%%settings_ini
INIFILE WRITE,installation,statis,Success
INIFILE CLOSE
FILE copy,"Window Scrutinizer."exe,%%install_folder
wait "0.1"
FILE copy,ws-icon.ico,%%graphics_folder
wait "0.1"
FILE copy,about-Window Scrutinizer.exe,%%install_folder
%%shortcut_query = @query(Press OK to make Make a Desktop Shortcut)
IF @unequal(%%shortcut_query,1)
info You can make a Desktop Shortcut in the Options Menu.
END
rem --------------------------------------------------------------------------- Shortcut
IF @equal(%%shortcut_query,1)
%%shortcut_desktop = @windir(desktop)\Window Scrutinizer.lnk
%%ws_icon = %%install_folder""\graphics\ws-icon.ico
%%ws_exe = %%install_folder""\"Window Scrutinizer.exe"
LINK CREATE,%%ws_exe,@windir(desktop),Window Scrutinizer,%%ws_icon,%%install_folder
rem LINK CREATE,%%ws_exe,@windir(desktop),"Window Scrutinizer",%%ws_icon
wait "0.2"
INIFILE OPEN,%%settings_ini
INIFILE WRITE,shortcut,desktop,%%shortcut_desktop
INIFILE WRITE,shortcut,status,installed
INIFILE close
wait "0.2"
window activate,@windir(desktop)
info Desktop Shortcut was created!
END
rem ---------------------------------------------------------------------------
SHELL OPEN,%%install_folder
window position,%%install_folder,170,170,220,250
goto close
Window normal,"Window" Scrutinizer
END
rem -------------------------------------------------------------------------- END Install
rem IF @FILE(c:\Window Scrutinizer\settings.ini)
rem INIFILE OPEN,@PATH(%0)settings.ini
rem %%install_folder = @INIREAD(install,path)
rem INIFILE CLOSE
rem END
%%url_log_save_ini_file = %%install_folder""\data\log.ini
IF @not(@file(%%url_log_save_ini_file))
Warn The@FILL(2,,L)log"."ini@FILL(2,,L)file is missing!@CR()@CR()Creating a new default INI file at the Location below":"@CR()"C:\Window Scrutinizer\data\log.ini"
INIFILE OPEN,%%url_log_save_ini_file
INIFILE WRITE,url path,location,C:\Window Scrutinizer\url
INIFILE WRITE,url save filename,location,C:\Window Scrutinizer\url\url.log
INIFILE CLOSE
%%settings_ini = %%install_folder""\settings.ini
%%url_ini_filename = %%install_folder""\data\log.ini
INIFILE OPEN,%%settings_ini
INIFILE WRITE,log ini,file,%%url_ini_filename
INIFILE CLOSE
END
%%settings_ini = %%install_folder""\settings.ini
INIFILE OPEN,%%settings_ini
%%current_url_ini_filename = @iniread(log ini,file)
INIFILE CLOSE
INIFILE OPEN,%%url_log_save_ini_file
%%current_url_log_savefile = @iniread(url save filename,location)
%%current_url_log_filepath = @iniread(url path,location)
INIFILE CLOSE
IF @NULL(%%current_url_log_savefile)
Warn Missing Url Log File entry in the INI file"," writing a new default entry!
INIFILE OPEN,%%url_log_save_ini_file
INIFILE WRITE,url save filename,location,C:\Window Scrutinizer\url\url.log
INIFILE CLOSE
END
%%settings_ini = %%install_folder""\settings.ini
INIFILE OPEN,%%url_log_save_ini_file
%%url_savefile_path = @iniread(url path,location)
INIFILE CLOSE
GOSUB window-names
GOSUB favorite
rem /////////////////////////////////////////////////////////////////////////// EVLOOP
:EVLOOP
WAIT EVENT
GOTO @EVENT()
rem \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
:refreshmemBUTTON
dialog set,mem,R
wait "0.1"
dialog set,mem,Re
wait "0.1"
dialog set,mem,Ref
wait "0.1"
dialog set,mem,Refr
wait "0.2"
dialog set,mem,Refre
wait "0.1"
dialog set,mem,Refres
wait "0.1"
dialog set,mem,Refresh
wait "0.1"
dialog set,mem,Refreshi
wait "0.1"
dialog set,mem,Refreshin
wait "0.1"
dialog set,mem,Refreshing
wait "0.1"
dialog set,mem,Refreshing
wait "0.1"
dialog set,mem,Refreshing M
wait "0.1"
dialog set,mem,Refreshing Me
wait "0.1"
dialog set,mem,Refreshing Mem
wait "0.1"
dialog set,mem,Refreshing Memo
wait "0.1"
dialog set,mem,Refreshing Memor
wait "0.1"
dialog set,mem,Refreshing Memory
wait "0.8"
%%mem_clean = @SYSINFO(FREEMEM)
%%mem_sort = @SUBSTR(%%mem_clean,1,-3)
%%mem_megabyte = %%mem_sort""@FILL(1,,L)MB@FILL(2,,L)Free RAM Memory
dialog set,mem,@FILL(1,,L)%%mem_megabyte
goto evloop
:ToolsMENU
info Not implemented yet..
goto evloop
:favCLICK
dialog focus,Statis
rem dialog set,fav,@item(5)
goto evloop
rem --------------------------------------------------------------------------- FAVORITE
:View the Favorite LOG fileMENU
INIFILE OPEN,%%url_log_save_ini_file
%%current_url_log_savefile = @iniread(url save filename,location)
INIFILE CLOSE
LIST clear, 5
LIST LOADFILE, 5,%%current_url_log_savefile
IF @file(%%current_url_log_savefile)
info @TEXT(5)
END
IF @NOT(@file(%%current_url_log_savefile))
info None found!
END
goto evloop
:View the current Favorite LOG Save pathMENU
INIFILE OPEN,%%url_log_save_ini_file
%%current_url_log_savefile = @iniread(url save filename,location)
INIFILE CLOSE
wait "0.5"
info %%current_url_log_savefile
goto evloop
:Delete Files associated with FavoritesMENU
INIFILE OPEN,%%url_log_save_ini_file
%%current_url_log_savefile = @iniread(url save filename,location)
%%current_url_log_filepath = @iniread(url path,location)
INIFILE CLOSE
IF @query(Sure you want to delete the Favorite@CR()LOG file containing all the Favorites@CR()and the Favorite Shortcut Links?@CR()@CR()Press Cancel to Cancel...)
FILE delete,%%current_url_log_savefile
FILE delete,%%current_url_log_filepath""\*.*
ELSE
rem IF @NOT(@OK())
info You canceled"." No action taken!
goto evloop
rem END
END
IF @query(Would you like to delete the LOG"."INI file also?@CR()LOG"."INI file contains the Favorite LOG file PATH information.@CR()@CR()Press Cancel to Cancel...)
INIFILE OPEN,%%settings_ini
%%current_url_ini_filename = @iniread(log ini,file)
INIFILE CLOSE
FILE delete,%%current_url_ini_filename
END
goto evloop
:Refresh FavListMENU
:Refresh Sort FavoritesMENU
LIST clear, 5
LIST clear,fav
dialog clear,fav
%%fav_list = %%current_url_save_folder_location
LIST LOADFILE, 5,%%current_url_log_savefile
dialog set,fav,@item(5)
LIST Append,fav, 5
dialog focus,Statis
goto evloop
:favorite
LIST clear, 5
dialog clear,fav
dialog focus,Statis
wait "0.2"
rem info @CR()%%url_log_save_ini_file
IF @file(%%url_log_save_ini_file)
INIFILE OPEN,%%url_log_save_ini_file
%%current_url_log_savefile = @iniread(url save filename,location)
INIFILE CLOSE
wait "0.2"
LIST LOADFILE, 5,%%current_url_log_savefile
LIST Append,fav, 5
dialog set,fav,@item(5)
END
dialog focus,Statis
EXIT
:deletefavBUTTON
IF @NOT(@query(Are you sure you want to Delete the selected Favorite?))
goto evloop
END
info Delete process is next...
:Delete Selected FavoriteMENU
%%fav_selection = @dlgtext(fav)
list clear, 5
list append, 5,fav
IF @MATCH(5,%%fav_selection)
list delete, 5
END
LIST saveFILE, 5,%%current_url_log_savefile
LIST clear, 5
LIST clear,fav
dialog clear,fav
dialog focus,Statis
LIST LOADFILE, 5,%%current_url_log_savefile
dialog set,fav,@item(5)
LIST Append,fav, 5
goto evloop
:favriteBUTTON
%%selected_favorite = @DLGTEXT(fav)
IF @query(Load the URL address below in a NEW MSIE Browser Window?@CR()@CR()%%selected_favorite)
SHELL OPEN,C:\Program Files\Internet Explorer\iexplore.exe,%%selected_favorite
ELSE
info You Canceled"," no action taken!
END
goto evloop
:Change the Favorite LOG Save PATHMENU
INIFILE OPEN,%%url_log_save_ini_file
%%current_url_log_savefile = @iniread(url save filename,location)
INIFILE CLOSE
IF @query(PRESS OK"," to Change "URL-Shortcut" "&" LOG Save path location"."@CR()@CR()PRESS "CANCEL" to keep the Current SAVE location listed below":"@CR()%%current_url_log_savefile)
%%new_url_save_folder_location = @DIRDLG(Choose the new URL Save folder location,c:\,shownewfolderbutton)
IF @NULL(%%new_url_save_folder_location)
goto skip-nextpart
END
INIFILE OPEN,%%url_log_save_ini_file
INIFILE WRITE,url path,location,%%new_url_save_folder_location
INIFILE CLOSE
%%url_save_log_file = %%new_url_save_folder_location""\url.log
INIFILE OPEN,%%url_log_save_ini_file
INIFILE WRITE,url save filename,location,%%url_save_log_file
INIFILE CLOSE
DIRECTORY CREATE,%%new_url_save_folder_location
IF @query(Delete the URL"."LOG and Shortcut Favorite Links at the old folder location?@CR()@CR()PRESS "CANCEL" to keep the files".")
FILE delete,%%current_url_log_savefile
FILE delete,%%current_url_log_filepath""\*.*
END
ELSE
:skip-nextpart
INIFILE OPEN,%%url_log_save_ini_file
INIFILE WRITE,url path,location,C:\Window Scrutinizer\url
INIFILE CLOSE
END
goto EVLOOP
rem --------------------------------------------------------------------------- TASK LIST
:Refresh TaskListMENU
LIST clear, 4
LIST clear,kill
dialog clear,kill
LIST TASKLIST, 4,n
LIST append,kill,@text(4)
dialog set,kill,@item(4)
dialog focus,Statis
goto EVLOOP
:View the Task LISTMENU
LIST clear, 4
LIST TASKLIST, 4,n
info @TEXT(4)
goto evloop
:killerBUTTON
%%selected_task = @DLGTEXT(kill)
IF @query(Are you sure you want to kill the@FILL(2,,L)"'" %%selected_task "'"@FILL(2,,L)Task?@CR()@CR()@FILL(2,,L)WARNING!@CR()@FILL(2,,L)Killing some Tasks may cause un-recoverable Damage!)
KILLTASK %%selected_task
ELSE
info You Canceled"," no action taken!
END
LIST clear, 4
LIST clear,kill
dialog clear,kill
wait "0.2"
LIST TASKLIST, 4,n
LIST append,kill,@text(4)
dialog set,kill,@item(4)
goto evloop
:savetasklistBUTTON
%%save_tasklist_filename = @INPUT(Enter a unique filename for the text file,TaskListSave"-001".txt)
IF @not(@OK())
warn You canceled"," the file was not saved to disk.
goto evloop
END
IF @not(@EXT(%%save_tasklist_filename))
%%save_tasklist_filename = %%save_tasklist_filename"".txt
END
rem info %%file_extension
LIST clear, 6
LIST append, 6,kill
%%task_folder = %%install_folder""\TaskSave\
DIRECTORY create,%%task_folder
IF @NULL(%%save_tasklist_filename)
%%save_tasklist_filename = TaskListSave-DefaultName.txt
END
%%task_filename = %%task_folder""%%save_tasklist_filename
LIST savefile, 6,%%task_filename
goto evloop
:killCLICK
dialog focus,Statis
goto evloop
:getwindowBUTTON
%%last_box1 = @dlgtext(box1)
dialog set,message,@FILL(4,,L)Click the Window of your choice@FILL(4,,L)You have 5 seconds...
DIALOG ADD,PROGRESS,getwait,395,345,210,26,,,style2
DIALOG SET,getwait,0
wait 1
DIALOG SET,getwait,20
wait 1
DIALOG SET,getwait,40
wait 1
DIALOG SET,getwait,60
wait 1
DIALOG SET,getwait,80
wait 1
DIALOG SET,getwait,100
wait 1
%%getwindow = @winactive(C)
dialog set,classbox,%%getwindow
dialog set,message,
DIALOG remove,getwait
IF @equal(@winactive(N),%%last_box1)
goto refreshlistBUTTON
END
%%window_name = @winactive(N)
dialog set,box1,%%window_name
rem ----- Class Below ------
%%class_name = @winactive(C)
wait "0.2"
%p = @POS(\,%%window_name)
IF @equal(%p,3)
%S = @substr(%%window_name,1,45)
%%my_message = @FILL(8,,L)My Computer @FILL(18,,L) RealName@FILL(2,,L)"="@FILL(2,,L)%%class_name@CR()@CR()@CR()@CR()NOTE":"@CR()This is actually a @FILL(2,,L)"'"My Computer"'"@FILL(2,,L) window that is currently opened.
dialog set,message,%%my_message
%%class_name = My Computer
END
dialog set,classbox,%%class_name
rem ----- Identifier Below ------
%%identifier_name = @winactive(i)
wait "0.2"
dialog set,identifierbox,%%identifier_name
rem ----- Status Below ------
%%status_number = @WINPOS(%%window_name,S)
dialog set,statusbox,Unknown
IF @equal(%%class_name,My Computer)
IF @equal(%%status_number,1)
%%status_name = Normal
END
IF @equal(%%status_number,2)
%%status_name = Iconized
END
IF @equal(%%status_number,3)
%%status_name = Maximized
END
dialog set,statusbox,%%status_name
END
IF @equal(%%class_name,IEFrame)
IF @equal(%%status_number,1)
%%status_name = Normal
END
IF @equal(%%status_number,2)
%%status_name = Iconized
END
IF @equal(%%status_number,3)
%%status_name = Maximized
END
dialog set,statusbox,%%status_name
%%online_help = @FILL(3,,L)Internet Explorer Window @FILL(11,,L) RealName@FILL(2,,L)"="@FILL(2,,L)%%class_name@CR()@CR()@CR()@CR()@FILL(4,,L)NOTE":"@CR()@FILL(4,,L)HTML URL Related Window that is currently opened.
dialog set,message,%%online_help
END
%%spin_history = getwindow
goto evloop
rem --------------------------------------------------------------------------- ShortCut
:Create a Desktop ShortcutMENU
%%shortcut_desktop = @windir(desktop)\Window Scrutinizer.lnk
IF @NOT(@FILE(%%shortcut_desktop))
%%ws_icon = %%install_folder""\graphics\ws-icon.ico
%%ws_exe = %%install_folder""\"Window Scrutinizer.exe"
LINK CREATE,%%ws_exe,@windir(desktop),"Window Scrutinizer",%%ws_icon
wait "0.2"
INIFILE OPEN,@PATH(%0)settings.ini
INIFILE WRITE,shortcut,desktop,%%shortcut_desktop
INIFILE WRITE,shortcut,status,installed
INIFILE close
wait "0.2"
window activate,@windir(desktop)
info Desktop Shortcut was created!
ELSE
INFO The Desktop Shortcut allready Exists!@CR()Press OK to Create a new Desktop Shortcut.
END
goto evloop
:Delete the Desktop ShortcutMENU
%%shortcut_desktop = @windir(desktop)\Window Scrutinizer.lnk
IF @FILE(%%shortcut_desktop)
FILE delete,%%shortcut_desktop
info The "Window" Scrutinizer Desktop Shortcut was Deleted!
ELSE
info Could not find the "Window" Scrutinizer Desktop Shortcut!
END
goto evloop
rem --------------------------------------------------------------------------- HELP
:MainMENU
Info @CR()Help is listed in the lower Message Box.@CR()@CR()The Help is online help built into the@CR()program and on screen when availible.
goto evloop
:Installation HelpMENU
info This program does not write anything to the REGISTRY.@CR()It uses INI files at the Installation folder area instead.@CR()Unless you change the Default LOG INI folder location.
goto evloop
:aboutMENU
info Use at your own risk... vtol@CR()@CR()Not responsible for any kind of@CR()damage caused or related to@CR()this program.@CR()@CR()Enjoy!
rem RUN %%install_folder""\about-Window Scrutinizer.exe
goto evloop
rem --------------------------------------------------------------------------- GET URL
:geturlBUTTON
INIFILE OPEN,%%url_log_save_ini_file
%%current_url_log_savefile = @iniread(url save filename,location)
%%current_url_log_filepath = @iniread(url path,location)
INIFILE CLOSE
IF @NOT(@FILE(%%url_log_save_ini_file))
%%current_url_log_savefile = %%install_folder""\url\url.log
%%current_url_log_filepath = %%install_folder""\url
wait "0.2"
rem info @CR()%%install_folder""\data\log.ini
INIFILE OPEN,%%install_folder""\data\log.ini
INIFILE WRITE,url path,location,%%current_url_log_filepath
INIFILE WRITE,url save filename,location,%%current_url_log_savefile
INIFILE CLOSE
wait "0.4"
END
%%folder_location_url = %%current_url_log_filepath
%%URL = ""
%%TITLE = ""
rem For this example"," Click browser window immediately after Running script
WAIT "0.2"
%A = %%identifier_name
%C = %%class_name
rem Do further search only if it's a IE window
IF @EQUAL(%C,IEFrame)
%%TITLE = @WINTEXT(%A)
rem The user may have changed this in his registry - not sure..
%%POS = @POS(" - Microsoft Internet Explorer",%%TITLE)
%%TITLE = @SUBSTR(%%TITLE,1,%%POS)
%%C1 = @WINDOW(%A,CHILD)
%%C2 = @WINDOW(%%C1,CHILD)
%%C3 = @WINDOW(%%C2,CHILD)
%%timeout = 0
%%C4 = %%C3
repeat
if @equal(@winclass(%%C4),ComboBoxEx32)
%%counter = 1
else
%%timeout = @sum(%%timeout,1)
%%C4 = @WINDOW(%%C4,NEXT)
if @greater(%%timeout,10)
%%counter = 1
end
end
until @equal(%%counter,1)
%%timeout = 0
%%counter = 0
%%C5 = @WINDOW(%%C4,CHILD)
repeat
if @equal(@winclass(%%C5),ComboBox)
%%counter = 1
else
%%timeout = @sum(%%timeout,1)
%%C5 = @WINDOW(%%C5,NEXT)
if @greater(%%timeout,5)
%%counter = 1
end
end
until @equal(%%counter,1)
%%URL = @WINTEXT(@WINDOW(%%C5,CHILD))
%%url_text = %%URL
dialog set,urladdress,%%URL
rem Now save URL as a .url file
%%BASEURL = "BASEURL="%%URL
%%URL = "URL="%%URL
LIST ADD,3,[DEFAULT]
LIST ADD,3,%%BASEURL
LIST ADD,3,[InternetShortcut]
LIST ADD,3,%%URL
DIRECTORY create,%%folder_location_url
LIST SAVEFILE,3,%%folder_location_url""\%%TITLE"."url
LIST clear,3
IF @file(%%folder_location_url""\url.log)
LIST loadFILE,5,%%folder_location_url""\url.log
END
rem info @text(5)@CR()@CR()@CR()%%url_text
rem LIST append,5,3
LIST append,5,%%url_text
LIST SAVEFILE,5,%%folder_location_url""\url.log
dialog clear,fav
list clear,fav
dialog set,fav,@item(5)
list append,fav, 5
LIST clear, 5
ELSE
dialog set,message,Could not find your Active Browser window!@CR()or It is not Internet Explorer!@CR()@CR()@CR()@CR()ERROR Please try another listing ...
END
goto evloop
rem --------------------------------------------------------------------------- END of URL
:Total WinList NumberMENU
LIST clear, 1
LIST clear, 2
LIST WINLIST, 2
LIST Append, 1, 2
wait "0.2"
If @ZERO(@index(1))
LIST delete, 1
END
%%list_total = @pred(@count(1))
%%count_hint = A total of ""%%list_total"" are currently Running..
dialog set,spintotal2,@FILL(1,,L)@pred(@count(1))
info %%count_hint
goto evloop
rem ---------------------------------------------------------------------------Apply SIZE
:sizeBUTTON
%%size_class_name = @dlgtext(classbox)
IF @equal(%%size_class_name,My Computer)
goto skip-ieframe
END
%%size_class_name = @dlgtext(classbox)
IF @equal(%%size_class_name,IEFrame)
WINDOW activate,@dlgtext(box1)
wait "0.2"
%%width = @dlgtext(width)
%%height = @dlgtext(height)
WINDOW POSITION,@dlgtext(box1),,,%%width,%%height
ELSE
warn Not a reziable selection...
END
goto skip-mypooter
:skip-ieframe
IF @equal(%%size_class_name,My Computer)
WINDOW activate,@dlgtext(box1)
wait "0.2"
%%width = @dlgtext(width)
%%height = @dlgtext(height)
WINDOW POSITION,@dlgtext(box1),,,%%width,%%height
ELSE
warn Not a reziable selection...
END
:skip-mypooter
goto evloop
rem --------------------------------------------------------------------------- APPLY
:applyBUTTON
goto skip-filter
IF @equal(@dlgtext(classbox),IEFrame)
%%valid_type = yes
END
IF @equal(@dlgtext(classbox),My Computer)
%%valid_type = yes
END
IF @equal(@dlgtext(classbox),CabinetWClass)
%%valid_type = yes
END
IF @equal(@dlgtext(classbox),NotePad)
%%valid_type = yes
END
IF @equal(@dlgtext(classbox),WordPadClass)
%%valid_type = yes
END
IF @equal(@dlgtext(classbox),PhotoPaint)
%%valid_type = yes
END
IF @unequal(%%valid_type,yes)
dialog set,message,This is not a valid Window for this kind of operation!
%%valid_type = reset
goto evloop
END
%%valid_type = listening
:skip-filter
rem ---------------------------------- Close
If @equal(@dlgtext(close),1)
IF @dlgtext(box1)
%%box1 = @dlgtext(box1)
%a = @WINEXISTS(%%box1)
IF @not(@null(%a))
%P = @sendmsg(%a,$02,0,0)
%P = @sendmsg(%a,$02,0,0)
%P = @sendmsg(%a,$082,0,0)
%P = @sendmsg(%a,$082,0,0)
else
END
%%selected = yes
END
END
rem ---------------------------------- Close ALT F4
If @equal(@dlgtext(closealt),1)
IF @dlgtext(box1)
rem %A = @asc(4)
rem info %a
%%box1 = @dlgtext(box1)
WINDOW send,%%box1,@alt(@KEY(f4))
wait "0.1"
%%selected = yes
END
END
rem ---------------------------------- Hide
If @equal(@dlgtext(hide),1)
IF @dlgtext(box1)
%%box1 = @dlgtext(box1)
WINDOW hide,%%box1
wait "0.1"
%%selected = yes
END
END
rem ---------------------------------- unHide
If @equal(@dlgtext(unhide),1)
IF @dlgtext(box1)
%%box1 = @dlgtext(box1)
WINDOW normal,%%box1
wait "0.1"
%%selected = yes
END
END
rem ---------------------------------- Activate
If @equal(@dlgtext(activate),1)
IF @dlgtext(box1)
%%box1 = @dlgtext(box1)
WINDOW activate,%%box1
wait "0.1"
WINDOW activate,%%box1
%%selected = yes
END
END
rem ---------------------------------- Maximize
If @equal(@dlgtext(maximize),1)
IF @dlgtext(box1)
%%box1 = @dlgtext(box1)
WINDOW maximize,%%box1
%%selected = yes
END
END
rem ---------------------------------- Restore
If @equal(@dlgtext(restore),1)
IF @dlgtext(box1)
%%box1 = @dlgtext(box1)
WINDOW NORMAL,%%box1
%%selected = yes
END
END
rem ---------------------------------- Iconize
If @equal(@dlgtext(iconize),1)
IF @dlgtext(box1)
%%box1 = @dlgtext(box1)
WINDOW iconize,%%box1
%%selected = yes
END
END
IF @unequal(%%selected,yes)
info none were selected!@CR()TIC one from the selection list.
%%selected = no
END
dialog clear,close
dialog clear,closealt
dialog clear,hide
dialog clear,unhide
dialog clear,activate
dialog clear,maximize
dialog clear,restore
dialog clear,iconize
goto evloop
rem --------------------------------------------------------------------------- SPIN click
:winnumberCLICK
dialog clear,message
IF @equal(%%spin_history,getwindow)
%%spin_history = reset
dialog set,box1,Refreshing List - Please wait...
wait "0.5"
goto refreshlistBUTTON
END
IF @equal(@dlgtext(winnumber),0)
dialog set,winnumber,1
goto evloop
END
dialog disable,winnumber
%%count = @count(1)
%%spin_number = @dlgtext(winnumber)
IF @NOT(@greater(%%spin_number,@pred(%%count)))
LIST seek, 1,%%spin_number
END
wait "0.2"
dialog set,box1,@item(1)
dialog focus,statis
GOSUB window-names
dialog enable,winnumber
goto evloop
rem --------------------------------------------------------------------------- BOX1 CLICK
:box1CLICK
dialog clear,message
IF @equal(%%spin_history,getwindow)
%%spin_history = reset
dialog set,box1,Refreshing List - Please wait...
wait "0.5"
goto refreshlistBUTTON
END
IF @equal(@dlgtext(winnumber),0)
dialog set,winnumber,1
goto evloop
END
dialog disable,winnumber
%%count = @count(1)
%%spin_number = @dlgtext(winnumber)
IF @NOT(@greater(%%spin_number,@pred(%%count)))
LIST seek, 1,%%spin_number
END
wait "0.2"
rem dialog set,box1,@item(1)
dialog focus,statis
GOSUB window-names
dialog enable,winnumber
goto evloop
rem ---->----->----->----->----->----->----->----->----->----->----->----->--- WINDOW NAMES
:window-names
dialog clear,message
dialog set,mycomptitle,Online Help Messages
rem ----- Window Class Below ------
IF @dlgtext(box1)
%%dlgtext_name = @dlgtext(box1)
%%class_name = @WINCLASS(%%dlgtext_name)
wait "0.2"
%p = @POS(\,%%dlgtext_name)
IF @equal(%p,3)
%S = @substr(%%dlgtext_name,1,45)
dialog title,OnLine Information
%%my_computer = @FILL(8,,L)My Computer @FILL(18,,L) RealName@FILL(2,,L)"="@FILL(2,,L)%%class_name@CR()@CR()@CR()@CR()NOTE":"@CR()This is actually a @FILL(2,,L)"'"My Computer"'"@FILL(2,,L) window that is currently opened.
dialog set,message,%%my_computer
dialog title,"Window Scrutinizer v1.0"
%%class_name = My Computer
END
dialog set,classbox,%%class_name
END
rem ----- Window Identifier Below ------
IF @dlgtext(box1)
%%dlgtext_name = @dlgtext(box1)
%%identifier_name = @WINEXISTS(%%dlgtext_name)
wait "0.2"
dialog set,identifierbox,%%identifier_name
END
rem ----- Window Status Below ------
IF @dlgtext(box1)
%%dlgtext_name = @dlgtext(box1)
%%status_number = @WINPOS(%%dlgtext_name,S)
wait "0.2"
END
dialog set,statusbox,Unknown
IF @equal(@dlgtext(classbox),My Computer)
IF @equal(%%status_number,1)
%%status_name = Normal
END
IF @equal(%%status_number,2)
%%status_name = Iconized
END
IF @equal(%%status_number,3)
%%status_name = Maximized
END
dialog set,statusbox,%%status_name
END
IF @equal(@dlgtext(classbox),IEFrame)
IF @equal(%%status_number,1)
%%status_name = Normal
END
IF @equal(%%status_number,2)
%%status_name = Iconized
END
IF @equal(%%status_number,3)
%%status_name = Maximized
END
dialog set,statusbox,%%status_name
%%online_help = @FILL(3,,L)Internet Explorer Window @FILL(11,,L) RealName@FILL(2,,L)"="@FILL(2,,L)%%class_name@CR()@CR()@CR()@CR()@FILL(4,,L)NOTE":"@CR()@FILL(4,,L)HTML URL Related Window that is currently opened.
dialog set,message,%%online_help
END
EXIT
rem -------------------------------------------------------------------------- REFRESH list
:Refresh WinListMENU
:refreshlistBUTTON
LIST clear, 1
LIST clear, 2
dialog clear,box1
LIST clear,box1
wait "0.3"
LIST WINLIST, 2
LIST Append, 1, 2
wait "0.2"
If @ZERO(@index(1))
LIST delete, 1
END
%%list_total = @count(1)
%%count_hint = A total of @count(1) are currently Running..
dialog remove,winnumber
DIALOG ADD,spin,winnumber,6,517,40,15,1|%%list_total,1,,click,NOEDIT
rem wait 5
wait "0.2"
dialog clear,box1
wait "0.2"
dialog set,box1,@item(1)
LIST append,box1,@text(1)
rem LIST Append,box1, 1
dialog set,message,@FILL(5,,L)Successfully Refreshed the Windows task List Box "..."
dialog set,spintotal2,@FILL(1,,L)@pred(@count(1))
goto evloop
:cancelBUTTON
:closeMENU
:close
%%settings_ini = %%install_folder""\settings.ini
INIFILE OPEN,%%settings_ini
%%delete_log_ini_file_when_exit_statis = @iniread(log,statis)
INIFILE CLOSE
IF @equal(%%delete_log_ini_file_when_exit_statis,Delete LOG.INI on Program Exit)
FILE delete,%%url_log_save_ini_file
%%counter = 1
REPEAT
%%counter = @SUM(%%counter,1)
wait "0.3"
dialog set,message,The LOG INI File was Deleted during EXIT.
wait "0.4"
dialog title,The LOG INI File was Deleted"..."
wait "0.3"
dialog clear,message
wait "0.3"
dialog set,message,The LOG INI File was Deleted during EXIT.@CR()@CR()@CR()@CR()You can Change this in the Settings MENU
wait "0.4"
dialog title, @FILL(2,,L)
UNTIL @greater(%%counter,3)
END
LIST close,1
LIST close,2
LIST close,3
LIST close,4
LIST close,5
LIST close,6
exit
|
|
|
Back to top |
|
|
FreezingFire Admin Team
Joined: 23 Jun 2002 Posts: 3508
|
Posted: Fri Nov 26, 2004 2:14 pm Post subject: |
|
|
Wow!! That's one beefy script. Nice job. _________________ FreezingFire
VDSWORLD.com
Site Admin Team |
|
Back to top |
|
|
filip Valued Contributor
Joined: 07 Aug 2004 Posts: 340
|
Posted: Fri Nov 26, 2004 4:58 pm Post subject: |
|
|
What this program do ?
I dont see any thing when trying to run it
only (running) in the status thats all... |
|
Back to top |
|
|
vtol Valued Contributor
Joined: 05 Feb 2004 Posts: 642 Location: Eastern Indiana
|
Posted: Wed Dec 01, 2004 1:42 am Post subject: |
|
|
Thanks FF, seems like I allways want beefy programs, maybe I'm greedy - lol
But this one was one I had done months ago and intended on donating it here, then my dad was mortally wounded in a freak accident, kinda devisated me for awhile, with helping mom and the farm and everything, I simply forgot all about 'Window Scrutinizer'.
So its kinda without support, just donated as free, hoping to help new people by way of example of things I learned here.
Window Scrutinizer is simply a toy I made to play around with windows, more of a experiment if you will, but its not much as far as being needed for anything. Maybe someone will get something out of it worth while.
As far as not running at all 'Filip', I would guess it would have to be something simple at the start of the program, just tinker with it,I'm sure you can get it running. I tried it on 2 or 3 comps here, it worked fine.
regards |
|
Back to top |
|
|
vdsalchemist Admin Team
Joined: 23 Oct 2001 Posts: 1448 Location: Florida, USA
|
Posted: Wed Dec 01, 2004 1:38 pm Post subject: |
|
|
vtol,
This seems like a neat little toy but may I suggest something? You might in the furture use a TAB element. The GUI is way too busy and has too many options. At first sight I thought it was one of the VDS Demo's that show all the different VDS elements on 1 dialog It just gets a little confusing for us simple minded people. _________________ Home of
Give VDS a new purpose!
|
|
Back to top |
|
|
Garrett Moderator Team
Joined: 04 Oct 2001 Posts: 2149 Location: A House
|
Posted: Wed Dec 01, 2004 4:01 pm Post subject: |
|
|
I made something similar to this a while back called the "Windows
Poking Stick" WiPoStick for short.
It was rather fun to play with this and cause other programs to freak
out, as well as making the system freak out by trying things that I
shouldn't. _________________ 'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
Back to top |
|
|
Serge Professional Member
Joined: 04 Mar 2002 Posts: 1480 Location: Australia
|
Posted: Wed Dec 01, 2004 10:32 pm Post subject: |
|
|
great interface garrett
serge _________________
|
|
Back to top |
|
|
vtol Valued Contributor
Joined: 05 Feb 2004 Posts: 642 Location: Eastern Indiana
|
Posted: Thu Dec 02, 2004 3:34 am Post subject: |
|
|
Great Job Garrett - awesome...
Which DLL did you use for the skins?
Yeah, mine was just a learning experience toy that I didnt know what to do with months ago, guess I should have just drug it to the recycle bin. |
|
Back to top |
|
|
Garrett Moderator Team
Joined: 04 Oct 2001 Posts: 2149 Location: A House
|
Posted: Thu Dec 02, 2004 5:42 pm Post subject: |
|
|
Mine was for trying out API calls. Most of the features of this program
are done through the use of API calls.
No, it's not a skin. That's just the Visual Style I'm using with Windows XP.
-Garrett _________________ 'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
Back to top |
|
|
DominiqueB Newbie
Joined: 28 Sep 2004 Posts: 10
|
Posted: Sat Dec 04, 2004 2:05 pm Post subject: Hello, garett |
|
|
any way to get your prog WiPoStick, it seem's of great utility for us.
Thank's
Dominique |
|
Back to top |
|
|
vtol Valued Contributor
Joined: 05 Feb 2004 Posts: 642 Location: Eastern Indiana
|
Posted: Tue Dec 07, 2004 7:03 am Post subject: |
|
|
Garrett wrote: |
No, it's not a skin. That's just the Visual Style I'm using with Windows XP. |
Oh, you mean thats how it looks on your WindowsXP, I have mine set for all Classic look, can't tell its not Win98se, lol
Were the style settings to enable that XP look very complicated?(I realized I about my classic settings, just curious). |
|
Back to top |
|
|
Garrett Moderator Team
Joined: 04 Oct 2001 Posts: 2149 Location: A House
|
Posted: Tue Dec 07, 2004 3:28 pm Post subject: |
|
|
Just stick with the classic style. Using other styles takes up resources and
can slow your system down. I've since gone back to the classic style also.
-Garrett _________________ 'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
Back to top |
|
|
Garrett Moderator Team
Joined: 04 Oct 2001 Posts: 2149 Location: A House
|
Posted: Tue Dec 07, 2004 3:34 pm Post subject: |
|
|
Sorry, forgot to mention that you need either a program such as TGSOFT's
StyleXP to use other styles, or you can get a patched uxtheme.dll which
will also allow you to use other styles. I used the patched uxtheme.dll
here because StyleXP is shareware and I couldn't afford to buy it. The
difference is that StyleXP allows you to add, remove and preview styles
through an interface.
-Garrett _________________ 'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You can attach files in this forum You can download files in this forum
|
|