DUVIDA CHAT VIA SOCK

TTRAAIL 04/02/2014 21:18:52
#434269
Estava vendo uns videos de um cara no yt, e ai vi que ele tinha um video de um Chat via Sock, fiz tudo direitinho, mas na hora de Conectar ao sock, ele não conectava, e dava um erro e crashava, se alguem puder me ajudar, o codigo é este

Form1:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub Sock_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Sock.DataArrival
Dim a As Object = Nothing
Dim novastring As String = [Ô][Ô]
Dim caractere As Byte
Sock.GetData(a)
For Each caractere In a
novastring = String.Concat(novastring, Chr(caractere))
Next
TextBox1.Text = String.Concat(TextBox1.Text, vbNewLine, novastring)
End Sub

Private Sub btnenviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenviar.Click
Sock.SendData([Ô]>[Ô] & txtmsg.Text)
TextBox1.Text = String.Concat(TextBox1.Text, vbNewLine & txtmsg.Text)
txtmsg.Text = ([Ô][Ô])
End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Form2.Show()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Sock.RemotePort = 2909
Sock.RemoteHost = Sock.LocalIP
Sock.Connect()
End Sub
End Class


Form2:

Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Sock.LocalPort = 2909
Sock.Listen()
ListBox1.Items.Add([Ô]Servidor Online[Ô])
End Sub

Private Sub Sock_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles Sock.ConnectionRequest
Sock.Close()
ListBox1.Items.Add([Ô]Obtendo Conexão[Ô])
Sock.Accept(e.requestID)
ListBox1.Items.Add([Ô]Conectado[Ô])
Sock.SendData([Ô]Você se conectou ao chat[Ô])

End Sub

Private Sub btnenviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenviar.Click
Sock.SendData([Ô]>>[Ô] & txtmsg.text)
TextBox1.Text = String.Concat(TextBox1.Text, vbNewLine & txtmsg.text)
txtmsg.text = [Ô][Ô]
ListBox1.Items.Add([Ô]Sua mensagem foi enviada[Ô])
End Sub

Private Sub Sock_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Sock.DataArrival
Dim A As Object = Nothing
Dim NovaString As String = [Ô][Ô]
Dim Caractere As Byte
ListBox1.Items.Add([Ô]Mensagem recebida[Ô])
Sock.GetData(A)
For Each Caractere In A
NovaString = String.Concat(NovaString, Chr(Caractere))
Next
TextBox1.Text = String.Concat(TextBox1.Text, vbNewLine, novastring)
End Sub
End Class

Por favor me ajudem
KERPLUNK 05/02/2014 10:41:49
#434282
Dica número 1: Pare de enxergar [Ô]erro[Ô], veja a mensagem dele, veja em que ocasião ele ocorre. Tente não ver [Ô]funciona/não funciona[Ô], depure o código e veja o que acontece
TTRAAIL 05/02/2014 13:30:34
#434290
Entendi isso de funcionalidade, mas sou novo, o que seria depurar o codigo?
KERPLUNK 05/02/2014 13:34:45
#434291
Em qualquer linha do código, pressione a tecla F9. Ela será grifada em vermelho. Em seguida rode o código e quando chegar na referida linha ele vai parar. Nesse momento, vá pressionando F8 e veja o código rodando.
TTRAAIL 05/02/2014 13:40:04
#434292
Como eu rodo o codigo? F8?

Como eu sei qual é a infuncionalidade?
KERPLUNK 05/02/2014 13:51:59
#434294
Enquanto em modo de depuração, vá pressionando o F8, passe o mouse sobre as variáveis, comandos e tudo mais e veja o que cada coisa mostra.
TTRAAIL 05/02/2014 14:15:35
#434297
Gostaria que alguem publicasse alguma solução, não estou achando nada ;(
KERPLUNK 05/02/2014 14:47:24
#434301
Citação:

:
Gostaria que alguem publicasse alguma solução, não estou achando nada ;(


é porque você não informou quase nada. Que erro acontece? Em que momento?
Tópico encerrado , respostas não são mais permitidas
Voltar