Anasayfa > Kodlar > VB6 ile Farede Hareket Kontrolü

VB6 ile Farede Hareket Kontrolü

Farede hareket olmazsa uyarı kodu çıkar

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim simdikikordinat

Private Sub Timer1_Timer()
Dim kordinat As POINTAPI
GetCursorPos kordinat

If simdikikordinat = kordinat.X & kordinat.Y Then
MsgBox "Farede kıpırtı yok"
End If

If birkerecalisir <> 1 Then
simdikikordinat = kordinat.X & kordinat.Y
birkerecalisir = 1
End If

End Sub


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: