Activex control - AutoIt.dll Useful for Many system functions (OpenInsight 32-Bit) [Revelation On-Line Wiki]

OpenInsight 32-Bit, Bob Carten, Don Muskopf, dbakke@srpcs.com's Don Bakke, Jim Vaughan

Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community

At 15 FEB 2007 10:07:10PM Bob Carten wrote:

Anybody else used AutoIt?

A freely distributable dll written to support scripting of software installation tasks, it looks pretty useful.

- Bob

At 16 FEB 2007 09:15AM Don Muskopf wrote:

Thanks Bob. This looks really interesting.

At 16 FEB 2007 10:16AM dbakke@srpcs.com's Don Bakke wrote:

Bob,

Reminds me of WinBatch. I haven't used it for many years but it was certainly useful in our very first commercial OI application. AutoIt looks pretty slick, especially since it runs as an exe, ActiveX, and DLL component.

dbakke@srpcs.com

SRP Computer Solutions, Inc.

At 16 FEB 2007 02:30PM Jim Vaughan wrote:

I use two programs similar to that.

First I use (http://www.autohotkey.com/)

An example of the use of the above follows (this checks if OI is running and if it is, reads an error message from a file and does not allow a second copy of OI to run).

Process, exist, oinsight.exe

OIPID=%ErrorLevel%

If OIPID 0

{
FileReadLine, Line, NAME.INI, 3
MsgBox %Line%
}

else

{
Run, OINSIGHT.exe "/AP=W_TACTIC /UN=W_TACTIC /SN=W_TACTIC /HI=1 /HE=1"
}

Secondly I also use Winbatch (http://www.winbatch.com/), I built into my OI application a macro recorder that records macros in Winbatch format. Then I supply with application a playback mechanism that uses a compiled Winbatch script. Script follows (it only works as a line by line playback, if the user needs to add loops etc they need to purchase Winbatch):

Line=1

if WinExist("WBT - RUNMACRO") == @TRUE Then
WinTitle("WBT - RUNMACRO","Line -")
else
WinTitle("WBT - runmacro","Line -")
endif

Handle=FileOpen(param1,"READ")

while @TRUE
x=FileRead(Handle)
if x == "*EOF*"
  Break
else
  NewTitle=StrCat("Line - ",Line," ",x)
  WinTitle("Line -", NewTitle)
  Execute %x%
  Line=Line + 1
endif
endwhile

FileClose(Handle)

View this thread on the Works forum...