Win32::GuiTest 㧠Windows ã® GUI アプリをãƒãƒƒã‚¯ã—よã†åŸºæœ¬çš„ãªæ›¸ãæ–¹ use strict; use warnings; use utf8; # ↑ Perl ãƒãƒƒã‚«ãƒ¼ã« DIS られãªããªã‚‹ãŠã¾ã˜ãªã„ # Win32::GuiTest を使ã†ãŠã¾ã˜ãªã„ use Win32::GuiTest qw(:ALL); # 日本語を使ãˆã‚‹ã‚ˆã†ã«ã™ã‚‹ãŠã¾ã˜ãªã„ UnicodeSemantics(1); # ã“ã“㧠Win32::GuiTest を使ㆠマウスを動ã‹ã™ use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # å°æ•°ç‚¹ã‚‚ã„ã‘ã¡ã‚ƒã† sleep 関数 use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms 待㤠sleep(0.01); # マウ
{{#tags}}- {{label}}
{{/tags}}