Password

[DarkX]

I was wondering if someone knew how to do the save password, and enter it twice when creating a account?

[Obsidian]

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]

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]

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]

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