Whats wrong with this?

[andy200129]

Hello ok before eclipse stable ect disapeard i made a multiple server thing that your able to add more servers on 1 client  what worked on eclipse stable and 7.5 this was the code for eclipse evo or so
Hosted on 1 pc

>! Dim IP As String, Port As String
    Dim fErr As Integer
>!     Port = Val(0000)
>!     fErr = 0
    If fErr = 0 And Port <= 0 Then
        fErr = 1
        Call MsgBox("Please Fix The Port!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 Then
        Call WriteINI("IPCONFIG", "PORT", 0000, (App.Path & "\config.ini"))
    End If
    Call TcpDestroy
>!     frmStable.Socket.RemotePort = 0000

hosted on 2 pcs

>! Dim IP As String, Port As String
    Dim fErr As Integer
>!     IP = 000.000.000
    Port = Val(0000)
>!     fErr = 0
    If fErr = 0 And Len(Trim$(IP)) = 0 Then
        fErr = 1
        Call MsgBox("Please Fix The IP!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 And Port <= 0 Then
        fErr = 1
        Call MsgBox("Please Fix The Port!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 Then
        Call WriteINI("IPCONFIG", "IP", 000.000.000, (App.Path & "\config.ini"))
        Call WriteINI("IPCONFIG", "PORT", 0000, (App.Path & "\config.ini"))
    ' Call MenuState(MENU_STATE_IPCONFIG)
    End If
    Call TcpDestroy
    frmStable.Socket.RemoteHost = 000.000.000
    frmStable.Socket.RemotePort = 0000

i modified it and looked throug eo classes ect
but the WritteINI had an error and i cant find why does any one know what could be wrong

>! Dim IP As String, Port As String
    Dim fErr As Integer
>!     Port = Val(7001)
>!     fErr = 0
    If fErr = 0 And Port <= 0 Then
        fErr = 1
        Call MsgBox("Please Fix The Port!", vbCritical)
        Exit Sub
    End If
    If fErr = 0 Then
        Call WriteINI("IPCONFIG", "PORT", 7001, (App.Path & "\Data Files\config.ini"))
    End If
    Call TcpDestroy
>!     frmMain.Socket.RemotePort = 7001

[Stein]

It's PutVar and GetVar ;]

[andy200129]

@Scypher:

> It's PutVar and GetVar ;]

i don't get  what you mean? could you put in a more informed way soz had like no sleep been up working on GUI and layout in vb 6 its hard to get it to a good layout and looking professional

[Stein]

READINI and WRITEINI have been replaced by GetVar and PutVar.

[andy200129]

@Scypher:

> READINI and WRITEINI have been replaced by GetVar and PutVar.

ahh ok cool ^_^

Has TCP Destroy been changed?

[crzyone9584]

Search through the code… Just look for where the client closes the window...

[andy200129]

once i have the Eo version done im going to keep the ee version but add eo to my tutorial page ect for people to use to make there game better thanks for the help i will do that now u all been helpfull i will credit ur names on the eo version :)