-------------------------------------------------------------------- --LetOS Monlogicien Corp. UserLogin Code---------------------------- -------------------------------------------------------------------- --Get Users usr1 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "One") usr2 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Two") usr3 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Tre") usr4 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Four") usr5 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Fiwe") usr6 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Six") usr7 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Seven") usr8 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Eht") usr9 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Nine") usr0 = INIFile.GetValue("UserFiles\Users.List.INS", "Users", "Ten") --Get Passtwords passwd1 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "One") passwd2 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Two") passwd3 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Tre") passwd4 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Four") passwd5 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Fiwe") passwd6 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Six") passwd7 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Seven") passwd8 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Eht") passwd9 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Nine") passwd0 = INIFile.GetValue("UserFiles\Users.List.INS", "Passtwords", "Ten") -------------------------------------------------------------------- --Get Text of Login Input's----------------------------------------- UsrInpt = Input.GetText("i_input_1") PasswdInpt = Input.GetText("i_input_2") -------------------------------------------------------------------- --Set UsrValid Number----------------------------------------------- UsrValid = x if usr1==UsrInpt then UsrValid = 1 end if usr2==UsrInpt then UsrValid = 2 end if usr3==UsrInpt then UsrValid = 3 end if usr4==UsrInpt then UsrValid = 4 end if usr5==UsrInpt then UsrValid = 5 end if usr6==UsrInpt then UsrValid = 6 end if usr7==UsrInpt then UsrValid = 7 end if usr8==UsrInpt then UsrValid = 8 end if usr9==UsrInpt then UsrValid = 9 end if usr0==UsrInpt then UsrValid = 0 end -------------------------------------------------------------------- --Check Passwd for SetUser------------------------------------------ if UsrValid == 1 then if PasswdInpt==passwd1 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end if UsrValid == 2 then if PasswdInpt==passwd2 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end if UsrValid == 3 then if PasswdInpt==passwd3 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end if UsrValid == 4 then if PasswdInpt==passwd4 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end if UsrValid == 5 then if PasswdInpt==passwd5 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end if UsrValid == 6 then if PasswdInpt==passwd6 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end if UsrValid == 7 then if PasswdInpt==passwd7 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end if UsrValid == 8 then if PasswdInpt==passwd8 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end if UsrValid == 9 then if PasswdInpt==passwd9 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end if UsrValid == 0 then if PasswdInpt==passwd0 then Dialog.Message("SysMsg", "Login and Password is true", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON2) Page.Jump("Home") end end |