Step 1. Create a free account at DriveHQ
Step 2. Upload a file and call it text.txt
Step 3. Add 2 timers to the form, 2 buttons, and 3 textboxs.
Step 4. The Code
Now you can talk to to people all over the world
Step 2. Upload a file and call it text.txt
Step 3. Add 2 timers to the form, 2 buttons, and 3 textboxs.
Step 4. The Code
- Code:
Imports System.Net
Public Class frmChat
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim AClinet As New WebClient
AClinet.Credentials = New Net.NetworkCredential("Your Username", "your password")
AClinet.UploadString("ftp://ftp.drivehq.com/file.txt", "User " & TextBox3.Text & " Says: " & TextBox2.Text & vbCrLf)
TextBox2.Text = ""
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim BClient As New WebClient
BClient.Credentials = New Net.NetworkCredential("your username", "your password")
TextBox1.Text = (BClient.DownloadString("ftp://ftp.drivehq.com/file.txt"))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConnect.Click
cmdConnect.Enabled = False
TextBox1.Enabled = False
TextBox3.Enabled = False
Timer1.Enabled = True
Timer2.Enabled = True
TextBox1.Visible = True
TextBox2.Visible = True
End Sub
End Class
Now you can talk to to people all over the world
