Beiträge von Alina

Moin.

Heute früh ist unsere Frankiermaschine ausgefallen. Es gab einen Knall und danach ging das Gerät nicht mehr an. Nur die heutige Post muss raus. Also alles in Kisten packen und einen unterzeichnungsberächtigten Mitarbeiter zur Post fahren lassen und dort die Kisten abzugeben. 11 große und vier kleine Kisten mit Briefen die bis zum letzten Werktag im Monat zugestellt sein müssen.
Nach 30 Minuten kam der Mitarbeiter zurück und sagte, das Großmengen angemeldet werden muss. Ich:
Also blieb mir nichts anderes über, als ihm zu sagen, das er die Portokosten bitte ausrechnen möchte und es sich in der Finanzabteilung geben lassen soll. Danach musste ich ihn dann zur Post schicken um Briefmarken zu kaufen und zu kleben, und kleben, und kleben, und kleben. Nach eineinhalb Stunden war er zurück, legte mir die Quittung für das Porto und drei Becher Kaffee (von einem Bäcker) vor und bat mich ich möchte eine Kostenerstattung für den Kaffee ausfüllen. Da war ich erst sprachlos (mein Gehirn ging auf Höchstleistung), wieso Kaffe und wieso drei mal? Es hieß Portokaufen und nicht Kaffee trinken. Ich fragte ob es sein "Ernst" sei und er ganz locker, das er sich zwei Auszubildene mitgenommen habe und er irgendwann die Marken nicht mehr "schmecken" mochte und er drei Kaffee gekauft hat. Okay, Kosten wurden (na klar) erstattet. Im Nachhinein muss ich lächeln. Nicht dumm der Kollege. Einfach zwei günstige "Marken-Kleber" mit nehmen und auch noch zu Kaffee gegen Erstattung "einladen". Das muss ich mir merken.

Neue Frankiermaschine kommt Mittwoch oder Donnerstag.

Aber mal ehrlich, ist das Kundenfreundlich? Finde die Sache mit dem Mitarbeiter eigentlich "lustig", aber wie unflexibel bitte ist das vom Postunternehmen? Wir frankieren täglich nicht zehn oder zwanzig Euro. Ich habe vorhin mal nachsehen lassen, was wir in den letzten 36 Monaten im Tagesdurchschnitt hatten und da liegen wir bei 10,92 große Kisten und 6,40 kleine Kisten. Wir lassen die frankierte Post Kistenweise (Bezahlung nach Kisten) abholten (Hol- und Bringdienst) und haben so die Daten, wieviel Kisten rausgegangen sind und welcher Brief in welcher Kiste (Kistennummer) ist.

Nun, die nächsten beiden Tage werden wir damit wohl leben können. Es müssen nicht viele Briefe dringend die beiden Tage abgesendet werden, aber ich ärgere mich dennoch.

Ich benutze auch IcoFX und ich habe bis heute keine Probleme bei der Iconerstellung und alle sind TOP. Vielleicht machst Du da etwas falsch. Gib doch mal das Bild raus, aus dem das neue Icon erstellt werden soll.

Zitat von Schnuffel

Leichenfledderer

Die Leiche ist ja schon wieder Erdmasse.

Moombas da gebe ich Dir recht !!!

Vielleicht hilft Dir das auch weiter:

Müsste aber noch überarbeitet werden.
Unter anderem hier: escndv.exe <--- tauschen durch Deine Startdatei vom Spiel:
Und die Ausgabe der MsgBox muss auch nicht sein, das ist nur als Beispiel.

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>

Global $sLogFile = @ScriptDir & "\escndv_runtime.log"

Func WriteRuntimeLog($iRuntime)
Local $hFile = FileOpen($sLogFile, $FO_OVERWRITE)
If $hFile = -1 Then
MsgBox($MB_OK, "Fehler", "Konnte Log-Datei nicht öffnen!")
Return
EndIf

FileWrite($hFile, $iRuntime)
FileClose($hFile)
EndFunc

Func ReadRuntimeLog()
If Not FileExists($sLogFile) Then Return 0

Local $hFile = FileOpen($sLogFile, $FO_READ)
If $hFile = -1 Then Return 0

Local $sContent = FileRead($hFile)
FileClose($hFile)

Return $sContent
EndFunc

Func UpdateRuntimeLog($iRuntimeToAdd)
Local $iTotalRuntime = ReadRuntimeLog() + $iRuntimeToAdd
WriteRuntimeLog($iTotalRuntime)
EndFunc

While 1
Local $iStartTime = TimerInit()

Run("escndv.exe") ; Starte das Programm escndv.exe

While ProcessExists("escndv.exe")
; Warte, bis das Programm escndv.exe beendet wird
Sleep(1000)
WEnd

Local $iElapsedTime = TimerDiff($iStartTime)
Local $iElapsedTimeInSeconds = Round($iElapsedTime / 1000, 0)

UpdateRuntimeLog($iElapsedTimeInSeconds)

$iTotalRuntime = ReadRuntimeLog()

MsgBox($MB_OK, "Laufzeit von escndv.exe", "Das Programm escndv.exe lief für insgesamt " & $iTotalRuntime & " Sekunden.")
Exit
WEnd

OhnePlan

Script habe ich gerade leidr keine Zeit. Vielleicht heute Abend, muss ich mal sehen.

Sehe Dir mal in der Hilfe ProcessExists und alles was Bezug auf Process hat an.
Da kannst Du auf den Prozess, also Dein Spiel reagieren.

edit:
Gerade über die Suchfunktion gefunden: Laufzeit berechnen
Gib das mal als Suche ein. Da wirst Du fündig, gleich auf Seite 1.

Link geht schneller : Programmlaufzeit von AspirinJunkie

Gesamtspielzeit von aktueller Spielesitzung oder Gesamtspielzeit seit Du jemals das Spiel gestartet hast?
Blau oder grün ?
Beides geht doch ideal über das was ich oben vorgeschlagen habe.

Mal eine Frage. Wenn Du ein Spiel spielst, dann startet doch ein Prozess. Wieso fragest Du nicht ab ob der Prozess läuft oder nicht? Wenn er läuft spielst Du, schreibst die aktuelle Zeit in z. B. eine Ini-Datei und wenn der Prozess nicht läuft schreibst Du es wieder in die Ini. Die zweite ZTeit minus die erste Zeit ist die Zeit die Du gespielst hast. DIese speicherst Du dann wieder. Wenn Du dann z. B. einen Tag später wieder spielst, machst Du das ganze wieder von vorne. Nur das Du die gesamte Spielzeit vom VOrtag zu dre vom aktuellen Tag zusammenrechnen musst. So würde ich sinngemäß vorgehen. Aber es kann auch sein das es so nicht möglich ist, aber es soll für Dich eine Anregung sein, es vielleicht mleichter lösen zu können.

Ich liebe dieses Game. Früher haben wir es (sinngemäß) übersetz als "Rateklaus" genannt.

Schnuffel

Meine Nachtlösung war als Ansatz gedacht.

Je nachdem wie "fit" er im scripten ist wird er sich für die erste oder zweite Lsg. von Dir entscheiden.
Ich weiß ja auch nicht, was er genau vor hat und wie viele Buttons er später in dem GUI haben wird.

Meinst Du soetwas?

Zur Zeit sind die Buttons beim Start versteckt. Klicks Du einmal in die GUI erscheinen die Buttons, beim zweiten klicken in die GUI sind diese wieder weg.

edit: funktioniert jetzt:
Jetzt muss man es nur noch hinbekommen, das es nicht nur einmal funktioniert das die Buttons erscheinen und wieder weg sind. Vielleicht kann da jemand anderes helfen. Wenn es denn das gesuchte ist.

edit: funktioniert jetzt auch:
Das schließen der GUI funktioniert noch nicht über das Kreuz. Muss noch angepasst werden. Aber jetzt nicht mehr um diese Zeit.

#include <GUIConstants.au3>

Global $btn1, $btn2, $btn3
Global $buttonsVisible = False
Global $GUIActive = True

Main()

Func Main()
	GUICreate("Buttons SHOW HIDE", 300, 200)
	GUISetState(@SW_SHOW)
	GUIRegisterMsg($WM_LBUTTONDOWN, "OnMouseDown")
	While $GUIActive
		$Msg = GUIGetMsg()
		Switch $Msg
			Case $GUI_EVENT_CLOSE
				OnClose()
		EndSwitch
		Sleep(100)
	WEnd
EndFunc   ;==>Main

Func OnMouseDown($hWnd, $Msg, $wParam, $lParam)
	If Not $buttonsVisible Then
		ShowButtons()
	Else
		HideButtons()
	EndIf
EndFunc   ;==>OnMouseDown

Func ShowButtons()
	If Not $buttonsVisible Then
		$btn1 = GUICtrlCreateButton("Button 1", 50, 50, 100, 30)
		$btn2 = GUICtrlCreateButton("Button 2", 50, 100, 100, 30)
		$btn3 = GUICtrlCreateButton("Button 3", 50, 150, 100, 30)
		GUICtrlSetState($btn1, $GUI_SHOW)
		GUICtrlSetState($btn2, $GUI_SHOW)
		GUICtrlSetState($btn3, $GUI_SHOW)
		$buttonsVisible = True
	EndIf
EndFunc   ;==>ShowButtons

Func HideButtons()
	If $buttonsVisible Then
		GUICtrlSetState($btn1, $GUI_HIDE)
		GUICtrlSetState($btn2, $GUI_HIDE)
		GUICtrlSetState($btn3, $GUI_HIDE)
		$buttonsVisible = False
	EndIf
EndFunc   ;==>HideButtons

Func OnClose()
	$GUIActive = False
	Exit
EndFunc   ;==>OnClose

So sah meine erste berufliche Schreibmaschine mit Diskettenlaufwerk aus.

Sie befand sich noch im Büroregal bis wir Flensburg verlassen haben. Warum wir sie nie entsorgt
haben weiß ich nicht.

Das schöne war, man benötigte kein TipEx oder Berichtigungsband mehr.

Danach hatten wir ein Schreibprogramm das unter MS-Dos lief. Leider weiß ich nicht mehr wie
das hieß. Gibt es soetwas heute eigentlich noch bzw. bekommt man das von früher noch irgendwo
her und könnte es sogar noch auf heutigen PCs laufen?

Ich liebe alles was mit Rätzeln zu tun hat und den "Cryptex" habe ich ohne irgendwelche Gebrauchsanweisungen / Lösungshilfen in unter 45 Minuten gelöst. Nach dem Lösen habe ich das Lösungswort in "AUTOIT" umgestellt.


Wo findet man solche Rätzelboxen. Sie müssen nicht aus Holz sein, aber gerne ohne Standartlösungswort, sondern mit einem individuellem Passwort. Und sehr gerne, wenn es das irgendwo gibt größer oder sehr viel größer vom Volumen her !!!

Ich danke Euch beiden für die Erklärung und schön das ich somit wohl nichts "lebenswichtiges" verpasst habe.

Zitat von SOLVE-SMART

• Habt ihr (die Projektinteressenten) Erfahrungswerte mit GitHub und somit auch mit Git?

Was ist GitHub / Git ???
Habe ich noch nie mit gearbeitet und weiß darüber so gut wie nicht, um nicht zu sagen "gar nichts".

MEIN VORSCHLÄGE WÄREN ...

... einen selbst gescripten Browser.
... ein Haushaltsbuch (mache ich z. Zt. alles ins Excel)

Zitat von Racer

486DX100 ....das ist ein hochmoderner Computer gegen einen C64....da sieht man was Du für ein junges Mäderl bist

junges Mäderl ? Danke schön, das schmeichelt mich.

Wolfenstein? Ja, aber auf ein 486DX100 (meine ich) und danach Doom. und irgendwann Lemminge. Habe heute noch alle Doom und Lemmingeversionen und funktionieren noch.

Die ganz ganz jungen Jahre. Wolfenstein meine ich war zumindest in Deutschland verboten. Aber wen interessierte das in dem jungen Alter?

Atari, C64, Schneider, .... war damals im Familienkreis unterwegs.

Und Datenübertragung mit Akustikkoppler via Telefonhörer. Zumindest bei meinem Vater wegen seinem Beruf seeeehr früh. Daten zwischen der USA und DK ausgetauscht. Ohne Telefonflat.

Oder die PCs mit Kabel verbinden und man brauchte ein Endwiderstand. Wir haben damals kleine Löcher durch unsere Kinderzimmerwände gebohrt. Klein war dann so, das fast eine kleine Suppenkeller durch passte. Als das unsere Elter sahen, gab es "Durchzug" (Ärger und PC war paar Wochen weg). Was man als Teenager nicht alles ohne überlegen gemacht hat.

Zitat von Swiffer

Vielleicht darf ich das Skript dann auch hier reinschreiben dass auch andere von profitieren können. Ist noch in Abklärung.

Wäre sehr schön wenn Du die Lösung später hier für alle zur Verfügung stellst. So haben, wie Du ja selber schreibst, alle etwas davon.

Ich habe mal einen Ordnerpfad erstellt: C:\Users\AlinaPC33\Desktop\Ordner\1\2
Der Ordner "2" ist älter "1 Tag" und wird mit nachfolgendem Script gelöscht.
Bitte beachte die Erklärungen im Script bezüglich Pfadanpassen.

Ist es das was Du suchst?

Ist evtl. noch zu kürzen aber erst einmal arbeitet es bei mir zumindest einwandfrei.

Zitat von Schnuffel

ich greife Alina mal vor... (nicht böse gemeint)

Schnuffel
Als wenn ich jemals jemanden hier böse auf etwas war. Ich lege Dich gleich über das Knie.

Swiffer
Betreff Beitrag #14
Also zu @DesktopDir steht doch in der Hilfe* "Pfad zum Desktop des aktuellen Benutzers". So wie Schnuffel es geschrieben hat ist es richtig.
Ein Unterordner (Ordner auf dem Desktop wäre dann @DesktopDir\Unterordner

Local $hSearch = FileFindFirstFile("C:\Users\Swiffer\Desktop\Test PDF durchsuchen" & "\*.pdf")

*) Bitte einmal die Hilfe herunter laden. Da steht es auch erklärt.