Beiträge von Oscar

  • Tabelle zur Eingabe

    Statt des Listviews würde ich mir lieber eine Pseudo-Tabelle (mit Label und Input) basteln.
    Das lässt sich viel leichter handhaben, IMHO.
    Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <WindowsConstants.au3>
    Global $aIDInput[6]
    Global $aText[6] = ['Stromstärke', 'X-KOO', 'Y-KOO', 'Z-KOO', 'Windungen', 'Seitenlänge']
    $hGui = GUICreate('Test', 300, 200)
    GUISetFont(10, 400, 0, 'Arial')
    For $i = 0 To 5
    GUICtrlCreateLabel($aText[$i], 10, 10 + $i * 20, 120, 20, Default, $WS_EX_CLIENTEDGE)
    $aIDInput[$i] = GUICtrlCreateInput('', 130, 10 + $i * 20, 120, 20)
    Next
    GUISetState()
    Do
    Until GUIGetMsg() = -3

    [/autoit]

    Edit: Da fehlte noch die Zuweisung zu dem Array $aIDInput[$i].

  • Happy Birthday eukalyptus

    Herzlichen Glückwunsch zum Geburtstag eukalyptus!

    Mit 33 Jahren gehörst Du ja noch zu den jungen Hüpfern. :D
    Aber die viereinhalb Jahre, die Du hier im Forum bist, sind auf jeden Fall eine Bereicherung für uns. :thumbup:

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • Laufwerke in Combox einlesen

    Und damit die Combobox auch dann aktualisiert wird, wenn ein Laufwerk entfernt/hinzugefügt wird während Dein Skript bereits läuft:

    Spoiler anzeigen
    [autoit]


    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>

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

    If Not IsDeclared('WM_DEVICECHANGE') Then Global Const $WM_DEVICECHANGE = 0x0219
    $hGui = GUICreate('Automatische Laufwerkserkennung', 300, 200)
    GUICtrlCreateLabel('Alle Laufwerke:', 25, 30, 100, 20)
    $hCombo = GUICtrlCreateCombo('', 20, 50, 120, 20, $CBS_DROPDOWNLIST)
    _ReadDrives()
    GUISetState()
    GUIRegisterMsg($WM_DEVICECHANGE, 'MY_WM_DEVICECHANGE')
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    Func MY_WM_DEVICECHANGE($hWnd, $Msg, $wParam, $lParam)
    If $hWnd = $hGui Then _ReadDrives()
    Return $GUI_RUNDEFMSG
    EndFunc

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

    Func _ReadDrives()
    Local $aDrives, $sDrives, $sTmp
    GUICtrlSetData($hCombo, '')
    $aDrives = DriveGetDrive('ALL')
    For $i = 1 To $aDrives[0]
    $sDrives &= '|' & StringUpper($aDrives[$i])
    $sTmp = DriveGetLabel($aDrives[$i])
    If $sTmp <> '' Then $sDrives &= ' (' & $sTmp & ') '
    Next
    GUICtrlSetData($hCombo, StringTrimLeft($sDrives, 1), StringRegExpReplace($sDrives, '\|(.+?)\|.*', '$1'))
    EndFunc

    [/autoit]

  • Arrays vergleichen und doppelte Einträge löschen.

    Die Idee mit dem Scripting.Dictionary hatte ich auch. Nur habe ich gleich den Vergleich in beide Richtungen gemacht.
    Das dauert bei mir mit rund 35.000 Verzeichnissen nur ca. 1 Sekunde.

    Spoiler anzeigen
    [autoit]


    $sList1 = FileRead(@ScriptDir & '\list1.txt') ; alte Liste
    $aList1 = StringSplit($sList1, @CRLF, 1)

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

    $oDictionary1 = ObjCreate('Scripting.Dictionary')
    $oDictionary1.CompareMode = 1

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

    $sList2 = FileRead(@ScriptDir & '\list2.txt') ; neue Liste
    $aList2 = StringSplit($sList2, @CRLF, 1)

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

    $oDictionary2 = ObjCreate('Scripting.Dictionary')
    $oDictionary2.CompareMode = 1

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

    ConsoleWrite('-> Start! ' & StringFormat('%s:%s:%s.%s', @HOUR, @MIN, @SEC, @MSEC) & @CR)

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

    For $i = 1 To $aList1[0]
    $oDictionary1.Add($aList1[$i], 1)
    Next
    For $i = 1 To $aList2[0]
    $oDictionary2.Add($aList2[$i], 1)
    Next

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

    ConsoleWrite('-> Dictionaries erstellt! ' & StringFormat('%s:%s:%s.%s', @HOUR, @MIN, @SEC, @MSEC) & @CR)

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

    $sOut = ''
    For $i = 1 To $aList2[0]
    If Not $oDictionary1.Exists($aList2[$i]) Then $sOut &= $aList2[$i] & @CRLF
    Next
    For $i = 1 To $aList1[0]
    If Not $oDictionary2.Exists($aList1[$i]) Then $sOut &= $aList1[$i] & @CRLF
    Next

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

    ConsoleWrite('-> Fertig! ' & StringFormat('%s:%s:%s.%s', @HOUR, @MIN, @SEC, @MSEC) & @CR)
    ClipPut($sOut)

    [/autoit]

  • Computer-Info

    Hmm...könnt ihr mal in der Funktion "_CI_GetMaxTCPLen" die For-Schleife wie folgt ändern:

    [autoit]


    For $i = 1500 To 10 Step -10

    [/autoit]


    Mir ist aufgefallen, dass das byteweise runterzählen zu "komischen" Ergebnissen führt.

  • Computer-Info

    Zitat von FKFK

    Leider stürzt es regelmäßig ab, bzw. ändert den Status auf "Bitte Warten" bzw. Report erstellen (ab Register Netzwerk oder Report) und danach passiert nichts mehr...
    Ich habe WinXP 32Bit.

    Wenn da steht "Bitte warten..." sollte man auch etwas warten. :D
    Im Ernst: Ich hab's auch mit WinXP 32Bit getestet. Es funktioniert auch dort. Nur bei einigen TABs dauert das erstellen etwas länger (z.B. Netzwerk -> Ping).
    Richtig abstürzen dürfte das Skript eigentlich nicht. Vielleicht blockt auch Deine Firewall die Zugriffe des Programms auf's Internet.

    Zitat von FKFK

    Kann man damit eigentlich auch den Office-Key auslesen bzw. in welcher Registerkarte?


    Nein, Office-Key kann man nicht auslesen.

    Zitat von FKFK

    //edit: Seltsamerweise wird auch nicht mehr das Programm-Icon im Bereich links von der Uhr angezeigt. Wurde in dieser Richtung etwas verändert?


    Wozu ein Tray-Icon, wenn es sowieso kein Menü dazu gibt? ;)
    Siehe auch #NoTrayIcon im Skript.

  • Computer-Info

    So, die neue Version ist fertig! (Post #1)
    Man kann jetzt nur die markierten Einträge des aktuellen TAB, alle Einträge des aktuellen TAB oder komplett alle Einträge (Report) in die Zwischenablage kopieren.

  • Stromkosten errechnen

    Zitat von Jeahaha

    Oscar wenn ich auf deine Skript seite gehe kommt von Avira nen Malwirpopup 8| :huh:

    Das gehört hier zwar nicht in den Thread, aber um den Verdacht hier auszuräumen: Auf meiner Seite gibt es keinerlei Malware!
    Dort befinden sich nur ZIP-Archive mit den Skripten und einigen dazugehörigen Grafiken und Sounds. Wenn Avira da meckert, dann ist das wohl mal wieder ein Fehlalarm.
    Ich benutze im übrigen selbst Avira (einmal als kostenlose Variante und einmal die Vollversion Internet Security) und bei mir erscheint dort keine Meldung.

  • Stromkosten errechnen

    Prixma, Du hast da auch etwas vertauscht. ;)
    Auch bei Wechselstromgeräten wird die Leistung mit P = U*I berechnet, solange es sich um rein ohmsche Widerstände (z.B. Glühlampe) handelt.
    Etwas anders wird es bei induktiven und kapazitiven Widerständen. Man spricht dann von Blindleistung, weil Spannung und Strom phasenverschoben auftreten.

  • PaKo - Passwort-Koffer

    L3viathan meint vermutlich, dass das mit den 3 Versuchen sinnlos ist, weil man an die Checksumme sowieso rankommt.
    Es macht also keinen Sinn einen solchen "Brute-Force-Verhinderer" einzubauen. Das wird auch nicht kommen. Bei einem ausreichend langen und guten Master-Password ist das aber auch nicht nötig.

  • UEZ hat Geburtstag

    Alles Gute zum 40sten und willkommen im Club der Vierziger. :D

    Bleib uns erhalten und erfreue uns weiterhin mit Deinen tollen Skripten!

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • PaKo - Passwort-Koffer

    Ja zugegeben, KeePass stand für das Projekt als Ideengeber. :)
    Nur sollte mein Programm nicht so umfangreich/kompliziert werden. Ich kenne einige, die mit KeePass völlig überfordert sind und so habe ich dann entschieden, dass ich etwas eigenes programmiere.

  • PaKo - Passwort-Koffer

    Hier kommt nun mein neuestes Projekt: Ein Passwort-Koffer. :D

    Damit kann man Benutzername/Passwort-Kombinationen (z.B. für Online-Foren, Shops, etc.) verwalten. Die Datenbank wird mit einem Master-Passwort verschlüsselt.
    Dieses Master-Passwort muss man bei jedem Programmstart eingeben. Ohne dieses Master-Passwort kommt man nicht mehr an die Daten ran! Also gut merken!

    Eine Checksumme von diesem Master-Passwort wird in der Inidatei gespeichert, um auf Übereinstimmung mit dem eingegebenen Passwort testen zu können.
    Man kann aber nicht von dieser Checksumme wieder auf das Passwort kommen. Es nützt also nichts, die Checksumme zu ändern, um sich am Programm anmelden
    zu können, weil die Datenbank mit dem Passwort und nicht mit der Checksumme verschlüsselt ist.

    Es gibt bei dem Programm keine Lade-/Speicher-Buttons, weil die Änderungen immer gleich auch auf die Festplatte geschrieben werden.
    Allerdings wird vor dem Speichern eine Backupdatei (data\database.bak) erstellt, für den Fall, dass beim Speichern etwas schief läuft.

    Eine Installation ist nicht nötig. Einfach den Ordner aus dem ZIP-Archiv (Anhang) irgendwohin entpacken. Das Programm funktioniert auch vom USB-Stick aus.
    Es müssen allerdings Schreibrechte für den Ordner existieren!

    Screenshots:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.