put this in an ini file somewhere:
Code:
[IPCONFIG]
IP=127.0.0.1
PORT=4000
load up the client project.
Somewhere in modDatabase, add this:
Code:
Public Function GetVar(File As String, _
Header As String, _
Var As String) As String
Dim sSpaces As String ' Max string length
Dim szReturn As String ' Return default value if not found
szReturn = vbNullString
sSpaces = Space$(5000)
GetPrivateProfileString Header, Var, szReturn, sSpaces, Len(sSpaces), File
GetVar = RTrim$(sSpaces)
GetVar = Left$(GetVar, Len(GetVar) - 1)
End Function
Code:
Public Sub PutVar(File As String, _
Header As String, _
Var As String, _
Value As String)
WritePrivateProfileString Header, Var, Value, File
End Sub
That will allow you to read and write to ini files.
In Sub TCPInit, replace this:
Code:
frmMirage.Socket.RemoteHost = GAME_IP
frmMirage.Socket.RemotePort = GAME_PORT
With this:
Code:
Dim filename As String
filename = App.Path & "\config.ini"
frmMirage.Socket.RemoteHost = GetVar(filename, "IPCONFIG", "IP")
frmMirage.Socket.RemotePort = Val(GetVar(filename, "IPCONFIG", "PORT"))
Not tested, so tell me if you get any errors. When you make your IP Config form (If you make one), use the PutVar call to write to the ini file.
Login
Register
FAQ
Search
Members
