Sign in to follow this  
Followers 0
testingtest

Scite Addon sort of while scripting mod

4 posts in this topic

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

Share this post


Link to post
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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
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
Sign in to follow this  
Followers 0