Quote:
Originally Posted by Darkness™
without mssql database you can't...
@psrobot, download OCX FILES.
|
Of course it's possible, it's even easier with an INI file than MySQL/Microsoft SQL.
let me give you an example (VB6, this Emu's language):
Code:
Case "6102"
Dim ID_Len As Integer
Dim PW_Len As Integer
Dim ID As String
Dim PW As String
ID_Len = "&H" & Mid(dData, 5, 2) & Mid(dData, 3, 2)
ID = cv_StringFromHex(Mid(dData, 7, ID_Len * 2))
PW_Len = "&H" & Mid(dData, 9 + (ID_Len * 2), 2) & Mid(dData, 7 + (ID_Len * 2), 2)
PW = cv_StringFromHex(Mid(dData, 11 + (ID_Len * 2), PW_Len * 2))
Dim rPW As String
rPW = iniGetStr("VALUE_HERE", "KEY_HERE", (Replace(App.Path, "\", "/") & "ACCOUNTS_FOLDER_HERE" & ID & ".ini"))
If rPW = "(error)" Then
FileCreate VB.App.Path & "\ACCOUNTS_FOLDER_HERE\" & ID & ".ini"
iniWrite VALUE_HERE, "KEY_HERE", "SECTION_HERE", VB.App.Path & "\ACCOUNTS_FOLDER_HERE\" & ID & ".ini"
iniWrite VALUE_HERE, "KEY_HERE", "SECTION_HERE", VB.App.Path & "\ACCOUNTS_FOLDER_HERE\" & ID & ".ini"
EndIf
As for the FileCreate function, here it is:
Code:
Public Function FileCreate(Path As String)
Dim iNumber As Long
Dim Upper As Long
Dim Lower As Long
Randomize
iNumber = Int((Upper - Lower + 500) * Rnd + Lower)
Open Path For Output As #iNumber
Close #iNumber
End Function
Of course it isn't enough, you need to write more values into the INI file and of course to change the *_HERE values/keys/sections (depends on the Emu's variables).
but anyways, it's a few minutes job.
the coder should have done this in the first place.
Cheers,
Oriya.