原创 仿win8窗口切换页面 的快捷启动/工具箱

leeli73

今天闲着没事，看着桌面太乱了，本想着找个工具箱什么的来管理一下的，但是都太丑了，而且万变不离其宗，都是类似音速启动的
所以，发挥一个程序员的特长，没有自己满意的，咱就自己造一个
一共大概用了4个小时，写出了这个仿win8窗口切换页面的快捷启动，当然改一改也可以作为一个工具箱（这个就看大家的了）
和win8的窗口切换一样 将鼠标移至屏幕左上方（坐标0，0）处 窗口马上激活

不知道论坛怎么了，图片总是上传失败
总之，我也是菜鸟。
易语言快捷启动.zip (172.59 KB, 下载次数: 423)

2017-1-6 03:35 上传

点击文件名下载附件
大家看看吧。

snak2020

谢谢分享，收藏

计老头子

真的很不错

malu

#在这里快速回复#知道论坛怎么了，图片总是上传失败

叶落归途

看看@@@@@@@@@@@@@

何处花香

谢谢分享！参考一下

malu

.版本 2  .程序集变量 Left, 整数型 .程序集变量 Top, 整数型 .程序集变量 Right, 整数型 .程序集变量 Bottom, 整数型 .程序集变量 x, 整数型 .程序集变量 y, 整数型 .程序集变量 MyRect, RECT .程序集变量 MyPoint, POINTAPI .程序集变量 BackUp_x, 整数型 .程序集变量 New_y, 整数型 .程序集变量 BackUp_Wigth, 整数型 .程序集变量 BackUp_Height, 整数型 .程序集变量 是否接触到, 逻辑型 .程序集变量 是否贴边, 逻辑型  .子程序 执行命令, , , 执行指定命令 .参数 Bin_命令参数, 文本型, , 欲执行的命令,可以是任意文件名或URL地址  API_执行指定命令 (0, “open”, Bin_命令参数, “”, “”, 1)  .子程序 贴边隐藏, , 公开, 模仿QQ隐藏窗口效果，放在时钟事件下，并将时钟周期设置为100以下 .参数 窗口名称, 窗口, , 窗口名称，如_启动窗口，非窗口句柄  .如果真 (窗口名称.左边 ＜ 0 且 窗口名称.顶边 ＜ 0)     窗口名称.移动 (0, 1, , ) .如果真结束 .如果真 (窗口名称.左边 ≥ 取屏幕宽度 () － 窗口名称.宽度 且 窗口名称.顶边 ＜ 0)     窗口名称.移动 (取屏幕宽度 () － 窗口名称.宽度 － 1, 0, , ) .如果真结束  .如果真 (窗口名称.顶边 ＜ 0 且 取鼠标水平位置 () ＞ 窗口名称.左边 且 取鼠标水平位置 () ＜ 窗口名称.左边 ＋ 窗口名称.宽度 且 取鼠标垂直位置 () ＜ 3)     窗口名称.顶边 ＝ 0 .如果真结束 .如果真 (窗口名称.顶边 ≤ 0 且 窗口名称.左边 ＞ 0 且 窗口名称.左边 ＜ 取屏幕宽度 () － 窗口名称.宽度)     .如果真 (取鼠标水平位置 () ＜ 窗口名称.左边 或 取鼠标水平位置 () ＞ 窗口名称.左边 ＋ 窗口名称.宽度 或 取鼠标垂直位置 () ＞ 窗口名称.顶边 ＋ 窗口名称.高度)         窗口名称.顶边 ＝ 3 － 窗口名称.高度     .如果真结束  .如果真结束 .如果真 (窗口名称.左边 ＜ 0 且 取鼠标垂直位置 () ＞ 窗口名称.顶边 且 取鼠标垂直位置 () ＜ 窗口名称.顶边 ＋ 窗口名称.高度 且 取鼠标水平位置 () ＜ 3)     窗口名称.左边 ＝ 0 .如果真结束 .如果真 (窗口名称.左边 ≤ 0 且 窗口名称.顶边 ＞ 0 且 窗口名称.顶边 ＜ 取屏幕高度 () － 窗口名称.高度)     .如果真 (取鼠标垂直位置 () ＜ 窗口名称.顶边 或 取鼠标垂直位置 () ＞ 窗口名称.顶边 ＋ 窗口名称.高度 或 取鼠标水平位置 () ＞ 窗口名称.宽度)         窗口名称.左边 ＝ 3 － 窗口名称.宽度     .如果真结束  .如果真结束 .如果真 (取鼠标水平位置 () ＞ 取屏幕宽度 () － 3 且 取鼠标垂直位置 () ＞ 窗口名称.顶边 且 取鼠标垂直位置 () ＜ 窗口名称.顶边 ＋ 窗口名称.高度)     窗口名称.左边 ＝ 取屏幕宽度 () － 窗口名称.宽度 .如果真结束 .如果真 (窗口名称.左边 ≥ 取屏幕宽度 () － 窗口名称.宽度 且 窗口名称.顶边 ＞ 0 且 窗口名称.顶边 ＜ 取屏幕高度 () － 窗口名称.高度)     .如果真 (取鼠标垂直位置 () ＜ 窗口名称.顶边 或 取鼠标垂直位置 () ＞ 窗口名称.顶边 ＋ 窗口名称.高度 或 取鼠标水平位置 () ＜ 取屏幕宽度 () － 窗口名称.宽度)         窗口名称.左边 ＝ 取屏幕宽度 () － 3     .如果真结束  .如果真结束   .子程序 功_贴边隐藏  _判断是否接触到窗体所在区域 () .如果真 (主界面鼠标左键按下 ＝ 假)      .如果真 (是否贴边 ＝ 真)         New_y ＝ MyRect.Top  ' 取出窗口顶边         BackUp_x ＝ MyRect.Left  ' 取出窗口左边         BackUp_Wigth ＝ MyRect.Right － MyRect.Left  ' 取出窗口宽度         BackUp_Height ＝ MyRect.Bottom － MyRect.Top  ' 取出窗口高度          .如果 (New_y ≤ 0 且 New_y ≥ －BackUp_Height 且 MyPoint.x ＜ MyRect.Left 或 MyPoint.x ＞ MyRect.Right 或 MyPoint.y ＜ MyRect.Top 或 MyPoint.y ＞ MyRect.Bottom 且 是否接触到 ＝ 假)             ' 如果窗口顶边小于等于0 且 窗口顶边大于等于负窗口高度 且 鼠标横坐标小于窗口左边 或 鼠标横坐标大于窗口右边 或鼠标纵坐标小于窗口顶边 或 鼠标纵坐标大于窗口底部 且 鼠标在窗口上             New_y ＝ New_y － 35  ' 窗口顶部等于窗口顶部减35             MoveWindow (_启动窗口.取窗口句柄 (), BackUp_x, New_y, BackUp_Wigth, BackUp_Height, 1)         .否则              .如果真 (New_y ≤ 0)                  MoveWindow (_启动窗口.取窗口句柄 (), BackUp_x, -5, BackUp_Wigth, BackUp_Height, 1)              .如果真结束          .如果结束          .如果真 (MyRect.Right － 7 ＞ 取屏幕宽度 () 且 New_y ＜ 0)             BackUp_x ＝ BackUp_x － 4             MoveWindow (_启动窗口.取窗口句柄 (), BackUp_x, -5, BackUp_Wigth, BackUp_Height, 1)         .如果真结束          .如果真 (MyRect.Left ＜ 0 且 New_y ＜ 0)             BackUp_x ＝ BackUp_x ＋ 4             MoveWindow (_启动窗口.取窗口句柄 (), BackUp_x, -5, BackUp_Wigth, BackUp_Height, 1)         .如果真结束      .如果真结束  .如果真结束   .子程序 _判断是否接触到窗体所在区域  GetWindowRect (_启动窗口.取窗口句柄 (), MyRect) GetCursorPos (MyPoint)  .如果 (MyRect.Top ＞ 0)     是否贴边 ＝ 假 .否则     是否贴边 ＝ 真     .如果 (MyPoint.x ＞ MyRect.Left 且 MyPoint.x ＜ MyRect.Right 且 MyPoint.y ≤ 0)         是否接触到 ＝ 真     .否则         是否接触到 ＝ 假     .如果结束  .如果结束

w98711028

ssssssssssssss

鹤一

将鼠标移至屏幕左上方（坐标0，0）处 窗口马上激活

yinchongle00

窗口马上激活》？

douzhongjie3

学习学习了