查看: 20542|回复: 106	[昨夜星辰] 【源码】窗口自动排列 [复制链接]

发送短消息 UID 728264 帖子 3501 精华 18 鲜花 1898 朵 铜币 27453 个 银币 1717 个 性别 在线时间 82980 注册时间 2011-08-04 最后登录 2024-11-27 2500039815 查看公共资料 搜索主题 搜索帖子 昨夜星辰 QQ250039815 组别按键认证大神 UID728264 帖子3501 精华18 鲜花1898 朵 铜币27453 个 银币1717 个 在线时间82980 注册时间2011-08-04 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 羊年勋章 羊年纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 双蛋勋章 双蛋活动勋章 黄瓜勋章 体验商业小精灵活动的奖励 按键卫士 参与“打击山寨，维护按键”活动 屌丝勋章 参与屌丝逆袭活动专属勋章 土豪勋章 活动期间在淘宝商场购买按键产品 天使勋章 天使一样的用户 潜水员 按键潜水员勋章 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 虎年勋章 虎年纪念勋章 论坛GG 按键论坛男性用户勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 盒子会员 盒子会员专属勋章	1# 字体大小: t T 发表于 2022-06-03 11:41 | |只看楼主 我们平时会有打开多个相同窗口的需求，但是窗口很多的话显示会很乱，想清晰、直观地观察到窗口就得将窗口进行排列。如果是手动排列窗口既麻烦又不精准，今天我就分享一下如何将特定的窗口进行自动排列。 堆叠排列演示： ddpl.gif(2267.60 K) 2022/6/3 11:41:19 层叠排列演示： cdpl.gif(1806.79 K) 2022/6/3 11:41:19 源码： For 7 RunApp "Notepad.exe" Next Call 堆叠排列窗口("记事本", "Notepad") Delay 1000 RunApp "cmd /c taskkill /IM Notepad.exe /F /T" Delay 1000 For 7 RunApp "Notepad.exe" Next Call 层叠排列窗口("记事本", "Notepad") Delay 1000 RunApp "cmd /c taskkill /IM Notepad.exe /F /T" Delay 1000 Function 堆叠排列窗口(窗口标题, 窗口类名) Dim 屏幕大小, 任务栏窗口句柄, 任务栏大小, 可使用屏幕大小, sRect Dim 待排列窗口大小, 当前窗口句柄, 排列X间距, 排列Y间距 屏幕大小 = Array(Plugin.Sys.GetScRX(), Plugin.Sys.GetScRY()) 任务栏窗口句柄 = Plugin.Window.Find("Shell_TrayWnd", 0) If 任务栏窗口句柄 <> 0 Then sRect = Plugin.Window.GetWindowRect(任务栏窗口句柄) sRect = Split(sRect, "|") 任务栏大小 = Array(CLng(sRect(2)) - CLng(sRect(0)), CLng(sRect(3)) - CLng(sRect(1))) Else 任务栏大小 = Array(0, 0) End If 可使用屏幕大小 = Array(屏幕大小(0), 屏幕大小(1) - 任务栏大小(1)) Dim hwnds, U_hwnds, i, 窗口数量, 窗口在左时X坐标, 窗口在右时X坐标, 窗口Y坐标, 窗口Y间距 hwnds = Plugin.Window.SearchEx(窗口类名, 窗口标题, 0) If hwnds = "" Then MessageBox "未查找到匹配窗口！" Else hwnds = Split(hwnds, "|") U_hwnds = UBound(hwnds) sRect = Plugin.Window.GetWindowRect(CLng(hwnds(0))) sRect = Split(sRect, "|") 待排列窗口大小 = Array(CLng(sRect(2)) - CLng(sRect(0)), CLng(sRect(3)) - CLng(sRect(1))) 窗口数量 = U_hwnds 窗口在左时X坐标 = 0 窗口在右时X坐标 = 可使用屏幕大小(0) - 待排列窗口大小(0) 窗口Y坐标 = 0 If 窗口数量 > 2 Then If 窗口数量 Mod 2 = 0 Then '窗口为整数 窗口Y间距 = (可使用屏幕大小(1) - 待排列窗口大小(1)) / (((窗口数量 \ 2)) - 1) Else 窗口Y间距 = (可使用屏幕大小(1) - 待排列窗口大小(1)) / ((窗口数量 \ 2)) End If Else 窗口Y间距 = 0 End If For i = 0 To U_hwnds - 1 当前窗口句柄 = CLng(hwnds(i)) If (i + 1) Mod 2 = 0 Then Call Plugin.Window.Move(当前窗口句柄, 窗口在右时X坐标, 窗口Y坐标) Else If (i + 1) <> 1 Then 窗口Y坐标 = 窗口Y坐标 + 窗口Y间距 End If Call Plugin.Window.Move(当前窗口句柄, 窗口在左时X坐标, 窗口Y坐标) End If Next End If End Function Function 层叠排列窗口(窗口标题, 窗口类名) Dim 屏幕大小, 任务栏窗口句柄, 任务栏大小, 可使用屏幕大小 Dim 待排列窗口大小, 当前窗口句柄, 排列X间距, 排列Y间距 屏幕大小 = Array(Plugin.Sys.GetScRX(), Plugin.Sys.GetScRY()) 任务栏窗口句柄 = Plugin.Window.Find("Shell_TrayWnd", 0) If 任务栏窗口句柄 <> 0 Then sRect = Plugin.Window.GetWindowRect(任务栏窗口句柄) sRect = Split(sRect, "|") 任务栏大小 = Array(CLng(sRect(2)) - CLng(sRect(0)), CLng(sRect(3)) - CLng(sRect(1))) Else 任务栏大小 = Array(0, 0) End If 可使用屏幕大小 = Array(屏幕大小(0), 屏幕大小(1) - 任务栏大小(1)) Dim hwnds, U_hwnds, i, 窗口数量, 窗口X坐标, 窗口Y坐标, 窗口X间距, 窗口Y间距 hwnds = Plugin.Window.SearchEx(窗口类名, 窗口标题, 0) If hwnds = "" Then MessageBox "未查找到匹配窗口！" Else hwnds = Split(hwnds, "|") U_hwnds = UBound(hwnds) sRect = Plugin.Window.GetWindowRect(CLng(hwnds(0))) sRect = Split(sRect, "|") 待排列窗口大小 = Array(CLng(sRect(2)) - CLng(sRect(0)), CLng(sRect(3)) - CLng(sRect(1))) 窗口数量 = U_hwnds 窗口X坐标 = 0 窗口Y坐标 = 0 If 窗口数量 > 1 Then 窗口X间距 = (可使用屏幕大小(0) - 待排列窗口大小(0)) / (窗口数量 - 1) 窗口Y间距 = (可使用屏幕大小(1) - 待排列窗口大小(1)) / (窗口数量 - 1) Else 窗口X间距 = 0 窗口Y间距 = 0 End If For i = 0 To U_hwnds-1 当前窗口句柄 = CLng(hwnds(i)) Call Plugin.Window.Move(当前窗口句柄, 窗口X坐标, 窗口Y坐标) 窗口X坐标 = 窗口X坐标 + 窗口X间距 窗口Y坐标 = 窗口Y坐标 + 窗口Y间距 Next End If End Function 复制代码
	本主题由 超级版主 瑞祥幽冥狼 于 2023/10/5 18:38:16 执行 审核帖子 操作 点赞 近期制作： 传奇私服各种反外挂插件版本挂机软件，可教可售 原神加速、连发辅助工具 天下3自动钓大鱼辅助工具 承接脚本定制，点击下方联系 QQ：250039815 交流群：101296478
	回顶部

发送短消息 UID 311639 帖子 88 精华 0 鲜花 26 朵 铜币 91 个 银币 45 个 性别 在线时间 240 注册时间 2009-09-15 最后登录 2024-02-29 查看公共资料 搜索主题 搜索帖子 ty1210914 ty1210914 组别小学四年级 UID311639 帖子88 精华0 鲜花26 朵 铜币91 个 银币45 个 在线时间240 注册时间2009-09-15	2# 字体大小: t T 发表于 2022-06-03 13:05 | |只看该用户 多窗口同时操作方法
	回顶部

发送短消息 UID 3867309 帖子 432 精华 0 鲜花 74 朵 铜币 1009 个 银币 252 个 性别 在线时间 4220 注册时间 2016-04-14 最后登录 2024-03-02 查看公共资料 搜索主题 搜索帖子 枫落ye无痕 枫落ye无痕 组别初中三年级 UID3867309 帖子432 精华0 鲜花74 朵 铜币1009 个 银币252 个 在线时间4220 注册时间2016-04-14	3# 字体大小: t T 发表于 2022-06-03 17:49 | |只看该用户 源码】窗口自动排列
	回顶部

发送短消息 UID 3958378 帖子 651 精华 0 鲜花 141 朵 铜币 3298 个 银币 128 个 性别 在线时间 7160 注册时间 2016-06-07 最后登录 2023-12-17 查看公共资料 搜索主题 搜索帖子 z3090712 组别高中三年级 UID3958378 帖子651 精华0 鲜花141 朵 铜币3298 个 银币128 个 在线时间7160 注册时间2016-06-07 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	4# 字体大小: t T 发表于 2022-06-03 19:07 | |只看该用户 3333333
	回顶部

发送短消息 UID 2843691 帖子 25 精华 0 鲜花 14 朵 铜币 33 个 银币 23 个 性别 在线时间 0 注册时间 2014-11-01 最后登录 2023-10-26 304589666 查看公共资料 搜索主题 搜索帖子 小猫腻 aa11200 组别小学一年级 UID2843691 帖子25 精华0 鲜花14 朵 铜币33 个 银币23 个 在线时间0 注册时间2014-11-01	5# 字体大小: t T 发表于 2022-06-03 22:50 | |只看该用户 11213213
	回顶部

发送短消息 UID 323024 帖子 60 精华 0 鲜花 35 朵 铜币 100 个 银币 16 个 性别 在线时间 960 注册时间 2009-10-18 最后登录 2024-05-17 查看公共资料 搜索主题 搜索帖子 lc82062106 lc82062106 组别小学三年级 UID323024 帖子60 精华0 鲜花35 朵 铜币100 个 银币16 个 在线时间960 注册时间2009-10-18	6# 字体大小: t T 发表于 2022-06-07 18:23 | |只看该用户 11111111111111
	回顶部

发送短消息 UID 3328028 帖子 1497 精华 0 鲜花 199 朵 铜币 3957 个 银币 204 个 性别 在线时间 26840 注册时间 2015-06-28 最后登录 2024-03-09 查看公共资料 搜索主题 搜索帖子 zjcyjj zjcyjj 组别大学三年级 UID3328028 帖子1497 精华0 鲜花199 朵 铜币3957 个 银币204 个 在线时间26840 注册时间2015-06-28 小红帽 对论坛提出良好建议（可向管理员申请）	7# 字体大小: t T 发表于 2022-06-08 23:22 | |只看该用户 谁与美人共枕夕阳长醉两千年~
	回顶部

发送短消息 UID 3328028 帖子 1497 精华 0 鲜花 199 朵 铜币 3957 个 银币 204 个 性别 在线时间 26840 注册时间 2015-06-28 最后登录 2024-03-09 查看公共资料 搜索主题 搜索帖子 zjcyjj zjcyjj 组别大学三年级 UID3328028 帖子1497 精华0 鲜花199 朵 铜币3957 个 银币204 个 在线时间26840 注册时间2015-06-28 小红帽 对论坛提出良好建议（可向管理员申请）	8# 字体大小: t T 发表于 2022-06-10 00:45 | |只看该用户 可不可以写一个 轮流显示 窗口的源码 就是五开txt 轮流最大化显示新建文本文档笔记本窗口1 暂停三秒 2暂停三秒 3 暂停三秒 4 暂停三秒 5暂停三秒 然后不断循环 ,., 点评 昨夜星辰  那不是很简单的东西吗 直接FOR循环就行了啊 不知道你的用途是啥  发表于 2022/6/10 17:35:02
	回顶部

发送短消息 UID 8709508 帖子 6 精华 0 鲜花 4 朵 铜币 7 个 银币 7 个 性别 在线时间 0 注册时间 2022-04-21 最后登录 2022-11-30 119398499 查看公共资料 搜索主题 搜索帖子 nnktsg nnktsg 组别小学一年级 UID8709508 帖子6 精华0 鲜花4 朵 铜币7 个 银币7 个 在线时间0 注册时间2022-04-21	9# 字体大小: t T 发表于 2022-06-11 07:42 | |只看该用户 学习下啊啊啊啊
	回顶部

发送短消息 UID 8639923 帖子 41 精华 0 鲜花 72 朵 铜币 56 个 银币 46 个 性别 在线时间 0 注册时间 2022-02-25 最后登录 2024-01-24 查看公共资料 搜索主题 搜索帖子 best888 组别小学二年级 UID8639923 帖子41 精华0 鲜花72 朵 铜币56 个 银币46 个 在线时间0 注册时间2022-02-25	10# 字体大小: t T 发表于 2022-06-12 14:23 | |只看该用户 学习学习
	回顶部

发送短消息 UID 842417 帖子 539 精华 0 鲜花 63 朵 铜币 764 个 银币 100 个 性别 在线时间 8260 注册时间 2011-10-27 最后登录 2024-02-20 85137168 查看公共资料 搜索主题 搜索帖子 huangyunid huangyunid 组别高中一年级 UID842417 帖子539 精华0 鲜花63 朵 铜币764 个 银币100 个 在线时间8260 注册时间2011-10-27 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	11# 字体大小: t T 发表于 2022-06-14 17:57 | |只看该用户 学习新的 知识
	回顶部

发送短消息 UID 8770696 帖子 7 精华 0 鲜花 5 朵 铜币 8 个 银币 8 个 性别 在线时间 0 注册时间 2022-06-14 最后登录 2024-03-19 查看公共资料 搜索主题 搜索帖子 xhmoxin 组别小学一年级 UID8770696 帖子7 精华0 鲜花5 朵 铜币8 个 银币8 个 在线时间0 注册时间2022-06-14	12# 字体大小: t T 发表于 2022-06-14 21:15 | |只看该用户 win10好像可以自动排列吧 点评 昨夜星辰  那是所有窗口排列，我这个是指定窗口排列，只想排列游戏窗口就很有用。  发表于 2022/6/14 21:20:29
	回顶部

发送短消息 UID 8770696 帖子 7 精华 0 鲜花 5 朵 铜币 8 个 银币 8 个 性别 在线时间 0 注册时间 2022-06-14 最后登录 2024-03-19 查看公共资料 搜索主题 搜索帖子 xhmoxin 组别小学一年级 UID8770696 帖子7 精华0 鲜花5 朵 铜币8 个 银币8 个 在线时间0 注册时间2022-06-14	13# 字体大小: t T 发表于 2022-06-14 21:27 | |只看该用户 , 那貌似你这个不错 win10自带的貌似也可以自动排列游戏窗口的,我多开窗口也能自动排列,就是没有想要的大小和固定排序位置~
	回顶部

发送短消息 UID 8629888 帖子 109 精华 0 鲜花 65 朵 铜币 103 个 银币 103 个 性别 在线时间 0 注册时间 2022-02-14 最后登录 2023-10-14 2598919417 查看公共资料 搜索主题 搜索帖子 punghunger punghunger 组别小学五年级 UID8629888 帖子109 精华0 鲜花65 朵 铜币103 个 银币103 个 在线时间0 注册时间2022-02-14	14# 字体大小: t T 发表于 2022-06-15 12:26 | |只看该用户 窗口自动排列
	回顶部

发送短消息 UID 5134056 帖子 7 精华 0 鲜花 3 朵 铜币 56 个 银币 6 个 性别 在线时间 260 注册时间 2018-03-22 最后登录 2023-06-25 85769 查看公共资料 搜索主题 搜索帖子 a120151531 a120151531 组别小学一年级 UID5134056 帖子7 精华0 鲜花3 朵 铜币56 个 银币6 个 在线时间260 注册时间2018-03-22	15# 字体大小: t T 发表于 2022-06-15 20:42 | |只看该用户 学习学习学习学习学习
	回顶部

发送短消息 UID 8238989 帖子 24 精华 0 鲜花 15 朵 铜币 29 个 银币 19 个 性别 在线时间 0 注册时间 2021-04-05 最后登录 2022-06-23 740935087 查看公共资料 搜索主题 搜索帖子 shuishouhe shuishouhe 组别小学一年级 UID8238989 帖子24 精华0 鲜花15 朵 铜币29 个 银币19 个 在线时间0 注册时间2021-04-05	16# 字体大小: t T 发表于 2022-06-19 00:26 | |只看该用户 学习一下
	回顶部

发送短消息 UID 8709508 帖子 6 精华 0 鲜花 4 朵 铜币 7 个 银币 7 个 性别 在线时间 0 注册时间 2022-04-21 最后登录 2022-11-30 119398499 查看公共资料 搜索主题 搜索帖子 nnktsg nnktsg 组别小学一年级 UID8709508 帖子6 精华0 鲜花4 朵 铜币7 个 银币7 个 在线时间0 注册时间2022-04-21	17# 字体大小: t T 发表于 2022-06-20 16:22 | |只看该用户 学习下啊啊啊啊
	回顶部

发送短消息 UID 4281902 帖子 54 精华 0 鲜花 3 朵 铜币 221 个 银币 5 个 性别 在线时间 6980 注册时间 2017-01-07 最后登录 2023-09-27 763414731 查看公共资料 搜索主题 搜索帖子 faith0725 faith0725 组别小学三年级 UID4281902 帖子54 精华0 鲜花3 朵 铜币221 个 银币5 个 在线时间6980 注册时间2017-01-07	18# 字体大小: t T 发表于 2022-06-24 01:16 | |只看该用户 期待看看如何
	回顶部

发送短消息 UID 4533877 帖子 37 精华 0 鲜花 23 朵 铜币 48 个 银币 27 个 性别 在线时间 100 注册时间 2017-07-04 最后登录 2024-01-10 查看公共资料 搜索主题 搜索帖子 woshinibaw 组别小学二年级 UID4533877 帖子37 精华0 鲜花23 朵 铜币48 个 银币27 个 在线时间100 注册时间2017-07-04	19# 字体大小: t T 发表于 2022-07-26 00:28 | |只看该用户 11111111
	回顶部

发送短消息 UID 4407930 帖子 24 精华 0 鲜花 19 朵 铜币 42 个 银币 22 个 性别 在线时间 40 注册时间 2017-04-04 最后登录 2022-07-31 查看公共资料 搜索主题 搜索帖子 shalihai01 shalihai01 组别小学一年级 UID4407930 帖子24 精华0 鲜花19 朵 铜币42 个 银币22 个 在线时间40 注册时间2017-04-04	20# 字体大小: t T 发表于 2022-07-26 04:07 | |只看该用户 55555555
	回顶部