Eso es para una que quiero hacer en un futuro y digan el porque ami personalmente kde x su diseño siplemente
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú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