Beiträge von BugFix

  • Kalenderelemente in Abhängigkeit von einander und vom Wochentag einstellen

    Das geht so:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <DateTimeConstants.au3>
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    #include <Date.au3>
    #include <File.au3>

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

    Const $DTM_SETFORMAT_ = 0x1032
    Const $DATUMSFORMAT = "MMMM,dddd, dd.MM.yyyy"

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

    $akt_datum = @YEAR & "/" & @MON & "/" & @WDAY;
    $folderDelim = "\"
    $xDelim = "-"

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

    $Form1 = GUICreate("Datumwechsel", 233, 170, 52, 702,-1, 0x00000018)
    $Date1 = GUICtrlCreateDate($akt_datum, 10, 45, 200, 21)
    GUICtrlSendMsg($Date1, $DTM_SETFORMAT_, 0, $DATUMSFORMAT)
    $Date2 = GUICtrlCreateDate($akt_datum, 10, 90, 200, 21)
    GUICtrlSendMsg($Date2, $DTM_SETFORMAT_, 0, $DATUMSFORMAT)
    $Checkbox1 = GUICtrlCreateCheckbox("Automatisch Datum2 einstellen", 10, 117, 200, 19,$BS_AUTOCHECKBOX)
    GuiCtrlSetState(-1, $GUI_CHECKED)
    GUISetState(@SW_SHOW, $Form1)

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

    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $Date1
    _datumChange()
    Case $Date2

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

    EndSwitch
    WEnd

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

    Func _datumChange()
    If Not BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then Return
    Local $date = StringRight(GUICtrlRead($Date1), 10)
    $date = _DateAdd('D', -1, StringRight($date,4) & '/' & StringMid($date,4,2) & '/' & StringLeft($date,2))
    GUICtrlSetData($Date2, $date)
    EndFunc

    [/autoit]

  • Problem mit warten auf Fenster zu dann weiter

    Ungeprüft, aber sollte laufen:
    (Voraussetzung: Prozessname immer PTCZIFFERNtmp.exe

    Spoiler anzeigen
    [autoit]

    Local $aPList = ProcessList()
    Local $PID = 0, $Name
    For $i = 1 To $aPList[0][0]
    If StringRegExp($aPList[$i][0], "PTC\d+tmp.exe") Then
    $PID = $aPList[$i][1]
    $Name = $aPList[$i][0]
    ExitLoop
    EndIf
    Next
    If $PID = 0 Then
    MsgBox(0, '', 'kein PTC-Prozeß aktiv')
    Else
    MsgBox(0, '', 'PID des PTC-Prozess: ' & $PID & @CRLF & 'Przessname: ' & $Name)
    EndIf

    [/autoit]

  • Problem mit Akku, Ladekabel o.ä.

    Zitat von Bakku

    Ich bring das Teil eher zu einem Spezialisten.

    Zitat von Bakku

    Macht das auch der Media Markt?


    :rofl: Na die beiden Sätze wiedersprechen sich doch von vornherein.
    Kennst du denn niemanden, der halbwegs geschickt ist und ein wenig von Elektronik versteht?
    Das Hauptproblem ist eigentlich das Zerlegen des Laptops (und natürlich dann auch das Zusammenbauen). Bisher hatte ich erst einen Laptop in der Mangel, der servicefreundlich gebaut war - ein Samsung. Bei den anderen Marken (Asus, Fujits-Siemens) ist z.B. unter der Tastatur eine Schraube zum Motherboard versteckt. Und die Tastatur muß mit ganz ausgeklügelter Hebeltechnik gelöst werden. :rolleyes:
    Aber ich kann voller Stolz sagen, dass ich alle Laptops wieder unbeschädigt zusammenfügen konnte. :thumbup:

  • Problem mit Akku, Ladekabel o.ä.

    Zitat von Bakku

    Heißt das, dass der Fehler am Board liegt?


    Vermutlich der von mir in meinem ersten Post beschriebene Fehler:
    Steckbuchse auf Leiterplatte hat erst Wackelkontakt und brennt dann völlig weg.
    Mit Glück ist die Buchse dabei ganz geblieben - auf jeden Fall müssen die Kontakte auf dem Board neu gelötet werden.
    Bei der Gelegenheit gleich die Buchse an den Seiten zusätzlich mit Heißkleber fixieren. Das vermindert die mechanische Belastung und schützt vor erneutem Abbrand.

  • In ext. Datei nach Wörtern suchen

    In dieser Schleife werden die Einträge ermittelt, die weder in Tabu, noch in Referenz enthalten sind und in die Variable $sOut geschrieben, getrennt durch @CRLF.
    Der Inhalt von $sOut ist dann in eine Datei zu schreiben. Das von dir geschilderte Problem kann ich anhand meines Bsp.-Codes nicht nachvollziehen.

    Spoiler anzeigen
    [autoit]

    For $i = 1 To UBound($aVergleich) -1
    _ArraySearch($aTabu, $aVergleich[$i], 1)
    If @error Then ; Eintrag nicht in Tabu enthalten
    _ArraySearch($aReferenz, $aVergleich[$i], 1)
    If @error Then ; Eintrag nicht in Referenz enthalten
    $sOut &= $aVergleich[$i] & @CRLF
    EndIf
    EndIf
    Next

    [/autoit]

  • Zufällige Daten aus ini wiedergeben.

    Zitat von slash

    Sry ich versteh nur bahngof =(
    Wenn ich das als Codebeispiel seh, kann ich es mir besser einprägen.


    Wenn ich dir den fertigen Code liefer lernst du nichts dabei. Ich habe nun schon jeden Schritt einzeln dargelegt, die Vorgehensweise im Detail beschrieben. Du mußt nur noch die Anweisungen in Code umsetzen.
    Die enthaltenen Verweise auf zu benutzende Funktionen/Controls sollten es dir unter Nutzung der AutoIt-Hilfe ermöglichen selbst aktiv zu werden. Wenn es dann nicht richtig paßt, kannst du gerne wieder fragen.

    Aber ich denke, es ist angemessen, dass wir von den Usern auch Eigeninitiative erwarten. Wir werden hierfür nicht bezahlt sondern opfern unsere freie Zeit. Und falls sich herausstellt, dass du nicht Willens bist, dich selbst zu bemühen, werde ich auch keinen weiteren Support leisten.

  • Zufällige Daten aus ini wiedergeben.

    Zitat von slash

    Nur bekomm ich das nicht hin das er mir zeile für zeile die einträge zeigt und wie man die editiert oder löscht weis ich sowieso net^^ hab ansich noch nicht viel mit dateien gearbeitet^^ und mit tags noch garnicht


    Wie man aus der Datei einliest habe ich doch oben bereits gezeigt. Die Daten sind dann in einem Array. Und dieses kannst du dann Element für Element abarbeiten:
    - For-Schleife ( Element 0 bis Ubound(Array)-1 )
    für jedes Element (wenn es bearbeitet werden soll):
    - Element auslesen, in Variable $oldValue zwischenspeichern
    - z.B. in ein Inputfeld einfügen
    - bearbeiten
    - Inputfeld auslesen
    - in Datei die Zeile mit $oldValue suchen ( ähnlich, wie in der Funktion _WriteBetweenTag )
    - Zeile überschreiben mit gelesenem Wert aus Input ( _FileWriteToLine($sFile, $iLine, $sText, 1) )

    Folgendes ist nicht zu empfehlen:

    [autoit]

    _WriteBetweenTag($Datenbank, 'hardcore', GUICtrlRead($Edit1))

    [/autoit]


    Besser:
    - $value = GUICtrlRead($Edit1)
    - prüfen ob überhaupt Inhalt, wenn nicht keine Weiterverarbeitung
    - evtl. Leerzeilen entfernen
    - evtl. abschließende Zeilenumbrüche entfernen
    - erst dann in die Datei schreiben

    Übrigens: Tags sind doch nur markante Platzhalter, die es ermöglichen in einer Textdatei Inhalte schnell aufzufinden.

  • RegWrite im Netzwerk

    Hast du Adminrechte? (Evtl. RunAs und Admindaten des Remote-PC verwenden). Kannst du dich so auf den Remote-PC verbinden?

    Ansonsten kannst du ja auch mal per WMI probieren:

    Spoiler anzeigen
    [autoit]

    Const $HKEY_CLASSES_ROOT = 0x80000000
    Const $HKEY_CURRENT_USER = 0x80000001
    Const $HKEY_LOCAL_MACHINE = 0x80000002
    Const $HKEY_USERS = 0x80000003
    Const $HKEY_CURRENT_CONFIG = 0x80000005

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

    $strComputer = "." ; '.' für lokalen PC
    $oReg = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & _
    $strComputer & "\root\default:StdRegProv")

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

    ; create Key
    $strKeyPath = "SOFTWARE\NewKey"
    $oReg.CreateKey($HKEY_LOCAL_MACHINE, $strKeyPath)

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

    ; REG_DWORD
    $strValueName = "DWORD Value Name"
    $dwValue = 82
    $oReg.SetDWORDValue($HKEY_LOCAL_MACHINE, $strKeyPath, $strValueName, $dwValue)

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

    ; REG_SZ
    $strKeyPath = "SOFTWARE\System Admin Scripting Guide"
    $strValueName = "String Value Name"
    $strValue = "string value"
    $oReg.SetStringValue($HKEY_LOCAL_MACHINE, $strKeyPath, $strValueName, $strValue)

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

    ; REG_MULTI_SZ
    $strKeyPath = "SOFTWARE\System Admin Scripting Guide"
    $strValueName = "Multi String Value Name"
    Local $arrStringValues[4] = ["first string","second string","third string","fourth string"]
    $oReg.SetMultiStringValue($HKEY_LOCAL_MACHINE, $strKeyPath, $strValueName, $arrStringValues)

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

    ; REG_EXPAND_SZ
    $strKeyPath = "SOFTWARE\System Admin Scripting Guide"
    $strValueName = "Expanded String Value Name"
    $strValue = "%PATHEXT%"
    $oReg.SetExpandedStringValue($HKEY_LOCAL_MACHINE, $strKeyPath, $strValueName, $strValue)

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

    ; REG_BINARY
    $strKeyPath = "SOFTWARE\NewKey"
    Local $aValues[3] = [0x01,0xa2,0x10]
    $BinaryValueName = "Example Binary Value"
    $oReg.SetBinaryValue($HKEY_LOCAL_MACHINE, $strKeyPath, $BinaryValueName, $aValues)

    [/autoit]

  • Eine kleine Frage.

    Zitat von Evolutio

    Name: Multitool oder so in der art
    Gebrauch: um meine Rechen Wege zu Kontrolieren


    Wenn wir dich hier ernst nehmen sollen, solltest du auch ernsthaft auf Fragen antworten. Die Frage von i2c ist völlig berechtigt. Und ich glaube nicht, dass du die notwendige Leistung um solch ein Programm zu erstellen, auch nur annähernd vergüten kannst.