mediacoder_unlocker.pl

#!perl -w

use strict;
use Win32::GuiTest qw(:ALL);
my $mediacoderWindowsDonationId;

# wait for donation box
START:

print "Wait for donation box...\n";
do {
  $mediacoderWindowsDonationId = 0;
  $mediacoderWindowsDonationId = detectDonationWindow();
  sleep(2);
} while (not $mediacoderWindowsDonationId) ;

# donation box found
print "Find donation window (id : $mediacoderWindowsDonationId)\n";

# try to answer question
my $answer = answerQuesion($mediacoderWindowsDonationId);
if ($answer eq '') {
  die "Could not find math question\n";
} else {
  print "Result is $answer\n";
}

my @coords = GetWindowRect($mediacoderWindowsDonationId);

# set focus on window
SetFocus($mediacoderWindowsDonationId);
# send mouse to result box
MouseMoveAbsPix($coords[0] + 360, $coords[1] + 243);
# click
SendLButtonDown(); SendLButtonUp();
# send result
SendKeys($answer);
# click on "Continue" button
PushChildButton($mediacoderWindowsDonationId,'Continue');

# loop
sleep(10);
goto START;

################################################################################################################
sub detectDonationWindow {
  foreach (FindWindowLike(undef, "Continue in ")) {
	#my $text = GetWindowText($_);
	#printf "Debug : GetWindowText($_) : $text\n";
	return $_;
  }
  return;
}


sub answerQuesion {
	my $windowId = shift;
	my @children = GetChildWindows($windowId);

	foreach (@children) {
		my $text = WMGetText($_);
		#print "Debug : Result for '$_' : '$text'\n" ;
		if ($text =~ /Let's do a simple math: ([^=]+)=/i) {
			print "Question is : $1\n";
			my $result = eval($1);
			return $result;
		} elsif ($text =~ /What is the (\d+).+? letter of the word "(.+?)"\?/i) {
			print "Question is : $text\n";
			my ($position,$word) = ($1,$2);
			my @tmp = split //, $word;
			return $tmp[$position -1];
		}
	}
	return '';
}