AccessTr.neT

Tam Versiyon: mouse yönlendirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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]
Forum Kuralları Gereği Örnek Eklemeniz Gerekmektedir.
cevap verecek kimse yok mu acil lazım
Bu uygulama size reklamlara/oyunlara otomatik tıklamak içinmi lazım?
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

'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
Sayfalar: 1 2