PureBasic Forums - English

Posted: **Mon Mar 17, 2008 12:53 am**

Using any hooks should slow down your system by a fraction at least - but you prob. wouldn't notice.

Posted: **Mon Mar 17, 2008 12:55 am**

Yes, you are correct. What I should have said is that they (the _LL hooks) can be more of a performance hog than the non _LL hooks.

Posted: **Mon Mar 17, 2008 9:03 am**

Sparkie wrote:WH_KEYBOARD_LL = no DLL required for global use
WH_MOUSE_LL = no DLL required for global use

all other WH_* = DLL required for global use

That's what I said.

Posted: **Mon Mar 17, 2008 12:48 pm**

So then I guess that means I agree with you DarkDragon. We just chose to use different words.

Posted: **Thu Feb 26, 2009 12:00 pm**

Hello at all

Thanks for this tips FLUID BYTE
I have alway read me too, that it's obligatory to create a DLL to hook global

This is very interesting

I have tried your code and that's works fine

I have tried to mix the two hook (Keyboard and mouse), that's works too.
But i have three questions

1/ Is it the good way to do that ??
2/ Have you more simple method, to go out, without have Quit in global ??
3/ When i press the Shift KEY, i have two debug letter, have you a way to don't do this ???

Code: Select all

Global Quit

Procedure MouseKeyHook(nCode, wParam, lParam) 
   
 Select wParam
  
  Case #WM_RBUTTONDOWN 
  
   Debug "Clic droit"
  
  Case #WM_KEYDOWN
  
   EventwParam()
  
  Case #WM_KEYUP 
   
   EvenementClavier = EventwParam() 
 
   If EvenementClavier = 27
    Quit = #True
   ElseIf EvenementClavier <> 16
    Debug "Appuie touche " + Chr(EvenementClavier)
   EndIf
       
 EndSelect

 ProcedureReturn CallNextHookEx_(0, nCode, wParam, lParam) 
 
EndProcedure 

OpenWindow(0, 0, 0, 240, 140, "MouseBlock", #WS_CAPTION|#WS_SYSMENU|1) 
StickyWindow(0,1) 
hhkLLMouse = SetWindowsHookEx_(#WH_MOUSE_LL, @MouseKeyHook(), GetModuleHandle_(0), 0) 
hhkLLKey = SetWindowsHookEx_(#WH_KEYBOARD_LL, @MouseKeyHook(), GetModuleHandle_(0), 0) 

Repeat 
 Evenement = WaitWindowEvent() 
Until Quit = #True Or Evenement = #PB_Event_CloseWindow

UnhookWindowsHookEx_(hhkLLMouse)
UnhookWindowsHookEx_(hhkLLKey)

Thanks again for all

Posted: **Thu Feb 26, 2009 12:41 pm**

The idea of Kwai messing with hooks gives me the creeps.

Posted: **Thu Feb 26, 2009 12:44 pm**

... gives me two hemorrhoids apiece...

Posted: **Thu Feb 26, 2009 4:50 pm**

Fluid and Kaeru wrote:creeps and hemorrhoids ...

It's totally normal, because i'm a asshole in programming with a egg head

But i'm a asshole with a egg head without answer too

Apparently, my computer will explode my face in few minut at read your comment :roll:

Posted: **Thu Feb 26, 2009 7:35 pm**

** CAN'T, DESCRIBE, HOW ***ING HARD, I, AM, LAUGHING RIGHT NOW ... **

Posted: **Thu Feb 26, 2009 9:05 pm**

That's good, that's good

LAUGHING , LAUGHING , hi , hi, hi

But in the same time of you laugh , hi, hi, hi

Can you

say me, hihihi

Why hahaha

my procedure MouseKeyHook(nCode, wParam, lParam)

Is not hihihi good

Because houhouhou

the more funny

in this story hy hy hy hy

it's that works

I don't know it's for houhouhou a long time

but it's works hahaha

Not too much laugh, because i don't explode only my computer, i'm affraid also for my hemorrhoids

Posted: **Thu Feb 26, 2009 11:22 pm**

Kwaï chang caïne wrote:It's totally normal, because i'm a asshole in programming with a egg head

Kwaï chang caïne wrote:1/ Is it the good way to do that ??
2/ Have you more simple method, to go out, without have Quit in global ??
3/ When i press the Shift KEY, i have two debug letter, have you a way to don't do this ???

Kwaï, honestly, do you really know what you are doing?

I have put together an example but I don't feel too well giving it to your hands!

Code: Select all

Structure KBDLLHOOKSTRUCT
	vkCode.l
	scanCode.l
	flags.l
	time.l
	dwExtraInfo.l
EndStructure

Procedure HookProc(nCode,wParam,lParam)
	Select wParam
		Case #WM_RBUTTONDOWN
		Debug "Clic droit"
		
		Case #WM_KEYDOWN
		
		Case #WM_KEYUP
		*kbhk.KBDLLHOOKSTRUCT = lParam
				
		If *kbhk\vkCode ! #VK_LSHIFT And *kbhk\vkCode ! #VK_RSHIFT And *kbhk\vkCode ! #VK_CAPITAL
			Debug "Appuie touche " + Chr(EventwParam())
		EndIf
	EndSelect
	
	ProcedureReturn CallNextHookEx_(0,nCode,wParam,lParam)	
EndProcedure

OpenWindow(0,0,0,240,140,"Mouse+Keyboard Block",#WS_CAPTION | #WS_SYSMENU | 1)

StickyWindow(0,1)

hhkLLMouse = SetWindowsHookEx_(#WH_MOUSE_LL,@HookProc(),GetModuleHandle_(0),0)
hhkLLKey = SetWindowsHookEx_(#WH_KEYBOARD_LL,@HookProc(),GetModuleHandle_(0),0)

AddKeyboardShortcut(0,#PB_Shortcut_Escape,101)

Repeat
	EventID = WaitWindowEvent()
	
Until EventID = #PB_Event_CloseWindow Or EventMenu() = 101

UnhookWindowsHookEx_(hhkLLMouse)
UnhookWindowsHookEx_(hhkLLKey)

Posted: **Fri Feb 27, 2009 10:02 am**

One thousand of thanks, FLUID.
I need that for do a keylogger for my personal use.
Because sometime, i wrote a long text in a forum thread, and when i click on the submit button, "paf" the post not go out, and the text is cleared

With this, i wrote all the key pressed in a txt, and i can save my post.

Again thanks my good FLUID
And be careful, a more big laugh is bad for the heart

Kwaï, honestly, do you really know what you are doing?

But no, you know i'm born an oyster

But even the oyster dream to have a brain a day :roll:

I have see this great tips, no DLL

And kcc who know nothing, try to put his little stone

I have put together an example but I don't feel too well giving it to your hands!

Why, you be affraid of what i do with this ????

Or you believe that i break my old computer with this

Posted: **Fri Feb 27, 2009 1:04 pm**

Kwaï chang caïne wrote:Because sometime, i wrote a long text in a forum thread, and when i click on the submit button, "paf" the post not go out, and the text is cleared

With Firefox, I don't have this problem anymore ...

Posted: **Fri Feb 27, 2009 9:44 pm**

Yes you are right, i use IE.
How you have guess my use ??

But i think for a time that it's not the fault of IE, but sometimes especially with the VB forum codesource.
I send the post, and i have a empty page.
When i click the back button, the windows of text is empty too.
All is lost

I know that it exist Keylogger freeware, like this :
http://www.01net.com/outils/telecharger ... 37053.html
But i like make it myself, if it's possible, and it's better with my love PB

Posted: **Fri Feb 27, 2009 9:49 pm**

Kwaï chang caïne wrote:When i click the back button, the windows of text is empty too.
All is lost

this definitely an IE problem.
when I used IE years ago and did RolePlay, I wrote my moves in notepad and pasted it into the browser when ready.
I lost too much moves before I did so, in different forums, different software.

when I started to use FiFo I could stop this, because on backbutton all the text was still there.

PureBasic Forums - English

Hook and steal mouse clicks?