in reply to Win32 GUI Input or Event

I have never used a credit card scanner but, if they're like barcode scanners, I'm assuming they simply enter their content in whatever has focus, in this case your hidden $card_input textfield. You could use a Change() event on the textfield to tell you when the card has been swiped. Example: (untested)

...
# Create controls

$event_field->Append("Initializing modem... ");

init_modem();

$event_field->Append("initialized\n");

$card_input->SetFocus();

$event_field->Append("Please swipe card... ");

$window->Show();

Win32::GUI::Dialog();

sub card_input_Change {
    my $input1 = $card_input->GetLine(0);
    my $input2 = $card_input->GetLine(1);

    $event_field->Append("swiped\n");

    print "\$input1: $input1\n";
    print "\$input2: $input2\n";

    my $cc_number;
    if ($input1 =~ /^\%B(\d{16})/i) {
        $cc_number = $1;
    }

    my $exp_dt;
    if ($input2 =~ /\=(\d{2})(\d{2})(.*)/) {
        $exp_dt = $2 . $1;
    }

    sleep 1;

    $event_field->Append("Connecting... ");

    ...
}

[download]

Replies are listed 'Best First'.
Re^2: Win32 GUI Input or Event
by perldiverx (Beadle) on Aug 27, 2013 at 16:50 UTC
    Figured it out. What I did to get this to work is loop checking for one of two flags. The DoEvents method coupled with a while loop checks for both outcomes, albeit not concurrently. I had to put a short sleep timer in the loop or the click would not register. I've also removed the onMouseMove params from the buttons because the mouse clicks were not registering with them on their.

    So here's what I changed to get this to work: 
    use Time::HiRes qw(usleep); #added 

use vars qw/$cc_number $exp_dt/; #add these two

my $input1 = ''; #added these here so I 
my $input2 = ''; #could use them in subs
my $swiped = 0;
my $clicked = 0;

# ...
#old code matched in this section
# ...

$event_field->Append("Please swipe card... ");

$window->Show();
$window->DoEvents();

while ($swiped != 1 && $clicked != 1) {
    $swiped = check_swipe();
    usleep(750000);
    $window->DoEvents();
}

if ($swiped == 1) {
    $event_field->Append("swiped\n");
}

sleep 1;

$event_field->Append("Connecting... ");

sub check_swipe {

    $input1 = $card_input->GetLine(0);
    $input2 = $card_input->GetLine(1);
    
    if ($card_input->GetLine(1) !~ /\?$/) {
        $card_input->SetFocus();
        $input1 = $card_input->GetLine(0);
        $input2 = $card_input->GetLine(1);
        $window->DoEvents();
    }
    
    if ($input1 =~ /^\%B(\d{16})/i) {
        $cc_number = $1;
    }
 
    if ($input2 =~ /\=(\d{2})(\d{2})(.*)/) {
        $exp_dt = $2 . $1;
        return 1;
    }
    return 0;
}

sub manual_dial_Click {
  
    $card_number_label->Show();
    $clicked = 1;
}

    [download]
[reply]
[d/l]
      This old solution was not very good. What I ended up doing was using the keydown event handler and regex'd on that string.
[reply]

In Section Seekers of Perl Wisdom