--------------------------------------------------------------------
--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
|
Дружественная тема в Варезнике
