SIC

SICVerifyProcess:

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(300)

Call GrabScreen

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(300)

Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

Line1 = ts.ReadLine ' First Line on File

Line2 = ts.ReadLine ' Second Line on File

Line3 = ts.ReadLine ' Third Line on File

Line4 = ts.ReadLine ' Fourth Line on File

Line5 = ts.ReadLine ' Fifth Line on File

Line6 = ts.ReadLine ' Sixth Line on File

Line7 = ts.ReadLine ' Seventh Line on File

Line8 = ts.ReadLine ' Eight Line on File

Line9 = ts.ReadLine ' Nineth Line on File

Line10 = ts.ReadLine ' Tenth Line on File

Line11 = ts.ReadLine ' Eleventh Line on File

Line12 = ts.ReadLine ' Twelveth Line on File

Line13 = ts.ReadLine ' Thirteenth Line on File

Line14 = ts.ReadLine ' Fourteenth Line on File

Line15 = ts.ReadLine ' Fifteenth Line on File

Line16 = ts.ReadLine ' Sixteenth Line on File

Line17 = ts.ReadLine ' Seventeenth Line on File

Line18 = ts.ReadLine ' Eighteenth Line on File

Line19 = ts.ReadLine ' Nineteenth Line on File

Line20 = ts.ReadLine ' Twentyth Line on File

Line21 = ts.ReadLine ' Twenty-First Line on File

Line22 = ts.ReadLine ' Twentyth Line on File

Line23 = ts.ReadLine ' Twenty-First Line on File

Line24 = ts.ReadLine ' Twentyth Line on File

ts.Close

Dim SICVerify As String

SICVerify = Mid(Line4, 5, 4) ' Returns Misc Key Number.

If (SICVerify) = (SICCode) Then

For x = 1 To 2

osCurrentScreen.SendControlKey ControlKeyCode_Enter

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(70)

Next x

Else

osCurrentScreen.SendControlKey ControlKeyCode_Enter

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(50)

osCurrentScreen.SendKeys "D"

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(50)

osCurrentScreen.SendControlKey ControlKeyCode_Enter

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(50)

Call osCurrentScreen.SendKeys(SICVerify) ' First SIC

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(70)

osCurrentScreen.SendControlKey ControlKeyCode_Enter

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(50)

osCurrentScreen.SendControlKey ControlKeyCode_Enter

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(50)

GoTo SICVerifyProcess

End If

End If