Win32: mouse button swapper

perlapp.exe --icon e:\pgg.ico --gui --info Comments=pgg@zapo.net; CompanyName=pGG;FileDescription=p_L-R.pl;FileVersion=0.0.2.0; InternalName=p_L-R.pl;LegalCopyright=The_licence_of_Perl; LegalTrademarks=pGG;OriginalFilename=p_L-R.pl;ProductName=p_L-R.exe; ProductVersion=0.0.2.0 p_L-R.pl

##### Name:    p_L-R.pl
##### Version: 0.0.2
##### Author:  pGG
##### Contact: pgg@zapo.net
##### Licence: The licence of Perl
##### Updated: 2002.09.21
use Win32::API;
Win32::API->new('user32','SystemParametersInfoA',[N,N,P,N],'N')->Call(
+97,1,0,0);
while(1){
    Win32::API->new('user32','InvalidateRect',[N,P,N],'N')->Call(0,0,1
+);
    Win32::API->new('user32','SwapMouseButton',[N],'N')->Call(1);
    Win32::API->new('user32','SwapMouseButton',[N],'N')->Call(0);
}
[download]

edited: Mon Sep 30 00:17:24 2002 by jeffa - title change (was: p_L-R.pl), added newlines to snippetdesc

Comment on Win32: mouse button swapper Download Code

Replies are listed 'Best First'.
Re: Win32: mouse button swapper by Anonymous Monk on Sep 30, 2002 at 03:44 UTC
refurbish of trying	[reply]