[ALL]Escolhendo Servidor [Funcionado ]

Código:

Código:
[SERVER#]
Nome=
IP=
Porta=

Código:

Código:
frmMainMenu.Visible = True

Código:

Código:
Call SetStatus("Checando o status dos servidores'...")
    frmEServer.Show

Código:

Código:
If FileExist("servidores.ini") = False Then
        WriteINI "SERVER0", "Nome", "Server 0", App.Path & "\servidores.ini"
        WriteINI "SERVER0", "IP", "127.0.0.1", App.Path & "\servidores.ini"
        WriteINI "SERVER0", "Porta", "4000", App.Path & "\servidores.ini"
    End If

Código:

Código:
Option Explicit
Dim GAME_IP As String, GAME_PORT As Long

Private Sub cmdCancel_Click()
    Call GameDestroy
End Sub

Private Sub cmdOk_Click()
    If lstServers.ListCount <= 0 Then Exit Sub

    GAME_IP = ReadINI("SERVER" & lstServers.ListIndex, "IP", App.Path & "\servidores.ini")
    GAME_PORT = Val(ReadINI("SERVER" & lstServers.ListIndex, "PORTA", App.Path & "\servidores.ini"))
    Me.Caption = "Escolhedor de Servidores - Checando Status..."
    If CheckServerStatus = False Then
        Me.Caption = "Escolhedor de Servidores - Servidor Desligado!"
        cmdOk.Enabled = True
        Exit Sub
    End If
    cmdOk.Enabled = True
    Me.Caption = "Escolhedor de Servidores - Conectado!"
    frmMirage.Socket.Close
    frmMirage.Socket.RemoteHost = GAME_IP
    frmMirage.Socket.RemotePort = GAME_PORT
    frmMainMenu.Show
    Unload Me
End Sub

Private Sub Form_Load()
Dim FileName As String
Dim i As Long, c As Long
On Error Resume Next

    frmServerChooser.Visible = True

    FileName = App.Path & "\servidores.ini"
    i = 0
    c = 0
    CHECK_WAIT = False
    lstServers.Clear
 
    cmdOk.Enabled = False
    Me.Caption = "Escolhedor de Servidores - Checando os status dos servidores'..."
    Do Until c = 1
        DoEvents
        If CHECK_WAIT = False Then
            If ReadINI("SERVER" & i, "IP", FileName) <> "" And ReadINI("SERVER" & i, "PORTA", FileName) <> "" Then
                GAME_IP = ReadINI("SERVER" & i, "IP", FileName)
                GAME_PORT = Val(ReadINI("SERVER" & i, "PORTA", FileName))
                If CheckServerStatus = True Then
                    CHECK_WAIT = True
                    Call SendData("serverresults" & SEP_CHAR & i & SEP_CHAR & END_CHAR)
                Else
                    lstServers.AddItem ReadINI("SERVER" & i, "Name", FileName) & " - Desligado!"
                End If
                i = i + 1
            Else
                c = 1
            End If
        End If
    Loop
    cmdOk.Enabled = True
    Me.Caption = "Escolhedor de Servidores - Completo!"
End Sub

Function CheckServerStatus() As Boolean
    frmMirage.Socket.Close
    frmMirage.Socket.RemoteHost = GAME_IP
    frmMirage.Socket.RemotePort = GAME_PORT
 
    cmdOk.Enabled = False
    CheckServerStatus = False
 
    If ConnectToServer = True Then
        CheckServerStatus = True
    End If
End Function

Código:

Código:
Public CHECK_WAIT As Boolean

Código:

Código:
If LCase(Parse(0)) = "serverresults" Then
        frmServerChooser.lstServers.AddItem ReadINI("SERVER" & Val(Parse(1)), "Name", App.Path & "\servidores.ini") & " - Ligado! (" & Val(Parse(2)) & "/" & Val(Parse(3)) & ")"
        CHECK_WAIT = False
        Exit Sub
    End If

Código:

Código:
' Parse sem estar online
If Not IsPlaying(index) Then
    Select Case LCase(Parse(0))

Código:

Código:
Case "serverresults"
            Call SendDataTo(index, "serverresults" & SEP_CHAR & Val(Parse(1)) & SEP_CHAR & TotalOnlinePlayers & SEP_CHAR & MAX_PLAYERS & SEP_CHAR & END_CHAR)
            Exit Sub

Código:

Option Explicit
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

Parabens Mano, Grande Tutorial , +1 Cred.

@EDIT
Bom eu fui testar aqui ne.. kkkk e deu um errinho .-.

Alem de Precisar Adicionar o modINI no Cliente tambem como nao tinha dito se nao da erro tem que arruma mais esse errinho tambem.. ;*

Código:

frmServerChooser.Visible = True

Lucas Roberto escreveu:

Parabens Mano, Grande Tutorial , +1 Cred.

@EDIT
Bom eu fui testar aqui ne.. kkkk e deu um errinho .-.

Alem de Precisar Adicionar o modINI no Cliente tambem como nao tinha dito se nao da erro tem que arruma mais esse errinho tambem.. ;*

achu que ta faltando umas form cara

olha o nome que esta dando erro

--

e revivendo topico

aff

"modINI"

uu rindo ate agora me desculpe

cara aquele erro nao tem nada aver com "modINI"
olha so esta faltando um form

Código:

frmServerChooser.Visible = True

frmServerChooser.Visible = True

frmServerChooser
as form