torels |
|
| Ciao a tutti! Ho fatto uno script (poi compilato) che consente di eseguire gli script anche se non sono salvati... Il motivo di questo programma nasce dall'enorme rottura di balle che deriva dal bisogno di salvare gli script (magari anche solo degli snippet trovati online) per poterli eseguire. Per funzionare pero' ha bisogno di un piccolo codice inserito in SciTeGlobal.Properties dello SciTE4AutoIt: CODICE command.name.0.*=Instant Run
command.0.*="C:programmiAutoIt3SciTEInstantRun.exe" Questo è lo script: CODICE #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:ProgrammiAutoIt3Iconsfiletype1.ico
#AutoIt3Wrapper_outfile=C:ProgrammiAutoIt3SciTEInstantRun.exe
#AutoIt3Wrapper_Res_Comment=run au3files without saving them
#AutoIt3Wrapper_Res_Description=run au3files without saving them
#AutoIt3Wrapper_Res_Fileversion=1.0.0.6
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=Gnu GPL
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;scite tool: run without saving the script :) - torels_
#include <file.au3>
$file = _TempFile(@TempDir,"~",".au3")
$oldclip = ClipGet()
FileOpen($file,2)
FileWrite($file,_ReadScite())
FileClose($file)
$AutoItProdexePath = RegRead("HKEY_LOCAL_MACHINESOFTWAREAutoIt v3AutoIt", "InstallDir")
$AutoItexePath = $AutoItProdexePath
RunWait('"' & $AutoItexePath & 'AutoIt3.exe "' & ' "' & $file & '"')
FileDelete($file)
ClipPut($oldclip)
Func _ReadScite()
Opt("WinTitleMatchMode", 4)
; Read text from SciTE (already open)
WinWait("[CLASS:SciTEWindow; INSTANCE:1]")
$hSciTE = WinGetHandle("[CLASS:SciTEWindow; INSTANCE:1]")
WinActivate($hSciTE)
WinWaitActive($hSciTE)
ControlFocus($hSciTE, "", "[CLASS:Scintilla; INSTANCE:1]")
ControlSend($hSciTE, "", "[CLASS:Scintilla; INSTANCE:1]", "^a")
ControlSend($hSciTE, "", "[CLASS:Scintilla; INSTANCE:1]", "^c")
ControlSend($hSciTE, "", "[CLASS:Scintilla; INSTANCE:1]", "{left}")
return ClipGet()
EndFunc Dovrete Accontentarvi di compilarlo nella directory dello scite xk il forum nn mi fa caricare eseguibili |
| | |
