[NikLok]

Creat0R,

Пример можно увидеть где это происходит? »

Ох и длинный он однако:

Код:

;Автор скрипта: NikLok (http://forum.oszone.net/member.php?u=15218)
; 12 March 2008 - SRISA _ LNM
#include <GuiConstants.au3>
AutoItSetOption("TrayIconDebug",1)
AutoItSetOption("SendKeyDelay",40)

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

Global $CfgFile = "winnt.sif"
Global $AccessOpt_state=$GUI_CHECKED
Global $Appsrv_console_state=$GUI_UNCHECKED
Global $Aspnet_state=$GUI_UNCHECKED

$fn="winnt.sif"
If	FileExists($fn) Then
	$file = FileOpen($fn,0)
	; Check if file opened for writing OK
	If $file = -1 Then
	    MsgBox(0, "Error", "Unable to open " & $fn & " file.")
	Else
;		$newfile = FileOpen("winnt_assemble.sif",1)
		; Check if file opened for writing OK
;		If $newfile = -1 Then MsgBox(0, "Error", "Unable to open winnt_assemble.sif file.")
		; Read in lines of text until the EOF is reached
		While 1
		    $line = FileReadLine($file)
		    If @error = -1 Then ExitLoop
;			FileWriteLine($newfile, $line)
			$r=StringRegExp($line,"OemPnPDriversPath",0)
		    If $r <> 0 Then
				$t=StringInStr($line,'=')
				If $t <> 0 Then
					$WSOemPnPDriversPath = StringTrimLeft($line,$t)
					$OemPnPDriversPath = StringStripWS($WSOemPnPDriversPath,3)
					;$OemPnPDriversPath=StringInStr($line,'=')
					;MsgBox(0,"Info",$OemPnPDriversPath)
				Else
					$OemPnPDriversPath=''
				EndIf
					$array = StringSplit($OemPnPDriversPath,';',1)
			EndIf
		Wend
		FileClose($file)
	EndIf
EndIf

$hGUI = GuiCreate("WIndows XP winnt.Sif managers - feesh 0.0.1", 1020, 620)

$LoadButton   = GUICtrlCreateButton("Load", 600, 5, 80, 25 )
$SaveButton   = GUICtrlCreateButton("Save", 700, 5, 80, 25 )
$ExitButton   = GUICtrlCreateButton("Exit", 800, 5, 80, 25 )
$AcceptButton = GUICtrlCreateButton("Ok",   500, 5, 60, 25)
$CancelButton = GUICtrlCreateButton("Cancel",900,5, 60, 25)

; TAB
GuiCtrlCreateTab(30, 10, 960, 590)
GuiCtrlCreateTabItem("User")
;GuiCtrlCreateLabel("Sample Tab with tabItems", 250, 40)
	GuiCtrlCreateLabel("FullName", 50, 80)
	GuiCtrlCreateLabel("OrgName", 50, 100)
	GuiCtrlCreateLabel("ComputerName", 50, 120)
	GuiCtrlCreateLabel("Workgroup", 50, 140)

GuiCtrlCreateTabItem("Ip")
	; CHECKBOX
	GuiCtrlCreateCheckbox("RIS installation", 50, 50, 80, 20)
	GuiCtrlSetState(-1, $GUI_CHECKED)
	GuiCtrlCreateLabel("IP adress", 50, 80)
	GuiCtrlCreateLabel("Gateway", 50, 100)
	GuiCtrlCreateLabel("DNS Server", 50, 120)
	GuiCtrlCreateLabel("Proxy Server", 50, 140)
	GuiCtrlCreateLabel("Proxy Override", 50, 160)

GuiCtrlCreateTabItem("Drivers")

	$treeDrivers = GuiCtrlCreateTreeView(30,50,980,500, $TVS_CHECKBOXES)
	$n=StringLen($OemPnPDriversPath)
	If $n <> 0 Then
		$array = StringSplit($OemPnPDriversPath,';',1)
		For $m=1 to $array[0] Step 1
			GuiCtrlCreateTreeViewItem($array[$m], $treeDrivers)
		Next	
	EndIf
	; CHECKBOX
	GuiCtrlCreateCheckbox("Check existense",35,560,140,20)
	GuiCtrlSetState(-1, $GUI_CHECKED)

GuiCtrlCreateTabItem("Screen")
	GuiCtrlCreateLabel("Bits Per Pixel", 50, 80)
	GuiCtrlCreateLabel("Xresolution", 50, 100)
	GuiCtrlCreateLabel("Yresolution", 50, 120)
	GuiCtrlCreateLabel("Vertical refresh", 50, 140)
	;GuiCtrlCreateLabel("Proxy Override", 50, 160)

GuiCtrlCreateTabItem("Components")
;CreateGUI
$AccessOpt = GUICtrlCreateCheckbox("AccessOpt",35,50,210,15)
GUICtrlSetState($AccessOpt,$AccessOpt_State)
$Appsrv_console = GUICtrlCreateCheckbox("Appsrv_console",35,90,210,15)
GUICtrlSetState($Appsrv_console,$Appsrv_console_State)
$Aspnet = GUICtrlCreateCheckbox("Aspnet",35,130,210,15)
GUICtrlSetState($Aspnet,$Aspnet_State)

GuiCtrlCreateTabItem("Settings")
	GuiCtrlCreateLabel("Base directory", 50, 80)
	GuiCtrlCreateLabel("Builderman", 50, 100)
	GuiCtrlCreateLabel("Contacts", 50, 120)

; GUI MESSAGE LOOP
GuiSetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE, $CancelButton
        ExitLoop
    Case $AcceptButton
        ;_SaveCfg()
        ExitLoop
    EndSwitch
WEnd

Func _LoadCfg()
	$AccessOpt_State = IniRead($CfgFile,"Components","AccessOpt","Off")
	If $AccessOpt_State == "On" Then
		$AccessOpt_State=$GUI_CHECKED
		;GUICtrlSetState($AccessOpt,$GUI_CHECKED)
	Else
		$AccessOpt_State=$GUI_UNCHECKED
		;GUICtrlSetState($AccessOpt,$GUI_UNCHECKED)
	EndIf
	$Appsrv_console_State = IniRead($CfgFile,"Components","Appsrv_console","Off")
	If $Appsrv_console_State == "On" Then
		$Appsrv_console_State=$GUI_CHECKED
		;GUICtrlSetState($Appsrv_console,$GUI_CHECKED)
	Else
		$Appsrv_console_State=$GUI_UNCHECKED
		;GUICtrlSetState($Appsrv_console,$GUI_UNCHECKED)
	EndIf
	$Aspnet_State = IniRead($CfgFile,"Components","Aspnet","Off")
	If $Aspnet_State == "On" Then
		$Aspnet_State=$GUI_CHECKED
		;GUICtrlSetState($Aspnet,$GUI_CHECKED)
	Else
		$Aspnet_State=$GUI_UNCHECKED
		;GUICtrlSetState($Aspnet,$GUI_UNCHECKED)
	EndIf
EndFunc


Func _SaveCfg()
    GUISetState(@SW_HIDE, $hGUI)
	If GUICtrlRead($AccessOpt) = $GUI_CHECKED Then
		$AccessOpt_State="On"
	Else
		$AccessOpt_State="Off"
	EndIf
    IniWrite($CfgFile,"Components","AccessOpt",$AccessOpt_State)
	If GUICtrlRead($Appsrv_console) = $GUI_CHECKED Then
		$Appsrv_console_State="On"
	Else
		$Appsrv_console_State="Off"
	EndIf
    IniWrite($CfgFile,"Components","Appsrv_console",$Appsrv_console_State)
	If GUICtrlRead($Aspnet) = $GUI_CHECKED Then
		$Aspnet_State="On"
	Else
		$Aspnet_State="Off"
	EndIf
    IniWrite($CfgFile,"Components","Aspnet",$Aspnet_State)
EndFunc
Exit

В директории запуска должон быть winnt.sif - или корректировать $CfgFile

Хотя 8$ не так уж и много для книги подобного типа... »

Согласен, но дело принципа. Я просмотрел её содержимое и сильно разочаровался!!! Это краткий справочник скорее чем книга!