*quick Script Tester*

[ConsultingJoe]

I made this because I am lazy. I am sick of copying someones script from the forum and pasting it into the editor then running it from there.

This script avoids all that. All you do is select the script text, and hit F2. Esc exits.

When you hit F2 it will not mess up your original clipboard text, it will run the selected text even if it's compiled.

Tell me what you think guys

Thanks Valuater For the wapper

CODE

HotKeySet( "{f2}", "quitrun")

HotKeySet( "{esc}", "quit")

$file = @TempDir & "\QS.au3"

While 1

Sleep(250)

WEnd

Func quitrun()

FileDelete($file)

$original = ClipGet()

ClipPut("")

Send( "{ctrldown}")

Send("c")

Send("{ctrlup}")

Sleep(50)

$script = ClipGet()

If $script = "" Then

TrayTip("", "No Script Selected", 1, 16)

Else

FileWrite($file, $script)

If @Compiled = 1 Then

$file_exe = FileGetShortName(@AutoItExe & ' /AutoIt3ExecuteScript "' & $file & '"')

Run($file_exe)

Else

Run(@AutoItExe & " " & $file, "", @SW_HIDE)

EndIf

EndIf

ClipPut($original)

EndFunc ;==>quitrun

Func quit()

FileDelete($file)

Send("{ctrlup}")

Exit

EndFunc ;==>quit

[RazerM]

when i paste this into scite it appears all on line 1(same with notepad). So i had to fix it. Anyway i hate pasting scripts and saving them aswell. This is very useful. Well done

edit: It cant find GUIConstants.au3 and most likely other includes aswell. A message box appears with the error

Edited April 13, 2006 by RazerM