testingtest Posted June 15, 2007 Share Posted June 15, 2007 expandcollapse popupOpt("WinWaitDelay",100) Opt('WintitleMatchMode',4) HotKeySet("{HOME}", "HideItAll") Global $HIDE = 0 , $Window = "C:\Documents and Settings\Administrator\Desktop\"&@ScriptName&" - SciTE" ;Window Checking Start If Not WinExists($Window , "Source") Then MsgBox(0 , "window not open" , "open this script with scite then run it") Exit Else AutoItSetOption("OnExitFunc" , "_Exit") EndIf ;Window Checking End ;Trans Start $Trans = WinSetTrans("" , "" , InputBox("Trans" , "Enter the transparenty settings" & @CRLF & "0 = Invisable" & @CRLF & "255 = Solid" , 180)) If $Trans = "" Then MsgBox(0 , "" , "Exiting...") Exit EndIf ;Trans End HideItAll() ; hide icons Send("{ALTDOWN}FN{ALTUP}") ;opens a new tab for scripting While 1 If $HIDE = 1 then WinSetState("Program Manager", "", @SW_HIDE) Else WinSetState("Program Manager", "", @SW_SHOW) Endif Wend Func HideItAll() $HIDE = Not $HIDE EndFunc Func _Exit() ; $Msg = MsgBox(4 , "" , "do you want to restore desktop before Exiting...") ;Select ;Case $Msg = 6 ; HideItAll() ;EndSelect If $HIDE = 1 Then WinSetState("Program Manager", "", @SW_SHOW) EndFunc Link to comment Share on other sites More sharing options...
Generator Posted June 15, 2007 Share Posted June 15, 2007 expandcollapse popupOpt("WinWaitDelay",100) Opt('WintitleMatchMode',4) HotKeySet("{HOME}", "HideItAll") Global $HIDE = 0 , $Window = "C:\Documents and Settings\Administrator\Desktop\"&@ScriptName&" - SciTE" ;Window Checking Start If Not WinExists($Window , "Source") Then MsgBox(0 , "window not open" , "open this script with scite then run it") Exit Else AutoItSetOption("OnExitFunc" , "_Exit") EndIf ;Window Checking End ;Trans Start $Trans = WinSetTrans("" , "" , InputBox("Trans" , "Enter the transparenty settings" & @CRLF & "0 = Invisable" & @CRLF & "255 = Solid" , 180)) If $Trans = "" Then MsgBox(0 , "" , "Exiting...") Exit EndIf ;Trans End HideItAll() ; hide icons Send("{ALTDOWN}FN{ALTUP}") ;opens a new tab for scripting While 1 If $HIDE = 1 then WinSetState("Program Manager", "", @SW_HIDE) Else WinSetState("Program Manager", "", @SW_SHOW) Endif Wend Func HideItAll() $HIDE = Not $HIDE EndFunc Func _Exit() ; $Msg = MsgBox(4 , "" , "do you want to restore desktop before Exiting...") ;Select ;Case $Msg = 6 ; HideItAll() ;EndSelect If $HIDE = 1 Then WinSetState("Program Manager", "", @SW_SHOW) EndFunc Didn't work again due to Chinese OS, but yet great desktop pic lol. Link to comment Share on other sites More sharing options...
testingtest Posted June 15, 2007 Author Share Posted June 15, 2007 Didn't work again due to Chinese OS, but yet great desktop pic lol.well what it does is hide your desktop icons and sets the trans on scite so you can get even more distracted while coding Link to comment Share on other sites More sharing options...
testingtest Posted June 15, 2007 Author Share Posted June 15, 2007 I know it is basic but still no one interested. I would also like to see how you guys code like if you made any mods for coding purposes Link to comment Share on other sites More sharing options...
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