Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Poruszanie kursorem
anonim




Typ: Nie zarejestrowany
Poruszanie kursorem

Witam jak poruszyc kursorem w jakies miejsce np nad jakis przycisk i zeby kursor nacisnol na to.
z góry dziekuje za odpowiedz

27-02-2005 11:01
  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Na zmianę pozycji:

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Na kliknięcie (między innymi):

'Before you start this program, I suggest you save everything that wasn't saved yet.
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:
    Do
        'Simulate a mouseclick on the cursor's position
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
        DoEvents
    Loop
End Sub



_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

27-02-2005 11:36
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Tamgo




Typ: neutral
Postów: 129
Zarejestrowany: Aug 2004

Przepraszam Cię Mikmas, ale podpowiem anonimowi, żeby przeczytał dokładnie 1 komentarz. Tam jest informacja ostrzegająca, że program może się co najmniej dziwnie zachować (tak mi się wydaje).
Ten komentarz mniej więcej znaczy: " Zanim uruchomisz program, sugeruję zapisanie wszystkich niezapisanych danych"
Czy wypróbowałeś już go?

03-03-2005 10:47
Pokaż profil Tamgo  Wyślij email do Tamgo        4484571
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

To ostrzeżenie jest tam z powodu, że program po włączeniu wywołuje w pętli klikanie tam gdzie znajduje się kursor.


_____________________________________________
www.mob.abc.pl - moja strona o VB

03-03-2005 11:52
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Tamgo




Typ: neutral
Postów: 129
Zarejestrowany: Aug 2004

Jeśli dobrze zrozumiałem; chodzi o to aby czegoś przypadkiem nie uruchomił - bo nie wiadomo gdzie w danym momencie może być kursor?

03-03-2005 12:08
Pokaż profil Tamgo  Wyślij email do Tamgo        4484571
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Może tak, a może autor miał inne zastrzeżenia, jednak może nie ciekawie działać tylko w tym przykładzie. Ja to już pare razy używałem te funkcje i nie mogę narzekać. Można je używać bez niebezpieczeństwa!


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

03-03-2005 14:26
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1