getne eu pesso isso pela 3000000000000000 vez .... me ajuda aew plzzzz

 

Como eu fasso pra simular um CLICK!!!!!!???????

Simular click em q?????//

se for pra chamar um click no commandbutton, ou em qualquer outro controle vc deve colocar a rotina qdo vc clica nesse formulario, tipo no command :

 

command1.setfocus

command1_click  

 

tenta isso senao der certo vc me retorna.

 

OK

gente nun é issu tbem

 

eu simplesmente quero dexar o mouse parado em cima de uma coisa qualquer (tanto faz .... do menu iniciar a meu computador ) e ai eu dava um comando e ele simula um click ...........

eu só quero simular......... nao pressisa ser em um objeto especifico .......

^^

Antes de testar é bom ter salvado programa!!!!!!!!!!!!!!!!!!

 

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)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Form_Activate()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Do
        'Simulate a mouseclick on the cursor's position
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
        DoEvents
    Loop
End Sub