Chinaunix

标题: perl中如何判读鼠标的左键是否按下了及放开了？ [打印本页]

作者: sandy_amao 时间: 2017-07-01 23:20
标题: perl中如何判读鼠标的左键是否按下了及放开了？
各位大神：perl中如何判读鼠标的左键是否按下了及放开了？

作者: iamlimeng 时间: 2017-07-03 12:51
如果是Windows平台，你可以看看Win32::GUI的Events，里面有不少鼠标相关的事件：
MouseDblClick()
MouseDown()
MouseMiddleDblClick()
MouseMiddleDown()
MouseMiddleUp()

作者: 523066680 时间: 2017-07-03 18:51
本帖最后由 523066680 于 2017-07-03 19:11 编辑

去试了一下 Win32::GuiTest 的 isKeyPress 函数，好像只支持键盘事件，不支持鼠标。

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

然后搜了一下发现 Win32::GUI 也有两个相关函数：
GetKeyboardState()
GetKeyState(keyCode)

use Win32::GUI;
use IO::Handle;
use Time::HiRes qw/sleep/;
STDOUT->autoflush(1);
while (1)
{
print Win32::GUI::GetKeyState(0x01);
print "\n";
sleep 0.1;
}

复制代码

作者: sandy_amao 时间: 2017-07-04 20:33
多谢两位大神的回复

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)