+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: Password (/showthread.php?tid=345)
Password - DarkX - 02-10-2006
I was wondering if someone knew how to do the save password, and enter it twice when creating a account?
- Obsidian - 02-10-2006
the password is saved automatically and since it's in INI format it's something like
writeini app.path & "/accounts/" & w/e, "CHAR" & player(index).charnum(player(index)), "Password", W/ePasswordIs
i don't use ini's anymore but it's something like that... (on the server...)
to do a double pw check just do two password boxes... and then when they hit the "add account" or whatever button just do...
If txtPassword1.text txtPassword2.text then
Call MsgBox("Your Passwords Do Not Match.")
Exit Sub
End if
- DarkX - 02-10-2006
Ohh, Ok, that's what I ment, though I got my words mixed up... I ment the remember account thing that's in Elysium/ Konfuze; and several others.
- Matt - 02-10-2006
MS does not come default with read/write ini funtions. You need to use the getvar and putvar functions, unless you add the un-needed code for write/read ini into your source.
- DarkX - 02-10-2006
I personally already added the read and write ini system I think, I have modini with this in it
Code:
Option Explicit
'ModINI.Bas
'INI reading/writing
Public Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$)
Public Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnedString$, ByVal RSSize&, ByVal FileName$)
Public Sub WriteINI(INISection As String, INIKey As String, INIValue As String, INIFile As String)
Call WritePrivateProfileString(INISection, INIKey, INIValue, INIFile)
End Sub
Public Function ReadINI(INISection As String, INIKey As String, INIFile As String) As String
Dim StringBuffer As String
Dim StringBufferSize As Long
StringBuffer = Space$(255)
StringBufferSize = Len(StringBuffer)
StringBufferSize = GetPrivateProfileString(INISection, INIKey, "", StringBuffer, StringBufferSize, INIFile)
If StringBufferSize > 0 Then
ReadINI = Left$(StringBuffer, StringBufferSize)
Else
ReadINI = ""
End If
End Function