vayy buda guzelmıs pekı mouse ıstedıgımız yere konumlandırmyı tıklatmayıda bılıomusun yoksa alıntı mı bu

bir modul olustur su kodlari yapistir Public Declare Sub mouse_event Lib "user32" Public Declare Function SetCursorPos Lib "user32" As Long Public Declare Function GetCursorPos Lib "user32" As Long Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 Public Const MOUSEEVENTF_MIDDLEUP = &H40 Public Const MOUSEEVENTF_RIGHTDOWN = &H8 Public Const MOUSEEVENTF_RIGHTUP = &H10 Public Const MOUSEEVENTF_MOVE = &H1 Public Type POINTAPI x As Long y As Long End Type sonrada forma su kodlari yapistir Public Function GetX As Long Dim n As POINTAPI GetCursorPos n GetX = n. x End Function Public Function GetY As Long Dim n As POINTAPI GetCursorPos n GetY = n. y End Function Public Sub LeftClick LeftDown LeftUp End Sub Public Sub LeftDown mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 End Sub Public Sub LeftUp mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 End Sub Public Sub MiddleClick MiddleDown MiddleUp End Sub Public Sub MiddleDown mouse_event MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0 End Sub Public Sub MiddleUp mouse_event MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0 End Sub Public Sub MoveMouse mouse_event MOUSEEVENTF_MOVE, xMove, yMove, 0, 0 End Sub Public Sub RightClick RightDown RightUp End Sub Public Sub RightDown mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 End Sub Public Sub RightUp mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 End Sub Public Sub SetMousePos SetCursorPos xPos, yPos End Sub ondan sonra mouse in nereye gitmesini istiorsan bir buton altina formun loadina artik o sana kalmis soyle yazacan call setcursorpos x dikey y yatay kordinat artik ayarlarsin eger sag click olmasini istiorsanda call rightclick yazacan sol click icin call leftclick artik incelersin kolay gelsin...

hdd de bir yerlerde apiler ve hook ile ilgili bir ebook olmasi lazim bende eger bulursam upload ederim incelersin bu mouse hook olayini ben bir cok yerde kullanirim dock uygulamarinda ozellikle cok ise yarar...

fuujin yanlız bu hook olayı projeyi her seferinde kırıyor hata üretiyor pscode ben ortadaki tekerliği kullanan koduda buldum ama denediğim tüm kodlar bazen çalışıyor aynı kodu ikinci kez çalıştırdığımda program kitlenip duruyor ve kitlendiği nokta hep HookProc prosedure oluyor sizde de bu sorun ortaya çıkıyormu? hata mesajı vermiyor vbasic hata üretiyor gönder gönderme mesajı veriyor tamemn kapanıyor hangi yerde hata ürettiğini f8 adım adım çalıştırdığımda görmüştüm.

okul birsey vermior valla ama marmaradan mezunum evet arastirarak ve tabiki kafayi calistirarak apiler ilede mumkun ama eger programinin saglam olmasini istiyorsan hook olayi ile yapman lazim cunku rookitler hep apileri kullanarak buluyor...

off birader bunlarla nerler yapılır sabahtan beri karma vermeye calsıyorum ama ya bende sorun var ya da wardom goctu gocucek hoca bu arada kaynagın nere c de bı proje dusunuyorum da henuz neyle yapılcagını bılmıyorum sıstemdekı butun mesajları okumam gerekıyo sanırım hook olayı bı bılgın varmı veya kaynak

sana seviyorum çok işime yarıııcakkk

Kullanmasini bilen super seyler yapabilir artik sizin kabilyetineze kalmis ama bence super code parcasi ben bircok yerde kullanacagim kesin neyse kodlar bir modul olusturun: Option Explicit Private Declare Sub CopyMemory Lib "kernel32. dll" Alias "RtlMoveMemory" Private Declare Function PtInRect Lib "user32" As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" As Long Private Declare Function UnhookWindowsHookEx Lib "user32" As Long Private Declare Function CallNextHookEx Lib "user32" As Long Declare Function FindWindow Lib "user32" Alias "FindWindowA" As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" As Long Private Const HC_ACTION = 0 Private Const WH_MOUSE_LL As Long = 14 Private Const WM_MOUSEMOVE = &H200 Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type POINTAPI X As Long Y As Long End Type Private Type MSLLHOOKSTRUCT pt As POINTAPI mouseData As Long Flags As Long time As Long dwExtraInfo As Long End Type Public warHwnd As Long Public hHook As Long Public hRT As RECT Public Sub EnableHook hRT = hRect If hHook = 0 Then hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, App. hInstance, 0) End If End Sub Public Sub FreeHook If hHook <> 0 Then Call UnhookWindowsHookEx hHook = 0 End If End Sub Public Function HookProc As Long ' Øμ÷o ̄eý,± WINODWSμ÷ÓÃ Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI Dim X As Long, Y As Long If nCode < 0 Then HookProc = CallNextHookEx Exit Function End If CopyMemory typMHS, ByVal lParam, Len If wParam = WM_MOUSEMOVE Then pt = typMHS. pt If PtInRect <> 0 Then HookProc = 1 Else Form1. Caption = "mouse Cursor at " + CStr + "," + CStr & " lp:" & lParam HookProc = 0 End If End If Call CallNextHookEx End Function ve forma sunlari yazin: Option Explicit Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const SWP_NOACTIVATE = &H10 Const SWP_SHOWWINDOW = &H40 Private Declare Sub SetWindowPos Lib "user32" Private Sub Form_Activate SetWindowPos Me. hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE End Sub Private Sub Form_Load Dim RT As RECT With RT. Left = 0. Right = 100. Top = 0. Bottom = 100 End With EnableHook RT End Sub Private Sub Form_MouseDown Print ":" & X & " - " & Y End Sub Private Sub Form_Unload FreeHook End Sub kolay gelsin...

belli bir kaynak yok genelde rus cin ve kendim birlestiriyorum ama hic birsey hazir degil 1000 sayfalik apileri anlatan kitaplari okuyarak bu kodlar cikartiliyor hook olayi ise tamamiyla baskadir hook olayi windows apilerindne bagimsiz kullanirsin herseyi bir nevi java gibi cunku windowsda yaptigimiz her programlar windows apileri kullaniyor show unload draw click hersey... hook ile bu apileri kullanmadan direk olarak kendin bu apilerin yaptigi isleri yaziyorsun. eger crack isiyle ugrasirsan demek istedigimi daha ii anlarsin herneyse kendim bilgisayar ve inetim hala yok aklimda cok fena seyler var insallah 2 hafta icinde bilgisayar ve inet alacam bu arada buraya bakmani tavsiye ederim.. http://www.wardom.org/isinize-yarayacak-super-bir-program-ozellikle-virus-yazanlar-icin-t225270.html bence bu program cok tehlikeli olacak:d bide c demissin bende c yi tavsiye ederim c bilgim vb bilgimden cok daha iyidir fakat vb daha hosuma gidiyor cunku c ile apileri kullanmak olum...

Dostum bu mouse hook yöntemi bize ne tür bir avantaj sağlar? Benim bilmediğim bir konu bu hook ama söylersen biz de öğrenmiş oluruz

bukadar bılgıyı arastırarak mı ogrendın hangı okula gıttın. Ya pekı benım sıstemdekı butun mesajları okumama apıler ızın vermez heralde hook olayını mı arastırmalıyım yoksa daha basıt cozumlerı varmıdır