forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Window Scrutinizer

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 5 Source Code
View previous topic :: View next topic  
Author Message
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 622
Location: Indiana

PostPosted: Fri Nov 26, 2004 5:02 am    Post subject: Window Scrutinizer Reply with quote



Window Scrutinizer by vtol - enjoy... Cool

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
View user's profile Send private message Visit poster's website AIM Address
FreezingFire
Admin Team


Joined: 23 Jun 2002
Posts: 3508

PostPosted: Fri Nov 26, 2004 2:14 pm    Post subject: Reply with quote

Wow!! That's one beefy script. Nice job. Smile
_________________
FreezingFire
VDSWORLD.com
Site Admin Team
Back to top
View user's profile Send private message Visit poster's website
filip
Valued Contributor
Valued Contributor


Joined: 07 Aug 2004
Posts: 340

PostPosted: Fri Nov 26, 2004 4:58 pm    Post subject: Reply with quote

What this program do ?

I dont see any thing when trying to run it
only (running) in the status thats all...
Back to top
View user's profile Send private message Send e-mail
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 622
Location: Indiana

PostPosted: Wed Dec 01, 2004 1:42 am    Post subject: Reply with quote

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 Smile
Back to top
View user's profile Send private message Visit poster's website AIM Address
vdsalchemist
Admin Team


Joined: 23 Oct 2001
Posts: 1448
Location: Florida, USA

PostPosted: Wed Dec 01, 2004 1:38 pm    Post subject: Reply with quote

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 Wink It just gets a little confusing for us simple minded people.

_________________
Home of

Give VDS a new purpose!
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
Garrett
Moderator Team


Joined: 04 Oct 2001
Posts: 2149
Location: A House

PostPosted: Wed Dec 01, 2004 4:01 pm    Post subject: Reply with quote

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.)
Necroprogramming FTW! - "Wait.. Is necroprogramming legal?"
http://www.freewarehome.com <-- Freeware listings since 1996
Back to top
View user's profile Send private message
Serge
Professional Member
Professional Member


Joined: 04 Mar 2002
Posts: 1480
Location: Australia

PostPosted: Wed Dec 01, 2004 10:32 pm    Post subject: Reply with quote

great interface garrett Smile

serge

_________________
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 622
Location: Indiana

PostPosted: Thu Dec 02, 2004 3:34 am    Post subject: Reply with quote

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. Laughing
Back to top
View user's profile Send private message Visit poster's website AIM Address
Garrett
Moderator Team


Joined: 04 Oct 2001
Posts: 2149
Location: A House

PostPosted: Thu Dec 02, 2004 5:42 pm    Post subject: Reply with quote

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.)
Necroprogramming FTW! - "Wait.. Is necroprogramming legal?"
http://www.freewarehome.com <-- Freeware listings since 1996
Back to top
View user's profile Send private message
DominiqueB
Newbie


Joined: 28 Sep 2004
Posts: 10

PostPosted: Sat Dec 04, 2004 2:05 pm    Post subject: Hello, garett Reply with quote

any way to get your prog WiPoStick, it seem's of great utility for us.

Thank's

Dominique
Back to top
View user's profile Send private message
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 622
Location: Indiana

PostPosted: Tue Dec 07, 2004 7:03 am    Post subject: Reply with quote

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). Smile
Back to top
View user's profile Send private message Visit poster's website AIM Address
Garrett
Moderator Team


Joined: 04 Oct 2001
Posts: 2149
Location: A House

PostPosted: Tue Dec 07, 2004 3:28 pm    Post subject: Reply with quote

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.)
Necroprogramming FTW! - "Wait.. Is necroprogramming legal?"
http://www.freewarehome.com <-- Freeware listings since 1996
Back to top
View user's profile Send private message
Garrett
Moderator Team


Joined: 04 Oct 2001
Posts: 2149
Location: A House

PostPosted: Tue Dec 07, 2004 3:34 pm    Post subject: Reply with quote

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.)
Necroprogramming FTW! - "Wait.. Is necroprogramming legal?"
http://www.freewarehome.com <-- Freeware listings since 1996
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 5 Source Code All times are GMT
Page 1 of 1

 
Jump to:  
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




Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group