Achilles Posted March 1, 2008 Posted March 1, 2008 My definition of the taskbar is the bar on the bottom of your screen (usually) that contains the Start button as well as quick launch icons, open windows and tray icons... Is that what you mean? My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]
au3scr Posted March 2, 2008 Author Posted March 2, 2008 I meant iti want display these items in my gui
Swift Posted March 2, 2008 Posted March 2, 2008 It someone knows how to do this, this would also be helpful for me!
Achilles Posted March 2, 2008 Posted March 2, 2008 The task bar is not one type of object. It's practically a whole GUI in of itself. You'll need buttons and labels and lots of programming to make it work right. My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]
au3scr Posted March 3, 2008 Author Posted March 3, 2008 Can anyone say me then how i can make list of opened windows and how to do that when i click on window name at list then it restores and activates the window?I need method to code taskbar or some thing that works like taskbar
Th0r Posted March 3, 2008 Posted March 3, 2008 I'll suggest you use samurize to this sort of utility. http://www.samurize.com/modules/news/Download samurize and add the wanted icon and place an empty textfield over it that links to the application. It's not that difficult. You just have to explore the gui.
au3scr Posted March 3, 2008 Author Posted March 3, 2008 I am making script, that must disable access to things that I don't allow to use. I planned it as desktop environment, but it's hard to use without taskbar. Here is my work that i already have expandcollapse popup;~ Opt("OnExitFunc", "endscript") AutoItSetOption ( "GUICloseOnESC" ,0 ) #include <GUIConstants.au3> #Include <WinAPI.au3> #include <WindowsConstants.au3> $def = FileReadLine (@ScriptDir & "\settings",1) If $def = "Rebindall" Then Defaults () EndIf global $pass = FileReadLine(@ScriptDir & "\settings",1) global $background = "Z:\My Documents\66.jpg" #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("FluxBox", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP) GUISetBkColor(0x3A6EA5) $MenuItem0 = GUICtrlCreateMenu("Programs") $MenuItem01 = GUICtrlCreateMenuItem("Firefox", $MenuItem0) $MenuItem02 = GUICtrlCreateMenuItem("Notepad", $MenuItem0) $MenuItem03 = GUICtrlCreateMenuItem("7-Zip", $MenuItem0) $MenuItem04 = GUICtrlCreateMenuItem("VLC player", $MenuItem0) $MenuItem02 = GUICtrlCreateMenuItem("", $MenuItem0) $MenuItem112 = GUICtrlCreateMenu("Office",$MenuItem0) $MenuItem11211 = GUICtrlCreateMenuItem("Open Office Writer", $MenuItem112) $MenuItem11212 = GUICtrlCreateMenuItem("Open Office Math", $MenuItem112) $MenuItem11213 = GUICtrlCreateMenuItem("Open Office Impress", $MenuItem112) $MenuItem11214 = GUICtrlCreateMenuItem("Open Office Draw", $MenuItem112) $MenuItem11215 = GUICtrlCreateMenuItem("Open Office Calc", $MenuItem112) $MenuItem11216 = GUICtrlCreateMenuItem("Open Office Base", $MenuItem112) $MenuItem11217 = GUICtrlCreateMenuItem("Notepad 2", $MenuItem112) $MenuItem11218 = GUICtrlCreateMenuItem("Word", $MenuItem112) $MenuItem11219 = GUICtrlCreateMenuItem("Excel", $MenuItem112) $MenuItem113 = GUICtrlCreateMenu("Graphics",$MenuItem0) $MenuItem11311 = GUICtrlCreateMenuItem("IrfanView", $MenuItem113) $MenuItem11312 = GUICtrlCreateMenuItem("GIMP-2.0", $MenuItem113) $MenuItem11313 = GUICtrlCreateMenuItem("Paint", $MenuItem113) $MenuItem1 = GUICtrlCreateMenu("Exit") $MenuItem11 = GUICtrlCreateMenuItem("exit", $MenuItem1) $MenuItem12 = GUICtrlCreateMenuItem("Shutdown", $MenuItem1) $MenuItem13 = GUICtrlCreateMenuItem("Restart", $MenuItem1) $MenuItem14 = GUICtrlCreateMenuItem("Log Off", $MenuItem1) $MenuItem2 = GUICtrlCreateMenu("Help") $MenuItem20 = GUICtrlCreateMenuItem("About",$MenuItem2 ) $MenuItem3 = GUICtrlCreateMenu("Administration") $MenuItem30 = GUICtrlCreateMenuItem("Wallpaper",$MenuItem3 ) global $Pic = GUICtrlCreatePic($background, 0, 0, @DesktopWidth, @DesktopHeight - 15, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUICtrlCreateLabel("<Filename cannot be showen> Loaded with following stting:",10,@DesktopHeight - 100, 350,15) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $l1 = GUICtrlCreateLabel("Always On Top: OFF",10,@DesktopHeight - 85, 150,15) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $l2 = GUICtrlCreateLabel("Disable Task Mannager: OFF",10,@DesktopHeight - 70, 200,15) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $l3 = GUICtrlCreateLabel("Kill Explorer.exe: OFF",10,@DesktopHeight - 55, 150,15) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlCreateLabel("Require password on close: ON (Cannot be changed)",10,@DesktopHeight -40, 150,15) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlCreateLabel("Version 0.99",10,@DesktopHeight -115, 150,15) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlCreateLabel(@YEAR & ":" & @MON & ":" & @MDAY ,@DesktopWidth - 150,@DesktopHeight -55, 150,15) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $time = GUICtrlCreateLabel(@HOUR & ":" & @Min & ":" & @sec ,@DesktopWidth - 150,@DesktopHeight -40, 150,15) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) AdlibEnable("Time", 1000) ;~ top () ;~ noexp () ;~ nodm () GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $MenuItem11 ;~ endscript () Exit case $MenuItem01 $load = FileReadLine(@ScriptDir & "\settings",5) Run ($load) case $MenuItem02 $load = FileReadLine(@ScriptDir & "\settings",6) Run ($load) case $MenuItem03 $load = FileReadLine(@ScriptDir & "\settings",7) Run ($load) case $MenuItem11211 $load = FileReadLine(@ScriptDir & "\settings",8) Run ($load) case $MenuItem11212 $load = FileReadLine(@ScriptDir & "\settings",9) Run ($load) case $MenuItem11213 $load = FileReadLine(@ScriptDir & "\settings",10) Run ($load) case $MenuItem11214 $load = FileReadLine(@ScriptDir & "\settings",11) Run ($load) case $MenuItem11215 $load = FileReadLine(@ScriptDir & "\settings",12) Run ($load) case $MenuItem11216 $load = FileReadLine(@ScriptDir & "\settings",13) Run ($load) case $MenuItem11217 $load = FileReadLine(@ScriptDir & "\settings",14) Run ($load) case $MenuItem11218 $load = FileReadLine(@ScriptDir & "\settings",15) Run ($load) case $MenuItem11219 $load = FileReadLine(@ScriptDir & "\settings",16) Run ($load) case $MenuItem12 Shutdown (1) case $MenuItem13 Shutdown (2) case $MenuItem14 Shutdown (0) Case $MenuItem20 MsgBox(64,"Version 0.99","Version 0.99 !" & @CRLF & "Author: rain" & @CRLF & "Relased 23 feb 2008" & @CRLF & "Default settings:" & @CRLF & "Close password = toor " & @CRLF & "All parameters are turned OFF" & @CRLF & " " & @CRLF & "Try hack it" & @CRLF & " " & @CRLF & "History" & @CRLF & "Version 0.97 - help added" & @CRLF & "Version 0.99 - Esc exit bub fixed" & @CRLF & " Able to use wallpaper") Case $MenuItem30 wallpaperset () Case $MenuItem11311 $load = FileReadLine(@ScriptDir & "\settings",18) Run ($load) Case $MenuItem11312 $load = FileReadLine(@ScriptDir & "\settings",19) Run ($load) Case $MenuItem11313 $load = FileReadLine(@ScriptDir & "\settings",20) Run ($load) Case $MenuItem04 $load = FileReadLine(@ScriptDir & "\settings",21) Run ($load) EndSwitch WEnd Func endscript () $Password = InputBox("Enter Password", "You must enter password to close this window", "", "*") ;~ If $Password = $pass Then If $Password = "toor" Then ProcessClose("sticky.exe") ProcessClose("taskmgr.exe") ProcessClose("DisableTaskManager.exe") run("explorer") ProcessClose("flux.exe") Exit Else EndIf EndFunc func top () $top = FileReadLine (@ScriptDir & "\settings",2) If $top = "Yes" Then GUICtrlSetData ($l1,"Always On Top: ON") WinSetOnTop("FluxBox","",1) If $top = "NO" Then GUICtrlSetData ($l1,"Always On Top: OFF") ;~ ElseIf ;~ GUICtrlSetData ($l1,"Always On Top: OFF") EndIf EndIf EndFunc func noexp () $noexp = FileReadLine (@ScriptDir & "\settings",3) If $noexp = "Yes" Then GUICtrlSetData ($l3,"Kill Explorer.exe: ON") $pid = ProcessExists( "explorer.exe" ) $handle = _WinAPI_OpenProcess(0x1,0,$pid) DllCall("kernel32.dll","int","TerminateProcess","int",$handle,"int",1) run(@scriptdir & "\sticky.exe", @WindowsDir , 1) If $noexp = "No" Then GUICtrlSetData ($l3,"Kill Explorer.exe: OFF") EndIf EndIf EndFunc func nodm () $noexp = FileReadLine (@ScriptDir & "\settings",4) If $noexp = "Yes" Then GUICtrlSetData ($l2,"Disable Task Mannager: ON") run("DisableTaskManager.exe") If $noexp = "no" Then GUICtrlSetData ($l2,"Disable Task Mannager: OFF") ;~ ElseIf ;~ GUICtrlSetData ($l2,"Disable Task Mannager: OFF") EndIf EndIf EndFunc Func wallpaperset () $wallpaperallowordeny = FileReadLine (@ScriptDir & "\settings",17) If $wallpaperallowordeny = "Wallpapers=YES" Then $path = FileOpenDialog("Select wallpaper:","", "(*.*)") If not @error then GUICtrlSetImage ($pic, $path) If $wallpaperallowordeny = "Wallpapers=NO" Then MsgBox (64,"Not allowed","You do not have permission") EndIf EndIf EndFunc func n () sleep(100) msgbox(1,"t","p") EndFunc Func time () $newtime = @HOUR & ":" & @Min & ":" & @sec GUICtrlSetData ($time, $newtime ) EndFunc Func Defaults ($iDelay = 0) Local $sCmdFile FileDelete(@ScriptDir & "\settings") $sCmdFile = 'toor' & @CRLF _ & 'NO' & @CRLF _ & 'YES' & @CRLF _ & 'YES' & @CRLF _ & 'C:\Program Files\Mozilla Firefox\firefox.exe' & @CRLF _ & 'Notepad' & @CRLF _ & @ProgramFilesDir &'\7-Zip\7zFM.exe' & @CRLF _ & @ProgramFilesDir & '\OpenOffice.org 2.3\program\swriter.exe' & @CRLF _ & @ProgramFilesDir &'\OpenOffice.org 2.3\program\smath.exe' & @CRLF _ & @ProgramFilesDir &'\OpenOffice.org 2.3\program\simpress.exe' & @CRLF _ & @ProgramFilesDir &'\OpenOffice.org 2.3\program\sdraw.exe' & @CRLF _ & @ProgramFilesDir &'\OpenOffice.org 2.3\program\scalc.exe' & @CRLF _ & @ProgramFilesDir &'\OpenOffice.org 2.3\program\sbase.exe' & @CRLF _ & @ProgramFilesDir &'\Notepad++\notepad++.exe' & @CRLF _ & 'Word' & @CRLF _ & 'Excel' & @CRLF _ & 'Wallpapers=YES' & @CRLF _ & @ProgramFilesDir &'\IrfanView\i_view32.exe' & @CRLF _ & @ProgramFilesDir&'\GIMP-2.0\bin\gimp-2.4.exe' & @CRLF _ & @SystemDir&'\mspaint.exe' & @CRLF _ & @ProgramFilesDir&'\VideoLAN\VLC\vlc.exe' & @CRLF FileWrite(@ScriptDir & "\settings", $sCmdFile) EndFunc I would like to create menus using text-based configuration file, where I would like to add program name and full path of executable file and all this should go to the GUI menu automatically
au3scr Posted March 4, 2008 Author Posted March 4, 2008 (edited) someone? Know about this? :S If i cant do something,and dont find way to do this...It makes bad feelings and emotions . Edited March 4, 2008 by au3scr
Bert Posted March 5, 2008 Posted March 5, 2008 FOUND IT! http://www.autoitscript.com/forum/index.ph...++iniread++textI knew I saw this somewhere. This shows you how to do what you want. The Vollatran project My blog: http://www.vollysinterestingshit.com/
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now