Autoit显示自动运行列表 Autoit, 列表, 自动, 运行

似水年华

代码是用AU3调用WMI写的。不想列注册表。因为有的帐户注册表路径不一样的。
代码乱七八糟的。看不懂的提出，我再整理发出来。。。嘿嘿。。。

1. 
   
2. #include <GuiConstants.au3>
   
3. #include <GuiListView.au3>
   
4. HotKeySet( "{F5}" , "_Refresh" )
   
5. $wbemFlagReturnImmediately = 0x10
   
6. $wbemFlagForwardOnly = 0x20
   
7. $strComputer = "localhost"
   
8. 
   
9. GUICreate("自动运行",700, 450)
   
10.          
    
11.         $runlistView = GUICtrlCreateListView("程序名称|程序路径|注册表路径",5, 5,750,490)
    
12. 
    
13. GUICtrlSendMsg($runlistview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
    
14. GUICtrlSendMsg($runlistview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
    
15. 
    
16.                  _GUICtrlListViewSetColumnWidth ($runlistview, 0,100)
    
17.                          _GUICtrlListViewSetColumnWidth ($runlistview, 1,200)
    
18.              _GUICtrlListViewSetColumnWidth ($runlistview, 2,400)
    
19. 
    
20. $contextmenu = GUICtrlCreateContextMenu ($runlistview)
    
21. $kill             = GUICtrlCreateMenuitem ("删除", $contextmenu)
    
22. $Refresh          = GUICtrlCreateMenuitem ("刷新", $contextmenu)
    
23. _runlist()
    
24. 
    
25. GuiSetState(@SW_SHOW)
    
26. 
    
27.         While 1
    
28.         
    
29.                 $msg = GUIGetMsg()
    
30.         
    
31.                   Select
    
32.                         Case $msg = $kill
    
33.                $info= _GUICtrlListViewGetItemText($runlistview, _GUICtrlListViewGetSelectedIndices($runlistview), 0)
    
34.                           $reg=  _GUICtrlListViewGetItemText($runlistview, _GUICtrlListViewGetSelectedIndices($runlistview), 2)
    
35.                     $patch= $reg&"\"&$info
    
36.                                         ;MsgBox(0,"slkdjf", $patch)
    
37.                         RegDelete($reg&"\",$info)
    
38.                                          _Refresh()
    
39.                                         Case $msg = $Refresh  
    
40.                           _Refresh()
    
41.                           Case $msg = $GUI_EVENT_CLOSE
    
42.         
    
43.          ExitLoop
    
44.                  EndSelect
    
45.                
    
46.         WEnd
    
47. Func _runlist()
    
48.         
    
49.         $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    
50. $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_StartupCommand", "WQL", _
    
51.                                           $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    
52.    For $objItem In $colItems
    
53.            
    
54.            
    
55.            local $processData = ($objItem.Caption & "|" &$objItem.Command &"|" &$objItem.Location )
    
56. GUICtrlCreateListViewItem($processData,$runlistView)
    
57.   Next
    
58.   
    
59. 
    
60.   $ini=_GUICtrlListViewGetItemCount ($runlistview)
    
61.                
    
62.                 ;MsgBox(0, "Passed Item Index only", $a)
    
63.                 For $i = 0 To $ini-1
    
64.                         
    
65.                 $desktop =_GUICtrlListViewGetItemText($runlistview,$i,0)
    
66.                
    
67.                 If $desktop ="desktop" Then
    
68.                 _GUICtrlListViewDeleteItem ($runlistview,$i)
    
69. EndIf
    
70.                 ;MsgBox(0, "asldjkf", $a)
    
71.         Next
    
72.         EndFunc
    
73.   
    
74.   
    
75. Func _Refresh()
    
76.         
    
77.                                        
    
78.         _GUICtrlListViewDeleteAllItems ($runlistview)
    
79.         
    
80.                         $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    
81. $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_StartupCommand", "WQL", _
    
82.                                           $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    
83.                
    
84.    For $objItem In $colItems
    
85.            
    
86.            
    
87.            local $processData = ($objItem.Caption & "|" &$objItem.Command &"|" &$objItem.Location )
    
88. GUICtrlCreateListViewItem($processData,$runlistView)
    
89.   Next
    
90. 
    
91.   $a=_GUICtrlListViewGetItemCount ($runlistview)
    
92.                
    
93.                 ;MsgBox(0, "Passed Item Index only", $a)
    
94.                 For $i = 0 To $a-1
    
95.                         
    
96.                 $desk =_GUICtrlListViewGetItemText($runlistview,$i,0)
    
97.                
    
98.                 If $desk="desktop" Then
    
99.                 _GUICtrlListViewDeleteItem ($runlistview,$i)
    
100. EndIf
     
101.                 ;MsgBox(0, "asldjkf", $a)
     
102.         Next
     
103.         
     
104.         EndFunc

复制代码

文章来源AUTOIT中文论坛www.autoit.net.cn,本贴原地址：http://www.autoit.net.cn/viewthread.php?tid=128