tuto-informatique.seb30.overblog.com

voici le programme ,pour l utuliser marquer votre texte clique start et des que vous voulez entrer votre texte quelque part ca fonctionne 

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Enabled = True

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

On Error Resume Next

SendKeys.Send(TextBox1.Text)

On Error Resume Next

SendKeys.Send("()")

End Sub

End Class

voici le programme pour les plus septiques ,je rappel qu il faut une adresse hotmail pour pouvoir envoyer des mails 

Imports System.Net

Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Enabled = False

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

End Sub

Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

Text = "0"

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim MyMailMessage As New MailMessage()

MyMailMessage.From = New MailAddress(TextBox1.Text) MyMailMessage.To.Add(TextBox3.Text) 

MyMailMessage.Subject = (TextBox4.Text)

MyMailMessage.Body = TextBox5.Text Dim SMTPServer As New SmtpClient("smtp.live.com")

SMTPServer.Port = 587 SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

SMTPServer.EnableSsl = True Label7.Text = Val(Label7.Text + 1) SMTPServer.Send(MyMailMessage)

End Sub

End Class

trouver l ip dans site ex www.facebook.com

je met le programme a telecharger pour les feneants

il faut 2 textbox 1 bouton et 2 labels

Imports System.net

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Hostname As IPHostEntry = Dns.GetHostByName(TextBox1.Text)

Dim ip As IPAddress() = Hostname.AddressList TextBox2.Text = ip(0).ToString

End Sub

End Class