[ create a new paste ] login | about

Link: http://codepad.org/CtMFRxpI    [ raw code | fork ]

Perl, pasted on Oct 23:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
use warnings;
use utf8;
use Win32::GuiTest qw/:ALL/;
use Win32::Clipboard;
use Win32::Exe;
my $exe=Win32::Exe->new('C:\Users\treeboa\perl\pic.exe');
my $manifest=$exe->get_manifest;
$manifest->set_execution_level('requireAdministrator');
$exe->set_manifest($manifest);
$exe->write;

..........
..........
Processing
..........
end


Create a new paste based on this one


Comments: