codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
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
Private
[
?
]
Run code
Submit