perl中如何判讀鼠標的左鍵是否按下了及放開了？

sandy_amao

各位大神：perl中如何判讀鼠標的左鍵是否按下了及放開了？

iamlimeng

如果是Windows平臺，你可以看看Win32::GUI的Events，里面有不少鼠標相關(guān)的事件：
MouseDblClick()
MouseDown()
MouseMiddleDblClick()
MouseMiddleDown()
MouseMiddleUp()

523066680

去試了一下 Win32::GuiTest  的 isKeyPress 函數(shù)，好像只支持鍵盤事件，不支持鼠標。

C語言, windows.h
sw = GetKeyState(VK_LBUTTON);

然后搜了一下發(fā)現(xiàn) Win32::GUI 也有兩個相關(guān)函數(shù)：
GetKeyboardState()
GetKeyState(keyCode)

1. use Win32::GUI;
   
2. use IO::Handle;
   
3. use Time::HiRes qw/sleep/;
   
4. STDOUT->autoflush(1);
   
5. 
   
6. while (1)
   
7. {
   
8.     print Win32::GUI::GetKeyState(0x01);
   
9.     print "\n";
   
10.     sleep 0.1;
    
11. }

復(fù)制代碼

sandy_amao

多謝兩位大神的回復(fù)