+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: mouse yönlendirme (/konu-mouse-yonlendirme.html)
Sayfalar:
1
2
mouse yönlendirme - adsoft - 20/10/2011
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]
Cvp: mause yönlendirme - Kur@l - 20/10/2011
Forum Kuralları Gereği Örnek Eklemeniz Gerekmektedir.
Cvp: mouse yönlendirme - adsoft - 21/10/2011
cevap verecek kimse yok mu acil lazım
Cvp: mouse yönlendirme - alpeki99 - 21/10/2011
Bu uygulama size reklamlara/oyunlara otomatik tıklamak içinmi lazım?
Cvp: mouse yönlendirme - adsoft - 23/10/2011
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
Cvp: mouse yönlendirme - Yandemir - 23/10/2011
'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