Beiträge von Mr-Ferret

Hallo Leute,
ich habe mitlerweile schon so einiges von euch gelernt. Nun habe ich mal wieder eine Frage, da die Suche nichts ergeben hat bitte ich mal wieder um Hilfe.

Ich habe eine .ini Datei, die Inhalte lese ich in ein Input feld.
$sServer_1 = GUICtrlCreateInput($rServer_1,120,130,150,20,-1,512)

Das klappt schon mal ohne Probleme.
Jetzt würde ich dieses Feld gerne Editieren und den Inhalt wieder zurück in die Ini Datei schreiben.

Wie kann ich das umsetzen?
Denn ich müsste doch die Variable ($sServer_1) wieder speichern, aber der Wert der Variable wird nicht geändert wenn ich das Feld editiere.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
#include <file.au3>

$sServer = GUICreate("Server",759,551,-1,-1,-1,-1)
$EditIni = GUICtrlCreatetab(30,20,582,462,-1,-1)
GuiCtrlSetState(-1,2048)
$EditIni = GUICtrlCreateTabItem("EditIni")

GUICtrlCreateLabel("Servername", 50,130,140,20)
GUICtrlCreateLabel("Overlay", 50,160,140,20)
GUICtrlCreateLabel("Event", 50,190,140,20)
GUICtrlCreateLabel("Processes", 50,220,140,20)

$rServer_1 = IniRead("Server.ini", "Server_1", "ServerName_1", "NichtGefunden")
$rOverlay_1 = IniRead("Server.ini", "Server_1", "Overlay_1", "Overlay nicht gefunden")
$rEvent_1 = IniRead("Server.ini", "Server_1", "Events", "Event nicht gefunden")
$rProcesses_1 = IniRead("Server.ini", "Server_1", "Processes", "Processes nicht gefunden")

$sServer_1 = GUICtrlCreateInput($rServer_1,120,130,150,20,-1,512)
$sOverlay_1 = GUICtrlCreateInput($rOverlay_1,120,160,150,20,-1,512)
$sEvent_1 = GUICtrlCreateInput($rEvent_1,120,190,150,20,-1,512)
$sProcesses_1 = GUICtrlCreateInput($rProcesses_1,120,220,150,20,-1,512)

$bAktuall = GUICtrlCreateButton("Aktualisieren", 80,300,80,25)

$tap2 = GUICtrlCreateTabItem("Page 2")
GUICtrlCreateTabItem("")
; _GUICtrlTab_SetCurFocus($tab,-1)

GUISetState(@SW_SHOW,$sServer)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $bAktuall


EndSwitch
WEnd

Danke für eure Hilfe !!!!

Hallo Chesstiger,

sorry habe ich vielleicht falsch rübergebracht, mir ist durchaus bewusst, das ich Variablen nicht nach oberen Beispiel benennen soll.
Ich Versuche diese möglichst Sprechend zu benennen. "gui1, gui2, gui3,....." kommen in meinen kleinen oder größeren Programmen nicht vor.

Danke auch für den Link, werde ich mir noch durchlesen.
Programmierung ist für mich sowie so ein Mysterium, aber es macht Spaß wenn man wieder einen kleinen Schritt weiter kommt.

Gruß
Manfred

Super vielen Dank!
Damit kann ich arbeiten ! Das Prinzip $gui, $gui2 ist einfach zu verstehen, hab sogar schon $gui3
Jetzt hab ich wieder ein haufen zum umschreiben, aber das ist ja was spaß macht.
Und ich hab wieder was gelernt!

Danke
Gruß Manfred

Zitat von jjj

[autoit]

GUICreate
;und als erweiterten Stile:
$WS_EX_MDICHILD

[/autoit]

Sorry, aber jetzt bin ich völlig verwirrt, $WS_EX_MIDICHILD ist doch nix anderes als eine Variable!?
Oder hab ich das was übersehen?

Ich sag mal so, wenn ich die Programme anpassen muss um Sie in das Fenster zu integrieren, dann sollte das nicht das Problem sein. Wenn das ohne Änderung möglich währe, das währe noch besser, was ich mir aber nicht vorstellen kann.
Mir gehts aber in erste Linie darum, zu verstehen, wie ich das grundsätzlich erreichen kann, Programme in so einem Fenster ablaufen zu lassen. Also z. B. wie in der Grafik links die Aufrufe und im rechten Fenster den Programmablauf.

Ich nutze den VMWare Player, der ist für Privatanwender kostenlos und benötigt weit weniger resourcen als z. B. Windows Virtual PC.

Gruß
Manfred

Erst mal danke für die super schnelle Antwort!

ich hab mal ein skizze als Anhang (ganz einfach zusammen getackert, beansprucht keine Preis auf schönheit) eingefügt.

bzgl. Child-GUIs habe ich leider nicht ganz verstanden was du damit meinst.
Sorry, aber ich gehöre eher zur Fraktion dummies was Programmieren angeht.

Danke
Manfred

Hallo Gemeinde,
ich benötige mal wieder einen anstoß,
Mittlerweile habe ich mir ein paar Programme gebastelt, die alle ganz nach meinen Vorstellungen funktionieren.
Da aber alle "indirekt" mit dem gleichen Rechner zu tun haben, dachte ich mir, ich mach das ganz mal schön und pack die einzelnen Programme in ein Menü.
Ist aber nicht schön. was ich will, ist so eine Art Fenstertechnick die man auch vom Internet kennt.
Also linkes Fenster ein Menü und im rechten Fenster sollten die Programme dann erscheinen. So in dem Stil von AutoItStudio fände ich super,
leider habe ich im Augenblick keine Ahnung wie ich da anfangen soll und habe auch nichts darüber gefunden.
Währe für ein Beispiel sehr dankbar.

Gruß
Manfred

Erst mal vielen Dank,

Ich habe wieder etwas gelernt

Ich muß gestehen, das prinzip mit den Array's ist mir noch nicht klar, aber auch das werde ich über kurz oder lang noch lernen (müssen)

Gruß
Manfred
PS: Ihr seid super

Hallo Leute,
ich habe hier ein kleines Prob. ich versuche als Info eine MsgBox zu öffnen, die ein paar Dateien auflistet.
Ich bin im Moment bei dem Punkt angekommen, wo die Dateien nur einzeln angezeigt werden, wenn ich mit OK bestätige, wird die nächste Datei in einer weiteren Box angezeigt.
Gibt es nicht die Möglichkeit alle in einer Box anzuzeigen? wenn möglich unter einander?
Die Suche hat mir leider nichts angezeigt das ich Verstehe bzw. was damit anfangen kann.

Vielen Dank.

Ist ja super! Genau was ich will!
Und ich war nicht mal so weit von der Lösung entfernt

Vielen Dank!!!!!
Der Rest ist nun nur noch fleisarbeit.

Gruß
Manfred

Hallo,

ich hoffe nun nicht das es unverschämt ist, wenn ich jetzt noch mal mit einem Problem komme das "nur" indirekt zu diesem gehört.
Kurze Rede ......
Ich habe mir zu oben stehenden Prob. eine kleine Gui zusammen gebaut. Drei Button und eine Eingabezeile.

Nun würde ich es gerne irgendwie hinkriegen, das der User auf den Button mit ... klickt dann das Verzeichnis auswählt und dieses
in der Eingabezeile auftaucht und editierbar ist. Wenn dann der OK Butten gedrückt wird, das dann in eine Variable geschrieben wird.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>

$GuiVerzAuswahl = GUICreate("GuiVerzAuswahl",350,350,-1,-1,-1,-1)
$AuswahlButton = GUICtrlCreateButton("...",210,60,34,23,-1,-1)
$Verzeichnis = GUICtrlCreateInput("",20,60,180,20,-1,512)
$weiter = GUICtrlCreateButton("OK",20,120,100,30,-1,-1)
$Abbruch = GUICtrlCreateButton("Cancel",140,120,100,30,-1,-1)
GUISetState(@SW_SHOW,$GuiVerzAuswahl)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $AuswahlButton
$sPath = FileSelectFolder("Verzeichnis / RFC wählen", "y:")
Case $Weiter
MsgBox(0,"", $sPath)
Case $Abbruch
Exit
EndSwitch
WEnd

Ich habs schon mal hingekriegt das die Variable in ein Eingabefeld geschrieben wird, aber dann erscheint eine neues Eingabefeld und das ist nicht die Lösung.

Vielen Dank
Gruß
Manfred

Genial,
vielen Dank, das ist es!

Hallo Gemeinde,

ich hab mal wieder eine (evtl. dähmliche) Frage,
MIt dem FileSelectFolder kann man ein Verzeichnis super in eine Variable kopieren.
z.B.
Local $var = FileSelectFolder( "Ein Test", "C:\Programme\")
Wenn ich dann ein Verzeichnis auswähle, kann ich dieses auch in z.B. MsgBox ausgeben.
Msgbox(0, "", $var)
Nun enthält die Variable den kompletten Pfad, also z.B.
C:\Programme\AutoIt3
Was muss ich machen, damit in der Variable nur das ausgewählte Verzeichnis gespeichert wird und nicht der komplette Pfad?
Also hier sollte die Variable $var die Inhalt "AutoIt3" haben und sonst nichts.

Vielen Dank für eure Hilfe.

Gruß
Manfred

Super! vielen Dank! das löst mein Problem

Hallo Leute,
ich brauch mal wieder eure Unterstützung,
ich hab mir ein kleines Programm zusammen gebastelt das in einer Webseite nach einem String sucht und dann wenn gefunden eine Nachricht sendet.
Wenn nix gefunden wurde einen Eintrag in eine Datei schreibt. Fertig.
Nun suche ich nach Ausdruck und Datum minus einem Tag also:
$Suchstring = $a_prog & "-" & @YEAR & @Mon & @mday -1
Leider ist es so, das wenn die Tage 1 -10 sind, das Datum die führende Null nicht mitschreibt.
ohne "-1" wird das Datum wie folgt angezeigt:
20131105
wenn ich einen Tag abziehe also @mday -1 dann kommt folgendes raus.
2013114
Ich benötige aber die "0", da ich nach eiem Textstring suche.
kann mir jemand sagen wie ich das lösen kann?

Vielen Dank
Gruß
Manfred
PS: Hier der komplette Code.

; Alarm
#Include<file.au3>
#include <INet.au3>

Global $a_file = ("Mailconf.ini")
Global $a_prog = IniRead($a_file, "programm", "prog", "")
Global $a_e_mail = IniRead($a_file, "Mail", "mail_e", "")
Global $a_c_mail = IniRead($a_file, "Mail_cc", "mail_c", "")
Global $a_server = IniRead($a_file, "server", "server_url", "")

$Source = (_INetGetSource($a_server & '/dumplogs'))
ConsoleWrite($Source)

$Dateipfad = $Source
; Im Suchstring sind die Anzahl der Tage die rückwirkend gesucht werden angegeben.
$Suchstring = $a_prog & "-" & @YEAR & @Mon & @mday -1
$Dateitext = FileRead($Dateipfad)
If StringInStr($Source, $Suchstring) Then
; MsgBox(0,"", $Suchstring &" wurde gefunden!")
; email()
Else

$file = FileOpen("test.txt", 1)

; Prüfen, ob Datei im Schreibmodus geöffnet ist
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf

FileWriteLine($file, $a_prog & " wurde am " & @mday & "." & @MON & "." & @year &" nicht gefunden!")
FileWriteLine($file, " " & @CRLF)
FileWriteLine($file, "==========================================================")

FileClose($file)

Exit
; MsgBox(0,"", "nichts gefunden")
EndIf

; Func email()

Local $Nachricht = "Dumplog CAS* M3 Produktion (DEBI-M3PROD01.boellhoff.de:6666/dumplogs)"

$SmtpServer = "Server" ; address des smtp-server - BENOETIGT
$FromName = "Produktion" ; name des Absenders
$FromAddress = "MailServer@Domain.com" ; Absender E-Mail Adresse
$ToAddress = $a_e_mail ; Empängeradresse - BENOETIGT
$Subject = $Nachricht ; Betreffzeile der E-Mail
$Body = $Source ; & $Suchstring ; Inhalt der Mail
$AttachFiles = "" ; Anhang (Die Mail kann mit einem Anhang versehen werden.)
$CcAddress = ""; $a_c_mail ; Adresse des Kopie Empfängers
$BccAddress = "" ; Adresse einer Blindkopie
$Importance = "Normal" ; Prioritaet: "High", "Normal", "Low"
$Username = "" ; Username fuer die Authentifizierung am SMTP Server falls erforderlich
$Password = "" ; Passwort fuer die Authentifizierung am SMTP Server falls erforderlich
$IPPort = 25 ; SMTP Port wird fuer den Versand benoetigt
$ssl = 0 ; enables/disables ssl fuer Verschluesselte Mails (https) 1 angeben
;~ $IPPort=465 ; Verschluesslete Mails benötigen den port 465

;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 then $IPPort = 25
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Set Email Importance
Switch $s_Importance
Case "High"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail=""
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc

Vielen Dank! ! !
genau das habe ich gesucht!
Ich muß mir doch angewöhnen mehr die englischen Begriffe zu suchen.

Hallo Gemeinde,
sorry wenn diese Frage nun völlig doof ist oder schon behandelt wurde aber ich habe nichts gefunden.
Vielleicht gebe ich auch nur die falschen Stichwörter in der Suche ein?

Ich hab da folgendes Problem:

Es gibt eine Verzeichnis (logisch) in diesem habe ich Unterverzeichnisse in der Form:
20130112-20130012
20130115-20130014

.
.
20130921-20130150

in diesen Verzeichnissen sind dann wiederum Dateien, es können mehrere oder auch nur eine sein.
Ich würde nun gerne die Verzeichnisse auflisten, eines anklicken und dann den Verzeichnisnamen in eine Variable speichern.

Nun habe ich leider überhaupt keinen Ansatz, wie ich hier einsteigen kann.
Vielleicht kann mir jemand von euch ein Beispiel nennen.

Vielen Dank
Gruß
Manfred

Super, das ist es, vielen Dank!

Danke auch für die Erklärung, ich werde weiter fleissig lernen.

Gruß
Manfred

Herzlichen Dank für die schnelle Antwort, ich hab damit heute nicht mehr gerechnet!
Der erste Schritt ist gemacht, ich hab da nun folgendes im Schnelltest zusammen getippt.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>


$EigabeBox = GUICreate("EigabeBox",350,350,-1,-1,-1,-1)
$DuxFile = GUICtrlCreateInput("",60,40,150,20,-1,512)
GUISetState(@SW_SHOW,$EigabeBox)
$Weiter = GUICtrlCreateButton("Weiter",240,300,100,30,-1,-1)




Do
	Global $Dux = GUICtrlRead($DuxFile)
		Until StringLen($Dux) > 5
		MsgBox(0, "", $Dux)

Nun ist es leider so, das nach der Eingabe des 6'ten Zeichen das Fenster geschlossen wird.
Die Eingabe eines weiteren Zeichens ist nicht möglich. Es sollte eine Mindestlänge sein, hier ist es aber auch eine Maximallänge.
Noch einen Tipp?

Vielen Dank!