%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC0%%%%%$$$$&&ABC%%%%%$$$$&&ABC XBMP sUser"" sPass"" Log On{Ext("Log On")}%%%%%$$$$&&ABC 0f37c3a4e014b900d5a9a0857c3f0721 1a X&45911-50283q14499-208239&t* &45911-50283q14499-208239 Current User:"Tahoma%%%%%$$$$&&ABC1a N2B&44911-15283q20499-908239&j* &44911-15283q20499-908239 User Name:"Tahoma%%%%%$$$$&&ABC1a Fv&4411153283q33299-2268239&b* &4411153283q33299-2268239 Password:"Tahoma%%%%%$$$$&&ABC1a P&45111138283q50499-3808239gg00   Dim ret ret = $Logon($sUser,$sPass) If ret = 0 Then MsgBox"Invalid User or Password",48,"Security System" $sUser = "" $sPass = "" Else $Close("LogUser") End IfUDim ret ret = StFunction1__(32, 2, StGetMnTagVal__(504, 0, 0, 0, 0, "") , StGetMnTagVal__(503, 0, 0, 0, 0, "") ) If ret = 0 Then MsgBox"Invalid User or Password",48,"Security System" Call StSetMnTagVal__(504, 0, 0, 0, 0, 11, 6, "", "") Call StSetMnTagVal__(503, 0, 0, 0, 0, 11, 7, "", "") Else Call StFunction1__(34, 1, "LogUser") End If &45111138283q50499-3808239 OK"Tahoma%%%%%$$$$&&ABC!1a_&53611138283q67499-2958239gg00  $Close("LogUser")$Call StFunction1__(34, 1, "LogUser")&53611138283q67499-2958239 Cancel"Tahoma%%%%%$$$$&&ABC!1a&62111138283q84499-2108239gg00  $LogOff() $Close("LogUser")>Call StFunction1__(45, 0) Call StFunction1__(34, 1, "LogUser")&62111138283q84499-2108239 Log Off"Tahoma%%%%%$$$$&&ABC!()1a &6211182283q56699-2768239  &6211182283q56699-2768239 TahomasPass0.0000000.000000()1a I]&6211112283q42699-1368239  &6211112283q42699-1368239 TahomasUser0.0000000.000000()1a#&61911-46283q448991208239  &61911-46283q448991208239 Tahomausername0.0000000.0000000.000000VBScript'Variables available on this screen can be declared and initialized here. 'Procedures available on this screen can be implemented here 'This procedure is executed just once when this screen is open. Sub Screen_OnOpen() End Sub 'This procedure is executed continuously while this screen is open. Sub Screen_WhileOpen() End Sub 'This procedure is executed just once when this screen is closed. Sub Screen_OnClose() End Sube Sub Screen_OnOpen() End Sub Sub Screen_WhileOpen() End Sub Sub Screen_OnClose() End SubSPASSSUSERSUSERUSERNAME