Vb. net fare imlecini istenilen konuma kilitleme kodu lazım !

Merhaba,
Arkadaşlar normal pc ekranında yada kodlanılan projede fare imlecini isdediğim bir noktaya kilitlemek istiyorum, fareyi ne kadar oynatırsam oynatayım imleç yerinden milim kımıldamayacak, bu olayı 2 adet tuşa atamak istiyorum, biri kilitleyecek, diğeri kilidi açacak. Unity vb. diğer programlarda böyle kodlar var ama vb. net dilinde bu tür bir kod bulamadım. Nette paylaşılan kodlar bir işime yaramadı; bir konum belirleyip timere bağlamak filanda işe yaramıyor, imleç yine kımıldıyor.
Farenin tıklama olayı çalışmalı, yalnızca konumu aynı yerde kımıldamadan kalmalı.

Not: Lütfen sadece kodlama bilgisi olanlar yorum yazsın, anlamayan hiç karışmasın, teşekkürler.

bu kod klavye ve mouseyi aynı anda kilitliyor internette buldugunuz istenilen konumda kitlenmesi ile birleştirebilirsiniz
eğer istediğiniz bu değilse Google da Mouse Block konularına bakabilirsiniz çünkü diğer türlü ufak kımıldamalar olacagını istemediğinizden bu size uygun değildir direk kökten mauseyi istediğiniz konuma getirip iptal etmeniz bir tuşa basınca geri açmanız gerekir şöyle bir kod buldum işinize yararmı bilmem
dediğim gibi mouse block inceleyin biraz

lpatro280' Alıntı:

Visual Basic:

Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Boolean) As Boolean

   Public Shared Sub KlavyeKilitle(ByVal kilitlensinmi As Boolean)
      Dim n As Boolean = BlockInput(kilitlensinmi)
   End Sub
 
   KlavyeKilitle(true) 'klavye kilitlendi
   KlavyeKilitle(false) 'kilit Açıldı

bu kod klavye ve mouseyi aynı anda kilitliyor internette buldugunuz istenilen konumda kitlenmesi ile birleştirebilirsiniz
eğer istediğiniz bu değilse Google da Mouse Block konularına bakabilirsiniz çünkü diğer türlü ufak kımıldamalar olacagını istemediğinizden bu size uygun değildir direk kökten mauseyi istediğiniz konuma getirip iptal etmeniz bir tuşa basınca geri açmanız gerekir şöyle bir kod buldum işinize yararmı bilmem

Visual Basic:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Declare Function BlockInput Lib "user32" Alias "BlockInput" (ByVal fBlock As Integer) As Integer
Private Declare Function ShowCursor Lib "user32" (ByVal lShow As Long) As Long
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Timer1.Enabled = True
    Timer1.Interval = 1
    Dim mkey As Boolean
    Dim dkey As Boolean
    Dim ekey As Boolean
    mkey = GetAsyncKeyState(Keys.M)
    dkey = GetAsyncKeyState(Keys.D)
    ekey = GetAsyncKeyState(Keys.E)
    If mkey And dkey = True Then
        BlockInput(1)
        ShowCursor(0)
    End If

    If mkey And ekey = True Then
        BlockInput(0)
        ShowCursor(1)
    End If
End Sub

dediğim gibi mouse block inceleyin biraz

Genişletmek için tıklayın ...

Benzer kodlar denedim, bu onlara yakın işe yaramadılar, gün içerisinde projeye uygulayıp tekrar bir deneme yapacağım, teşekkürler.
Mouse block olayını araştırdım zaten ama tam olarak aradığım işlevi yapan kaynak bulamadım.
Ve sadece fareyi kilitlemem gerek, klavyeyide kilitlersem tuşa basınca kilidi açamam...

buraya bir göz atmanı öneririm

mouse_event kullan winapiden. Invoke burda:

Bunu bir timer içinde tutarak istediğine ulaşabilirsin. Ya da SendInput da iş görücektir:



Bunu sürekli setlersen teknik olarak bir mouse kitleme elde edersin. Ama CPU'yu çok yorar. (NOT: Bu çözümler saçma çözümler. Sen normal googlede bulduklarım çalışmıyor yazmışsın diye bunları önerdim.)

istenilen konuma kilitleme derken 1 milim bi oynamicakmı ?
eğer öyle değilse şu mantıkta yap

if Cursor.Position != new Point(istenilenX,istenilenY)

Cursor.Position = new Point(istenilenX,istenilenY)

End If

Cromeflex' Alıntı:

istenilen konuma kilitleme derken 1 milim bi oynamicakmı ?
eğer öyle değilse şu mantıkta yap

if Cursor.Position != new Point(istenilenX,istenilenY)

Cursor.Position = new Point(istenilenX,istenilenY)

End If

Genişletmek için tıklayın ...

Aynen, konumu sabit hiç kımıldamayacak ama diğer fonksiyonları çalışacak.

Cromeflex' Alıntı:

istenilen konuma kilitleme derken 1 milim bi oynamicakmı ?
eğer öyle değilse şu mantıkta yap

if Cursor.Position != new Point(istenilenX,istenilenY)

Cursor.Position = new Point(istenilenX,istenilenY)

End If

Genişletmek için tıklayın ...

Aynen, konumu sabit hiç kımıldamayacak ama diğer fonksiyonları çalışacak.

Lyceion' Alıntı:

mouse_event kullan winapiden. Invoke burda:

Bağlantıları görmek için lütfen Giriş Yap

Bunu bir timer içinde tutarak istediğine ulaşabilirsin. Ya da SendInput da iş görücektir:

Bağlantıları görmek için lütfen Giriş Yap

Bağlantıları görmek için lütfen Giriş Yap

Bunu sürekli setlersen teknik olarak bir mouse kitleme elde edersin. Ama CPU'yu çok yorar. (NOT: Bu çözümler saçma çözümler. Sen normal googlede bulduklarım çalışmıyor yazmışsın diye bunları önerdim.)

Genişletmek için tıklayın ...

Teşekkürler, deneyeceğim.
Nette bulduklarımdan ' BlockInput(1) olayı işe yarıyor ama, klavyeyide kilitlediği için işime yaramıyor. Diğer kodlarda fare konumu değişip yerine dönüyor, bana hiç değişmeyen bir kod lazım.

Kullandığın kod klavye ile mouse aynı anda kitliyor ?

(Silindi)