Autor Tema: Ayuda Chat en VB 2010  (Leído 13196 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado WINTX

  • Staff
  • Usuario regular
  • ******
  • Mensajes: 128
  • Karma: +3/-2
  • WINTX
    • Ver Perfil
Ayuda Chat en VB 2010
« : diciembre 16, 2012, 11:35:33 am »
Bueno comence a hacer un chat a traves de 000webhost pero el problema esque al abrirme va muy lento no puedo ni escribir de lo lento que va el programa podrían ayudarme? alguien sabe porque y cual es la solucción?

Código: [Seleccionar]
Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim name As String
        name = TextBox1.Text
        Try
            Dim client As New Net.WebClient
            client.Credentials = New Net.NetworkCredential("a8027650", "Aquí va mi password del 000webhost")
            client.UploadString("ftp://server39.000webhost.com/chat.txt", RichTextBox1.Text & "" & name & ": " & RichTextBox2.Text & vbNewLine)
            RichTextBox2.Clear()
        Catch ex As Exception
            MsgBox("Error de conexión")
        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim client As New Net.WebClient
            client.Credentials = New Net.NetworkCredential("a8027650", "Aquí va mi password del 000webhost")
            RichTextBox3.Text = client.DownloadString("ftp://server39.000webhost.com/chat.txt")
            If RichTextBox3.Text = RichTextBox1.Text Then
            Else : RichTextBox1.Text = RichTextBox3.Text
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

acá les dejo el programa y podrán comprovar que va lento D: porfavor ayuda

http://www.mediafire.com/?k4ff0sb4cqi8pwm
Si has encontrado útil este articulo recuerda que puedes ayudarnos con tu donación voluntaria la cual ayudará al staff y a la mantención del foro.

Desconectado 79137913

  • Moderador
  • Recién llegado
  • *****
  • Mensajes: 18
  • Karma: +0/-0
  • 4 Esquinas
    • MSN Messenger - fg_mdq@hotmail.com
    • Ver Perfil
    • EcoResumen
Re:Ayuda Chat en VB 2010
« Respuesta #1 : diciembre 17, 2012, 08:48:32 am »
HOLA!!!

Ese sistema es muy poco practico, ya que depende en la velocidad en que 000wh actualice los archivos.

Si querés hacer un sistema que interactue con un archivo en un host, te recomiendo que escriban en el host sus ips y hagan la comunicacion por sockets, asi sera rapido.

Ante cualquier duda avisame.

GRACIAS POR LEER!!!
« Última Modificación: diciembre 17, 2012, 08:51:46 am por 79137913 »
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*                                                          Resumenes Cs.Economicas

Desconectado WINTX

  • Staff
  • Usuario regular
  • ******
  • Mensajes: 128
  • Karma: +3/-2
  • WINTX
    • Ver Perfil
Re:Ayuda Chat en VB 2010
« Respuesta #2 : diciembre 17, 2012, 11:14:30 am »
HOLA!!!

Ese sistema es muy poco practico, ya que depende en la velocidad en que 000wh actualice los archivos.

Si querés hacer un sistema que interactue con un archivo en un host, te recomiendo que escriban en el host sus ips y hagan la comunicacion por sockets, asi sera rapido.

Ante cualquier duda avisame.

GRACIAS POR LEER!!!

La verdad no tengo ni idea... de como hacer eso un amigo me dijo que era porque el timer pedia información constantemente y que si quito el timer ira... pero yo solo quiero hacer un chat sea como sea y que valla rápido que me recomiendan..

Desconectado 79137913

  • Moderador
  • Recién llegado
  • *****
  • Mensajes: 18
  • Karma: +0/-0
  • 4 Esquinas
    • MSN Messenger - fg_mdq@hotmail.com
    • Ver Perfil
    • EcoResumen
Re:Ayuda Chat en VB 2010
« Respuesta #3 : diciembre 17, 2012, 12:17:05 pm »
HOLA!!!

El problema de tu codigo es que esta limitado a la velocidad de respuesta del servidor.

Con sockets te limitas a la velocidad de coneccion de cada uno de los usuarios.(la velocidad de internet)

Leete esto, te va a servir : http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm
 

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*                                                          Resumenes Cs.Economicas

Desconectado WINTX

  • Staff
  • Usuario regular
  • ******
  • Mensajes: 128
  • Karma: +3/-2
  • WINTX
    • Ver Perfil
Re:Ayuda Chat en VB 2010
« Respuesta #4 : diciembre 17, 2012, 12:49:56 pm »
Me estoy liando y todo para hacer un chat de un juego xd, bueno haber que se puede hacer... una pregunta a estos chat se le puede incluir voz?

Desconectado WHK

  • 吴阿卡
  • Administrador
  • Aportador
  • *****
  • Mensajes: 555
  • Karma: +15/-3
  • Coder
    • Yahoo Instant Messenger - yan_uniko_102
    • Ver Perfil
    • WHK
    • Email
Re:Ayuda Chat en VB 2010
« Respuesta #5 : diciembre 17, 2012, 01:01:03 pm »
mira, para hacer un chat no es tan dificil, o sea, uno propio si es dificil pero puedes usar un canal irc publico y usas un flash para que la gente que entre a tu web se conecte directamente al irc.

eso de ponerle audio a los chats imagina que yahoo lo hace y no da a basto, un streaming de varios canales de chat necesitarias mucha infraestructura, o sea  mucho ancho de banda y muy buenos servidores dedicados.
Mi WEB - The Hacktivism is not a crime - Si no lo hago yo, que lo hagan otros -

Desconectado 79137913

  • Moderador
  • Recién llegado
  • *****
  • Mensajes: 18
  • Karma: +0/-0
  • 4 Esquinas
    • MSN Messenger - fg_mdq@hotmail.com
    • Ver Perfil
    • EcoResumen
Re:Ayuda Chat en VB 2010
« Respuesta #6 : diciembre 17, 2012, 02:08:22 pm »
HOLA!!!

@WHK, lo de mucha infraestructura no es tan asi, se puede hacer una comunicacion punto a punto sin que pase por un servidor :P.

@WINTX, Que es lo que no entendes, decime que te ayudo.
Te recomendaria caminar antes de correr y aprender sobre las aves antes de volar, en otras palabras primero aprende a programar bien y luego empeza a hacer proyectos pequeños (un chat de texto lo es), cuando tengas en claro como afrontar un proyecto ahi planteate cosas mas grandes.

P.D: La solucion de un IRC es buena.

GRACIAS POR LEER!!!
« Última Modificación: diciembre 17, 2012, 02:16:36 pm por 79137913 »
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*                                                          Resumenes Cs.Economicas

Desconectado WINTX

  • Staff
  • Usuario regular
  • ******
  • Mensajes: 128
  • Karma: +3/-2
  • WINTX
    • Ver Perfil
Re:Ayuda Chat en VB 2010
« Respuesta #7 : diciembre 17, 2012, 02:19:32 pm »
No quiero un chat IRC :S lo que no entiendo es como va eso de los sockets como los añado son simples códigos o hay que añadir algo?

Desconectado WHK

  • 吴阿卡
  • Administrador
  • Aportador
  • *****
  • Mensajes: 555
  • Karma: +15/-3
  • Coder
    • Yahoo Instant Messenger - yan_uniko_102
    • Ver Perfil
    • WHK
    • Email
Re:Ayuda Chat en VB 2010
« Respuesta #8 : diciembre 17, 2012, 02:22:23 pm »
pues claro, para utilizar sockets necesitas utilizar la libreria wsock.

Mira esto:
http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm

viene con ejemplos y todo. Si necesitas mas ayuda acá estaremos.
« Última Modificación: diciembre 17, 2012, 03:05:39 pm por 79137913 »
Mi WEB - The Hacktivism is not a crime - Si no lo hago yo, que lo hagan otros -

Desconectado WINTX

  • Staff
  • Usuario regular
  • ******
  • Mensajes: 128
  • Karma: +3/-2
  • WINTX
    • Ver Perfil
Re:Ayuda Chat en VB 2010
« Respuesta #9 : septiembre 17, 2013, 08:34:56 am »
Bueno, siento por responder algo tarde, pero gracias WHK al final logré hacerlo jeje, y fue bastante bien.


. . . . . . . .