Tvinge mus til at trykke

Se her:

http://www.mentalis.org/apilist/mouse_event.shtml
http://www.mentalis.org/apilist/5C9553D537D8F9570CD9FD9C42DE3334.html

Først og fremmest smider du en timer på din form.

i timer1.timer skriver f.x. command1.value = true eller hvad kode du nu vil have udført.

vbcoder: tror ikke lige det er det han vil have.. den kan han jo kun bruge i sit eget program.. tror han vil kunne bruge den hvor som helst i windows.. og der skal han nok kigge lidt på de sider som sjh gav... :D:D:D

Du skal bare gøre sådan: (Husk en Timer1)

'------------------------------ Form1 ------------------------------
Option Explicit

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
                                              ByVal dx As Long, _
                                              ByVal dy As Long, _
                                              ByVal cButtons As Long, _
                                              ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Private Sub Form_Load()
  Timer1.Interval = 30000 '30000 = 30 sek
End Sub

Private Sub Timer1_Timer()
  Call mouse_event(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&)
End Sub
'------------------------------ Form1 ------------------------------

Så er jeg her igen.. Brugte eksemplet fra 2. link :)