1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| #!/usr/bin/perl
use strict;
use warnings;
$|++;
use Win32::API;
use Data::Dumper;
use constant {
#DG_CONTROL => 0x0001L,
DG_CONTROL => 0x0001,
MSG_OPENDSM => 0x0301,
MSG_CLOSEDS => 0x0402,
MSG_USERSELECT => 0x0403,
};
my $DSM_Entry = new Win32::API('TWAINDSM.dll','DSM_Entry','PPNNNP','N');
my $TW_IDENTITY = pack('LSSSL', 4, 2, 2, 2, 6,
'Manufacture',
'ProductFamily',
'ProductName'
);
my $return = $DSM_Entry->Call(\$TW_IDENTITY, '', DG_CONTROL, '0', MSG_OPENDSM, '0'); |
Partager