Jump to content

Scite Addon sort of while scripting mod


testingtest
 Share

Recommended Posts

Opt("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

Posted Image

Link to comment
Share on other sites

Opt("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

Posted Image

Didn't work again due to Chinese OS, but yet great desktop pic lol.
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...