Faire clicker un bouton tout seul en VB2008

Merci de votre aide j'attend svp.. ^^

ALORS !!!!!???? :'(:'(:'(:'(

...

Salut,

Tu crée un timer calibrer pour exécuter une fonction toute les 15secondes tu crée une procédure avec le code a exécuter tu fais un appel cette procédure sur l'event Click du Bouton et sur L'event Tick du Timer.

Nico#

Merci Nico de me répondre mais je commence en VB et je n'y connais pas dans ce code ci stp peut tu me le dire je l'apprend par coeur après ;):'(

Alors j'explique avec du code cette fois si par exemple la prodedure du click Bouton affiche le message Salut

Private Sub CliqueDuBouton ()

MessageBox.Show("Salut")

End Sub

// la c'est la procedure crée a part.

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

CliqueDuBouton()

End Sub

// A Chaque clic sur le bouton on fais appelle a la procédure CliqueDuBouton() que l'on a crée précedemment.

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

CliqueDuBouton()

End Sub

// appelle la fontion CliqueDuBouton() toutes les n secondes avec n = le temps calibrer dans les parametre du timer.

Enesperant vous avoir aidé.

MERCI BEAUCOUP c t pas si compliqué au final ^^ ! merci

MERCI BEAUCOUP NICO C'EST SUPER !!!!

Pour clicker, il y a surement une propriété de mouse dans Win32.
Voici un exemple d'utilisation du timer poour afficher un message quand on clicke sur l'écran.

Imports Microsoft.Win32 'VB2008

Public Class Form1

Dim Etiquette As New Label
Dim WithEvents Clock As New Timer
Public Event ClickSouris _
(ByVal Position As Point)

Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
SetBounds(Location.X, Location.Y, 300, 150)
TopMost = True
Controls.Add(Etiquette)
Etiquette.Dock = DockStyle.Fill
Clock.Interval = 100
'L'inconvénient c'est qu'on peut pas
'clicker plus de cent fois par seconde
Clock.Start()

End Sub

Friend Sub Clock_Tick() Handles Clock.Tick
If MouseButtons() = _
Windows.Forms.MouseButtons.Left Then
RaiseEvent ClickSouris(MousePosition)
End If
End Sub

Friend Sub Essai(ByVal Position As Point) _
Handles Me.ClickSouris
Etiquette.Text = _
("Le Bouton de la souris fut enfoncé " _
& vbLf & " en X= " & Position.X _
& " Y= " & Position.Y)
End Sub

End Class