Microsoft Small Basic

Program Listing: BXQ947
'requires FC Extension. Get The FC Extension@ http://tinyurl.com/ydze8u9
GraphicsWindow.Hide()
logincreds = Dialogs.AskForLoginCredentials()
If (logincreds = "usename:password") Then '***
GraphicsWindow.ShowMessage("Login Correct","Message")
Else
Dialogs.ShowMessageAsError("Login Incorrect")
EndIf
'***put your userame and password where you see usename:password
'by replacing "username" with your username and "password" with
'your password. remember to keep the ":" (colon)