#!/usr/bin/perl ## Initially generated by Win32-GuiTest Recorder (v1.03) ## Pragmas/Directives use strict; use warnings; ## Imports use Win32::GuiTest qw/:ALL/; $Win32::GuiTest::debug = 0; # Set to "1" to enable debug output. ## Main/Core # HINT: Foreground Window: Text = '(無題2)(変更) - WZ EDITOR', Class = 'txBase', Id = 5900855 MouseMoveAbsPix(313, 277); SendMouse('{LEFTCLICK}'); select(undef, undef, undef, 0.87); SendRawKey(VK_LSHIFT, KEYEVENTF_EXTENDEDKEY); SendKeys('t'); SendRawKey(VK_LSHIFT, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP); select(undef, undef, undef, 0.40); SendKeys('h'); select(undef, undef, undef, 0.64); SendKeys('is'); select(undef, undef, undef, 0.44); SendKeys('{SPC}is{SPC}'); select(undef, undef, undef, 0.31); SendKeys('a'); select(undef, undef, undef, 1.71); SendKeys('{SPC}sample.'); select(undef, undef, undef, 1.10); SendKeys('{ENT}'); select(undef, undef, undef, 0.89); SendKeys('{ENT}{ENT}{ENT}{UP}'); SendKeys('{UP}{UP}{UP}{UP}'); select(undef, undef, undef, 0.27); SendRawKey(VK_LSHIFT, KEYEVENTF_EXTENDEDKEY); SendKeys('{DOW}'); SendRawKey(VK_LSHIFT, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP); select(undef, undef, undef, 0.65); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY); SendKeys('c'); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP); SendKeys('{DOW}'); select(undef, undef, undef, 0.58); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY); SendKeys('v'); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY); SendKeys('vvvvvvvv'); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP); select(undef, undef, undef, 3.46); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY); SendKeys('a'); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP); select(undef, undef, undef, 2.69); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP); select(undef, undef, undef, 0.44); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY); SendKeys('x'); SendRawKey(VK_LCONTROL, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP); select(undef, undef, undef, 2.81); # HINT: Mouse Window: Text = '通知領域', Class = 'ToolbarWindow32', Id = 0 ## Subroutines