AutoIT and Mainframe 3279 emulators ActiveX Control

[Vlad]

I am just wondering if somebody has used AutoIT to work with any 3270 Mainframe emulators like Eicon AVIVA or Rumba.

In MS Visual Studio you can easily integrate this ActiveX Control if an appropriate emulator installed on your computer.

For example when executing from an ActiveX client application, you can create a display Mainframe Session object by using the GetObject function.

Set MySession = GetObject("EICON_AVIVA_PATH_HERE\MySession.A3D")

Is there any way to get something like that for AutoIT?

[RDSchaefer]

I am just wondering if somebody has used AutoIT to work with any 3270 Mainframe emulators like Eicon AVIVA or Rumba.

In MS Visual Studio you can easily integrate this ActiveX Control if an appropriate emulator installed on your computer.

For example when executing from an ActiveX client application, you can create a display Mainframe Session object by using the GetObject function.

Set MySession = GetObject("EICON_AVIVA_PATH_HERE\MySession.A3D")

Is there any way to get something like that for AutoIT?

We use Attachmate where I work and it has one of the best implementations of VBA I've ever seen, even better than Excel or Word. Here is a sample of the code I use. (Sorry, the code box messes up my indenting for some reason)

CODE

;*-------------------------------------------------------------------*

;* Initialize the Extra! Objects

;*-------------------------------------------------------------------*

Func InitExtra($sTitle)

Local $iSession

$g_oExtra = ObjCreate("EXTRA.System")

If Not IsObj($g_oExtra) then

MsgBox(16, $VERSION, "Error creating Extra! system object")

Exit

EndIf

If $sTitle = "" then

$g_oSession = $g_oExtra.ActiveSession

Else

For $iSession = 1 to $g_oExtra.Sessions.Count

If StringInStr($g_oExtra.Sessions.Item($iSession).Name, $sTitle) <> 0 then

$g_oSession = $g_oExtra.Sessions.Item($iSession)

EndIf

Next

EndIf

If Not IsObj($g_oSession) then

MsgBox(16, $VERSION, "Error creating Extra! session object")

Exit

EndIf

$g_oScreen = $g_oSession.Screen

If Not IsObj($g_oScreen) then

MsgBox(16, $VERSION, "Error creating Extra! screen object")

Exit

EndIf

$g_oSession.Visible = True

Return 1

EndFunc