VB ile Mouse Koordinatları

[alimania]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bu dersimizde VB ile mouse işlemleri üzerinde çalışacağız ve Visual Basic'te API kullanarak mouse imlecinin yerini tespit etme ve değiştirmeyi göreceğiz.

Öncelikle 1 adet timer ekliyoruz.

Private Type POINTAPI         X As Long         Y As Long End Type  Declare Function GetCursorPos Lib "user32.dll" (ByVal lpPoint As POINTAPI) As Long Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long)  As Long  Private Sub Timer1_Tick() Dim yerler As POINATPI ykr = GetCursorPos(yerler) Me.Caption = yerler.X & "," & yerler.Y End Sub

Mouse konumlandırmak için:

X = 250 Y = 300 yer = SetCursorPos(X,Y)