perl三行代码完成窗口置顶
首先在这说明，写这篇文章前，我从没参考过其它人所写的关于窗口置顶的完整性脚本！
全是本人在网上搜索的代码，东拼西凑，经过自己测试而编写成功的！
好了，回到正题：
有接触过VB的人都知道，要想达到窗口置顶效果，只需要两个步骤：
1.到窗口的句柄
perl下载安装教程2.窗口置顶
以上两点分别都需要API函数！
而用perl也想使用API函数的话，需要下载Win32-API模块！具体如何下载安装这模块，可以参考网上perl模块安装介绍！
安装模块我在这就不作说明了！
以下为perl置顶完整脚本：
-----------------------------------------------------------
本帖隐藏的内容
#------------------------------------------------------------------
#!/usr/local/bin/perl
use lib "C:/Perl/lib";
use Win32::API;
Win32::API->Import('user32','int GetForegroundWindow()');
$hWnd = GetForegroundWindow();
Win32::API->new("user32","SetWindowPos",[qw(N N N N N N N)],'N')->Call($hWnd,-1,0,0,0,0,3);
#-----------------------------------------------------------------------------------------------------------------------------------------
如果需要做取消置顶，只需要将上面（-1，0，0，0，3）；中的-1改成-2就能达到取消置顶！
--------------------------------------------------------------------------------
以上代码直接复制后保存为top.pl文件，就可以直接使用！
谢谢大家的支持！
希望这置顶代码对大家编写脚本时有用！
以后用form编写脚本的人应该会有所增加吧！

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。