Beiträge von Lottich

Nein, die Antwort von @AspirinJunkie wird nicht ignoriert und dass die Checkbox Abfrage falsch ist, ist mir auch klar. Ich weiss, dass man dafür
BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) benötigt. Aber in dem Moment hab nicht daran gedacht das zu korrigieren.
Zu dem Zeitpunkt war ich immer noch dabei zu begreifen, was der TE eigentlich vor hat. Ob ihr es nun glaubt oder nicht, ich habe auch gewittert, dass hier ein XY Problem vorliegt.

Weil ich selber aber meine liebe Not habe mit BitXOr, BitShift, Bit... benutze ich die nicht wenn ich nicht zwingend muss. Ich bin der Meinung, dass man den Code verstehen können muss, den man verwendet!
Das halte ich persönlich sogar für ziemlich wichtig. Und da der TE mehrfach darauf hingewiesen hat, dass er Switch-Case nicht versteht stelle ich mal die Behauptung auf, dass er auch BitXor nicht versteht!

Darum habe ich ihm Switch-Case näher mit Beispiel erklärt. Gut, der Code wird dadurch um ein paar Zeilen länger, aber WAS ist daran falsch??

Global $If_Or_If_Not[4]
$If_Or_If_Not[0] = ""
$If_Or_If_Not[1] = "not"
$If_Or_If_Not[2] = "not"
$If_Or_If_Not[3] = ""
For $i = 0 To 3
	Switch $If_Or_If_Not[$i]
		Case "not" ;mach was getan werden soll, wenn $If_Or_If_Not = "not"
			ConsoleWrite(@CRLF & "Checkbox[" & $i & "] --> $If_Or_If_Not[" & $i & "] = " & $If_Or_If_Not[$i])
		Case "" ;mach was getan werden soll, wenn $If_Or_If_Not = ""
			ConsoleWrite(@CRLF & "Checkbox[" & $i & '] --> $If_Or_If_Not[' & $i & '] = ""')
	EndSwitch
Next
ConsoleWrite(@CRLF & "---------- Ende ----------" & @CRLF)

So?

Zitat von Lanealine

ich habe mehrere von solchen abfragen hintereinander, und ich möchte vorher in einer übersichtlichen tabelle mit 0 und 1 sagen, ob die kommenden if abfragen mit NOT oder normal ausgeführt werden sollen.

Dann ist "Switch - Case" doch prima für dich geeignet.

; als als Beispiel:
Switch $ifORifnot
	Case "not"
		If GUICtrlRead($TestCheckBox) = $GUI_CHECKED Then
			;mach was getan werden soll, wenn $ifORifnot = "not"
		EndIf
	Case ""
		If GUICtrlRead($TestCheckBox) = $GUI_CHECKED Then
			;mach was getan werden soll, wenn $ifORifnot = ""
		EndIf
EndSwitch

Allerdings ist mir noch immer nicht klar, warum man das so machen sollte. (ist aber auch schon spät )
Ich wette zwar nie um Geld, aber ich bin mir fast sicher, dass ich mein Sparschwein auffüllen könnte, wenn ich sage:
"Was du vor hast kann garantiert auf andere Weise besser gelöst werden."

Was hast du denn bisher zusammen gebastelt? Wenn man deinen Code als Grundlage nehmen kann, dann kann dir auch viel besser geholfen werden,
denn dann wird meistens ersichtlich, was du eigentlich genau vor und nur evtl umständlich beschrieben hast. Und darum geht es auch, wenn wir hier nach Beispielscripten fragen. Keiner will hier irgend eine Idee klauen...

Glaubst du nicht, dass du mit "Select/Switch - Case" besser fährst?

Hallo Sunlight

Nur weil ShellExecute() die Möglichkeit bietet Parameter explizit anzugeben heisst das noch lange nicht, dass du bei Run() keine Parameter benutzen kannst. Parameter werden unter Windows ans Ende der .exe angehängt. Also würde ein Aufruf via Run so aussehen:

Local $Programm = "C:\Programme\Programm.exe"
Local $Parameter = "-Param1 -Param2"
Local $pid = Run($Programm & " " & $Parameter)
;oder alternativ gehts auch so
Local $pid = Run("C:\Programme\Programm.exe -Param1 -Param2")

Damit wird das Programm mit den beiden Parametern gestartet.

Ausserdem ändert sich die Datei nicht, nur weil du die Endung änderst

Zitat von xSunLighTx3

Ich benutze gerne eigene Dateiendungen für Cores o.Ä.

Wenn du auf diese Weise aus einem Textfile "Text.txt" eine "Test.exe" machst und diese mit einem Editor öffnest, wirst du auch weiterhin den Text lesen können.
Darum hast du auch unter Run() kein Problem damit solch eine Datei zu starten. ShellExecute hingegen arbeitet da anders, denn es prüft vorher, ob die Dateiendung im System "anständig" registriert ist und meckert dann mit dem "öffne mit..." Dialog.
Hättest du das gleich von Beginn an gesagt, hätte man dir das auch gleich gesagt.

Ich glaube, dass er in der Berechnung einfach die Multiplikation mit der Division verwechselt hat.
Sinn dieser ganzen Jahresbeitragszahlerei ist doch, dass es dem Kunden teurer kommt, wenn er andere
Zahlungsarten wählt. Und je häufiger die Beiträge im Jahr gezahlt werden, desto teurer wirds.

Nehmen wir als Beispiel diese 220,19 € als Jahresbeitrag.
Laut Rechnung des TE kommt bei seiner Berechnung folgendes heraus:

- halbjährlich rund 427,55 € ==> macht im Jahr 855,10 €
- vierteljährlich rund 838,82 € ==> macht im Jahr 3´355,28 €
- monatlich rund 2492,72 € ==> macht im Jahr 29´912,64 €

Das ist utopisch und völlig irrational!
Jetzt tauschen wir einfach mal in seiner Berechnung das * mit / .... Dann kommt das dabei raus:

- halbjährlich rund 113,40 € ==> macht im Jahr 226,80 €
- vierteljährlich rund 57,80 € ==> macht im Jahr 231,20 €
- monatlich rund 19,45 € ==> macht im Jahr 233,40 €

Und DAS ergibt doch wesentlich mehr Sinn!

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Videoschnitt\Desktop\autoit\läuft\rechner.kxf
$Form1_1 = GUICreate("Form1", 267, 227, 469, 145)
GUISetBkColor(0xFFFFFF)
$Button_plus = GUICtrlCreateButton("Netto Jährlich", 144, 48, 113, 25)
$Button_minus = GUICtrlCreateButton("Netto Halbjährlich", 144, 80, 113, 25)
$Button_durch = GUICtrlCreateButton("Netto Vierteljährlich", 144, 112, 113, 25)
$Button_mal = GUICtrlCreateButton("Netto Monatlich", 144, 144, 113, 25)
$Label1 = GUICtrlCreateLabel("", 136, 184, 116, 25)
$Label2 = GUICtrlCreateLabel("Brutto Betrag eingeben", 144, 16, 113, 17)
$Input1 = GUICtrlCreateInput("220,19", 8, 8, 129, 32)
GUICtrlSetFont($Label1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetFont($Input1, 14, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Global $operation = "", $merk_zahl = 0


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Button_plus
			berechnen("bj")
		Case $Button_mal
			berechnen("bq")
		Case $Button_durch
			berechnen("bm")
		Case $Button_minus
			berechnen("bh")
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd


Func berechnen($operation)
	Local $iEingabe = Number(StringReplace(GUICtrlRead($Input1), ",", "."))
	Switch $operation
		Case "bj"
			$merk_zahl = $iEingabe
		Case "bh"
			$merk_zahl = Round($iEingabe * 1.03 / 2, 2)
		Case "bm"
			$merk_zahl = Round($iEingabe * 1.05 / 4, 2)
		Case "bq"
			$merk_zahl = Round($iEingabe * 1.06 / 12, 2)
		Case "nm"
			$merk_zahl = Round($iEingabe * 1.19, 2)
		Case "nj"
			$merk_zahl = Round($iEingabe * 1.19 * 1.03 / 2, 2)
		Case "nq"
			$merk_zahl = Round($iEingabe * 1.19 * 1.05 / 4, 2)
		Case "nh"
			$merk_zahl = Round($iEingabe * 1.19 * 1.06 / 12, 2)
		Case Else
			MsgBox(0, "", "es gab eine nicht definierte Funktion")
	EndSwitch
	GUICtrlSetData($Label1, $merk_zahl)
EndFunc   ;==>berechnen

hey, hat dir noch niemand hier gesagt, dass deine Art zu posten ziemlich unartig ist?
Gepostete Scripts gehören in die entsprechenden Tags... In der Toolbar das dritte von rechts. Sieht so aus : </>
Wenn du da drauf klickst, wählst du da, wo "Keine Hervorhebung" steht "AutoIt" aus und dann kopierst du im unteren Eingabefeld den Scriptcode hinein. und bei längeren Scriptcode sollte man das auch zusätzlich noch in den Spoiler packen.
Wäre dann in der Toolbar das 2. von rechts...

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region ;************ Includes ************
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <Date.au3>
#include <WinAPIMisc.au3>
#EndRegion ;************ Includes ************
;-- TIME_STAMP 2016-08-06 12:43:28
Opt('MustDeclareVars', 1)
#Region - ;************ GUI Create **********
GUICreate('Backup', 1280, 360)
Local $idButton_DirC = GUICtrlCreateButton('Inhalt von Laufwerk C: anzeigen', 10, 320, 420, 32)
Local $idButton_Backup = GUICtrlCreateButton('Backup starten', 430, 320, 420, 32)
Local $idButton_Exit = GUICtrlCreateButton('Programm beenden', 850, 320, 420, 32)
Local $idEdit_Log = GUICtrlCreateEdit('', 10, 10, 1260, 300, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
GUISetState()
_WriteLog('Backup Programm Start: ', _NowDate() & ' - ' & _NowTime())
#EndRegion - ;************ GUI Create **********
#Region - ;************ GUI SelectLoop ******
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE, $idButton_Exit
			Exit
		Case $idButton_DirC
			_DirC()
		Case $idButton_Backup
			_Backup()
	EndSwitch
WEnd
#EndRegion - ;************ GUI SelectLoop ******
Exit
Func _DirC()
	_WriteLog('Inhalt von Laufwerk ', 'C: anzeigen...')
	Local $iPID = Run(@ComSpec & " /c " & "Dir C:", "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
	_WriteOutputToLog($iPID)
EndFunc   ;==>_DirC
Func _Backup()
	; Passwort in Umgebungsvariable für PostgreSQL setzen - Paswort evtl. korrigieren
	EnvSet('PGPASSWORD', '12345')
	; EnvUpdate()	; hier mal auskommentieren, wenn Fehler...
	Local $sPG_DUMP = '"C:\Program Files\PostgreSQL\9.5\bin\pg_dump.exe" '
	Local $sFileName = "c:\asv\sicherung\asv_" & StringReplace(_NowCalcDate(), '/', '_') & ".backup"
	Local $sCMD = $sPG_DUMP & '--host localhost --port 5432 --username postgres --no-password --format custom --blobs --verbose --file "' & $sFileName & '" asv'
	_WriteLog('Backup Befehl: ', $sCMD)
	If FileExists($sPG_DUMP) = 0 Then
		_WriteLog('Fatal Error: ', 'Das Program ' & $sPG_DUMP & 'konnte nicht gefunden werden!')
		Return SetError(1, 0, $sPG_DUMP)
	EndIf
	Local $iPID = Run($sCMD, '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
	_WriteLog('PG_DUMP.EXE wurde gestartet - ', '$iPID = ' & $iPID)
	_WriteOutputToLog($iPID)
	; Passwort für PostgreSQL wieder löschen
	EnvSet('PGPASSWORD')
EndFunc   ;==>_Backup
Func _WriteOutputToLog($iPID)
	Local $sOutput = ""
	While 1
		$sOutput = StdoutRead($iPID)
		If @error Then ; Exit the loop if the process closes or StdoutRead returns an error.
			ExitLoop
		EndIf
		_WriteLog('Stdout Read: ', $sOutput)
	WEnd
	While 1
		$sOutput = StderrRead($iPID)
		If @error Then ; Exit the loop if the process closes or StderrRead returns an error.
			ExitLoop
		EndIf
		_WriteLog('Stderr Read: ', $sOutput)
	WEnd
EndFunc   ;==>_WriteOutputToLog
Func _WriteLog($sPrefix, $sText)
	If $sText = '' Then Return
	GUICtrlSetData($idEdit_Log, $sPrefix & _WinAPI_OemToChar($sText) & @CRLF, 1)
EndFunc   ;==>_WriteLog

Ja, zB so StringReplace(GUICtrlRead($Input1), ",", ".")

Funktioniert es denn, wenn du den Ausführungsort änderst?
zB wenn @ScriptDir = "C:\Testordner" (also ohne Leerzeichen)

Aber wenn nicht bekannt ist, WOMIT die Datei geöffnet werden soll... wie soll das gehen??

schau dir mal ShellExecute() an. Damit erreichst du genau das.

Wow!! Der Unterschied ist ja mal extrem!

rein logisch betrachtet (nach dem ich deine Verlinkungen gelesen habe):

Da bei einer Freeware kein Kauf statt findet, sollte es ausreichen, dass du während der Installation ausdrücklich darauf hinweist, dass dein Programm über eine Abschaltfunktion verfügt.
In wie weit diese nun Sinnvoll ist, sei erstmal dahin gestellt...

Ausserdem würde ich IMMER darauf hinweisen, dass du für keine Schäden aufkommst, die durch die Nutzung deines Programms entstehen könnten.
Ein Programm sollte aber erst dann veröffentlicht werden, wenn es auch tatsächlich funktioniert. Von kleineren Bugs mal abgesehen...
Dann wird der Fall wohl kaum auftreten, dass

Zitat von bazii

Diese Software sorgt in irgendeiner Weise dafür, dass einer Firma ein Schaden entsteht. Nehmen wir mal an, die Rücksicherung funktioniert nicht weil das Image falsch erstellt wurde.

Ich glaube, wenn du eine EULA schreibst, die akzeptiert werden muss und du darin auf deinen "Abschalter" hinweist, solltest du vor Klagen sicher sein.

Meine Meinung:
Solange du für dein Programm kein Geld verlangst sollte es dir frei stehen mit deinem Programm zu tun und zu lassen, was dir beliebt.
Je nachdem musst du dann aber auch in Kauf nehmen, dass du evtl. nicht mehr seriös wirkst und sich User künftig nicht mehr für deine Programme entscheiden werden.

Eine "call home" Funktion ist aber durchaus auch in Freeware sinnvoll, bleibt auch nicht aus, wenn man eine Update Funktion in seinem Programm integriert.

Und wegen dem Beenden des Programms: ich gehe da teils sogar noch weiter indem ich bei bestimmten Umständen mit _SelfDelete() arbeite.

Zu deinem Vorhaben im groben: per InetRead(), oder ähnlichem, auf deine Serverseitige Datei prüfen, evtl. auch auslesen und wenn diese nicht existiert, oder der ein bestimmter Text vorhanden ist, dann einfach die
Beenden Routine aufrufen.

Ich glaube schon, dass es möglich ist. Siehe ControlClick(). Aber wozu soll das denn gut sein? Kann mir keinen sinnvollen Einsatz deines Vorhabens vorstellen.

sieht das, was du zurück bekommst immer gleich aus? Sprich bleibt die 9 immer gleich, oder das B oder oder....
Da du ja nicht mit genauen Beispielen kommst muss halt geraten werden:

angenommen du willst das hier zurück bekommen: 955bc4 [und noch die Pipe dazu | ]
durch %ERRORLEVEL% bekommst du das hier: 746363414267

würde bedeuten dass: 9=74, 5=63, b=41, c=42, 4=6, die Pipe wäre |=7

IF
WENN dem so sein sollte, könntest du den Rückgabewert noch in der AutoIt.exe aufsplitten und einen Trenner einbauen, der sonst nicht in der Rückgabe enthalten ist. zB die Pipe (dieser Strich: | ). Dann übergibst du das alles an deine Batch, trennst das dann dort wieder auf indem du so vorgehst wie bei StringSplit() und als Trenner eben das Zeichen für die Pipe. Anschliessend nur noch jedes Zeichen neu zuweisen:

Then 74=9, 63=5, 41=b, 42=c, 6= 4 und voila, du hast deine Rückgabe.

Else
- Mach das Batchfile in AutoIt nach ( <--- würde ich machen)
- nimm den Umweg über Dateizugriff
- verfolge andere Lösungsvorschläge
EndIf

Hallo Alina

etwas ähnliches hatte ich auch mal vor. Wollte dass mir auf Wunsch meine Scriptkommentare angezeigt werden. Der Oscar
hat mir da weiter geholfen indem er meinte, dass ich der kompilierten .exe den Quellcode mitgeben muss.
#AutoIt3Wrapper_Res_SaveSource=y
Dann mit FileRead(@ScriptFullPath) den Code einlesen und auf das "zurechtschneiden" was du brauchst.

So würd ich das machen

Geprüft hab ich das schon mehrfach. Bin da, wie gesagt aufgewachsen, meine Eltern leben seit Anbeginn der Zeitrechnung dort.
Darum weiss ich, wie "ausgezeichnet" die Internetgeschwindigkeit dort ist. Alternativen wie Kabel o.ä. sind leider nicht vorhanden.
Soweit ist die "Infrastruktur" nicht ausgebaut...
Nachdem ich einen kurzen Blick in die Telekom Werbebroschüre geworfen hab, müsste ich erstmal testen, wie stark das LTE Signal dort ist, wo der Router stehen würde. Nützt ja nix wenn an der Stelle der Empfang mies ist.
Selber haben wir (Familie) nur E-Netz (mittlerweile ist das ja O2) und da ist die Verbindung eher bescheiden. Muss da erstmal nachforschen.
Wenn das möglich wäre und die vertraglichen Aspekte annehmbar sind, würde sich die 24/7 Server Geschichte wohl erledigt haben.

Mal schauen.

Nachtrag @Mars: Davon können wir auch ein Lied singen, als wir Internet für meine Eltern organisiert haben. Auch erst mit UMTS Stick und Kabelverlängerung, damits ausm Fenster reicht

Die Tendenz meiner Entscheidung geht also klar in Richtung Umzug.

Stellt sich daher nur die Frage, wie ich das schlechte Internet kompensieren kann.
Die Telekom bietet jetzt ja an, schlechtes Internet mit LTE aufzupeppen in einer Art Hybridverbindung.
Hat da evtl schon jemand Erfahrung mit gemacht??

Das mit dem Prüfgerät ist ein guter Tip. Das werd ich mal checken.

Oh weh, das wird so ein gewaltiger Absturz werden!!
Als ich mir GTA V gezogen hatte, dauerte das glaub ich keine 2 Stunden (waren etwas mehr als 60 GB),
mit konstanten 25 MB/s Downloadrate. In der neuen Bude würde ich da gefühlt WOCHEN für brauchen!

Aber dafür würde die Wohn- und Umgebungsqualität steigen...