Beiträge von Musashi

Wenn GUICtrlRead($LadeImmer) = $GUI_CHECKED ist, dann schreibst Du den Wert 1 in die Sektion [001] der .ini und löscht die Sektion [002].

Andernfalls (also $GUI_UNCHECKED) schreibst Du den Wert 2 in die Sektion [002] der .ini und löscht die Sektion [001].

Bei If IniRead ... fragst Du aber nur die Sektion [001] ab. Diese wurde in Fall von $GUI_UNCHECKEDaber gelöscht. Es greift also die Vorbesetzung 1 und liefert immer CHECKED.

EDIT WhiteHorse :

Zudem liefert If IniRead($ini, "001","HarkenOn/Off Von Laden Immer", "1") Then ...  immer TRUE, egal ob beim Value= "1" oder "2" steht.

In beiden Fällen ist der String besetzt, und nur das wird hier geprüft.

Warum verwendest Du überhaupt zwei Sektionen ([001] und [002]) ? Eine würde doch völlig ausreichen.

P.S. : Haken , nicht Harken

Probiere mal das folgende Skript (gemäß den Tipps von BugFix ) :

#include <AutoItConstants.au3>
Local $PID, $sOutput

; 1.
$iPID = Run("netsh interface ipv4 show config", "", @SW_HIDE, BitOR($STDOUT_CHILD, $STDERR_CHILD))
If Not @error Then
    ProcessWaitClose($iPID)
    $sOutput = StdoutRead($iPID)
EndIf
ConsoleWrite("=====> Output netsh = " & $sOutput & @CRLF & @CRLF)

; 2.
$iPID = Run("ipconfig /all", "", @SW_HIDE, BitOR($STDOUT_CHILD, $STDERR_CHILD))
If Not @error Then
    ProcessWaitClose($iPID)
    $sOutput = StdoutRead($iPID)
EndIf
ConsoleWrite("=====>  Output ipconfig = " & $sOutput & @CRLF)

Zitat von Bebbo

Hier der dazugehörige Code nachdem ich es mit AuStripper compiliert habe.

Das kann nicht der komplette Code sein, und würde so auch nicht unter Win10 laufen.

Abgesehen von anderen Dingen fehlen z.B. Includes, wie z.B. #include <GuiIPAddress.au3>.

Zitat von Der_Hallmann

Ich bin der liebste Junge der Welt, das Bild hat mein Bruder mit Bleistift gemalt, da hab ich es fotografiert und ein Avatar daraus gemacht, das war vor 25 Jahren einer meiner Lieblingsfilme, Nostalgie und so

Na, da sind wir aber froh.

Alex, der Protagonist aus Uhrwerk_Orange , war ja alles andere als lieb . Darauf einen "Moloko" .

Zitat von Der_Hallmann

Bitte ein kurzes Feedback, ...

Leider fehlt mir momentan die Zeit das Skript genauer zu betrachten, daher nur zwei allgemeine Anmerkungen.

1.

Globale Deklarationen innerhalb von Funktionen (siehe Auszug) sind im Allgemeinen nicht zu empfehlen :

[Auszug] ... 

Func Bingo_Starter()
      Global $sFont = "Bookman Old Style"
      Global $pic_Kreuz = @ScriptDir &"\png\Kreuz2.jpg"
      Global $ini_Daten = @ScriptDir &"\ini\Daten.ini"

      Global $A1=0, $B1=0, $C1=0, $D1=0, $E1=0, _
             $A2=0, $B2=0, $C2=0, $D2=0, $E2=0, _
             $A3=0, $B3=0, $C3=0, $D3=0, $E3=0, _
             $A4=0, $B4=0, $C4=0, $D4=0, $E4=0, _
             $A5=0, $B5=0, $C5=0, $D5=0, $E5=0

...

2.

Schau Dir mal den Datentyp Array an. Ich denke, damit lässt sich dein Skript deutlich kompakter schreiben.

Hier eins (von vielen) Tutorials) zu diesem Thema : http://www.bug-fix.info/array_tut.htm

Zitat von Der_Hallmann

Angefangen damals mit Basic auf dem C-64

Kommt mir bekannt vor .

Auch an dieser Stelle : Willkommen im Forum.

Zitat von Der_Hallmann

Bingo hat 769 Zeilen, aber meine Dart-App ist bei weitem größer.

Wie groß darf/kann der Code maximal sein?

Als Code eingefügt, habe ich schon Skripte mit tausenden Zeilen gesehen.

Falls Du viele externe Dateien, also z.B. Grafiken mitliefern möchtest (musst), dann gelten folgende Limits :

Einfach mal auf Dateianhänge klicken.

Zitat von Der_Hallmann

In der .Zip-Datei ist eine x86 und x64 .EXE zum starten, sowie die Quelldatei in .au3

Bitte ein kurzes Feedback, ob das Programm startbar ist, wäre nett.

Erst einmal - Willkommen im Forum .

Hinweis :

Er reicht in der Regel vollkommen aus, wenn Du dein Skript mithilfe des Code-Tags (siehe Grafik) in deinen Beitrag einfügst.

Vom Posten bereits kompilierter Skripte (.exe) ist abzusehen !

Diese kann sich ja jeder Interessierte selbst kompilieren. Kaum einer wird das Risiko eingehen, .exe-Dateien von unbekannter Herkunft auszuführen .

EDIT :

Wie ich sehe, enthält die .zip-Datei Unterverzeichnisse ( \ini und \png) mit Dateien, die vom Skript benötigt werden. Erstelle einfach eine neue .zip, aber ohne die kompilierten .exe.

Das Skript selbst kannst Du zusätzlich aber trotzdem (wie beschrieben) in deinen Beitrag einfügen.

Zitat von HansJ54

Aber bei den MsgBoxen kommt etwas anderes raus - wo ist mein Fehler?

Also bei mir läuft es :

Beispiel :

#include <AutoItConstants.au3>

ConsoleWrite("System32  = " & FileExists(@WindowsDir & "\System32\quser.exe") & @CRLF)
ConsoleWrite("SysNative = " & FileExists(@WindowsDir & "\SysNative\quser.exe") & @CRLF)

Local $sOutput, $PID
$sCommand = @WindowsDir & "\SysNative\quser.exe"
$iPID = Run($sCommand, "", @SW_HIDE, BitOR($STDOUT_CHILD, $STDERR_CHILD))
If Not @error Then
    ProcessWaitClose($iPID)
    $sOutput = StdoutRead($iPID)
EndIf
ConsoleWrite("Output = " & $sOutput & @CRLF)

Hast Du, wie Velted vermutet, auf einem anderen Rechner getestet ?

Zitat von f705185@rppkn.com

Ich kann mir vorstellen, dass es i-was mit dem Pfad zu tun hat, weil oben bei Notepad habe ich nur die .exe angegeben.

Schau dir mal die Hilfe zu ProcessExists an.

Auszug : Die Prozessnamen sind die ausführbaren Dateien ohne den kompletten Pfad, also z.B. "notepad.exe" oder "winword.exe".

Zitat von Peter S. Taler

zu meiner Fortbildung, was muss die Software denn besonderes können?

Es geht doch überhaupt nicht darum, was die Software können muss.

Windi hat bereits klar zum Ausdruck gebracht, dass :

Zitat von Windi

Du bist bei Wein schon an Wein-Software gebunden. Diese muss eine Zulassung der Weinkontrolle haben.

Ohne, musst du alle Aufzeichnungen nochmal von Hand machen. Es gibt eine spezielle Liste von zugelassenen Programmen.

Was bringt es, hier im Forum über den Sinn oder Unsinn einer solchen Zulassung zu diskutieren ?

Neben dem Vorschlag von BugFix könntest Du alternativ auch wie folgt vorgehen :

Global $fSumme = _Summen_in_Datei(@ScriptDir & "\SumNumbers.txt")
ConsoleWrite("Gesamtsumme = " & $fSumme & "  Errorcode = " & @error &@CRLF)

Func _Summen_in_Datei($sFile)
    Local $sRead, $aWerte, $fGesamt = 0
    $sRead = $sFile
    If FileExists($sRead) Then
        $sRead = FileRead($sFile)
    Else
        Return SetError(1, 0, 0)
    EndIf
    $aWerte = StringRegExp($sRead, "\d+,\d+", 3)
    If @error Then Return SetError(2, 0, 0)
    For $i = 0 To UBound($aWerte) - 1
        $fGesamt += Number(StringReplace($aWerte[$i],',','.'))
    Next
    Return $fGesamt
EndFunc

Zitat von Moombas

BugFix war schneller daher mal die bessere Variablennamen übernommen

Dieses Mal war ich schneller, nicht BugFix (habe ich in deinem Beitrag geändert)

Typo (von mir) : Es muss natürlich $iBottom heißen, nicht $iButton.

Silvermoon :

Beispiel bezüglich Groß/Kleinschreibung :

Local $A = 100, $a=300
ConsoleWrite("$A = " & $A & @CRLF)
ConsoleWrite("$a = " & $a & @CRLF)

Wie Du siehst, wird für beide Variable der letzte zugewiesene Wert genommen (hier also 300)

Zitat von Silvermoon1

Was ist da falsch oder gibt es da eine Alternative?

Die Zeile $X=1137:$Y=265:$x=1310:$y=636 ist syntaktisch falsch.

1. Trennzeichen bei mehreren Deklarationen in einer Zeile ist Komma, nicht Doppelpunkt

2. Groß/Kleinschreibung bei Variablennamen wird nicht berücksichtigt, daher ist $X und $xidentisch (werden also nur einmal besetzt). Bei $Y analog

#include <ScreenCapture.au3>

Local $iLeft=1137, $iTop=265, $iRight=1310, $iBottom=636

Example()

Func Example()
    _ScreenCapture_Capture(@ScriptDir & "\GDIPlus_Image2.jpg", $iLeft, $iTop , $iRight, $iBottom)
    ShellExecute(@ScriptDir & "\GDIPlus_Image2.jpg")
EndFunc   ;==>Example

Zitat von Alina

Alkohol ist auch keine Lsg.

Manchmal schon

Zitat von Racer

Könnte sich im Editor ein nicht-sichtbares Zeiten eingeschlichen haben (z.B.: Shift + Space) den der Interpreter ignoriert, aber nach dem kompilieren dann als zusätzliches Zeichen bei der Variable wahrgenommen wird?

Um das zu prüfen, könntest Du den Quellcode mal mit Notepad++ öffnen und dort die Option nicht druckbare Zeichen anzeigen aktivieren.

Racer : EDIT

Bei aktuellen Versionen von Notepad++ findet man folgende Einstellung :

Zitat von Peter S. Taler

Du könntest Dir Deine Triaden ersparen, ...

OT :

Ohne mich inhaltlich einzumischen, aber Du meinst sicher Tiraden , nicht Triaden .

-> Triaden sind "kriminelle Vereinigungen aus dem chinesischen Kulturkreis"

-> Tiraden : siehe https://de.wikipedia.org/wiki/Tirade

Zitat von Peter S. Taler

In den Tiefen meines Gedächtnisses sagt mit etwas man kann die Anführungszeichen maskieren - aber wie war das gleich?

Das "doppelte Anführungszeichen" (also " ) kann z.B. auch mit einem weiteren "doppelten Anführungszeichen" (also "" ) maskiert werden.

Zitat von Oscar

Meine Lösung sieht meistens so aus (für mich endet ein Verzeichnis immer mit einem Backslash):

If StringRight($sPath, 1) <> '\' Then $sPath &= '\'

Wäre dann nicht die Verwendung von _WinAPI_PathAddBackslash ein praktikabler Weg ?

Zitat von Peter S. Taler

... aber das was ich kenne identifiziert die Datei eindeutig

Falls die Datei mit dem Teilstring wirklich eindeutig identifiziert werden kann, könntest Du _FileListToArray verwenden.

Der volle Dateiname wäre dann der einzige Eintrag im Array.

Peter S. Taler : Edit - kleines Beispiel :

#include <Array.au3>
#include <File.au3>

; Zum testen verwende ich den Dateinamen TransparentIcon.au3 aus meinem ScriptDir
; Teilstring *parentIc* ist eindeutig !
Local $sFilename, $sSearch = "*parentIc*"
Local $aArray = _FileListToArray(@ScriptDir, $sSearch, 1, True)
_ArrayDisplay($aArray) ; *** nur zur Anzeige
If @error Then Exit MsgBox(0, "Fehler : ", $sSearch & "nicht gefunden")
$sFilename = $aArray[1]
MsgBox(0, "", $sFilename)