Para este projeto insira no seu form :
2 Textbox ou 1 Textbox e 1 NumericUpDown
2 Buttons
1 Timer
o primeiro button insira em seu caption : IniciarChat
o segundo button para ParaChat.
no numericUpDown : Intervalo(milisegundos).
codigo do source:
Public Class Form1
Private Sub Button1_click(ByVal sender As System.object, ByVal e As System.EventArgs) Handles Buttun1.click
Timer1.Interval = NumericUpDown1.Value
Timer1.Enabled = True
End Sub
Private Sub Timer1.tick(ByVal semder as system.object, ByVal e as system.eventArgs) Handles Timer1.Tick
My.Computer.Keyboard.SendKeys(TextBox1.Text)
My.Computer.Keyboard.SendKeys(“{ËNTER}”)
End Sub
Private Sub Button2_click(ByVal sender as System.object, ByVal e as System.EventArgs) Handles Buttun2.click
Timer1.Enabled = False
End Sub
End Class
Esta ai, um Chat Em VB!.
Início