Interagindo Em Rede

[renatodex]

Olá pessoal, a minha dúvida é a seguinte:

Imaginem um projeto do VB. Um formulário e ele funcionaria da seguinte maneira:

Quando alguém, tivesse o programa (o projeto do VB) enviasse um login e uma senha a partir de um formulário em VB, essa senha e login seriam enviados para o programa em VB que escutaria pela pora 666 e, se o login fosse "Admin" e a senha "acessar", apareceria uma mensagem em vermelho no programa dizendo que a senha digitada pelo usuario do ip xxx.xxx.xxx.xxx está correta.

Não sei se eu expliquei direito, mais é possível fazer isso em VB? Como?

Eu queria muito saber como fazer isso!! xD

Vlw pelo suporte!

[Guest Guest]

Hehehe, quem booum! xDDD

Bom mais assim, com todos esses números, como é que eu vou montar o código no winsocket? Eu só queria uma estrutura, ou seja, um código para trabalhar com esses pacotes. Eu tenho os números mais não sei como usa-los =/

Você poderia me dar uma ajuda em forma de código? Ai eu deslancho xD

Vlwww

[renatodex]

Putz! Foi tanta anciedade com a sua resposta que eu até esqueci de logar!!!

[Graymalkin]

Vai ser só colocar tudo em uma string e mandar ela pelo Winsock. Você leu aquele tutorial de sockets que eu escrevi? Lá eu fiz um exemplo de como enviar dados de um ponto a outro, no caso uma mensagem, mas esses dados podem muito bem ser os pacotes específicos descritos nesse protocolo.

Certo?

Graymalkin

[renatodex]

Enviar o pacote como string?

Voce diz fazer isso:

Dim pacote as String

pacote = "0x64";

sckCliente.SendData pacote

ou colocar o pacote completo:

pacote = "S 0064 <version>.l <account name>.24B <password>.24B <version2>.B";

Isso parece estranho..rofl

???

[Graymalkin]

Enviar o pacote como string?

Voce diz fazer isso:

Dim pacote as String

pacote = "0x64";

sckCliente.SendData pacote

ou colocar o pacote completo:

pacote = "S 0064 <version>.l <account name>.24B <password>.24B <version2>.B";

Isso parece estranho..rofl

???

Sim, mas você deveria substituir pelos valores reais. Exemplo:

Dim pacote As String

Dim id As String * 2
Dim versão As String * 4
Dim nome As String * 24
Dim senha As String * 24
Dim versão2 As String * 1

id = Chr(&H0) & Chr(&H64) '0x00 0x64
versão = Chr(0) & Chr(0) & Chr(0) & Chr(1)
nome = "Graymalkin"
senha = "1234"
versão2 = Chr(1)

pacote = id & versão & nome & senha & versão2

Certo?

Graymalkin

[renatodex]

Hmm...não consegui fazer funcionar ^^

Quando eu tento me conectar atravez do ragnarok, da esse problema:

Será que estou utilizando os pacotes errados? Se eu utilizasse os corretos ele conectaria?? xD

[Graymalkin]

Como você fez? Você realmente conectou antes?

Abraços,

Graymalkin

[renatodex]

Eu usei o seguinte código:

Dim pacote As String

Dim id As String * 2
Dim versão As String * 4
Dim nome As String * 24
Dim senha As String * 24
Dim versão2 As String * 1

Private Sub Form_Load()
sck.Listen
End Sub


Private Sub sck_ConnectionRequest(ByVal requestID As Long)

id = Chr(&H0) & Chr(&H64) '0x00 0x64
versão = Chr(0) & Chr(0) & Chr(0) & Chr(1)
nome = "Graymalkin"
senha = "1234"
versão2 = Chr(1)

pacote = id & versão & nome & senha & versão2

sck.SendData pacote
End Sub

Na parte onde tem sck listen eu configurei no próprio objeto a porta (6900) e o ip (127.0.0.1) que eu quero pingar.

Mesmo assim não funcionou, eu devo estar fazendo algo errado =/

Peço sua ajuda novamente meu grande amigo Graymalkin xD

[Graymalkin]

Você quer que o seu programa seja um servidor, certo? Então você deveria conectar a partir de outro computador (ou do mesmo computador, mas de outro projeto). Quem vai enviar aquele pacote é o cliente (agora, o que o servidor deverá responder é uma coisa que será necessário pesquisar também).

E, também, aconselho dar uma olhada novamente naqueles tutoriais de sockets que recomendei no início deste tópico.

Abraços,

Graymalkin

[renatodex]

Sim, eu li os dois tutoriais, inclusive reproduzi os 2 hoje sem ajuda do tutorial só pra ver se eu tinha realmente entendido..o problema é que eu não achei que ambos os tutoriais possuam uma apreensão mais ampla do assunto, são coisas relativamente simples que os tutoriais passaram e que, embora eu de fato tenha achado muito util, eu não consegui aplica-los no meu projeto de uma forma que eu pudesse considerar 100% efetiva. Acho que eu vou precisar de algo um pouco mais avançado. É a parte que me falta =/

[Graymalkin]

Sim, eu li os dois tutoriais, inclusive reproduzi os 2 hoje sem ajuda do tutorial só pra ver se eu tinha realmente entendido..o problema é que eu não achei que ambos os tutoriais possuam uma apreensão mais ampla do assunto

Ambos os tutoriais têm seus campos de enfoque muito bem definidos: o primeiro é como transmitir dados de um computador para outro e o segundo é como dar um significado aos dados na transmissão e na recepção (ou seja, "enviar um arquivo").

, são coisas relativamente simples que os tutoriais passaram e que, embora eu de fato tenha achado muito util, eu não consegui aplica-los no meu projeto de uma forma que eu pudesse considerar 100% efetiva. Acho que eu vou precisar de algo um pouco mais avançado. É a parte que me falta =/

Realmente, aquilo lá é o básico, mas eu não creio que sockets possa ir mais além do que aquilo. Tanto que citei diversos exemplos de utilização de sockets no último parágrafo do primeiro tutorial, e tudo com base no que apresentei.

Acho que o problema aí no seu caso é querer transmitir e receber os dados em um formato (protocolo) que você não sabe bem qual é. Se eu fosse fazer um cliente P2P para se comunicar com a rede eDonkey, como o eMule, por exemplo, eu teria que conhecer a fundo a estrutura dos dados que são trafegados entre o cliente e o servidor. É diferente do caso de eu mesmo criar um protocolo para uma rede P2P própria minha.

Abraços,

Graymalkin

[Guest Virciado]

Graymalkin voce sabe qual programa se usa para criar um mmorpg

[Graymalkin]

Graymalkin voce sabe qual programa se usa para criar um mmorpg

Não, não conheço. Como eu disse antes, nem mesmo conheço nenhum NMMORPG.

Abraços,

Graymalkin