| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 5427 人关注过本帖
标题:获取屏幕鼠标位置小程序
只看楼主 加入收藏
zhu224039
Rank: 8Rank: 8
等 级:贵宾
威 望:17
帖 子:862
专家分:792
注 册:2012-7-29
结帖率:59.52%
收藏
 问题点数:0 回复次数:1 
获取屏幕鼠标位置小程序
#! /usr/bin/perl
#use strict;
use Win32::API;
 Win32::API::Struct->typedef( LPPOINT => qw{
        LONG x;
        LONG y;
    });

Win32::API->Import('user32', 'BOOL GetCursorPos(LPPOINT lpPoint)');
my $pt = Win32::API::Struct->new('LPPOINT');
while(1){
$pt->{x}=0;
$pt->{y}=0;
GetCursorPos($pt);
print "$pt->{x},$pt->{y} \n";
sleep(1);
};
搜索更多相关主题的帖子: sleep 
2014-07-20 13:31
快速回复:获取屏幕鼠标位置小程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.089076 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved