|
|
楼主 |
发表于 2009-7-22 04:02:24
|
显示全部楼层
本帖最后由 116154801 于 2009-7-22 04:06 编辑
列表框 List.au3
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $dir = "config.ini"
del1() ;删除 = 号
IniWrite ( $dir, "进程", "病毒.exe", "" ) ;写入INI.
#Region ### START Koda GUI section ### Form=E:\D\1.苹果工程技术学院\0.编辑文件备份\l.列表框\工程1.kxf
$Form1 = GUICreate("配置工具", 633, 447, 601, 241)
$Button1 = GUICtrlCreateButton("添加", 289, 368, 75, 25, 0)
$Button2 = GUICtrlCreateButton("修改", 384, 369, 75, 25, 0)
$Button3 = GUICtrlCreateButton("删除", 480, 369, 75, 25, 0)
$Input1 = GUICtrlCreateInput("", 80, 368, 177, 21)
$List1 = GUICtrlCreateList("", 48, 48, 513, 289)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
del1() ;删除 留空的 = 号
refresh() ;获得列表
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1 ;保存
save()
Case $Button2 ;修改
xiougai()
Case $Button3 ;退出
del()
Case $Button2 ;退出
GUICtrlSetData($List1,"您点击了第一个按钮！")
EndSwitch
WEnd
Func refresh()
GUICtrlSetData($List1,"") ;修改指定控件的数据
$var = IniReadSection($dir, "进程") ;从某标准配置文件(*.ini)中读取所有字段的信息.
If @error Then
MsgBox(4096, "", "发生错误,可能目标文件并非标准的INI文件.")
Else
For $i = 1 To $var[0][0]
GUICtrlSetData($List1, $var[$i][0])
;修改指定控件的数据.从某标准配置文件(*.ini)中读取某个数值.
Next
EndIf
del1() ;删除 留空的 = 号
EndFunc ;==>refresh
Func save() ;保存
$var = IniReadSection($dir, "进程") ;从某标准配置文件(*..ini)的所有关键字或值
For $i = 0 To $var[0][0] ;循环
Next
IniWrite($dir, "进程" , GUICtrlRead($Input1) , "") ;将读取到的值写入ini文件
;MsgBox(0,0,"保存成功")
del1() ;删除 留空的 = 号
refresh() ;获得列表
EndFunc ;==>save
Func xiougai() ;修改
GUICtrlSetData($Input1, "111")
EndFunc ;==>save
Func del() ;删除
$var = IniReadSection($dir, "进程") ;从某标准配置文件(*.ini)中读取所有字段的信息.
If @error Then
MsgBox(4096, "", "发生错误,可能目标文件并非标准的INI文件.")
Else
For $i = 1 To $var[0][0]
If $var[$i][0] = GUICtrlRead($List1) Then ;If 从没标准配置文件(*.ini)中读取某个数值. =等于 读取制定控件的状态或相关数据 Then
IniDelete($dir, "进程" ,$var[$i][0]) ;从某标准配置文件(*..ini)中删除某个数值
MsgBox(0, 0, $var[$i][0])
refresh()
EndIf
Next
EndIf
EndFunc ;==>del
Func del1() ;删除 留空的 = 号
$var = IniReadSection($dir, "进程") ;从某标准配置文件(*.ini)中读取所有字段的信息.
If @error Then
MsgBox(4096, "", "发生错误,可能目标文件并非标准的INI文件.")
Else
For $i = 1 To $var[0][0]
If $var[$i][0] = "" Then ;If 从没标准配置文件(*.ini)中读取某个数值. =等于 读取制定控件的状态或相关数据 Then
IniDelete($dir, "进程" ,$var[$i][0]) ;从某标准配置文件(*..ini)中删除某个数值
refresh()
EndIf
Next
EndIf
EndFunc ;==>del1
列表框 ListView.au3
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3> ;清空ListView1需要的文件
Global $dir = @ScriptDir & "\config.ini"
IniWrite ( $dir, "进程2", "1", "病毒.exe" ) ;写入INI.
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Administrator\桌面\Form1.kxf
$Form1 = GUICreate("配置工具", 633, 447, 601, 241)
$ListView1 = GUICtrlCreateListView("排列|要监控的进程", 80, 24, 466, 318)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 300)
$Button1 = GUICtrlCreateButton("添加", 289, 368, 75, 25, 0)
$Button2 = GUICtrlCreateButton("修改", 384, 369, 75, 25, 0)
$Button3 = GUICtrlCreateButton("删除", 480, 369, 75, 25, 0)
$Input1 = GUICtrlCreateInput("", 80, 368, 177, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
add_list()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Button1()
Case $Button2
Button2()
Case $Button3
Button3()
Case $ListView1
OKButton()
EndSwitch
WEnd
Func OKButton()
;注意：此时 @GUI_CTRLID 的值将等价于 $okbutton
MsgBox(0, "GUI 事件", "您按下了“还OK吧”按钮！")
EndFunc
Func add_list();读取 ListView1
$var_S = IniReadSection($dir, "进程2") ;从某标准配置文件(*..ini)的所有关键字或值
For $n = 1 To $var_S[0][0] ;循环
GUICtrlCreateListViewItem($var_S[$n][0] & "|" & $var_S[$n][1] , $ListView1) ;在GUI上创建一个ListView项目控件
Next
EndFunc ;==>add_list()
Func Button1();添加一个ListView1
$var_S = IniReadSection($dir, "进程2") ;从某标准配置文件(*..ini)的所有关键字或值
For $n = 0 To $var_S[0][0] ;循环
Next
$data1 = GUICtrlRead($Input1) ;读取指定控件的状态或相关数据
ConsoleWrite($data1) ;写入数据
IniWrite ( $dir, "进程2", $n+1, $data1 ) ;写入INI.
_GUICtrlListView_DeleteAllItems($ListView1);清空 ListView1
add_list() ;读取 ListView1
EndFunc ;==>Button1()
Func Button2()
$var_S = IniReadSection($dir, "进程2") ;从某标准配置文件(*.ini)的所有关键字或值
For $n = 0 To $var_S[0][0] ;循环
Next
_GUICtrlListView_EditLabel("1",$ListView1)
$data1 = GUICtrlRead($Input1) ;读取指定控件的状态或相关数据
ConsoleWrite($data1) ;写入数据
IniWrite ( $dir, "进程2", $n+1, $data1 ) ;写入INI.
_GUICtrlListView_DeleteAllItems($ListView1);清空 ListView1
add_list() ;读取 ListView1
EndFunc ;==>Button2()
Func Button3()
$qq = _GUICtrlListView_DeleteItemsSelected($ListView1)
$aItem = _GUICtrlListView_GetItemTextArray($ListView1, 1)
IniDelete($dir, "进程2" , $aItem) ;从某标准配置文件(*..ini)中删除某个数值
MsgBox(1, "", $qq)
_GUICtrlListView_DeleteAllItems($ListView1);清空 ListView1
add_list() ;读取 ListView1
EndFunc ;==>Button2()
config.ini
[进程]
病毒.exe=
[进程2]
1=病毒.exe |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？加入
×
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-7-20 21:16:02
发表于 2009-7-20 22:25:31
.gif)