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.
Dim ScreenID As string
Dim IIFID1 As string
Dim IIFID2 As string
Dim IIFID3 As string
Dim IIFID4 As string
Dim IIFID5 As string
Dim IIFID As string
ScreenID = Sess0.Screen.getstring(1, 2, 7)
If ScreenID = "UISP23M" Then
IIFID1 = Sess0.Screen.getstring(3, 53, 1)
IIFID2 = Sess0.Screen.getstring(3, 55, 7)
IIFID3 = Sess0.Screen.getstring(3, 63, 2)
IIFID4 = Sess0.Screen.getstring(3, 66, 3)
IIFID5 = Sess0.Screen.getstring(3, 70, 3)
IIFID = ("E" + IIFID1 + IIFID2 + IIFID3 + IIFID4 + IIFID5)
Else
If ScreenID = "UISP26M" Then
IIFID1 = Sess0.Screen.getstring(6, 13, 1)
IIFID2 = Sess0.Screen.getstring(6, 15, 7)
IIFID3 = Sess0.Screen.getstring(6, 23, 2)
IIFID4 = Sess0.Screen.getstring(6, 26, 3)
IIFID5 = Sess0.Screen.getstring(6, 30, 3)
IIFID = ("H" + IIFID1 + IIFID2 + IIFID3 + IIFID4 + IIFID5)
Else
MsgBox "Image Button is only accessable from Exception Screen or History Screen."
Exit Sub
End If
End If
If Dir$("C:\Program Files\IIFUIImageDLN.txt") = ("IIFUIImageDLN.txt") Then
FileExist = True
MsgBox "File C:\Program Files\IIFUIImageDLN.txt all ready exists"
Exit sub
End If
Open "C:\Program Files\IIFUIImageDLN.txt" for Output As #1
Print #1, (IIFID)
Close #1
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'notepad.exe'")
If colItems.Count > 0 Then
For Each objItem In colItems
MsgBox objItem.commandLine
Next
Else
MsgBox "Notepad is not open."
End If
Sub Main()
Dim curr_line As String
On Error GoTo FILE_OPEN_ERR
Open "C:\Input.txt" For Input As #1
Open "C:\Input.txt" For Input As #1
Close #1
CONTINUE:
Do While Not EOF(1)
Line Input #1, curr_line
MsgBox curr_line
Loop
Close #1
Exit Sub
FILE_OPEN_ERR:
If Err = 55 Then
MsgBox "FILE IS OPEN"
GoTo CONTINUE
ElseIf Err = 53 Then
MsgBox "FILE NOT FOUND"
Exit Sub
End If
End Sub