Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
[b]'you must have a reference set for Attachmate EXTRA! n.m Object Library
'runs with Form ufmPassword
'declare Public variables
[/b]
Public oSystem As ExtraSystem
Public oSessions As ExtraSessions
Public oSess As ExtraSession
Public oScrn As ExtraScreen
Public vPassword
Public sCurrentScreenName As String
Sub IMS_Login()
Dim result, bLogin As Boolean
Set oSystem = CreateObject("Extra.System")
If oSystem.Sessions.Count = 0 Then
[b]Set oSess = oSystem.Sessions.Open("C:\Program Files\E!PC\Sessions\Mainframe.edp")[/b]
ufmPassword.Show
bLogin = True
Else
Set oSess = oSystem.ActiveSession
bLogin = False
End If
'....
'other stuff
End Sub