返回列表 回复 发帖
似水年华

D8站长

Rank: 9Rank: 9Rank: 9
1#
打印
tT
发表于 2007-5-2 01:06 PM | 只看该作者

窗口手术师 v1.0 Au3源码

窗口手术师是一款小巧的控制窗口的好工具。它不但可以轻松复制窗口的文字、标题，还能获取窗口内控件的文本。除了简单的查看功能，它还可以对窗口进行完全的修改——修改标题、改变透明度、改变窗口状态（隐藏、显示等等）、将窗口置顶、修改窗口内控件的文字……总之，在窗口手术师的刀下，你可以随心所欲地控制窗口。

与窗口手术师类似的软件还有CopyText、Pickup Window，但功能却不如窗口手术师强大，也远不如窗口手术师易用。
By 一点笔记

  2. #include <GUIConstants.au3>
  3. #Include <GuiCombo.au3>
  4. #include <Constants.au3>
  5. #include <Array.au3>
  6. #NoTrayIcon
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 变量声明
  8. Dim $Mode = 2, $Ver = "v1.0"
  9. Dim $aboutwin,$email,$Label_03,$Edit1,$send,$aboutwinClose,$oconted

  11. Global Const $WM_NOTIFY = 0x004E
  12. Global Const $WM_HSCROLL = 0x114
  13. Global Const $NM_FIRST = 0
  14. Global Const $NM_CLICK = ($NM_FIRST - 2)
  15. Global Const $NM_DBLCLK = ($NM_FIRST - 3)
  16. Global Const $NM_RCLICK = ($NM_FIRST - 5)
  17. Global Const $TB_LINEUP               = 0; //ラインアップ
  18. Global Const $TB_LINEDOWN             = 1; //ラインダウン
  19. Global Const $TB_PAGEUP               = 2; //ページアップ
  20. Global Const $TB_PAGEDOWN             = 3; //ページダウン
  21. Global Const $TB_THUMBPOSITION        = 4; //マウスでスライダーを移動した
  22. Global Const $TB_THUMBTRACK           = 5; //マウスでスライダーをドラグしている
  23. Global Const $TB_TOP                  = 6; //[Home]キーによる最大値への移動
  24. Global Const $TB_BOTTOM               = 7; //[End]キーによる最小値への移動
  25. Global Const $TB_ENDTRACK             = 8; //スライダーの移動が完了した
  26. Global $list[22]
  27. $list[0] = "「开始」菜单"
  28. $list[1] = "Default IME"
  29. $list[2] = "M"
  30. $list[3] = "SysFader"
  31. $list[4] = "MCI command handling window"
  32. $list[5] = "DirectorExtension"
  33. $list[6] = "CiceroUIWndFrame"
  34. $list[7] = "TF_FloatingLangBar_WndTitle"
  35. $list[8] = "NetDDE Agent"
  36. $list[9] = "TrayIcon"
  37. $list[10] = "CAsyncSocketEx Helper Window"
  38. $list[11] = "Socket Notification Sink"
  39. $list[12] = "Logitech GetMessage Hook"
  40. $list[13] = "LogiTrayMgrWnd"
  41. $list[14] = "Logitech E/M Executive"
  42. $list[15] = "Connections Tray"
  43. $list[16] = "电表"
  44. $list[17] = "Program Manager"
  45. $list[18] = "?汐杵湩圠湩潤wж"
  46. $list[19] = "Acrobat IEHelper"
  47. $list[20] = "MS_WebcheckMonitor"
  48. $list[21] = "窗口手术师 " & $Ver
  49. $blist = StringSplit(IniRead("config.ini","config","black",""),"|")
  50. If Not @error Then
  51. ReDim $list[22+$blist[0]]
  52. For $i = 1 to $blist[0]
  53.   $list[21+$i] = $blist[$i]
  54. Next
  55. EndIf
  56. If IniRead("config.ini","config","isshowmore","false") = "true" Then
  57. $height = 356
  58. $text = " 简化↑"
  59. Else
  60. $height = 81
  61. $text = " 详细↓"
  62. EndIf
  63. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 脚本开始
  64. Opt("GUIOnEventMode", 1)
  65. Opt("TrayOnEventMode",1)
  66. Opt("WinTitleMatchMode",4)
  67. Opt("TrayMenuMode",1)
  68. Opt('GUIResizeMode', 802)
  69. AutoItSetOption ( "RunErrorsFatal",0)
  70. TraySetState()
  71. TraySetToolTip ( "窗口手术师 " & $Ver )
  72. Opt("TrayIconHide",1)
  73. TraySetOnEvent ($TRAY_EVENT_PRIMARYDOWN, "showwin" )
  74. $Parent = GUICreate("") ;用于隐藏任务栏图标
  75. $main = GUICreate("窗口手术师 " & $Ver, 217,$height,@DesktopWidth - 244,24, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE),$Parent)
  76. GUISetOnEvent($GUI_EVENT_MINIMIZE, "totray")
  77. GUISetOnEvent($GUI_EVENT_CLOSE, "exitprograme")
  78. GUICtrlCreateLabel("窗口标题：", 6, 6, 64, 17)
  79. $win_titles = GUICtrlCreateCombo("", 6, 24, 205, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_HSCROLL,$WS_VSCROLL))
  80. $p_follow = GUICtrlCreateCheckbox("跟随鼠标", 139, 4, 74, 17)
  81. $p_exit = GUICtrlCreateButton("退出", 165, 53, 46, 22, $BS_FLAT)
  82. $win_more = GUICtrlCreateButton($text, 5, 53, 46, 22, $BS_FLAT)
  83. $p_tools = GUICtrlCreateButton("工具", 114, 53, 46, 22, $BS_FLAT)
  84. GUICtrlCreateGroup("窗口信息", 5, 84, 207, 169)
  85. GUICtrlCreateLabel("标题[", 12, 106, 31, 17)
  86. $win_title = GUICtrlCreateInput("", 13, 124, 191, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
  87. $win_change_title = GUICtrlCreateLabel("修改", 43, 106, 28, 17)
  88. GUICtrlSetColor(-1, 0x0000FF)
  89. GUICtrlSetCursor ($win_change_title, 0)
  90. $win_copy_title = GUICtrlCreateLabel("复制", 77, 106, 28, 17)
  91. GUICtrlSetColor(-1, 0x0000FF)
  92. GUICtrlSetCursor ($win_copy_title, 0)
  93. GUICtrlCreateLabel("]:", 102, 106, 10, 17)
  94. GUICtrlCreateLabel(",", 70, 106, 7, 17)
  95. $win_change_chan = GUICtrlCreateLabel("取消", 178, 106, 28, 17)
  96. GUICtrlSetState (-1,$GUI_HIDE)
  97. GUICtrlSetColor(-1, 0x0000FF)
  98. GUICtrlSetCursor ($win_change_chan, 0)
  99. $win_change_ok = GUICtrlCreateLabel("保存", 148, 106, 24, 17)
  100. GUICtrlSetState (-1,$GUI_HIDE)
  101. GUICtrlSetColor(-1, 0x0000FF)
  102. GUICtrlSetCursor ($win_change_ok, 0)
  103. GUICtrlCreateLabel("状态:", 12, 156, 31, 17)
  104. $win_trans = GUICtrlCreateSlider(111, 150, 98, 20)
  105. GUICtrlSetLimit ($win_trans,255)
  106. GUICtrlSetData($win_trans, 255)
  107. GUICtrlCreateLabel("窗口文字[", 13, 180, 55, 17)
  108. $win_copy_text = GUICtrlCreateLabel("复制", 68, 180, 28, 17)
  109. GUICtrlSetColor(-1, 0x0000FF)
  110. GUICtrlSetCursor ($win_copy_text, 0)
  111. GUICtrlCreateLabel("]:", 92, 180, 10, 17)
  112. $win_state = GUICtrlCreateCombo("", 44, 151, 65, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
  113. GUICtrlSetData(-1, "隐藏|显示|禁用|可用|最大化|最小化")
  114. $win_text = GUICtrlCreateEdit("", 13, 196, 192, 21, BitOR($ES_READONLY,$ES_WANTRETURN))
  115. $win_close = GUICtrlCreateButton("关闭窗口", 141, 223, 64, 22, $BS_FLAT)
  116. $win_on_top = GUICtrlCreateButton("窗口置顶", 72, 223, 64, 22, $BS_FLAT)
  117. GUICtrlCreateGroup("", -99, -99, 1, 1)
  118. GUICtrlCreateGroup("控件信息", 5, 254, 207, 97)
  119. GUICtrlCreateLabel("控件ID:", 12, 278, 42, 17)
  120. $ctrl_ids = GUICtrlCreateCombo("", 56, 273, 148, 25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_HSCROLL,$WS_VSCROLL))
  121. GUICtrlCreateLabel("控件文字[", 12, 302, 55, 17)
  122. $ctrl_change_text = GUICtrlCreateLabel("修改", 67, 302, 24, 17)
  123. GUICtrlSetColor(-1, 0x0000FF)
  124. GUICtrlSetCursor ($ctrl_change_text, 0)
  125. GUICtrlCreateLabel(",", 92, 302, 7, 17)
  126. $ctrl_copy_text = GUICtrlCreateLabel("复制", 98, 302, 28, 17)
  127. GUICtrlSetColor(-1, 0x0000FF)
  128. GUICtrlSetCursor ($ctrl_copy_text, 0)
  129. GUICtrlCreateLabel("]:", 123, 302, 10, 17)
  130. $ctrl_change_ok = GUICtrlCreateLabel("保存", 148, 302, 24, 17)
  131. GUICtrlSetState (-1,$GUI_HIDE)
  132. GUICtrlSetColor(-1, 0x0000FF)
  133. GUICtrlSetCursor ($ctrl_change_ok, 0)
  134. $ctrl_text = GUICtrlCreateInput("", 12, 321, 192, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
  135. $ctrl_change_chan = GUICtrlCreateLabel("取消", 178, 302, 28, 17)
  136. GUICtrlSetColor(-1, 0x0000FF)
  137. GUICtrlSetState (-1,$GUI_HIDE)
  138. GUICtrlSetCursor ($ctrl_change_chan, 0)
  139. GUICtrlCreateGroup("", -99, -99, 1, 1)
  140. ;;;;;; Menu
  141. $ToolsDummy   = GUICtrlCreateDummy()
  142. $ToolsContext = GUICtrlCreateContextMenu($ToolsDummy)
  143. ;$p_view_keys = GUICtrlCreateMenuItem("设置热键", $ToolsContext)
  144. ;$p_black_wins = GUICtrlCreateMenuItem("窗口过滤", $ToolsContext)
  145. $p_about = GUICtrlCreateMenuItem("关于/Bug上报", $ToolsContext)
  146. GUICtrlCreateMenuItem("", $ToolsContext)
  147. $p_visti = GUICtrlCreateMenuItem("访问网站...", $ToolsContext)
  148. $p_check_new = GUICtrlCreateMenuItem("检查更新...", $ToolsContext)
  149. GUICtrlSetOnEvent ($win_titles,"load_title_for_ctrl")
  150. GUICtrlSetOnEvent ($win_more,"show_more")
  151. GUICtrlSetOnEvent ($p_exit,"exitprograme")
  152. GUICtrlSetOnEvent ($win_close,"close_win")
  153. GUICtrlSetOnEvent ($win_on_top,"on_top")
  154. GUICtrlSetOnEvent ($win_state,"set_state")
  155. GUICtrlSetOnEvent ($win_copy_title,"copy_text")
  156. GUICtrlSetOnEvent ($win_copy_text,"copy_text")
  157. GUICtrlSetOnEvent ($ctrl_copy_text,"copy_text")
  158. GUICtrlSetOnEvent ($win_change_title,"change_title")
  159. GUICtrlSetOnEvent ($win_change_ok,"change_title")
  160. GUICtrlSetOnEvent ($win_change_chan,"change_title")
  161. GUICtrlSetOnEvent ($ctrl_ids,"load_ctrl")
  162. GUICtrlSetOnEvent ($ctrl_change_text,"change_text")
  163. GUICtrlSetOnEvent ($ctrl_change_ok,"change_text")
  164. GUICtrlSetOnEvent ($ctrl_change_chan,"change_text")
  165. GUICtrlSetOnEvent ($p_follow,"change_mode")
  166. GUICtrlSetOnEvent ($p_tools,"show_tool_menu")
  167. GUICtrlSetOnEvent ($p_about,"show_about")
  168. GUICtrlSetOnEvent ($p_visti,"vistblog")
  169. GUICtrlSetOnEvent ($p_check_new,"Update")
  170. If IniRead("config.ini","config","mouse","false") = "true" Then
  171. $Mode = 2
  172. GUICtrlSetState ($p_follow  ,$GUI_CHECKED)
  173. Else
  174. $Mode = 1
  175. GUICtrlSetState ($p_follow  ,$GUI_UNCHECKED)
  176. EndIf
  177. $otrans = GUICtrlRead($win_trans)
  178. $owin = GUICtrlRead($win_titles)
  179. $ohandle = WinGetHandle ($owin)
  180. Dim $octrlid,$ohwins,$to_select_ctrl
  181. Global $owins = load_win_titles(IniRead("config.ini","config","lastwin",""))
  182. load_title()
  183. load_ctrls()
  184. load_text()
  185. Global $ostate = load_state()
  186. $octrlid = GUICtrlRead($ctrl_ids)
  187. GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events")
  188. GUIRegisterMsg($WM_HSCROLL, "MY_WM_HSCROLL")
  189. GUISetState(@SW_SHOW)

  191. While 1
  192. Switch $Mode
  193.   Case 1
  194.    Sleep(100)
  195.    $nwins = _GetWins ()
  196.    $owin = WinGetTitle($ohandle)
  197.    If ($owin <> GUICtrlRead($win_title) And $owin <> GUICtrlRead($win_titles)) Or (UBound($owins) <> UBound($nwins) And _CompareArray($nwins,$owins) =0 ) Then
  198.     load_win_titles($owin)
  199.     load_title()
  200.     load_ctrls()
  201.     load_text()
  202.     load_state()
  203.     $owins = $nwins
  204.    EndIf
  205.   Case 2
  206.    Sleep(60)
  207.    $nowtitle = WinGetTitle("active")
  208.    If ($nowtitle ="" Or _IsIn($nowtitle) = 1 Or $nowtitle = $list[21]) And WinExists(GUICtrlRead($win_titles)) =0 Then
  209.     load_win_titles()
  210.     load_title()
  211.     load_state()
  212.     load_ctrls()
  213.     load_text()
  214.    ElseIf $nowtitle <> $list[21] Then
  215.     If _IsIn($nowtitle) = 1 Or $nowtitle ="" Then
  216.      load_text()
  217.     ElseIf _IsIn($nowtitle) = 0 And $nowtitle <>"" And ($nowtitle <> GUICtrlRead($win_title) And $nowtitle <> GUICtrlRead($win_titles)) And $nowtitle <> $list[21] Then
  218.      load_win_titles($nowtitle)
  219.      load_title()
  220.      load_state()
  221.      load_ctrls()
  222.      load_text()
  223.     Else
  224.      load_text()
  225.     EndIf
  226.    Else
  227.     load_text()
  228.    EndIf
  229.   Case 3
  230.    ;;;该部分代码已隐藏
  231.    change_mode()
  232.   Case 4
  233.    ;;;该部分代码已隐藏
  234.    change_mode()
  235. EndSwitch
  236. WEnd
  237. Func Hot_Key()
  238. Switch @HotKeyPressed
  239.   Case ""
  240. EndSwitch
  241. EndFunc
  242. Func show_about()
  243. If WinExists("关于") = 1 Then
  244.   WinActivate("关于")
  245. Else
  246.   $aboutwin = GuiCreate("关于", 215, 190,-1, -1,BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_BORDER),-1,$main)
  247.   GUISetOnEvent($GUI_EVENT_CLOSE, "exitprograme")
  248.   GuiCtrlCreateLabel("版本: " & $Ver, 5, 5, 105, 15)
  249.   GuiCtrlCreateLabel("E-mail: ", 5, 20, 40, 15)
  250.   $email= GuiCtrlCreateLabel("zcbenz@gmail.com", 46, 20, 100, 15,$SS_NOTIFY)
  251.   GUICtrlSetColor(-1,0x0000ff)
  252.   GUICtrlSetCursor(-1, 0)
  253.   GuiCtrlCreateLabel("Blog: ", 5, 35, 40, 15)
  254.   $Label_03 = GuiCtrlCreateLabel("http://my.opera.com/z8519312", 35,35, 170, 15,$SS_NOTIFY)
  255.   GUICtrlSetColor($Label_03,0x0000ff)
  256.   GUICtrlSetCursor(-1, 0)
  257.   GUICtrlCreateLabel("您可以将您的意见通过下面的输入框发送给我:", 5, 64, 207, 25)
  258.   $Edit1 = GUICtrlCreateEdit("", 5, 92, 204, 61,$ES_AUTOVSCROLL+$ES_MULTILINE+$ES_WANTRETURN)
  259.   $send = GUICtrlCreateButton("发送", 120, 160, 43, 25,$BS_FLAT)
  260.   $aboutwinClose = GUICtrlCreateButton("关闭", 168, 160, 43, 25,$BS_FLAT)
  261.   GUICtrlSetOnEvent($send,"sendmsg")
  262.   GUICtrlSetOnEvent($email, "openemail")
  263.   GUICtrlSetOnEvent($aboutwinClose, "exitprograme")
  264.   GUICtrlSetOnEvent( $Label_03, "vistblog")
  265.   GUISetState(@SW_SHOW,$aboutwin )
  266. EndIf
  267. EndFunc
  268. Func openemail()
  269. ShellExecute("mailto:zcbenz@gmail.com")
  270. EndFunc
  271. Func vistblog()
  272. ShellExecute("http://my.opera.com/z8519312")
  273. EndFunc
  274. Func sendmsg()
  275. $Mode =4
  276. EndFunc
  277. Func show_tool_menu()
  278. ShowMenu($main, $p_tools, $ToolsContext)
  279. EndFunc
  280. Func change_mode()
  281. If GUICtrlRead($p_follow) =1 Then
  282.   $Mode = 2
  283. Else
  284.   $Mode = 1
  285. EndIf
  286. EndFunc
  287. Func load_ctrl()
  288. $ctrlid = GUICtrlRead($ctrl_ids)
  289. If $octrlid <> $ctrlid Then
  290.   _CtrlSet($ctrl_text,ControlGetText(GUICtrlRead($win_titles),"",$ctrlid) )
  291.   $octrlid = $ctrlid
  292. EndIf
  293. EndFunc
  294. Func change_text()
  295. $wintitle = GUICtrlRead($win_titles)
  296. Switch @GUI_CtrlId
  297.   Case $ctrl_change_text
  298.    GUICtrlSetStyle ($ctrl_text,$ES_AUTOHSCROLL)
  299.    GUIctrlSetState($ctrl_change_chan,$GUI_SHOW)
  300.    GUIctrlSetState($ctrl_change_text,$GUI_DISABLE)
  301.    GUIctrlSetState($ctrl_change_ok,$GUI_SHOW)
  302.   Case $ctrl_change_ok
  303.    $owin = WinGetTitle($ohandle)
  304.    ControlSetText  ($owin,"",GUICtrlRead($ctrl_ids),GUICtrlRead($ctrl_text))
  305.    ;load_win_titles(GUICtrlRead($win_title))
  306.    GUICtrlSetStyle ($ctrl_text,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
  307.    GUIctrlSetState($ctrl_change_chan,$GUI_HIDE)
  308.    GUIctrlSetState($ctrl_change_text,$GUI_ENABLE)
  309.    GUIctrlSetState($ctrl_change_ok,$GUI_HIDE)
  310.   Case $ctrl_change_chan
  311.    _CtrlSet ($ctrl_text,ControlGetText ($wintitle,"",GUICtrlRead($ctrl_ids)))
  312.    GUICtrlSetStyle ($ctrl_text,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
  313.    GUIctrlSetState($ctrl_change_chan,$GUI_HIDE)
  314.    GUIctrlSetState($ctrl_change_text,$GUI_ENABLE)
  315.    GUIctrlSetState($ctrl_change_ok,$GUI_HIDE)
  316. EndSwitch
  317. EndFunc
  318. Func change_title()
  319. $wintitle = GUICtrlRead($win_titles)
  320. Switch @GUI_CtrlId
  321.   Case $win_change_title
  322.    GUICtrlSetStyle ($win_title,$ES_AUTOHSCROLL)
  323.    GUIctrlSetState($win_change_chan,$GUI_SHOW)
  324.    GUIctrlSetState($win_change_title,$GUI_DISABLE)
  325.    GUIctrlSetState($win_change_ok,$GUI_SHOW)
  326.   Case $win_change_ok
  327.    $owin = WinGetTitle($ohandle)
  328.    WinSetTitle ($owin,"",GUICtrlRead($win_title))
  329.    load_win_titles(GUICtrlRead($win_title))
  330.    GUICtrlSetStyle ($win_title,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
  331.    GUIctrlSetState($win_change_chan,$GUI_HIDE)
  332.    GUIctrlSetState($win_change_title,$GUI_ENABLE)
  333.    GUIctrlSetState($win_change_ok,$GUI_HIDE)
  334.   Case $win_change_chan
  335.    _CtrlSet ($win_title,$wintitle)
  336.    GUICtrlSetStyle ($win_title,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
  337.    GUIctrlSetState($win_change_chan,$GUI_HIDE)
  338.    GUIctrlSetState($win_change_title,$GUI_ENABLE)
  339.    GUIctrlSetState($win_change_ok,$GUI_HIDE)
  340. EndSwitch
  341. EndFunc

  343. Func copy_text()
  344. Local $ctrl
  345. Switch @GUI_CtrlId
  346.   Case $win_copy_title
  347.    $ctrl = $win_title
  348.   Case $win_copy_text
  349.    $ctrl = $win_text
  350.   Case $ctrl_copy_text
  351.    $ctrl = $ctrl_text
  352. EndSwitch
  353. ClipPut(GUICtrlRead($ctrl))
  354. MsgBox(270336,"","已复制到剪切板:" & @CRLF &"""" & GUICtrlRead($ctrl) &"""")
  355. EndFunc
  356. Func set_state()
  357. $wintitle = GUICtrlRead($win_titles)
  358. If $ostate <> GUICtrlRead($win_state) Then
  359.   $ostate = GUICtrlRead($win_state)
  360.   Switch $ostate
  361.   Case "隐藏"
  362.    WinSetState ($wintitle, "", @SW_HIDE )
  363.   Case "显示"
  364.    WinSetState ($wintitle, "", @SW_SHOW  )
  365.   Case "禁用"
  366.    WinSetState ($wintitle, "", @SW_DISABLE  )
  367.   Case "可用"
  368.    WinSetState ($wintitle, "", @SW_ENABLE   )
  369.   Case "最大化"
  370.    WinSetState ($wintitle, "", @SW_MAXIMIZE    )
  371.   Case "最小化"
  372.    WinSetState ($wintitle, "", @SW_MINIMIZE   )
  373.   EndSwitch
  374. EndIf
  375. EndFunc
  376. Func on_top()
  377. $wintitle = GUICtrlRead($win_titles)
  378. If GUICtrlRead($win_on_top) = "窗口置顶" Then
  379.   WinSetOnTop ($wintitle,"",1)
  380.   GUICtrlSetData($win_on_top,"取消置顶")
  381. ElseIf GUICtrlRead($win_on_top) = "取消置顶" Then
  382.   WinSetOnTop ($wintitle,"",0)
  383.   GUICtrlSetData($win_on_top,"窗口置顶")
  384. EndIf
  385. EndFunc
  386. Func close_win()
  387. $back = MsgBox(270340,"","确认关闭?")
  388. If $back =6 Then WinKill (GUICtrlRead($win_titles),"")
  389. EndFunc
  390. Func show_more()
  391. $pos = WinGetPos  ( "窗口控制工具","")
  392. If GUICtrlRead($win_more) = " 详细↓" Then
  393.   WinMove  ($main,"", Default, Default, Default , 381)
  394.   GUICtrlSetData($win_more," 简化↑")
  395. ElseIf GUICtrlRead($win_more) = " 简化↑" Then
  396.   WinMove  ($main,"", Default, Default,Default , 106)
  397.   GUICtrlSetData($win_more," 详细↓")
  398. EndIf
  399. EndFunc
  400. Func _SetTrans()
  401. $wintitle = GUICtrlRead($win_titles)
  402. If $otrans <> GUICtrlRead($win_trans) Then
  403.   $otrans = GUICtrlRead($win_trans)
  404.   WinSetTrans ($wintitle,"",$otrans)
  405. EndIf
  406. EndFunc
  407. Func load_win_titles($select = "")
  408. GUICtrlSetData($win_titles,"")
  409. $Wins = _GetWins()
  410. For $x = 1 To UBound($Wins) - 1
  411.   _GUICtrlComboAddString ( $win_titles, $Wins[$x] )
  412. Next
  413. If $select ="" Then
  414.   _GUICtrlComboSetCurSel ($win_titles,0)
  415. Else
  416.   $var3 = _GUICtrlComboSelectString ($win_titles,-1,$select)
  417.   If $var3 = $CB_ERR  Then _GUICtrlComboSetCurSel ($win_titles,0)
  418. EndIf
  419. $owins = $Wins
  420. Return $Wins
  421. EndFunc
  422. Func load_state()
  423. $wintitle = GUICtrlRead($win_titles)
  424. $state = WinGetState ($wintitle)
  425. $state2 = "0"
  426. Select
  427.   Case $state =0
  428.    _CtrlSet($win_state,"不存在")
  429.   Case $state <=5
  430.    $state2 = "隐藏"
  431.   Case 5< $state <=8
  432.    $state2 = "可用"
  433.   Case 8< $state <=15
  434.    $state2 = "显示"
  435.   Case 15< $state <=31
  436.    $state2 = "最小化"
  437.   Case 31< $state
  438.    $state2 = "最大化"
  439. EndSelect
  440. If $state2 <>"0" Then
  441.   If $state2<> GUICtrlRead($win_state) Then
  442.    _GUICtrlComboSelectString ($win_state,-1,$state2)
  443.   EndIf
  444. EndIf
  445. $ostate = $state2
  446. Return $state2
  447. EndFunc
  448. Func load_title_for_ctrl()
  449. $wintitle = GUICtrlRead($win_titles)
  450. _CtrlSet($win_title,$wintitle)
  451. $ohandle = WinGetHandle ($wintitle)
  452. load_title()
  453. load_ctrls()
  454. load_text()
  455. load_state()
  456. EndFunc
  457. Func load_title()
  458. $wintitle = GUICtrlRead($win_titles)
  459. _CtrlSet($win_title,$wintitle)
  460. $ohandle = WinGetHandle ($wintitle)
  461. EndFunc
  462. Func load_text()
  463. $wintitle = GUICtrlRead($win_titles)
  464. _CtrlSet($win_text,WinGetText  ($wintitle))
  465. EndFunc
  466. Func load_ctrls()
  467. $wintitle = GUICtrlRead($win_titles)
  468. GUICtrlSetData($ctrl_ids,"")
  469. GUICtrlSetData($ctrl_text,"")
  470. $classes = StringSplit(_GetClasses($wintitle),@LF)
  471. For $d =1 To UBound($classes) -1
  472.   If StringStripWS($classes[$d],3) <>"" Then _GUICtrlComboAddString ($ctrl_ids,$classes[$d])
  473. Next
  474. If $to_select_ctrl ="" Then
  475.   _GUICtrlComboSetCurSel ($ctrl_ids,0)
  476. Else
  477.   _GUICtrlComboSelectString ($ctrl_ids,-1,$to_select_ctrl)
  478. EndIf
  479. load_ctrl()
  480. EndFunc
  481. Func Update()
  482. $Mode =3
  483. EndFunc

  485. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; sys functions
  486. Func MY_WM_HSCROLL($hWnd, $msg, $wParam, $lParam)
  487. $nScrollCode    = BitAnd($wParam, 0x0000FFFF)
  488.     $nPos         = BitShift($wParam, 16)
  489.     $hwndScrollBar  = $lParam
  490. Switch $nScrollCode
  491.   Case $TB_LINEDOWN ,$TB_LINEUP,$TB_PAGEDOWN,$TB_PAGEUP,$TB_THUMBTRACK
  492.    _SetTrans()
  493. EndSwitch
  494. EndFunc
  495. Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam)
  496. #forceref $hWndGUI, $MsgID, $wParam
  497.     Local $tagNMHDR, $event, $hwndFrom, $code
  498.     $tagNMHDR = DllStructCreate("int;int;int", $lParam) ;NMHDR (hwndFrom, idFrom, code)
  499.     If @error Then Return
  500.     $event = DllStructGetData($tagNMHDR, 3)
  501. $tagNMHDR = 0
  502.     $event = 0
  503.     $lParam = 0
  504.     Return $GUI_RUNDEFMSG
  505. EndFunc
  506. Func showwin()
  507. Opt("TrayIconHide",1)
  508. GuiSetState(@SW_SHOW , $main)
  509. EndFunc
  510. Func totray()
  511. Opt("TrayIconHide",0)
  512. GuiSetState(@SW_HIDE , $main)
  513. EndFunc
  514. Func exitprograme()
  515. if @GUI_WinHandle = $aboutwin Then
  516.   GUIDelete($aboutwin)
  517. Else
  518.   IniWrite("config.ini","config","lastwin",GUICtrlRead($win_title))
  519.   If GUICtrlRead($win_more) = " 简化↑" Then
  520.    IniWrite("config.ini","config","isshowmore","true")
  521.   Else
  522.    IniWrite("config.ini","config","isshowmore","false")
  523.   EndIf
  524.   If $Mode = 2 Then
  525.    IniWrite("config.ini","config","mouse","true")
  526.   ElseIf $Mode = 1 Then
  527.    IniWrite("config.ini","config","mouse","false")
  528.   EndIf
  529.   Exit
  530. EndIf
  531. EndFunc
  532. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 辅助函数
  533. Func _CompareArray($a1,$a2)
  534. $return =0
  535. If UBound($a1) = UBound($a2) Then
  536.   $return =1
  537.   For $u =0 To UBound($a1) -1
  538.    If $a1[$u] <> $a2[$u] Then $return =0
  539.   Next
  540. EndIf
  541. Return $return
  542. EndFunc
  543. Func _GetWins()
  544. Global $ohwins = WinList()
  545. Dim $twins[1]
  546. For $i =1 To $ohwins[0][0]
  547.   $title = $ohwins[$i][0]
  548.   If StringStripWS($title,3) <>"" And _IsIn($title) = 0 Then
  549.    ReDim $twins[UBound($twins)+1]
  550.    $twins[UBound($twins) -1 ] = $title
  551.   EndIf
  552. Next
  553. Return $twins
  554. EndFunc
  555. Func _CtrlSet($ctrl,$var)
  556. If $var <> GUICtrlRead($ctrl) Then
  557.   GUICtrlSetData($ctrl,$var)
  558. EndIf
  559. EndFunc
  560. Func _IsIn($var)
  561. $result = 0
  562. $var2 = StringStripWS($var,3)
  563. For $x = 0 To UBound($list) - 1
  564.   If $var2 = $list[$x] Then $result = 1
  565. Next
  566. Return $result
  567. EndFunc

  569. Func _Name2Link($link,$LinkNames)
  570. $x = 0
  571. For $i =1 to UBound($LinkNames,1) -1
  572.   If $link = $LinkNames[$i][0] Then
  573.    $x = $i
  574.    ExitLoop
  575.   EndIf
  576. Next
  577. Return $x
  578. EndFunc
  579. Func _Link2Name($link,$LinkNames)
  580. $x= 0
  581. For $i =1 to UBound($LinkNames,1) -1
  582.   If $link = $LinkNames[$i][1] Then
  583.    $x = $i
  584.    ExitLoop
  585.   EndIf
  586. Next
  587. If $x= 0 Then
  588.   Return ""
  589. Else
  590.   Return $LinkNames[$x][0]
  591. EndIf
  592. EndFunc
  593. Func _GetClasses($title)
  594. ;Get array of each control
  595.     Local  $buttonCount = 0, $editCount = 0, $staticCount = 0, $i
  596.     Local $classes = StringSplit(  WinGetClassList($title) , @LF)
  597.     Local  $classIDs[$classes[0]+1]
  598. Local $count[1][2]
  599.     $classIDs[0] = $classes[0]
  600.     For $i = 1 to $classes[0]
  601.       Select
  602.       Case $classes[$i] = "Button"
  603.   $buttonCount = $buttonCount + 1
  604.   $classIDs[$i] = $classes[$i] & $buttonCount
  605.       Case $classes[$i] = "Edit"
  606.         $editCount = $editCount + 1
  607.         $classIDs[$i] = $classes[$i] & $editCount
  608.         $classes[$i] = "Input"
  609.       Case $classes[$i] = "Static"
  610.         $staticCount = $staticCount + 1
  611.         $classIDs[$i] = $classes[$i] & $staticCount
  612.   $classes[$i] = "Label"
  613.      Case Else
  614.         If StringStripWS($classes[$i],3) <> "" Then
  615.    $back = _Name2Link($classes[$i],$count)
  616.    If $back = 0 Then
  617.     ReDim $count[UBound($count)+1][2]
  618.     $count[UBound($count)-1][0] = $classes[$i]
  619.     $count[UBound($count)-1][1] = 1
  620.     $classIDs[$i] = $classes[$i] & 1
  621.    Else
  622.     $classIDs[$i] = $count[$back][0] & ($count[$back][1]+1)
  623.     $count[$back][1] +=1
  624.    EndIf
  625.   EndIf
  626.       EndSelect
  627.    Next
  628.    Local $classIDs2[1]
  629.    For $i = 1 to $classIDs[0]
  630.   If StringStripWS($classIDs[$i],3) <> "" Then
  631.    ReDim $classIDs2[UBound($classIDs2)+1]
  632.    $classIDs2[UBound($classIDs2)-1] = $classIDs[$i]
  633.   EndIf
  634.    Next
  635. ;Display the results
  636.     Local $output = ""
  637.     For $i = 1 to UBound($classIDs2) -1
  638.   $output = $output & $classIDs2[$i] & @LF
  639.     Next
  640.     Return $output
  641. EndFunc
  642. Func ShowMenu($hWnd, $CtrlID, $nContextID)
  643.     Local $hMenu = GUICtrlGetHandle($nContextID)
  644.    
  645.     $arPos = ControlGetPos($hWnd, "", $CtrlID)
  646.    
  647.     Local $x = $arPos[0]
  648.     Local $y = $arPos[1]  + $arPos[3]
  649.    
  650.     ClientToScreen($hWnd, $x, $y)
  651.     TrackPopupMenu($hWnd, $hMenu, $x, $y)
  652. EndFunc
  653. ; Convert the client (GUI) coordinates to screen (desktop) coordinates
  654. Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
  655.     Local $stPoint = DllStructCreate("int;int")
  656.    
  657.     DllStructSetData($stPoint, 1, $x)
  658.     DllStructSetData($stPoint, 2, $y)
  659.     DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))
  660.    
  661.     $x = DllStructGetData($stPoint, 1)
  662.     $y = DllStructGetData($stPoint, 2)
  663.     ; release Struct not really needed as it is a local
  664.     $stPoint = 0
  665. EndFunc
  666. ; Show at the given coordinates (x, y) the popup menu (hMenu) which belongs to a given GUI window (hWnd)
  667. Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
  668.     DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
  669. EndFunc
复制代码
收藏 分享 评分
感谢Baidu,Google,Dreams8给我这次机会!
还要感谢我的爸爸妈妈!
HOHO
回复 引用

订阅 TOP

返回列表