Sign in to follow this  
Followers 0
rakudave

CornerLaunch

5 posts in this topic

this script launches the screensaver if you move the mouse to a corner of the screen.

you may choose the "hotspot" in the traymenu...

perhaps anyone can use it... (??)

#Include <Constants.au3>
$sdir = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop","SCRNSAVE.EXE")
$where = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop","cornerlaunch")
if $where = 1 OR $where = -1 then
    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","cornerlaunch","REG_SZ","ur")
    $where = "ur"
endif
if $where <> "ul" AND $where <> "ur" AND $where <> "ll" AND $where <> "lr" then
    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","cornerlaunch","REG_SZ","ur")
    $where = "ur"
endif
Opt("TrayMenuMode",1)

$settingsitem   = TrayCreateMenu("Hot Spots")
$ul = TrayCreateItem("upper-left corner", $settingsitem)
TrayItemSetState(-1,$TRAY_UNCHECKED)
$ur = TrayCreateItem("upper-right corner", $settingsitem)
TrayItemSetState(-1,$TRAY_UNCHECKED)
$ll = TrayCreateItem("lower-left corner", $settingsitem)
TrayItemSetState(-1,$TRAY_UNCHECKED)
$lr = TrayCreateItem("lower-right corner", $settingsitem)
TrayItemSetState(-1,$TRAY_UNCHECKED)
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
select
    case $where = "ul"
        TrayItemSetState($ul,$TRAY_CHECKED)
    case $where = "ur"
        TrayItemSetState($ur,$TRAY_CHECKED)
    case $where = "ll"
        TrayItemSetState($ll,$TRAY_CHECKED)
    case $where = "lr"
        TrayItemSetState($lr,$TRAY_CHECKED)
endselect
TraySetState()

While 1

$mou = MouseGetPos()
    if $mou[0] < 2 AND $mou[1] < 2 AND $where = "ul" then
    runwait($sdir & " /S")
    endif
    if $mou[0] > @desktopwidth -2 AND $mou[1] < 2 AND $where = "ur" then
    runwait($sdir & " /S")
    endif
    if $mou[0] < 2 AND $mou[1] > @desktopheight -2 AND $where = "ll" then
    runwait($sdir & " /S")
    endif
    if $mou[0] > @desktopwidth -2 AND $mou[1] > @desktopheight -2 AND $where = "lr" then
    runwait($sdir & " /S")
    endif
$msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $exititem
            Exit
        case $msg = $ul
            TrayItemSetState($ul,$TRAY_CHECKED)
            TrayItemSetState($ur,$TRAY_UNCHECKED)
            TrayItemSetState($ll,$TRAY_UNCHECKED)
            TrayItemSetState($lr,$TRAY_UNCHECKED)
            $where = "ul"
            RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","cornerlaunch","REG_SZ",$where)
        case $msg = $ur
            TrayItemSetState($ul,$TRAY_UNCHECKED)
            TrayItemSetState($ur,$TRAY_CHECKED)
            TrayItemSetState($ll,$TRAY_UNCHECKED)
            TrayItemSetState($lr,$TRAY_UNCHECKED)
            $where = "ur"
            RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","cornerlaunch","REG_SZ",$where)
        case $msg = $ll
            TrayItemSetState($ul,$TRAY_UNCHECKED)
            TrayItemSetState($ur,$TRAY_UNCHECKED)
            TrayItemSetState($ll,$TRAY_CHECKED)
            TrayItemSetState($lr,$TRAY_UNCHECKED)
            $where = "ll"
            RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","cornerlaunch","REG_SZ",$where)
        case $msg = $lr
            TrayItemSetState($ul,$TRAY_UNCHECKED)
            TrayItemSetState($ur,$TRAY_UNCHECKED)
            TrayItemSetState($ll,$TRAY_UNCHECKED)
            TrayItemSetState($lr,$TRAY_CHECKED)
            $where = "lr"
            RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","cornerlaunch","REG_SZ",$where)
    EndSelect
Wend

Share this post


Link to post
Share on other sites



I can use it to make my sister angry :lmao:


My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

Ill not use it do that now because my father just says no computer in the holidays and i dont want that


My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!

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