?? callback1.pl
字號:
$| = 1;
use blib;
use Win32::API;
use Win32::API::Callback;
my $Callback = Win32::API::Callback->new(
sub {
my($hwnd, $lparam) = @_;
printf "EnumWindows callback got: HWND=0x%08x LPARAM=%d\n", $hwnd, $lparam;
return 1;
},
"NN", "N");
$EnumWindows = new Win32::API("user32", "EnumWindows", "KN", "N");
$EnumWindows->Call($Callback, 42);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -