How to embed script interpretor into autoit

[lsakizada]

I am trying to understand whether its will be possible to embed any script interpretor such as Ruby, perl inside an edit control. Doe's someone did it before with any kind of script interpretor?

I am actually trying to accomplish a tool that would be able to use interpretor inside autoit.

Thanks

Edited February 8, 2007 by lsakizada

[DaleHohm]

Search the forums for "ScriptControl". You'll find examples with Javascript -- same can be done with vbscript and perlscript (if you have activestate installed) and ant other installed languages that support the ActiveX Scripting Specification.

Dale

[lsakizada]

Thanks DaleHohm!

Search the forums for "ScriptControl".

I was aware of the interpreter engine but I did not know it's name.

Yes this certainely can help to embed language scripting into autoit.

I am trying to figure how how to use perl and other scripting engines beside of Jscript and VBScript

since I need multithread environment.

I will be glad If anyone else knows which other script engine can do this job.

[nobbe]

hi

i have done some test with perl too

the perl evalutation code needs to be all in ONE line which is hard to read now

so far i guess its only good for little script helps , but not to integrate BIG perl programs..

if you use a PM Module its not such a problem , can be called from the embedded perl too.

perl and autoit variables can be exchanged now nicely.

more information here

http://thomaslauer.com/comp/Calling_Perl

nobbe

CODE

#include <perl.au3>

If (Not PerlInit ()) Then ; first thing

MsgBox(0, "", "Perl not found...")

; Exit

Else

; my perl variable now..

PerlSetStr ("filename", 'test.wma')

PerlEval ("use Audio::WMA;print ""("";print $filename;print "")\n"";$wma=Audio::WMA->new($filename);$info=$wma->info();$drm=$info->{drm};$tags=$wma->tags();$tt=$tags->{TITLE};$ta=$tags->{AUTHOR};$talb=$tags->{ALBUMTITLE};$t_year=$tags->{YEAR}")

$tta = ps("ta") ; artist

$ttt = ps("tt"); title

$talbum = ps("talb");

$year = ps("t_year");

$tdrm = ps("drm")

MsgBox(0, "From PERL", "artist =" & $tta & @CRLF & "title = " & $ttt & @CRLF & "Album = " & $talbum & @CRLF & "Year = " & $year & @CRLF & "DRM = " & $tdrm & @CRLF)

PerlSetStr ("filename", 'test1.wma')

PerlEval ("use Audio::WMA;$wma=Audio::WMA->new($filename);$info=$wma->info();$drm=$info->{drm};$tags=$wma->tags();$tt=$tags->{TITLE};$ta=$tags->{AUTHOR};$talb=$tags->{ALBUMTITLE};$t_year=$tags->{YEAR}")

$tta = ps("ta") ; artist

$ttt = ps("tt"); title

$talbum = ps("talb");

$year = ps("t_year");

$tdrm = ps("drm")

MsgBox(0, "From PERL", "artist =" & $tta & @CRLF & "title = " & $ttt & @CRLF & "Album = " & $talbum & @CRLF & "Year = " & $year & @CRLF & "DRM = " & $tdrm & @CRLF)

; exit Perl

PerlExit () ; last thing

EndIf

Edited February 8, 2007 by nobbe

[DaleHohm]

I am trying to figure how how to use perl and other scripting engines beside of Jscript and VBScript

since I need multithread environment.

Regarding Perl, as I mentioned before, if you install the ActiveState Perl distribution you will get an ActiveX Scripting compliant variant of Perl installed called "perlscript". You can then use language=perlscript with the ScriptControl just as you do Javascript and VBScript (just like you can with ASP web pages).

Dale