Jump to content
Sign in to follow this  
Vlad

AutoIT and Mainframe 3279 emulators ActiveX Control

Recommended Posts

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?

:rolleyes:

Share this post


Link to post
Share on other sites
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?

:rolleyes:

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×