找回密码
 加入
搜索
查看: 3977|回复: 6

[GUI管理] 启动项修改工具 | 谁能改得更方便一些

  [复制链接]
发表于 2011-4-21 17:41:13 | 显示全部楼层 |阅读模式
本帖最后由 haodd 于 2011-4-21 17:45 编辑



#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#NoTrayIcon
Global $item[1],$item2[1]
#Region ### START Koda GUI section ### Form=d:\#__共享读写\regwr\form1.kxf
$Form1 = GUICreate("注册表启动项", 420, 281, 192, 114)
$Group1 = GUICtrlCreateGroup("MACHINE组",336, 181, 73, 89)
$Radio1 = GUICtrlCreateRadio("添加", 347, 200, 57, 17)
$Radio2 = GUICtrlCreateRadio("删除", 347, 224, 57, 17)
$Radio3 = GUICtrlCreateRadio("读取", 347, 248, 57, 17)
$ListView1 = GUICtrlCreateListView("名称 | 键值",8, 152, 314, 126)
_regMACHINE()
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("USER组", 336, 45, 73, 89)
$Radio4 = GUICtrlCreateRadio("添加", 346, 63, 57, 17)
$Radio5 = GUICtrlCreateRadio("删除", 346, 87, 57, 17)
$Radio6 = GUICtrlCreateRadio("读取", 346, 111, 57, 17)
$ListView2 = GUICtrlCreateListView("名称 | 键值", 8, 8, 314, 126)
_regUSER()
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Select
                Case $nMsg = $GUI_EVENT_CLOSE
                        ExitLoop
                        
                Case $nMsg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
                        MsgBox(4128, "你确定添加启动项吗 MACHINE","你确定添加启动项吗 MACHINE")
                        _addreg(0)
                        _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
                        _regMACHINE()
                        
                Case $nMsg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
                        If GUICtrlRead(GUICtrlRead($listview1)) <> "0" Then
                                $strsp = StringSplit(GUICtrlRead(GUICtrlRead($listview1)),"|")                        
                                MsgBox(4128, "你确定删除该项吗 MACHINE", "你确定删除该项吗 MACHINE"&@CRLF&"项名:"&$strsp[1]&@CRLF&"项值:"&$strsp[2])
                                _delreg(0,$strsp[1])
                                _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
                                _regMACHINE()
                                
                        Else
                                MsgBox(4160,"请先选择你要删除的项 MACHINE","请先选择你要删除的项 MACHINE")
                        EndIf                        
                        
                Case $nMsg = $radio3 And BitAND(GUICtrlRead($radio3), $GUI_CHECKED) = $GUI_CHECKED
                        If GUICtrlRead(GUICtrlRead($listview1)) <> "0" Then 
                                $strsp = StringSplit(GUICtrlRead(GUICtrlRead($listview1)),"|")                        
                                MsgBox(4160, "MACHINE","项名:"&$strsp[1]&@CRLF&"项值:"&$strsp[2])
                        Else
                                MsgBox(4160,"请先选择你要读取的内容 MACHINE","请先选择你要读取的内容 MACHINE")
                        EndIf
                        
                        
                Case $nMsg = $radio4 And BitAND(GUICtrlRead($radio4), $GUI_CHECKED) = $GUI_CHECKED
                        MsgBox(4128, "你确定添加启动项吗 USER","你确定添加启动项吗 USER")
                        _addreg(1)
                        _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView2))
                        _regUSER()
                        
                Case $nMsg = $radio5 And BitAND(GUICtrlRead($radio5), $GUI_CHECKED) = $GUI_CHECKED
                        If GUICtrlRead(GUICtrlRead($listview2)) <> "0" Then
                                $strsp = StringSplit(GUICtrlRead(GUICtrlRead($listview2)),"|")                        
                                MsgBox(4128, "你确定删除该项吗 USER", "你确定删除该项吗 USER"&@CRLF&"项名:"&$strsp[1]&@CRLF&"项值:"&$strsp[2])
                                _delreg(1,$strsp[1])
                                _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView2))
                                _regUSER()
                        Else
                                MsgBox(4160,"请先选择你要删除的项 USER","请先选择你要删除的项 USER")
                        EndIf
                        
                Case $nMsg = $radio6 And BitAND(GUICtrlRead($radio6), $GUI_CHECKED) = $GUI_CHECKED
                        If GUICtrlRead(GUICtrlRead($listview2)) <> "0" Then 
                                $strsp = StringSplit(GUICtrlRead(GUICtrlRead($listview2)),"|")                        
                                MsgBox(4160, "USER","项名:"&$strsp[1]&@CRLF&"项值:"&$strsp[2])
                        Else
                                MsgBox(4160,"请先选择你要读取的内容 USER","请先选择你要读取的内容 USER")
                        EndIf
        EndSelect
WEnd


Func _regMACHINE()
For $ii = 1 to 100
$var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",$ii)
if @error <> 0 Then ExitLoop
$keyval = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",$var)
_ArrayAdd($item,GUICtrlCreateListViewItem($var&"|"&$keyval, $listview1))
next
EndFunc

Func _regUSER()
For $i = 1 to 100
$var = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $i)
if @error <> 0 Then ExitLoop
$keyval = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run",$var)
_ArrayAdd($item2,GUICtrlCreateListViewItem($var&"|"&$keyval, $listview2))
next
EndFunc

Func _addreg($add)
        $enum = InputBox("请输入你要新建的项名","请输入你要新建的项名")
        If @error Then Return False
        $enumval = InputBox("请输入"&$enum&"的值","请输入"&$enum&"的值")        
        If @error Then  Return False
        If $add = 0 Then
                RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",$enum,"REG_SZ",$enumval)
        ElseIf  $add = 1 Then
                RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run",$enum,"REG_SZ",$enumval)
        EndIf        
EndFunc

Func _delreg($del,$numkey)
        If $del = 0 Then
                RegDelete ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $numkey) 
        ElseIf  $del = 1 Then
                RegDelete ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $numkey) 
        EndIf        
EndFunc

发表于 2011-4-21 18:47:02 | 显示全部楼层
 楼主| 发表于 2011-4-22 15:11:54 | 显示全部楼层
很好的 demo 谢谢
发表于 2011-5-7 11:19:45 | 显示全部楼层
還是這個好,直接複製就可以了
发表于 2011-5-9 14:36:59 | 显示全部楼层
不错,给了另一个思路!
发表于 2011-5-10 18:12:40 | 显示全部楼层
很好的 demo 谢谢
发表于 2011-5-10 20:57:28 | 显示全部楼层
還是這個好,直接複製就可以了
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-6-17 12:13 , Processed in 0.082256 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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