ClipRunner

[Minikori]

This is just a simple little script I've been using for a while, so I thought I'd post it. I put it in a thread a while back, but I'll put it in Example Scripts (it's also changed a tad).

Here it is:

Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)
TraySetIcon("shell32.dll", -175)
TraySetToolTip("Clip Runner by Minikori")

$TrayRun = TrayCreateItem("Run Script From Clipboard")
$TrayExit = TrayCreateItem("Exit Program")

TraySetState()
While 1
    $msg = TrayGetMsg()
    If $msg = $TrayRun Then
        $String = ClipGet()
        $File = FileOpen(@TempDir & "\DebugScript.au3", 2)
;~      $Code = StringReplace($String, "#include <", "#include <C:\Program Files\AutoIt3\Include\"); Needed to because it caused errors before
;~      $Code = StringReplace($Code, "#include<", "#include <C:\Program Files\AutoIt3\Include\"); Needed to because it caused errors before
        FileWrite($File, $String)
        FileClose($File)
        ShellExecuteWait(@TempDir & "\DebugScript.au3")
;~      Send("{F5}"); Use if your AutoIT scripts run in SciTE by default. If they do, then you need to run this program outside of SciTE at first
    ElseIf $msg = $TrayExit Then
        FileDelete(@TempDir & "\DebugScript.au3")
        ExitLoop
    EndIf
WEnd
Exit

Just have it running, copy code, and click "Run Script From Clipboard" on the tray icon.

Edited February 1, 2010 by Minikori

[playlet]

---

Edited August 18, 2016 by playlet

[Minikori]

Handy little tool, thanks!

Just a small suggestion that would make it better - you could add a loop which waits until the script ends and then deletes temporary file.

Playlet

Editing first post now...