| Mirage Source http://www.miragesource.net/forums/ |
|
| Password http://www.miragesource.net/forums/viewtopic.php?f=201&t=591 |
Page 1 of 1 |
| Author: | DarkX [ Mon Oct 02, 2006 1:45 pm ] |
| Post subject: | Password |
I was wondering if someone knew how to do the save password, and enter it twice when creating a account? |
|
| Author: | Obsidian [ Mon Oct 02, 2006 4:13 pm ] |
| Post subject: | |
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 |
|
| Author: | DarkX [ Mon Oct 02, 2006 7:31 pm ] |
| Post subject: | |
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. |
|
| Author: | Matt [ Mon Oct 02, 2006 8:27 pm ] |
| Post subject: | |
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. |
|
| Author: | DarkX [ Mon Oct 02, 2006 8:48 pm ] |
| Post subject: | |
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 |
|
| Page 1 of 1 | All times are UTC |
| Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |
|