au3scr Posted February 27, 2008 Posted February 27, 2008 Hi I have problem with changing background for GUI . Problem is that i can change background image for GUI only once, and if I try to change it again , then nothing happens. hope anyone could help here expandcollapse popup;~ Opt("OnExitFunc", "endscript") AutoItSetOption ( "GUICloseOnESC" ,0 ) #include <GUIConstants.au3> #Include <WinAPI.au3> #include <WindowsConstants.au3> global $pass = FileReadLine(@ScriptDir & "\settings",1) global $background = "Z:\My Documents\lol11.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) $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) $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 ) $Pic1 = 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 () 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:","", "(*.*)") $open = FileRead ($path) GUICtrlDelete($Pic1) $pic = GUICtrlCreatePic($path, 0, 0, @DesktopWidth, @DesktopHeight - 15, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) 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
DjDeep00 Posted February 27, 2008 Posted February 27, 2008 Try this... expandcollapse popupglobal $pass = FileReadLine(@ScriptDir & "\settings",1) global $background = "c:\.green.JPG" #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("FluxBox", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP) GUISetBkColor(0x3A6EA5) Global $pic = GUICtrlCreatePic("", 0, 0, @DesktopWidth, @DesktopHeight - 15, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUICtrlSetState($pic,@SW_DISABLE) $MenuItem0 = GUICtrlCreateMenu("Programs") $MenuItem01 = GUICtrlCreateMenuItem("Firefox", $MenuItem0) $MenuItem02 = GUICtrlCreateMenuItem("Notepad", $MenuItem0) $MenuItem03 = GUICtrlCreateMenuItem("7-Zip", $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) $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 ) $Pic1 = 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 () 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 = "crap" 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
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