AutoHotkey Community

#SingleInstance
;takes any highlighted text and creates a temporary script from it
;This lets you select cool functions from the AHK forum and run them right away
;It also should let you run text from any program.
;
;By Branden Gunn - engunneer _AT_ gmail _DOT_ com


;Keys:
;F12: run highlighted text as an ahk script
;Shift F12: Save the highlighted text and open
;   it in your default editor - when the editor
;   is closed, the script will start
;Alt F12: Open a dialog box to save the last temporary script to somewhere else
;   this will automatically add an ahk extension if you forget to do it yourself

F12::    ;run highlighted text
  clipboardsaver = ClipboardAll
  Send, ^c
  ifExist temp.ahk
    Filedelete temp.ahk
  FileAppend, %Clipboard%`n, temp.ahk
  Clipboard = clipboardsaver
  clipboardsaver =
  run, temp.ahk
Return

+F12::  ;edit then run
  clipboardsaver = ClipboardAll
  Send, ^c
  ifExist temp.ahk
    Filedelete temp.ahk
  FileAppend, %Clipboard%`n, temp.ahk
  Clipboard = clipboardsaver
  clipboardsaver =
  runwait, edit temp.ahk
  run, temp.ahk
Return

!F12::   ;save last script
IfExist temp.ahk
{
  ;ask user where to copy temp.ahk to
  FileSelectFile, destination, S16, , Where do you want to place this awesome script?, Autohotkey Scripts (*.ahk)
  If ERRORLEVEL
    Msgbox, Script not saved
  Else
  {
    IfNotInString, destination, .ahk
      destination = %destination%.ahk   
    FileCopy, temp.ahk, %destination%, 1
  }
}
Return

#SingleInstance
#NoTrayIcon
SetWorkingDir, %A_Temp%
ClipSaved =
ScriptText =

F12::      ; F12 only: Run highlighted text
  ControlGetText, URL, Edit1, ahk_class IEFrame
  ClipSaved := ClipboardAll
  Send, ^c
  ifExist AHKscript.ahk
    FileDelete AHKscript.ahk
  ScriptText = `; %URL%`r`n`; `r`n%Clipboard%
  FileAppend, %ScriptText%`r`n, AHKscript.ahk
  Clipboard := ClipSaved
  ClipSaved =
  ScriptText =
  run, AHKscript.ahk
Return

+F12::     ; Shift+F12: Edit then run
  ControlGetText, URL, Edit1, ahk_class IEFrame
  ClipSaved := ClipboardAll
  Send, ^c
  ifExist AHKscript.ahk
    FileDelete AHKscript.ahk
  ScriptText = `; %URL%`r`n`; `r`n%Clipboard%
  FileAppend, %ScriptText%`r`n, AHKscript.ahk
  Clipboard := ClipSaved
  ClipSaved =
  ScriptText =
  runwait, edit AHKscript.ahk
  run, AHKscript.ahk
Return

!F12::     ; Alt+F12: Save last script
IfExist AHKscript.ahk
{
  FileSelectFile, destination, S16, %A_Desktop%, Save Script:, Autohotkey Scripts (*.ahk)
  If ERRORLEVEL
    Msgbox, Script not saved.
  Else
  {
    IfNotInString, destination, .ahk
      destination = %destination%.ahk   
    FileCopy, AHKscript.ahk, %destination%, 1
  }
}
Return

#SingleInstance
#NoTrayIcon
SetWorkingDir, %A_Temp%
ClipSaved =
Emergency_Exit = ^#!q::ExitApp `; DELETE - This line added by Script Capture System

F12::      ; F12 only: Run highlighted text
  ControlGetText, URL, Edit1, ahk_class IEFrame
  ClipSaved := ClipboardAll
  Send, ^c
  ifExist AHKscript.ahk
    FileDelete AHKscript.ahk
  FileAppend, `; %URL%`r`n`; `r`n%Clipboard%`r`n`r`n%Emergency_Exit%`r`n, AHKscript.ahk
  Clipboard := ClipSaved
  ClipSaved =
  run, AHKscript.ahk
Return

+F12::     ; Shift+F12: Edit then run
  ControlGetText, URL, Edit1, ahk_class IEFrame
  ClipSaved := ClipboardAll
  Send, ^c
  ifExist AHKscript.ahk
    FileDelete AHKscript.ahk
  FileAppend, `; %URL%`r`n`;`r`n%Clipboard%`r`n`r`n%Emergency_Exit%`r`n, AHKscript.ahk
  Clipboard := ClipSaved
  ClipSaved =
  runwait, edit AHKscript.ahk
  run, AHKscript.ahk
Return

!F12::     ; Alt+F12: Save last script
IfExist AHKscript.ahk
{
  FileSelectFile, destination, S16, %A_Desktop%, Save Script:, Autohotkey Scripts (*.ahk)
  If ERRORLEVEL
    Msgbox, Script not saved.
  Else
  {
    IfNotInString, destination, .ahk
      destination = %destination%.ahk   
    FileCopy, AHKscript.ahk, %destination%, 1
  }
}
Return

^#!r::   ; CTRL+Win+Alt+r: Reset THIS script if something goes wrong
Reload
Sleep, 5000
MsgBox, Unable to Reload Script
Return

msgbox, 20, ,
(LTrim
   -------------------
   %TempScript%
   -------------------

   Run script now?
)

msgbox, 20, ,
(LTrim
   Run script now?
)

StringLeft, TempScript_view, TempScript, 3019
msgbox, 20, ,
(LTrim
   -------------------
   %TempScript_view%
   -------------------

   Run script now?
)
TempScript_view=

;            =====================================================
;             RUN | EDIT-RUN | SAVE HIGHLIGHTED SCRIPT FROM FORUM
;            =====================================================
;
; Author:    Shannon D Gerton - November 10, 2006; December 4, 2006
;            Code snippets borrowed from Branden Gunn
;            http://www.autohotkey.com/forum/viewtopic.php?p=88842
;
;            ==========
;             Hot Keys
;            ==========
;
; F12:       Run highlighted text as AHKscript.ahk.
;
; Shift+F12: Save highlighted text / open in your default editor.
;            When the editor is closed, the script will start.
;
; Alt+F12:   Open a dialog box to save the last temporary script.
;            Automatically add an ahk extension if you forget to.
;
; CTRL+F12:  Open a dialog box to save the highlighted script.
;            Automatically add an ahk extension if you forget to.
;              --Done WITHOUT running the script at all.
;
; CTRL+Win+Alt+r will Reset THIS script if something goes wrong.
;
; CTRL+Win+Alt+q is added to the copied script as an emergency exit.
;           
;            =====================================================

#SingleInstance
#NoTrayIcon
SetWorkingDir, %A_Temp%
ClipSaved =
Backdoor_Out = ^#!q::ExitApp `; DELETE - This line added by Script Capture System

F12::      ; F12 only: Run highlighted text
  ControlGetText, URL, Edit1, ahk_class IEFrame
  ClipSaved := ClipboardAll
  Send, ^c
  ifExist AHKscript.ahk
    FileDelete AHKscript.ahk
  FileAppend, `; %URL%`r`n`; `r`n%Clipboard%`r`n`r`n%Backdoor_Out%`r`n, AHKscript.ahk
  Clipboard := ClipSaved
  ClipSaved =
  run, AHKscript.ahk
Return

+F12::     ; Shift+F12: Edit then run
  ControlGetText, URL, Edit1, ahk_class IEFrame
  ClipSaved := ClipboardAll
  Send, ^c
  ifExist AHKscript.ahk
    FileDelete AHKscript.ahk
  FileAppend, `; %URL%`r`n`;`r`n%Clipboard%`r`n`r`n%Backdoor_Out%`r`n, AHKscript.ahk
  Clipboard := ClipSaved
  ClipSaved =
  runwait, edit AHKscript.ahk
  run, AHKscript.ahk
Return

!F12::     ; Alt+F12: Save last script
IfExist AHKscript.ahk
{
  FileSelectFile, destination, S16, %A_Desktop%, Save Script:, Autohotkey Scripts (*.ahk)
  If ERRORLEVEL
    Msgbox, Script not saved.
  Else
  {
    IfNotInString, destination, .ahk
      destination = %destination%.ahk   
    FileCopy, AHKscript.ahk, %destination%, 1
  }
}
Return

^F12::     ; CTRL+F12: Save only
ControlGetText, URL, Edit1, ahk_class IEFrame
  ClipSaved := ClipboardAll
  Send, ^c
  ifExist AHKscript.ahk
    FileDelete AHKscript.ahk
  FileAppend, `; %URL%`r`n`; `r`n%Clipboard%`r`n`r`n%Backdoor_Out%`r`n, AHKscript.ahk
  Clipboard := ClipSaved
  ClipSaved =
  IfExist AHKscript.ahk
    {
    FileSelectFile, destination, S16, %A_Desktop%, Save Script:, Autohotkey Scripts (*.ahk)
    If ERRORLEVEL
      Msgbox, Script not saved.
    Else
    {
      IfNotInString, destination, .ahk
        destination = %destination%.ahk   
      FileCopy, AHKscript.ahk, %destination%, 1
    }
  }
Return

^#!r::   ; CTRL+Win+Alt+r: Reset THIS script if something goes wrong
Reload
Sleep, 5000
MsgBox, Unable to Reload Script
Return

^+c::
 SetWorkingDir, D:\My Documents\Settings\AutoHotkey\temp\
 clipboard =
 sleep 200
 Send, ^c
 ;clipboard = %clipboard%
 sleep 200
 script = %clipboard%
 SetTitleMatchMode, 2
 IfWinActive,Mozilla Firefox
 {
  soundbeep, 1000, 100
  Send {F6}
  Send {CTRL Down}c{CTRL Up}     
  Send {F6} 
  sleep 200
  URL = %clipboard%
 }
 IfWinActive, Internet Explorer
 {
  soundbeep, 2000, 100
  sleep 100
  soundbeep, 2000, 100
  Send {F4}
  Send, ^c     
  Send {F4} 
  sleep 200
  URL = %clipboard%
 }
 WinGetActiveTitle, App
 
 header1 = `;`n`; Automatically generated script`r`n`;`n
 header2 = #NoEnv`r`n#singleinstance force`r`nsendmode Input`r`n`n`;---- copied script body ----`r`n`n
 scriptname = %A_Now%.ahk
 FileAppend, %header1%`; ..Copied from:`r`n;   %URL%`r`n`;   %App%`r`n`;   On: %A_YYYY%.%A_MM%.%A_DD% %A_HOUR%:%A_MIN%:%A_SEC%`r`n`;`r`n%header2%%script%`r`n, %scriptname%
 sleep 500
 run, %scriptname%
 run, edit %scriptname%
return
/* example - select the following line and hit ^+c
msgbox, %A_ScriptDir%\%A_ScriptName%
*/

;
; Automatically generated script
;
; ..Copied from:
;   http://www.autohotkey.com/forum/viewtopic.php?p=93944#93944
;   run scripts directly from the forum! - Mozilla Firefox
;   On: 2006.12.13 06:16:28
;
#NoEnv
#singleinstance force
sendmode Input

;---- copied script body ----

msgbox, %A_ScriptDir%\%A_ScriptName%

Gui, Add, Edit,% "vEdit w" A_ScreenWidth//1.5 " h" A_ScreenHeight//2
Gui, Add, Button, Default, Save
Gui, Add, Button, x+20 wp, Run
return

OnClipboardChange:
 WinWaitActive, ahk_class #32770, Code copied to clipboard., 5
 If ErrorLevel
  return
 WinClose
 WinGetActiveTitle, title
 GuiControl,,Edit, %Clipboard%
 Gui, Show
return

ButtonRun:
ButtonSave:
 Gui, Submit
 Loop {
  num := A_Index=1 ? "":" (" A_Index ")"
  path := A_Desktop "\" title num ".ahk"
  IfNotExist, %path%
   break
 }
 FileAppend, %Edit%, %path%

 If A_ThisLabel = ButtonRun
  Run, %path%
return