mouse yönlendirme

1 2
20/10/2011, 17:00

adsoft

slm arkadaşlar
access de mause imlecini forum üzerinde x ve y kordinatlarına göre istediğim yere yönlendire bilirmiyim çok acil lazım[/align]
20/10/2011, 17:06

Kur@l

Forum Kuralları Gereği Örnek Eklemeniz Gerekmektedir.
21/10/2011, 08:23

adsoft

cevap verecek kimse yok mu acil lazım
21/10/2011, 18:46

alpeki99

Bu uygulama size reklamlara/oyunlara otomatik tıklamak içinmi lazım?
23/10/2011, 10:53

adsoft

evet ama durum farklı https://intvd.gib.gov.tr/internetvd/index.jsp mtv ödeme ve sorgulama bölümü var ben onu tıklamasını istiyorum
23/10/2011, 12:19

Yandemir


'Mouse Oynatma

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, _
lpPoint As POINTAPI) As Long

Sub MoveMouseCursor(ByVal X As Long, ByVal Y As Long, _
Optional ByVal hWnd As Long)
If hWnd = 0 Then
SetCursorPos X, Y
Else
Dim lpPoint As POINTAPI
lpPoint.X = X
lpPoint.Y = Y
ClientToScreen hWnd, lpPoint
SetCursorPos lpPoint.X, lpPoint.Y
End If
End Sub

Private Sub Detail_Click()
MoveMouseCursor 400, 400 'Mouse u 400, 400 kordinatlarına taşır.
End Sub

Private Sub Form_Timer()
MoveMouseCursor Int(Rnd * 400), Int(Rnd * 400) 'Mouse u Rastgele kordinatlara taşır.
End Sub
1 2