AccessTr.neT

#If VBA7 Then

    Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

#Else

    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

#End If





Private Type POINTAPI

        X As Long

        Y As Long

End Type



Dim a As POINTAPI

Dim b As Long

Dim c As Long

Dim ret As Variant

Dim ilk As String

Dim son As String

Dim say As Integer



Const sure As Long = 5 '5 demek 5 saniye

Const saniye As Long = 1000 'saniye cinsi





Private Sub Form_Load()

    TimerInterval = saniye

      ilk = mousepos

      say = 1

End Sub



Private Function mousepos() As String

    ret = GetCursorPos(a)

    b = a.X

    c = a.Y

    mousepos = "X:" & b & " ; Y :" & c

End Function



Sub mesajVer()

    MsgBox "Abi yorgunuz galiba" _

            & vbCrLf & " kalk yerine yat bende verileri kaybolmadan kaydedeyim" _

            & vbCrLf & " veya daha iyisi deðiþiklikleri geri alayým" _

            & vbCrLf & " sen bir ara tekrar bakarsýn", vbInformation, "Süre"

End Sub



Private Sub Form_Timer()



    If say Mod sure = 1 Then ilk = mousepos

    If say Mod sure = 0 Then son = mousepos

    

    If say Mod sure = 0 Then

      If ilk = son Then

            mesajVer

      End If

    End If

    

    txtSay.Value = say Mod sure

    say = say + 1



End Sub