HELP - AUTO KLIK – Visual Basic – Fórum – Programujte.com

Zdravim.
Potreboval by som poradit chcem vytvorit program v ktorom zadam suradnice kurzora a po stlaceni pr."F5" sa kurzor presunie a bude na danom miste klikat pr. kazdych 30s.
Nacitat suradnice kurzora viem ale ako nastavim ten auto clik mysi......

Vopred DIK.

no pokud budu mít večer čas tak se na to podívám ale nic neslibuju. Bude to zapeklité.

To QSILVER : čao .... nedavno sem takovej program psal sice v C# ale vyuziva API funkce tak ti s tim poradim bud si zkoukni funkce mouse_event a keybd_event a nebo se ozvi na icq 282515303

Tady je příspěvek, který umožňuje nastavit pozici kurzoru myši (netestoval jsem ho), je třeba vyzkoušet:
--------------------------------------------
Chcete-li měnit pozici kurzoru myši, není nic jednoduššího než využít služeb Win32API. Pro práci s pozicí kurzoru slouží API funkce SetCursorPos z knihovny USER32.DLL.
Pro demonstraci přikládám projekt, který používá navíc funkce ClientToScreen pro zjištění pozice formuláře na obrazovce a funkci GetDeviceCaps pro zjištení šířky a výšky formuláře.
Deklarace
Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long
Parametry
x ... pozice v bodech (pixel) zleva
y ... pozice v bodech (pixel) zhora
Zkušební projekt
'Vytvořte projekt s jedním formulářem a dvěma tlačítky
'Formulář: Form1
'Tlačítka: cmdScreen, cmdForm
'Kod vlozte do formulare
Option Explicit
Private Const HORZRES = 8
Private Const VERTRES = 10

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function ClientToScreen Lib "user32" _
(ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, ByVal nIndex As Long) As Long

Dim objPoint As POINTAPI
Dim vRet As Variant

Private Sub cmdForm_Click()
objPoint.x = 0
objPoint.y = 0
vRet = ClientToScreen(Form1.hwnd, objPoint)
objPoint.x = objPoint.x + Me.ScaleWidth / 2
objPoint.y = objPoint.y + Me.ScaleHeight / 2
vRet = SetCursorPos(objPoint.x, objPoint.y)
End Sub

Private Sub cmdScreen_Click()
objPoint.x = GetDeviceCaps(Form1.hdc, HORZRES) / 2
objPoint.y = GetDeviceCaps(Form1.hdc, VERTRES) / 2
vRet = SetCursorPos(objPoint.x, objPoint.y)
End Sub

Private Sub Form_Load()
cmdScreen.Caption = "Střed obrazovky"
cmdForm.Caption = "Střed formuláře"
Me.ScaleMode = vbPixels
End Sub
-------------------------------------------