设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › [初步解决]win7系统，如何实现在任务栏右键菜单工具栏中 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 28985|回复: 12

[注册表类] [初步解决]win7系统，如何实现在任务栏右键菜单工具栏中全自动化新建Quick Launch项？

[复制链接]
ygqiang
发表于 2016-7-30 08:26:19 | 显示全部楼层 |阅读模式
[初步解决]win7系统，如何实现在任务栏右键菜单工具栏中全自动化新建Quick Launch项？

请直接看13楼的ahk代码。初步搞定。
求帮忙测试下。谢谢。。。

添加Win7快速启动栏
http://blog.sina.com.cn/s/blog_5d2ced280100j99o.html


上面一系列的鼠标点击操作过程，有没有全自动化/傻瓜化/1次性的实现方法？
具体操作过程：
1、鼠标右键单击任务栏空白处-工具栏-新建工具栏，
注意：在任务栏下方的中间空白处模拟鼠标单击右键就行。
（别在任务栏右下角托盘的时间/年代日期上单击右键）
2、在弹出的窗口中输入：
%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch
然后单击：选择文件夹。
3、右键单击任务栏空白处-解锁任务栏。
4、
4.1、在显示Quick Launch 的位置单击右键，选择查看—大图标。
4.2、在显示Quick Launch 的位置单击右键，把显示文本的勾去掉。
4.3、在显示Quick Launch 的位置单击右键，把显示标题的勾去掉。
4.1 4.2 4.3最好按照顺序依次执行。谢谢









遇到的问题主要是：
win7系统下正常使用，手动设置1次，以后使用，
遇到过几次都会莫名其妙消失，然后又要重新手动点击多次/才能设置完毕。

别人的win7系统也遇到过几次这问题。
不知道啥原因引起的。
回复

举报

ygqiang
 楼主| 发表于 2016-7-30 09:10:08 | 显示全部楼层
本帖最后由 ygqiang 于 2016-7-30 13:46 编辑

添加Win7快速启动栏
http://blog.sina.com.cn/s/blog_5d2ced280100j99o.html

上面的操作过程，有没有傻瓜化的方法？

bat或者vbs或者注册表等等，鼠标双击运行1次，就全程设置完毕。
别用鼠标一直点击好多次才能设置好。
回复

举报

ygqiang
 楼主| 发表于 2016-7-30 11:03:10 | 显示全部楼层
本帖最后由 ygqiang 于 2016-8-8 02:42 编辑

1楼的问题。

百度搜索。找到很多方法。不知道是否好用。。。。没有头绪。
回复

举报

pcl_test
发表于 2016-7-30 18:14:36 | 显示全部楼层
这种要求来来去去就那么几种方法
1、注册表法
2、模拟操作法
3、系统接口、API法
回复

举报

pcl_test
发表于 2016-8-2 17:25:00 | 显示全部楼层
本帖最后由 pcl_test 于 2016-8-11 15:47 编辑

ahk
  1. HKL:=DllCall("LoadKeyboardLayout", Str, 0x08040804, UInt, 1)
  2. ControlGetFocus, ctl, A
  3. SendMessage, 0x50, 0, HKL, %ctl%, A
  4. ;假设任务栏在屏幕底部
  5. SysGet, VWidth, 78
  6. SysGet, VHeight, 79
  7. VWidth := Round(VWidth/2)
  8. VHeight := VHeight-10
  9. BlockInput on
  10. ControlClick,X%VWidth% Y%VHeight%, ahk_class Shell_TrayWnd,, R
  11. Sleep, 300
  12. Send, {t}
  13. Sleep, 300
  14. Send, {n}
  15. Sleep, 500
  16. ControlClick, Edit1, 新工具栏 - 选择文件夹,, L
  17. Sleep, 300
  18. Send, %APPDATA%\Microsoft\Internet Explorer\Quick Launch
  19. Sleep, 500
  20. ControlClick, Button1, 新工具栏 - 选择文件夹,, L
  21. Sleep, 500
  22. IfWinExist, 新工具栏 - 选择文件夹
  23. {
  24.     WinActivate
  25.     ControlClick, Button1, 新工具栏 - 选择文件夹,, L
  26.     return
  27. }
复制代码
回复

举报

ygqiang
 楼主| 发表于 2016-8-8 01:44:50 | 显示全部楼层
本帖最后由 ygqiang 于 2016-8-15 08:36 编辑

回复 5# pcl_test

多谢。。
你的ahk代码，第一次的版本，基本好用。
第一次的版本，发现有2个问题：
1、很多时候在输入地址完了以后，会停留不动了，并不会点击“选择文件夹”
2、模拟鼠标点击右键的时候，能否别在任务栏右下角托盘的时间/年代日期上点击？
在任务栏下方的中间空白处模拟鼠标点击右键就行。

建立完快捷启动项以后，最好还可以加上下面的功能：
1、在显示Quick Launch 的位置右键，选择查看—大图标。
2、在显示Quick Launch 的位置右键，把显示文本的勾去掉。
3、在显示Quick Launch 的位置右键，把显示标题的勾去掉。
1 2 3最好按照顺序依次执行。谢谢



5楼，这个最新的修改版本，运行没效果。并不能建立快捷启动项。
回复

举报

ygqiang
 楼主| 发表于 2016-8-11 11:47:14 | 显示全部楼层
回复 5# pcl_test


帮忙解决下吧，    多谢了。
回复

举报

ygqiang
 楼主| 发表于 2016-8-12 13:38:46 | 显示全部楼层
顶下。。。
回复

举报

ygqiang
 楼主| 发表于 2016-8-14 17:34:29 | 显示全部楼层
回复 5# pcl_test


    1楼的具体操作过程。能否实现全自动化/傻瓜化/一次性实现？谢谢
回复

举报

ygqiang
 楼主| 发表于 2016-8-15 08:17:17 | 显示全部楼层
本帖最后由 ygqiang 于 2016-8-15 08:28 编辑

回复 5# pcl_test


    最新的ahk代码测试了。
右键点击任务栏，就一直停在工具栏那里。
并不能弹出工具栏里面的选项。进行下一步操作。


Send, {t}
这里应该send发送一个“右箭头”命令。
Send ^#{right}  
Send, {n}

ok这个问题解决了。
回复

举报

ygqiang
 楼主| 发表于 2016-8-15 08:34:13 | 显示全部楼层
本帖最后由 ygqiang 于 2016-8-15 08:37 编辑

3、右键单击任务栏空白处-解锁任务栏。
4、
4.1、在显示Quick Launch 的位置单击右键，选择查看—大图标。
4.2、在显示Quick Launch 的位置单击右键，把显示文本的勾去掉。
4.3、在显示Quick Launch 的位置单击右键，把显示标题的勾去掉。
4.1 4.2 4.3最好按照顺序依次执行。谢谢
  1. BlockInput on
  2. ControlClick,X%VWidth% Y%VHeight%, ahk_class Shell_TrayWnd,, R
  3. Sleep, 300
  4. Send, {L}
复制代码
上面是3的代码
下面4的代码，如何进行？谢谢
回复

举报

ygqiang
 楼主| 发表于 2016-8-19 12:52:03 | 显示全部楼层
楼上更新了。。。
回复

举报

ygqiang
 楼主| 发表于 2016-8-20 19:13:15 | 显示全部楼层
本帖最后由 ygqiang 于 2016-8-20 21:39 编辑

代码重新更新了下。


  3. if had_added()
  4.         ExitApp

  6. ql_add()
  7. Sleep,200
  8. if (is_locked())
  9. {
  10.         lock_unlock()
  11. }
  12. Sleep,200
  13. clear()
  14. Sleep,200
  15. control_move()
  16. control_set()
  17. Sleep,200
  18. lock_unlock()
  19. blockinput,off


  22. ;=====================================================

  24. ql_add()
  25. {

  27.         winactivate,ahk_class Shell_TrayWnd
  28.         WinGetPos, x, y, w, h, ahk_class Shell_TrayWnd
  29.         ControlClick, % "x" 0 " y" h, ahk_class Shell_TrayWnd,, R
  30. blockinput,on
  31.         while(!menu1_hwnd := waitmenu(click_x, click_y))
  32.                 Sleep, 200
  33.         ControlSend, ahk_parent, t, ahk_id %menu1_hwnd%
  34.         ControlSend, ahk_parent, {Right}, ahk_id %menu1_hwnd%
  35.         WinGetPos, m1x, m1y, m1w, m1h, ahk_id %menu1_hwnd%
  36.         while(!menu2_hwnd := waitmenu(m1x+m1w, m1y, menu1_hwnd))
  37.                 Sleep, 200
  38.         ControlSend, ahk_parent,n, ahk_id %menu2_hwnd%
  39.         WinWait, 新工具栏 - 选择文件夹
  40.         ControlClick, Edit1, 新工具栏 - 选择文件夹,, L
  41.         ControlSetText, Edit1, %APPDATA%\Microsoft\Internet Explorer\Quick Launch, 新工具栏 - 选择文件夹
  42.         ControlSend, Edit1, {Enter}, 新工具栏 - 选择文件夹
  43.         ControlClick, Button1, 新工具栏 - 选择文件夹
  44.         ControlGetPos,xs,ys,,,Button1,新工具栏 - 选择文件夹

  46.         Loop
  47.         {

  49.                 IfWinExist, 新工具栏 - 选择文件夹
  50.                 {
  51.                         WinActivate,新工具栏 - 选择文件夹
  52.                         MouseMove,xs+5,ys+5,0
  53.                         Send {LButton}
  54.                 }
  55.                 else
  56.                 {
  57.                         break
  58.                 }
  59.                 Sleep, 200
  60.         }
  61. }



  65. is_locked()
  66. {
  67.         RegRead, Status, HKCU, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, TaskbarSizeMove
  68.         return !Status
  69. }

  71. lock_unlock()
  72. {
  73.         WinGetPos, x, y, w, h, ahk_class Shell_TrayWnd
  74.         ControlClick,% "x" x " y" y+h, ahk_class Shell_TrayWnd,, R
  75.         while(!Menu_hwnd := waitmenu(Click_x, Click_y))
  76.         Sleep, 200
  77.         ControlSend, ahk_parent, l, ahk_id %Menu_hwnd%
  78. }
  79. clear()
  80. {
  81.         WinGet, ctr_list, ControlList, ahk_class Shell_TrayWnd
  82.         Loop, Parse, ctr_list, `n, `r
  83.         {
  84.                 if InStr(A_LoopField,"ToolbarWindow32")
  85.                 {
  86.                         ControlGetText, txt, % A_LoopField, ahk_class Shell_TrayWnd
  87.                         if (txt="Quick Launch")
  88.                         {
  89.                                 ql_ctr := A_LoopField
  90.                                 break
  91.                         }
  92.                 }
  93.         }
  94.         if ql_ctr
  95.         {
  96.                 ControlGet, ql_ctr_hwnd, Hwnd, , % ql_ctr, ahk_class Shell_TrayWnd
  97.                 WinGetPos, x, y, w, h, ahk_id %ql_ctr_hwnd%
  98.                 ControlClick, % "x" 0 " y" h, ahk_id %ql_ctr_hwnd%,, R
  99.                 while(!Menu1_hwnd := waitmenu(x, y+h))
  100.                 Sleep, 200
  101.                 ControlSend, ahk_parent, v, ahk_id %Menu1_hwnd%
  102.                 ControlSend, ahk_parent, {Right}, ahk_id %Menu1_hwnd%
  103.                 WinGetPos, m1x, m1y, m1w, m1h, ahk_id %Menu1_hwnd%
  104.                 while(!Menu2_hwnd := waitmenu(m1x+m1w, m1y, Menu1_hwnd))
  105.                 Sleep, 200
  106.                 ControlSend, ahk_parent, g, ahk_id %Menu2_hwnd%
  107.                 WinWaitClose, ahk_id %Menu2_hwnd%

  109.                 WinGetPos, x, y, w, h, ahk_id %ql_ctr_hwnd%
  110.                 ControlClick, % "x" 0 " y" h, ahk_id %ql_ctr_hwnd%,, R
  111.                 while(!Menu3_hwnd := waitmenu(x, y+h))
  112.                 Sleep, 200
  113.                 ControlSend, ahk_parent, x, ahk_id %Menu3_hwnd%
  114.                 WinWaitClose, ahk_id %Menu3_hwnd%

  116.                 WinGetPos, x, y, w, h, ahk_id %ql_ctr_hwnd%
  117.                 ControlClick, % "x" 0 " y" h, ahk_id %ql_ctr_hwnd%,, R
  118.                 while(!Menu4_hwnd := waitmenu(x, y+h))
  119.                 Sleep, 200
  120.                 ControlSend, ahk_parent, w, ahk_id %Menu4_hwnd%
  121.                 WinWaitClose, ahk_id %Menu4_hwnd%
  122.         }
  123. }

  125. control_move()
  126. {
  127.         Loop,5
  128.         {
  129.                 ControlGetPos,x2,y2,,,MSTaskListWClass1,ahk_class Shell_TrayWnd
  130.                 ControlGetPos,x,y,,,ToolbarWindow323,ahk_class Shell_TrayWnd
  131.                 if (x>x2)
  132. {
  133.                 WinActivate,ahk_class Shell_TrayWnd
  134.                 MouseMove,x-5,y+5,0
  135.                 Send {LButton down}
  136.                 Sleep,350
  137.                 MouseMove,0,y+5,8
  138.                 Send {LButton up}
  139. }
  140. else
  141. {
  142. break
  143. }
  144.         }
  145. }

  147. control_set()
  148. {
  149.         blockinput,on
  150.         WinActivate,ahk_class Shell_TrayWnd
  151.         ControlGetPos,x,y,w,h,ToolbarWindow323,ahk_class Shell_TrayWnd
  152.         ControlGetPos,x2,y2,,,MSTaskListWClass1,ahk_class Shell_TrayWnd
  153.         MouseMove,x+w+(x2-x-w)*2/3,h/2,0
  154.         Send {LButton down}
  155.         Sleep,200
  156.         ControlGetPos,,,w0,h,ToolbarWindow323,ahk_class Shell_TrayWnd
  157. wc:=w0/2
  158. mousemove,-wc,0,5,r
  159. con:=0
  160. loop
  161. {
  162.         if (wc<1)
  163.         {
  164.                 break
  165.         }
  166.         wc:=wc/2
  167.         ControlGetPos,,,w,h,ToolbarWindow323,ahk_class Shell_TrayWnd
  168.         if ((w0-wc*2>w)and(con=0))
  169. {
  170.         con:=1

  172. }
  173. else if ((w0-wc*2=w)and(con=0))
  174. {
  175.         con:=0
  176. }
  177. else if ((w0+wc*2<w)and(con=1))
  178. {
  179.         con:=0

  181. }
  182. else if ((w0-wc*2=w)and(con=1))
  183. {
  184. con:=1
  185. }

  187. if (con=0)
  188. {
  189. w0:=w
  190. mousemove,-wc,0,5,r
  191. }
  192. else
  193. {
  194.                 w0:=w
  195.                 mousemove,wc,0,5,r
  196. }


  199. }
  200.         Send {LButton up}
  201. blockinput,off
  202. }

  204. had_added(){
  205.         WinGet, ctr_list, ControlList, ahk_class Shell_TrayWnd
  206.         Loop, Parse, ctr_list, `n, `r
  207.         {
  208.                 if InStr(A_LoopField,"ToolbarWindow32")
  209.                 {
  210.                         ControlGetText, txt, % A_LoopField, ahk_class Shell_TrayWnd
  211.                         if (txt="Quick Launch")
  212.                         {
  213.                                 ql_ctr := A_LoopField
  214.                                 break
  215.                         }
  216.                 }
  217.         }
  218.         if ql_ctr
  219.                 return 1
  220. }


  223. waitmenu(click_x, click_y, ex_hwnd:="")
  224. {
  225.         WinGet, wins, List
  226.         a := ""
  227.         Loop % wins
  228.         {
  229.                 win := wins%A_index%
  230.                 WinGetPos, x, y, w, h, ahk_id %win%
  231.                 WinGetTitle, title, ahk_id %win%
  232.                 if (!title && (Abs(Click_y-y)<8 || Abs(Click_y-(y+h))<8) && w<300 && w>80 && h>20 && (ex_hwnd ? win<>ex_hwnd : 1))
  233. {
  234.                         return win
  235. }
  236.         }
  237. }
复制代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 15:37 , Processed in 0.019505 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表