アリ

2012-08-23

Cocoa::GuiTestというものを少しだけ書いた

Perl

akiym/Cocoa-GuiTest · GitHub

use 5.016;
use warnings FATAL => 'all';
use utf8;
use Cocoa::GuiTest;
use Time::HiRes qw/sleep/;

my ($width, $height) = Cocoa::GuiTest::GetScreenRes();

my $hz = 10;
my $omega = 2.0 * 3.14 * $hz;

for my $x (0 .. $width) {
    my $y = 141 * sin($omega * $x);
    $y += $height / 2;

    Cocoa::GuiTest::MouseMoveAbsPix($x, $y);

    sleep 0.005;
}

今のところマウス操作しか実装していないので、あとでキーボード操作あたりを実装する。

akiym 2012-08-23 07:22

Cocoa::GuiTestというものを少しだけ書いた
この記事をはてなブックマークに追加
Tweet
  • もっと読む
コメントを書く
« YAPC::Asia 2012で「Skype効率化」という… メモリリークを見つける方法 »
プロフィール
id:akiym id:akiym はてなブログPro
読者です 読者をやめる 読者になる 読者になる
@akiymをフォロー
検索
最新記事
  • PerlでもgRPCで通信したい
  • OpenSSLはどこにいる
  • UCSB iCTF 2018 - fantasticiot, hero_text_adventure
  • YAPC::Okinawaで「Perlコーディングテクニック2018」という話をしました
  • YAPC::Fukuokaで「新時代のテストフレームワークTest2」という話をしました
月別アーカイブ
カテゴリー
  • Perl (44)
  • CTF (14)
  • golang (2)
  • Mac (8)
注目記事

はてなブログをはじめよう!

akiymさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?

はてなブログをはじめる(無料)
はてなブログとは
アリ アリ

Powered by Hatena Blog | ブログを報告する

スターをつけました

引用をストックしました

引用するにはまずログインしてください

引用をストックできませんでした。再度お試しください

限定公開記事のため引用できません。

読者です 読者をやめる 読者になる 読者になる