Cita de: NienSueños en 16 Diciembre 2012, 15:34 PM
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
por la forma en que realizas, tas combinando acciones de FTP, con acciones de descarga y a su vez estarias constantemente subiendo/bajando dicho archivo
te diria que lo replanteadas desde 0 bien
