Estou terminando um jogo em VB6 de RPG Online. Agora preciso que me ajudem no sentido da conexão dos clientes com o servidor, onde: 1. Ao entrar com o login e senha, essas informações são enviadas ao servidor. 2. O servidor verifica se são válidos o login e senha recebidos, comparando os dados em um bd Access. To usando ADODC. 3. Se não forem válidos, retorna a variavel Per=0 caso contrario, deve retornar a variavel contendo o numero do personagem no BD, bem como todos os dados deste. 4. O cliente recebe os dados, transferindo-os para as respectivas variaveis. Se alguém puder ajudar, por favor, poste os codigos. Isto foi o que eu fiz, mas não sei ao certo se irá funcionar. 'Esta é a rotina do botão de envio do login e senha do cliente: Private Sub LblConfirma_Click()
Dim IP As String
Dim message As String
If TxtNome.Text = "" Then
MsgBox ("Nome ?")
TxtNome.SetFocus
Exit Sub
End If
If TxtSenha.Text = "" Then
MsgBox ("Senha ?")
TxtNome.SetFocus
Exit Sub
End If
IP = "192.168.1.105"
WskServer.RemoteHost = IP
WskServer.RemotePort = 2000
WskServer.Connect
message = TxtNome.Text & "@" & TxtSenha.Text
WskServer.SendData message
End Sub
Private Sub WskServer_ConnectionRequest(ByVal requestID As Long)
If WskServer.State <> sckClosed Then
WskServer.Close
End If
WskServer.Accept requestID
End Sub
Private Sub WskServer_DataArrival(ByVal bytesTotal As Long)
Dim dados() As String
WskCliente.GetData dadosrecebidos, vbString
If dadosrecebidos = "0" Then
MsgBox ("Conta Invalida.")
TxtNome.Text = ""
TxtSenha.Text = ""
TxtNome.SetFocus
Exit Sub
Else
dados() = Split(dadosrecebidos, "@")
Per = dados(0)
Char(Per).Raca = dados(1)
Char(Per).Classe = dados(2)
Char(Per).Nome = dados(3)
Char(Per).Nivel = dados(4)
