找回密码
 加入
搜索
查看: 3188|回复: 1

[系统综合] 关于AU3如何实现读写INI文件配置信息

[复制链接]
发表于 2010-2-25 11:04:48 | 显示全部楼层 |阅读模式
以下这段代码如何实现接替读写Eprep.ini这个文件里面的配置信息?

#include<guiconstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
GUICreate("",@DesktopWidth,@DesktopHeight,"","",$ws_popup)
GUICtrlCreatePic(@SystemDir&"\setup.bmp",0,0,@DesktopWidth,@DesktopHeight,BitOR($ss_notify,$ws_group,$ws_clipsiblings))
GUISetState(@SW_SHOW)

While 1
        if FileExists(@HomeDrive&"\ntldrbi_") Then
       FileSetAttrib(@HomeDrive&"\ntldr","-HSR")
       FileSetAttrib(@HomeDrive&"\ntldr.bi_","-HSR")
           FileDelete(@HomeDrive&"\ntldr")
       FileMove(@HomeDrive&"\ntldr.bi_", @HomeDrive&"\ntldr")
       FileSetAttrib(@HomeDrive&"\ntldr","+HSR")
    EndIf
    FileSetAttrib(@HomeDrive&"\boot.ini","-HSR")
    if FileExists(@HomeDrive&"\boot.ini.in_") Then
       FileDelete(@HomeDrive&"\boot.ini")
       FileMove(@HomeDrive&"\boot.ini.in_", @HomeDrive&"\boot.ini")
    Else
       iniwrite(@homedrive&"\boot.ini","boot loader","timeout","5")
           FileSetAttrib(@HomeDrive&"\boot.ini","+HSR")
   EndIf
   RunWait(@HomeDrive&"\sysprep\sysprep.exe -clean", '', @SW_HIDE)
   RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\setup","cmdline")
   RunWait("setup.exe -newsetup –mini")
;无需驱动程序验证 1=询问验证,2=必须验证通过才可安装
   RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Driver Signing', 'Policy', 'REG_BINARY', '00')
;不提示搜索驱动
   RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\DriverSearching', 'DontPromptForWindowsUpdate', 'REG_DWORD', '0x00000000')
;不创建Windows Media Player快捷方式
   RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{22d6f312-b0f6-11d0-94ab-0080c74c7e95}', 'IsInstalled', 'REG_DWORD', '0x00000001')
   filedelete("c:\documents and settings\allusers\桌面\windows media player.lnk")
;不起用个人设置窗口
   RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4383}', 'IsInstalled', 'REG_DWORD', '0x00000001')
   exit
WEnd






Eprep.ini文件配置部分


[Easprep]
Ext1=
Ext2=
Ext3=
; 扩展接口,系统部署前运行,支持批处理及可执行程序
set1=
set2=
set3=
; 扩展接口,系统部署后运行,支持批处理及可执行程序
run1=
run2=
run3=
; 扩展接口,首次进入系统运行,支持批处理及可执行程序

neting=
;去除应用个人设置对话框,1启用 空为不启用

Cleanvga=
;清除显卡的桌面右键菜单,1启用 空为不启用

delwmp=
;删除MdeiaPlayer图标,1启用 空为不启用

CleanSrs=
;清除未使用的SRS驱动服务,1启用 空为不启用

DisPolicy=
;是否关闭驱动签名验证,1启用 空为不启用
==================================================================
发表于 2010-2-25 11:45:11 | 显示全部楼层
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Path = @ScriptDir & "\config.ini"

GUICreate("ini", 280, 270)
$ListView1 = GUICtrlCreateListView("账号           |密码           |", 10, 10, 260, 150)
$Button1 = GUICtrlCreateButton("添加", 185, 178, 75, 25, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 60, 180, 120, 21)
$Input2 = GUICtrlCreateInput("", 60, 220, 120, 21)
$Label1 = GUICtrlCreateLabel("账号:", 20, 183, 36, 17)
$Label2 = GUICtrlCreateLabel("密码:", 20, 223, 36, 17)
$Label3 = GUICtrlCreateLabel("数据", 200, 223, 36, 17)
$Label4 = GUICtrlCreateLabel("0", 230, 223, 36, 17)
GUISetState(@SW_SHOW)

$z = 0
_GUICtrlListView_DeleteAllItems($ListView1)
$read = IniReadSection($Path, "config")
If Not @error Then
        For $i = 1 To $read[0][0]
                GUICtrlCreateListViewItem($read[$i][0], $ListView1)
                _GUICtrlListView_AddSubItem($ListView1, $z, $read[$i][1], 1, $z + 1)
                GUICtrlSetData($Label4, $z + 1)
                $z += 1
        Next
EndIf

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case - 3
                        Exit
                Case $Button1
                        $z = GUICtrlRead($Label4)
                        $a = GUICtrlRead($Input1)
                        $b = GUICtrlRead($Input2)
                        If $a <> "" And $b <> "" Then
                                IniWrite($Path, "config", $a, $b)
                                GUICtrlCreateListViewItem($a, $ListView1)
                                _GUICtrlListView_AddSubItem($ListView1, $z, $b, 1, $z + 1)
                                MsgBox(0, "提示", " 账号: " & $a & " 密码: " & $b & " 保存成功 ")
                                GUICtrlSetData($Input1, "")
                                GUICtrlSetData($Input2, "")
                                GUICtrlSetData($Label4, $z + 1)
                        EndIf
        EndSwitch
WEnd
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-5-20 14:12 , Processed in 0.086639 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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