Beiträge von mauric

mauric

Hallo Zusammen
im ArrayDisplay sie die Daten ersichtlich aber im GuiCreatecombo nicht?,
Bitte um Hilfe
Danke
MC

Spoiler anzeigen

[autoit]

#include<array.au3>
#include<ExcelCOM_UDF.au3>
;#include<Excel.au3>
Opt('MustDeclareVars', 1)

[/autoit] [autoit][/autoit] [autoit]

ArrayMuster()
Func ArrayMuster()

[/autoit] [autoit][/autoit] [autoit]

Global $aIni, $nMsg, $Exit, $ab, $Offerte, $Rechnung, $Exit
Global $xls, $xlsdir, $app, $zelle, $zeile, $open, $MengenCombo, $Sektionen
Local $aFileName, $aArray1, $oExcel
$aFileName = ("C:\Dokumente und Einstellungen\Administrator\Desktop\Script\Fai\file.xls")
$oExcel = _ExcelBookOpen($aFileName) ;Open book, make it not visible
$oExcel.Visible = 0

[/autoit] [autoit][/autoit] [autoit]

$aArray1 = _ExcelReadArray($oExcel, 2, 4, 1300, 1) ;Direction is Vertical
_ArrayDisplay($aArray1, "Vertical")
;Global $MengenCombo[2]
;Global $Sektionen[2] = ["Name", "Firma"]
;MsgBox(1,"", & GUICtrlRead($aArray1))

[/autoit] [autoit][/autoit] [autoit]

GUICreate("GUI", 250, 240)
GUICtrlCreateLabel("Firma ", 60, 10)
$aArray1 = GUICtrlCreateCombo("", 60, 30)
GUICtrlCreateLabel("Firma ", 60, 10)
;$MengenCombo[0] = GUICtrlCreateCombo("", 60, 30)
GUICtrlCreateLabel("Name ", 60, 70)
;$MengenCombo[1] = GUICtrlCreateCombo("", 60, 88)

[/autoit] [autoit][/autoit] [autoit]

$ab = GUICtrlCreateButton("Abestätigung",70, 130)
$Offerte = GUICtrlCreateButton("Offerte",10, 130)
$Rechnung = GUICtrlCreateButton("Rechnung",160, 130)
$Exit = GUICtrlCreateButton("Exit",60, 200)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists($aFileName) Then ; Neu zur Überprüfung hinzu
MsgBox(0, "Hinweis:", "XLS-Datei existiert nicht.")
Exit
EndIf
For $i = 0 To UBound($aArray1) - 1
$aIni = IniReadSection($aFileName, $aArray1[$i])
For $j = 1 To $aIni[0][0]
GUICtrlSetData($aArray1[$i], $aIni[$j][1])
Next
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Exit
;MsgBox(1,"Auswahl", GUICtrlRead($MengenCombo[0])&GUICtrlRead($MengenCombo[1])& _
; GUICtrlRead($MengenCombo[2])&GUICtrlRead($MengenCombo[3]))
Exit
Case $Rechnung
Run("C:\Program Files\Microsoft Office\Office12\excel")
Exit
Case $Offerte
;$xls = ShellExecute("C:\temp\Script\OffertenvorlageNEU.xls")
$xlsdir = "C:\temp\Script\OffertenvorlageNEU.xls"
;Excel öffnen
$app = ObjCreate("Excel.application")
$app.Visible = true
$open = $app.Workbooks.Open ($xlsdir)
;in Excel schreiben
$app.Cells(10,4).Value = ""&GUICtrlRead($MengenCombo[0])&""
$app.Cells(11,4).Value = ""&GUICtrlRead($MengenCombo[1])&""
;$app.Cells(12,4).Value = ""&GUICtrlRead($MengenCombo[1])&""
;$app.Cells(10,7).Value = ""&GUICtrlRead($MengenCombo[1])&""
;$app.Cells(10,8).Value = ""&GUICtrlRead($MengenCombo[1])&""
$zelle=6
$zeile=1
$app.Cells($zeile,$zelle).Value = "Zelle6Zeile1"
Exit
EndSwitch
WEnd
EndFunc

[/autoit]

mauric

Probier mal so.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
HotKeySet('x','start')
HotKeySet('c','Beenden')
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Aa\Local Settings\Temp\Rar$EX00.303\Forms\test1 sb.kxf
$Form1 = GUICreate("xxxx ", 171, 178, 199, 125)
$xxxx = GUICtrlCreateInput("xxxx", 16, 16, 137, 21)
$Button1 = GUICtrlCreateButton("Start", 16, 56, 137, 25, 0)
$Button2 = GUICtrlCreateButton("Beenden", 16, 136, 137, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $xxxx
MsgBox(0,'xxxx','hallo')
Case $Button1
Func Start ()
Send('')
Case $Button2
Exit
EndSwitch
WEnd
EndFunc

[/autoit]

mauric

Entschuldige wenn ich nochmals komme, aber nun habe ich die erste Sektion in allen drei felder gleich.
Hmm ich machs sicher nicht extra, würde es auch sicher genauer verstehen wollen, Bitte nicht einfach die lösung hin "pasten"

Habe gesehen hier kann ich die Sektion wählen, wie kann ich dies aber für die drei auswahl felder verteilen.

Spoiler anzeigen

[autoit]

$aIni = IniReadSection($sFilename, $Sektionen[2])
MsgBox(1,"" ,$Sektionen[2])

[/autoit]

Danke

mauric

Danke Ideas2Code

Aber nun ist nur die erste Auswahl "hostname" befüllt, die restlichen Auswahlmenüs "Schluessel" und "Muster" sind immer noch leer!.

Danke für die weiteren infos.

MC

mauric

Hallo zusammen
Habe versucht ein Array-Script zu erstellen, bin der Meinung dass nun die Daten aus dem INI gelesen werden und im Auswahl GUI ersichtlich sein sollten.
Dies ist aber nicht der Fall, Bitte um Hilfe "glug glug glug"
MC

Spoiler anzeigen

[autoit]

#include<array.au3>
Opt('MustDeclareVars', 1)
ArrayMuster()
Func ArrayMuster()
Global $aIni, $nMsg, $GUI_EVENT_CLOSE

[/autoit] [autoit][/autoit] [autoit]

Global $sFilename = "C:\Dokumente und Einstellungen\Administrator\Desktop\autoit\muster.ini"
Global $MengenCombo[3]
Global $Sektionen[3] = ["HostName", "Schluessel", "Muster"]
GUICreate ("GUI",250, 250)
GuiCtrlCreateLabel("HostName ", 60, 10)
$MengenCombo[0] = GUICtrlCreateCombo("", 60, 30)

[/autoit] [autoit][/autoit] [autoit]

GuiCtrlCreateLabel("Schluessel ", 60, 70)
$MengenCombo[1] = GUICtrlCreateCombo("", 60, 88)

[/autoit] [autoit][/autoit] [autoit]

GuiCtrlCreateLabel("Muster ", 60, 130)
$MengenCombo[2] = GUICtrlCreateCombo("", 60, 150)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists($sFilename) Then ; Neu zur Überprüfung hinzu
MsgBox(0, "Test", "Ini-Datei existiert nicht.")
Exit
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

While 1
$aIni = IniReadSection($sFilename, $Sektionen[0])
For $i = 1 To $aIni[0][0]
GUICtrlSetData($MengenCombo[0], $aIni[$i][1])
Next
WEnd
EndFunc

[/autoit]

Muster.ini

Spoiler anzeigen

[autoit]

[hostname]
1=Markus
2=Claudio
3=Elvis
4=David
[Muster]
1=A_Gruppe
2=B_Gruppe
3=C_Gruppe
4=D_Gruppe
[Schluessel]
SchluesselA=1
SchluesselB=2
SchluesselC=3
SchluesselD=4
SchluesselE=5
SchluesselF=6

[/autoit]

mauric

So könnte es sicher Funktionieren

Spoiler anzeigen

[autoit]

MsgBox(0,"", @Computername)

[/autoit]

mauric

Hallo Zusammen

Möchte das nur dass AboutGui schliesst wenn ich im Fenster About aux X Klicke. Leider schliesst sich aber die ganze Anwendung, Bitte was hab ich da falsch gemacht?.

Oder solte ich dies in "FuncFenster() und Func AboutGui()" unterteilen ?

Danke der Hilfe.
MC

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
Fenster()
;About()
Func Fenster()
Local $hname, $bname, $section0, $section1, $msg, $ButtonMsg, $ButtonEnd, $helpmenu, $aboutitem, $AboutGui, $master
$master = GUICreate(" GUI ", 200, 250) ; will create a dialog box that when displayed is centered

[/autoit] [autoit][/autoit] [autoit]

$helpmenu = GUICtrlCreateMenu("&?")
$AboutItem = GUICtrlCreateMenuItem("&Über", $helpmenu)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateLabel("HostName ", 11, 80)
$hname = GUICtrlCreateCombo("", 10, 103)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateLabel("Muster ", 11, 30)
$bname = GUICtrlCreateCombo("", 10, 45)

[/autoit] [autoit][/autoit] [autoit]

$section0 = IniReadSection("muster.ini", "Muster")
$section1 = IniReadSection("muster.ini", "Hostname")

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($section0) - 1
GUICtrlSetData($bname, $section0[$i][1])
Next
For $i = 1 To UBound($section1) - 1
GUICtrlSetData($hname, $section1[$i][1])
Next

[/autoit] [autoit][/autoit] [autoit]

$ButtonMsg = GUICtrlCreateButton("Button Msg", 20, 150)
$ButtonEnd = GUICtrlCreateButton("Button End", 90, 150)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $master) ; will display an empty dialog box

[/autoit] [autoit][/autoit] [autoit]

While 1
If GUICtrlRead($hname) <> "" Then
If BitAND(GUICtrlGetState($ButtonMsg), $GUI_DISABLE) Then GUICtrlSetState($ButtonMsg, $GUI_ENABLE)
Else
If BitAND(GUICtrlGetState($ButtonMsg), $GUI_ENABLE) Then GUICtrlSetState($ButtonMsg, $GUI_DISABLE)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $ButtonEnd
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $ButtonMsg
MsgBox(1, "", GUICtrlRead($hname))

[/autoit] [autoit][/autoit] [autoit]

Case $AboutItem
$AboutGui = GUICreate("About", 100, 150)
GUISetState(@SW_SHOW, $AboutGui)
;GUIDelete ($AboutGui)

[/autoit] [autoit][/autoit] [autoit]

;Switch GUIGetMsg()
; Case $GUI_EVENT_CLOSE, $Aboutgui
; EndSwitch
EndSwitch
Wend
EndFunc

[/autoit]

mauric

Danke Oscar

Genau bei solchen Programmierungen bleib ich richtig stehen.
Schad, muss noch einiges lernen

Danke dir Vielmals
MC

mauric

Bitte wie stelle ich dies an, damit die "Feldauswahl" geprüft wird, bevor ein leeres MsgBox Fentser aufklappt.
Danke
MC

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
Example1()
Func Example1()

[/autoit] [autoit][/autoit] [autoit]

Local $hname, $section, $msg, $ButtonMsg, $ButtonEnd
GUICreate(" GUI ", 200, 250) ; will create a dialog box that when displayed is centered
GUICtrlCreateLabel("HostName ", 11, 80)

[/autoit] [autoit][/autoit] [autoit]

$hname = GUICtrlCreateCombo("", 10, 103)
$section = IniReadSection("muster.ini", "HostName")
For $i = 1 To UBound($section) - 1
GUICtrlSetData($hname, $section[$i][1])
Next
$ButtonMsg = GUICtrlCreateButton("Button Msg", 20, 150)
$ButtonEnd = GUICtrlCreateButton("Button End", 90, 150)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW) ; will display an empty dialog box
While 1
$msg = GUIGetMsg()
Select

[/autoit] [autoit][/autoit] [autoit]

;Case $GUI_EVENT_CLOSE
; ExitLoop

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $ButtonMsg

[/autoit] [autoit][/autoit] [autoit]

;GUICtrlSetState($ButtonMsg, $GUI_ENABLE)
If GUICtrlRead($msg = $ButtonMsg) then
MsgBox(1, "", "Feld zuerst ausfüllen")
EndIf

[/autoit] [autoit][/autoit] [autoit]

MsgBox(1, "", GUICtrlRead($hname))

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $ButtonEnd
ExitLoop ;MsgBox(0, 'Testing', 'Button 2 was pressed')
EndSelect
WEnd
EndFunc
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

[/autoit]

mauric

Hallo Zusammen
Bin der Meinung dass bei der vorletzten Zeile der gewählte Computername erscheinen sollte, bis anhin kommt nur immer die Zahl 0
Bitte währe froh um tips und Hilfe damit der gewählte name erscheinen würde.

Danke für Eure Feedback
MC

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
Local $hname, $section
Example1()
Func Example1()
Local $msg
GUICreate(" GUI ") ; will create a dialog box that when displayed is centered
GUICtrlCreateLabel("HostName ", 11, 80)
$hname = GUICtrlCreateCombo("", 10, 102)
$section = IniReadSection("C:\Dokumente und Einstellungen\Administrator\Desktop\autoit\reg\muster.ini", "HostName")
For $i = 1 To UBound($section) - 1
GUICtrlSetData($hname, IniRead("muster.ini", "HostName", $i, ""))

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW) ; will display an empty dialog box

[/autoit] [autoit][/autoit] [autoit]

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()
MsgBox(1, "", GUICtrlRead($hname))
EndFunc ;==>Example1

[/autoit]

Muster.ini

Spoiler anzeigen

[autoit]

[HostName]
1=save2L001
2=save2L002
3=save2L003
4=save2L004
5=save2L005
6=save2L006
7=save2L007
8=save2L008
9=save2L009
10=save2L010

[/autoit]

mauric

Ich habs so lauft die Anwendung auch richtig weiter.

Spoiler anzeigen

[autoit]

GUISetState(@SW_HIDE)
MsgBox(0, "", "file exist "&$result_modell&$result_os&$result_office&$result_language)
Else

[/autoit]

mauric

Danke, Ja Korekt so würde dies Grundsätlich funktionieren, aber wenn der Befehl "GUIDelete($Start)" aktiv ist , so stimmt der weitere verlauf der Anwendung nicht mehr.

ist das den möglich ....

mauric

Hallo Profis
Bastle nochmals an einer Schleife herum und währe um Hilfe sehr dankbar.

Möchte erreichen wenn dieses File "&$result_modell&$result_os&$result_office&$result_language" exisitert
so sollte sich das vorhergehende Fenster mit der Variablen bezeichnung "$Start" geschlossen wird,
und die Meldung aufkommt "Please wait work in progress".

Spoiler anzeigen

[autoit]

If FileExists("r:\"&$result_modell&$result_os&$result_office&$result_language) Then
MsgBox(0, "", "file exist "&$result_modell&$result_os&$result_office&$result_language) And GUIDelete($Start)
Else
MsgBox(0, "", "file don't exist "&$result_modell&$result_os&$result_office&$result_language)
_Start()
EndIf

[/autoit]

[autoit][/autoit]

Danke euch herzlichst
MC

mauric

Danke der schnellen hilfe !!!!

SEuBo hatt mein Probelm genau getrofen !.

<> "" vergleichen die GUICtrlRead Variablen oder ?
muss noch einiges lernen jaja !!

Danke Vielmals!.

mauric

Ist eine solche "if Then" schlaufe möglich ode probier ich hier äpfel mit birnen zu vergleichen.

Währe um kurze hilfe hier wirklich dankbar.

MC

Spoiler anzeigen

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $runnow
If GUICtrlRead($laptop) And GUICtrlRead($os) And GUICtrlRead($office) And GUICtrlRead($language) Then
If FileExists("r:\"&$laptop&$os&$office&$language) Then MsgBox(0, "", "file exist")
Else
_RunNow()
Else
MsgBox(0, "", "file exist")
;msgbox(0,"","Weiter")
Else
msgbox(0,"Hinweis","Bitte zuerst alle Felder ausfüllen!")
EndIf
EndIf

[/autoit]

mauric

Hallo Zusammen
Bin seit einiger Zeit an diesem Script, dennoch ist mein Know-how noch nicht ganz fortgeschritten.
gerne möchte ich hier mein momentanes Problem beheben.

"Der Button Wiederherstellung muss mehrmals gedrückt werden damit die Anwendung weiter geht."

- Währe offen für Verbesserungen
- Programmiertechnische Korrekturen.

Danke euch vilemals
MC

Spoiler anzeigen

[autoit]

;#-> MC - 02.04.2009 ------------------------------------------------------------------
;
; AutoIt Version : 3.3.0.0
; Author : Maurizio Caloro
;
; Programm Namwe : Restore @ Now
; Script Version : 1.0
;
; Script : Globalfunktion
; Laptop Images Restore
;
; Funktionen :
; IP Adressierung überprüfen
; Pfad auwertung von config.txt
; Netzwerkverbindung erstellen
; Laptop auswahl
; Laptop MAC-adressierung überprüfung
; Externe Anwendung für Restore zurücksicherung
; Temporäre Logfiles auf RamDrive erstellen
;
;#-> MC ----------------------------------------------------------------------------
#include <array.au3>
#include <file.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
Opt('MustDeclareVars', 1)
Core()
Func Core()

[/autoit] [autoit][/autoit] [autoit]

Local $aboutitem, $helpmenu, $runnow, $msg, $cfgfile, $path, $info, $speedview, $language, $laptop
Local $file, $cfgfile, $filelist, $exititem, $section, $config, $list, $pic, $cpu, $os, $office, $nMsg
Local $result_laptop, $result_os, $result_office, $result_language
;/ MAC TEIL
Local $filename, $found, $array, $text, $macs, $section1
;FileRead
$config = FileOpen("x:\programs\imager\config.txt", 0)
$path = FileReadLine($config)
FileClose($config)
;Drive Connect
DriveMapAdd("r:", ""& $path &"", 0, "kkl-luzern\VAT.LaptopRestore", "DABuAWbzRd4VL")

[/autoit] [autoit][/autoit] [autoit]

;NetworkCheck
If StringRegExpReplace(@IPAddress1, '(.+)\..+', '$1') = '10.1.0' Then
;MsgBox(1,"", "Correct")
Else
MsgBox(1,"Achtung", "Sie sind nicht mit dem korrekten Netzwerk verbunden." & Chr(10) & _
"Überprüfen Sie das Netzwerkkabel und versuchen Sie es nochmals.")
;SplashTextOn("--> ! Achtung ! < --", "Sie sind nicht mit dem korrekten Netzwerk verbunden."& CHR(10) & CHR(10) & _
; "Überprüfen Sie das Netzwerkkabel und versuchen Sie es nochmals.", 580, 100, -1, -1, 0, 0, 14)
; Sleep(10000)
;SplashOff()
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

;Laptop.ini Config fileCheck
If FileExists("r:\laptop.ini") Then
ProgressOn("Die Anwendung", "-> 'Restore @ Now' wird Initialisiert.", "0 %")
For $i = 10 to 100 step 10
;sleep(1500)
sleep(1)
ProgressSet( $i, $i & " %")
Next
ProgressSet(100 , "Erstellt", "Start")
sleep(150)
ProgressOff()
;SplashTextOn("Vorbereitung", "Die Anwendung 'Restore @ Now' wird Initialisiert.", 440, 50, -1, -1, 0, 0, 14)
; Sleep(5000)
;SplashOff()
Else
MsgBox(16, "Netzwerkkabel", "Kein Laufwerk gefunden" & @CRLF & @CRLF & _
"Überprüfen Sie das Netzwerkkabel und" & @CRLF & _
"starten Sie gegebenenfalls den Laptop neu" & @CRLF & @CRLF & _
"Die Anwendung 'Restore @ Now' wird hiermit beendet!")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Restore @ Now", 260, 340) ; Fenster Balken
;$pic = GUICtrlCreatePic ('x:\programs\imager\kkl.bmp',145 ,93 ,100 ,70)
$pic = GUICtrlCreatePic ('x:\kkl.bmp',145 ,238 ,105 ,70)

[/autoit] [autoit][/autoit] [autoit]

$filelist = GUICtrlCreateMenu("&File")
$exititem = GUICtrlCreateMenuItem("Exit", $filelist)
$helpmenu = GUICtrlCreateMenu("&?")
$info = GUICtrlCreateMenuItem("&Info", $helpmenu)
$aboutitem = GUICtrlCreateMenuItem("&About", $helpmenu)
;$font = "Arial"
GUISetFont(11, 400, 3) ; Font
;GUISetFont(11, 400, 3, $font) ; Font
;GUICtrlCreateLabel("Wählen Sie im nachfolgenden Software aufbau Ihre passende konfiguration", 8, 20)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateLabel("Ihr Laptop Modell ", 11, 20)
$laptop = GUICtrlCreateCombo("", 10, 42)
$section = IniReadSection("r:\laptop.ini", "Modell")
For $i = 1 To UBound($section) - 1

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData($laptop, IniRead("r:\laptop.ini", "modell", $i, ""))

[/autoit] [autoit][/autoit] [autoit]

Next
GUICtrlCreateLabel("Ihr Betriebssystem ", 11, 80)
$os = GUICtrlCreateCombo("", 10, 102)
$section = IniReadSection("r:\laptop.ini", "Os")

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($section) - 1

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData($os, IniRead("r:\laptop.ini", "Os", $i, ""))

[/autoit] [autoit][/autoit] [autoit]

Next
GUICtrlCreateLabel("Ihr Office ", 11, 140)
$office = GUICtrlCreateCombo("", 10, 162)
$section = IniReadSection("r:\laptop.ini", "Office")
For $i = 1 To UBound($section) - 1

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData($office, IniRead("r:\laptop.ini", "Office", $i, ""))

[/autoit] [autoit][/autoit] [autoit]

Next
GUICtrlCreateLabel("Ihre Sprache ", 11, 200)
$language = GUICtrlCreateCombo("", 10, 222)
$section = IniReadSection("r:\laptop.ini", "Language")
For $i = 1 To UBound($section) - 1

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData($language, IniRead("r:\laptop.ini", "Language", $i, ""))

[/autoit] [autoit][/autoit] [autoit]

Next
$runnow = GUICtrlCreateButton("Wiederherstellen", 11, 268, 120)

[/autoit] [autoit][/autoit] [autoit]

;GUICtrlSetState(-1, $GUI_FOCUS) ; the focus is on this button
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $runnnow
If GUICtrlRead($Input1) And GUICtrlRead($Input2) And GUICtrlRead($Input2) Then
msgbox(0,"","Weiter")
Else
msgbox(0,"","Bitte alle felder ausfüllen")
EndIf
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Do
;While 1

[/autoit] [autoit][/autoit] [autoit]

$msg = GUIGetMsg()
Switch $msg
;Case $exititem
Case $aboutitem
MsgBox(64, "Über - Restore @ Now", ""&Chr(10)& _
"E1"&Chr(10)& _
"6"&Chr(10)&Chr(10)& _
"Copyright 2009 "&Chr(10)& _
"Version 1.0"&Chr(10)&Chr(10)& _
"Ma"&Chr(10)& _
"Such",
Case $info
$cpu=Run('cpu.exe /s', "", @SW_HIDE,$STDOUT_CHILD)
While 1
sleep(250)
$speedview=StdoutRead($cpu)
If @error Then ExitLoop

[/autoit] [autoit][/autoit] [autoit]

MsgBox(64,"SYSINFO", "Computername "& @Computername &"" & CHR(10) & _
"Adressierung "& @IPAddress1 &"" & CHR(10) & _
"Betriebssystem "& @OSVersion &"" & CHR(10) & _
"Windows-Verzeichnis "& @Windowsdir &"" & CHR(10) & _
"Prozessor-Arch "& @CPUArch &"" & CHR(10) & _
"Prozessor-Typ "& $speedview)
Wend
Case $exititem
Exit
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

;---------------------------------------------------------------------------------------->>>>
;About Darstellungsanpassung
;
;Example2()
;Func Example2()
; Local $gui
; $gui = GUICreate("About - Restore @ Now", 250, 400)
; GUISetState($WS_EX_LAYERED)
; ;$hWnd = GUICreate ('Test')
; $idBtn = GUICtrlCreatePic ('KKL.jpg', 20, 20)
; GUISetFont(13, 400, 1, $font)
; GUICtrlCreateLabel("t AG" & Chr(10) & _
; "1" & Chr(10) & _
; "6"& Chr(10) & Chr(10) & _
; "Cop" & Chr(10) & _
; "M" & Chr(10) & _
; "V", 10, 180, 320)
; GUISetFont(14, 400, 1, $font)
; GUICtrlCreateLabel("", 20, 200, 330)
; GUISetState ($WS_EX_LAYERED)
;EndFunc
; While True
; Switch GUIGetMsg ()
; Case -3
; Exit
; Case $idBtn
; MsgBox (266304, 'Test', 'Der Button wurde gedrückt ...')
; EndSwitch
; WEnd
;---------------------------------------------------------------------------------------->>>>
StringInStr(@IPAddress1, "2.")

[/autoit] [autoit][/autoit] [autoit]

If $msg = $runnow Then

[/autoit] [autoit][/autoit] [autoit]

; START MAC
$filename = "b:\ipconfig.txt"
;MsgBox(64, "Info", "Laptop Model: " & GUICtrlRead($laptop) & Chr(10) & _
;"IP-Adresse: " & @IPAddress1 & Chr(10) & Chr(10) & _
;"Klicken Sie < OK > zum Starten der Wiederherstellung ")
;& Chr(10) & _ "Klicken Sie < Abbrechen > zum Abbrechen der Anwendung")

[/autoit] [autoit][/autoit] [autoit]

; Mit ipconfig Mac auslesen
RunWait(@ComSpec & " /c ipconfig /all > " & $filename, "", @SW_HIDE)
Dim $array
_FileReadToArray($filename, $array)
$text = _ArrayToString($array, ";")

[/autoit] [autoit][/autoit] [autoit]

$result_laptop = IniRead("r:\laptop.ini", "Result_Laptop",""&GuiCtrlRead($laptop)&"", "")
$result_os = IniRead("r:\laptop.ini", "Result_Os",""&GuiCtrlRead($os)&"", "")
$result_office = IniRead("r:\laptop.ini", "Result_Office",""&GuiCtrlRead($office)&"", "")
$result_language = IniRead("r:\laptop.ini", "Result_Language",""&GuiCtrlRead($language)&"", "")

[/autoit] [autoit][/autoit] [autoit]

MsgBox(4096, "Result", $result_laptop&$result_os&$result_office&$result_language)
MsgBox(1, "", GUICtrlRead($laptop)) ; uberprüfung des gewählten laptop

[/autoit] [autoit][/autoit] [autoit]

;MsgBox(1, "", GUICtrlRead($laptop)&GUICtrlRead($os)&GUICtrlRead($office)&GUICtrlRead($language)) ; uberprüfung des gewählten laptop
;MsgBox(1, "", GUICtrlRead($laptop)) ; uberprüfung des gewählten laptop
;$section1 = IniReadSection("r:\laptop.ini", ""&GuiCtrlRead($laptop)&"" )
$section1 = IniReadSection("r:\laptop.ini", ""&GuiCtrlRead($laptop)&"" )
;$section1 = IniReadSection("r:\laptop.ini", ""&GuiCtrlRead($laptop)&"" )
If @error Then
MsgBox(4096, "Kein Laufwerk "&GUICtrlRead($laptop), _
"Es ist ein Fehler aufgetreten. Wahrscheinlich keine INI Datei vorhanden.")
Else
;_ArrayDisplay($section1)
EndIf
$macs = StringRegExp($text, "(..-..-..-..-..-..)", 3)
;_ArrayDisplay($macs)

[/autoit] [autoit][/autoit] [autoit]

For $y = 1 To UBound($section1) - 1
For $j = 0 To UBound($macs) - 1
If $section1[$y][1] = $macs[$j] Then
$found = $macs[$j]
ExitLoop
EndIf
Next
Next
; Ausgabe
If $found <> "" Then
;SplashTextOn("MAC-AdresseCheck", "Ihre MAC-Adresse wurde erkannt (" & $found & ") Die Rücksicherung wird gestartet.", 722, 50, -1, -1, 0, 0, 12)
Sleep(50)
;SplashOff()
Else
MsgBox(0, "Autorisierung fehlgeschlagen", "Es wurde kein registrierter Laptop gefunden."& CHR(10) & _
"Die Anwendung wird hiermit beendet."& CHR(10) & CHR(10) & _
"Bei weiteren Fragen wenden Sie sich an <[email='Support.it@kkl-luzern.ch'][/email]>.")
FileDelete($filename)
Exit
EndIf
; temporäre Datei löschen
FileDelete($filename)
; STOP MAC
If $msg = 2 Then Exit

[/autoit] [autoit][/autoit] [autoit]

Sleep(Random(1000, 3000))

[/autoit] [autoit][/autoit] [autoit]

$cfgfile = FileOpen("b:\" & GUICtrlRead($laptop) & ".cfg", 1)
FileWriteLine($cfgfile, "; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *")
FileWriteLine($cfgfile, "; * -- Restorescript aus Laptop.ini | Zeit " & @HOUR & ":" & @MIN & ":" & @SEC & " ---> Datum " & @MDAY & "." & @MON & "." & @YEAR & " -- *")
FileWriteLine($cfgfile, "; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *")
FileWriteLine($cfgfile, "mouse=no")
FileWriteLine($cfgfile, "filesystem=ntfs")
FileWriteLine($cfgfile, "disk=0")
FileWriteLine($cfgfile, "main_part=1")
FileWriteLine($cfgfile, "def_level=6")
FileWriteLine($cfgfile, "quit=nobadsector")
FileWriteLine($cfgfile, "automatic_naming=yes")
FileWriteLine($cfgfile, "file=r:\" & GUICtrlRead($laptop))
FileClose($cfgfile)
Sleep(Random(1000, 2000))
$file = FileOpen("b:\Restoremenow.cmd", 1)
FileWriteLine($file, "REM * * * * * * * * * * * * * * * * * * * * * * *")
FileWriteLine($file, "REM * --- Zeit " & @HOUR & ":" & @MIN & ":" & @SEC & " -> Datum " & @MDAY & "." & @MON & "." & @YEAR & " --- *")
FileWriteLine($file, "REM * * * * * * * * * * * * * * * * * * * * * * *")
;FileWriteLine($file, "spartwin.exe -r -f b:\" & GUICtrlRead($laptop) & ".cfg")
FileWriteLine($file, "x:\programs\imager\spartwin.exe -r -f b:\" & GUICtrlRead($laptop) & ".cfg")
FileClose($file)
Sleep(Random(1000, 1500))
RunWait("b:\Restoremenow.cmd", "", @SW_MAXIMIZE)
FileMove("b:\" & GUICtrlRead($laptop) & ".cfg", "b:\" & GUICtrlRead($laptop) & ".txt")
FileMove("b:\Restoremenow.cmd", "b:\Restoremenow.txt")
MsgBox(0, "Finish Restore", "Restore konnte erfolgreich installiert werden.")
Exit
EndIf
Until $msg = $GUI_EVENT_CLOSE
EndFunc

[/autoit]

noch das passende INI file.

Spoiler anzeigen

[autoit]

[Modell]
1=Lenovo_Z60M
2=Lenovo_Z61M
3=IBM
4=ACER
[Os]
1=Windows_2000
2=WIndows_XP
3=Windows_7
[Office]
1=Office_2003
2=Office_2007
3=Office_2010
[Language]
1=German
2=Englisch
------------------------------------------------------------->>> MAC Adressfilterin
[Lenovo_Z60M]
KKLLuzern_1=00-16-36-0B-66-29
KKLLuzern_2=00-16-36-0B-63-9A
KKLLuzern_3=00-16-36-0B-65-CE
KKLLuzern_4=00-1B-24-3F-D4-B2
VMWARE-MAUR=00-0C-29-C2-1E-3F # Disable
------------------------------------------------------------->>> Result from Userselection
[Result_Laptop]
Lenovo_Z60M=Z60
Lenovo_Z61M=Z61
IBM=IBM
ACER=ACE
[Result_Os]
Windows_2000=W2k
WIndows_XP=wXP
Windows_7=W_7
[Result_Office]
Office_2003=O03
Office_2007=O07
Office_2010=O10
[Result_Language]
German=ger
Englisch=eng

[/autoit]

mauric

Hallo SEuBo
Deine vermutung lag richtig es war genau dieser einzeiler.

[autoit]

$hButton = GUICtrlCreateButton("OK", 270, 68, 100, 24, 0x0001)

[/autoit]

Danke dir Vielmals jetzt klappts auch bei mir richtig!.

MC

mauric

Super SEuBo

Bitte, Aber wie hast du die [Enter] als Aktiv gesetzt [sobald Username geschrieben wurde ist Enter Aktiv],
Ich muss in meinem Beispiel mit [TAB] bis zum OK Springen.

Dank dir vielmals
MC

mauric

Danke SEuBo der schnellen Antwort!,
habe mich doch für die ausführlichere Variante entschieden.

Habe noch im Code angepasst dass als Standard immer "Intern" gewählt wird,
nun würde ich gern nach eingabe des <UserName> mit der Taste "Enter" oder
einem "Ok" Button [am besten beides] die Variabel im Beispiel "$sRead" weitergeben.

Danke Euch vielmals

MC

mauric

Hallo Zusammen

Sehe ein dass dies sicher nicht der Optimale weg ist aber wie ich ein Array hierzu erstellen kann
ist mir leider noch nicht ganz eingedrungen :-).

Möchte den ausgewählten Wert ""$UserName" & "$read"" weiter verwenden und diesen im zweiten teil
des scripts Implementieren.

Währe um Hilfe wirklich angewiesen. Danke
MC

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
GUICreate("AD - User and Group Membership - Reader", 380, 100)
GUICtrlCreateLabel("Active Directory - UserName", 40, 5, 180, 20)
$UserName = GuiCtrlCreateInput("<UserName>", 40, 25, 150, 25)
GUICtrlCreateLabel("Active Directory - Context location", 40, 55, 220, 20)
$combo = GUICtrlCreateCombo("", 40, 70)
GUICtrlSetData($combo,"Intern|Extern|Schulung|Technisch|Temporaer|Temp|Testusers|Musteruser|Allgemeineuser|Alle|Keine|Stop|")
; OU=Intern| OU=Extern|OU=Schulungsbenutzer|OU=Technische Accounts|OU=Temporaer Extern|OU=Temporaer Intern|Testbenutzer|
GUICtrlSetOnEvent($combo, "_comboread")
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState()
While 1
WEnd
Func _comboread()
$read = GUICtrlRead($combo)
If $read = "Intern" Then MsgBox(0, "Combobox", $read)
If $read = "Extern" Then MsgBox(0, "Combobox", $read)
If $read = "Schulung" Then MsgBox(0, "Combobox", $read)
If $read = "Technisch" Then MsgBox(0, "Combobox", $read)
If $read = "Temporaer" Then MsgBox(0, "Combobox", $read)
If $read = "Temp" Then MsgBox(0, "Combobox", $read,)
If $read = "Testusers" Then MsgBox(0, "Combobox", $read)
If $read = "Musteruser" Then MsgBox(0, "Combobox", $read)
If $read = "Allgemeineuser" Then MsgBox(0, "Combobox", $read)
If $read = "Alle" Then MsgBox(0, "Combobox", $read)
If $read = "Keine" Then MsgBox(0, "Combobox", $read)
If $read = "Stop" Then MsgBox(0, "Combobox", $read)

[/autoit] [autoit][/autoit] [autoit]

EndFunc
Func _exit()
Exit
EndFunc

[/autoit]

Beiträge von mauric

Im ArrayDisplay ersichtlich, im GuiCreateCombo nicht, Bitte um Hilfe.

Warum Geht Mein Script Nicht ?

Bitte um Array Hilfe

Bitte um Array Hilfe

Bitte um Array Hilfe

Computernamen rausfinden.

Weshalb schliessen sich beide Fenster ?

Sicherstellung von Feldauswahl ?

Sicherstellung von Feldauswahl ?

Warum erscheint bei MSGBOS nicht der gewählte Hostname?

Schleifen hilfe

Schleifen hilfe

Schleifen hilfe

If Then ... Knopf

If Then ... Knopf

Wiederherstellungs Button muss mehrmals betätigt werden

Array wäre sicher die Lösung

Array wäre sicher die Lösung

Array wäre sicher die Lösung

Array wäre sicher die Lösung