Beiträge von BugFix

  • UDF-Sammlung Array Alternativen

    Tja, an der Stelle bin ich auch hängegeblieben, dadurch konnte ich keine derartige Funktion implementieren. Einziger Workaround derzeit: Die Keys parallel in einer Arraylist führen.

    Das Problem ist folgendes:
    .Keys liefert eine ICollection zurück. Das Objekt wird ordnungsgemäß erstellt und enthält laut .Count auch alle Elemente. Aber diese Collection reagiert scheinbar auf keine weitere Methode. Weder For $element In $oICol noch andere Versuche waren erfolgreich.
    Vielleicht findet ja jemand mit mehr Objekterfahrung eine Lösung.

  • Manage USB-Drives per devcon.exe

    Ist mir vorher gar nicht aufgefallen - aber wenn du per Gerätemanager den Stick abmeldest, kann devcon nichts mehr erkennen. Das ist auch sichtbar, wenn du mit devcon abmeldest. Dann verbleibt trotzdem das Symbol für die Hardwareabmeldung im Tray, nur ohne Lw-Buchstaben. Die Abmeldung durch devcon ist also keine echte Hardwareentfernung.
    Ich habe keine 2 identischen Sticks, sie nutzen aber dieselbe Bezeichnung, haben aber unterschiedliche ID's.

  • Manage USB-Drives per devcon.exe

    Zitat von Micha_he


    Wähle ich dagegen meinen USB-Stick aus und klicke auf Entfernen, erscheint folgender Fehler:


    Kann es sein, dass du nicht die aktuelle Stable-Version hast? Die _ArraySearch-Funktion wurde nämlich verändert und hat jetzt einen Parameter mehr.

    Zitat von Raupi

    Auch nach deinen ganzen änderungen kommt diese Fehlermeldung :
    C:\Users\Michael\Desktop\rt.au3 (134) : ==> Subscript used with non-Array variable.:
    $tmp = _GetUSBCaption($pref[0])
    $tmp = _GetUSBCaption($pref^ ERROR


    Raupi, sicher dass If @error Then ExitLoop eingefügt ist? Denn in diesem Fall wird $pref[0] gar nicht zur Verarbeitung herangezogen.

    Edit: In Post 1 ist der Code (auch im Anhang) jetzt aktualisiert.

  • Manage USB-Drives per devcon.exe

    Achja, die gute (böse) alte Floppy.
    OK, Änderung wie folgt:

    Spoiler anzeigen
    [autoit]

    Func _GetRemovable()
    Local $reg, $tmp, $val, $pref, $aDrive[1][3]
    Local $var = DriveGetDrive( "REMOVABLE" )
    If Not @error Then
    For $i = 1 To UBound($var) -1
    $val = ''
    $reg = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", "\DosDevices\" & $var[$i])
    For $k = 1 To StringLen($reg) - 2 Step 2
    $tmp = _HexToString(StringMid($reg, $k, 2))
    If $tmp <> "" Then
    $val = $val & $tmp
    EndIf
    Next
    $pref = _StringBetween($val, 'Media#', '&RM#', 1)
    If @error Then ContinueLoop ; <========================= DIESE ZEILE EINFÜGEN !!!
    If $aDrive[UBound($aDrive)-1][0] <> '' Then ReDim $aDrive[UBound($aDrive)+1][3]
    $aDrive[UBound($aDrive)-1][0] = StringUpper($var[$i])
    $tmp = _GetUSBCaption($pref[0])
    $tmp = StringSplit($tmp, '|')
    $aDrive[UBound($aDrive)-1][1] = $tmp[1]
    $tmp = StringSplit($tmp[2], @LF)
    $aDrive[UBound($aDrive)-1][2] = $tmp[1]
    Next
    EndIf
    Return $aDrive
    EndFunc ;==>_GetRemovable

    [/autoit]


    Ich werde es gleich mal im ersten Post korrigieren.

  • Manage USB-Drives per devcon.exe

    Hmm, eigentlich wird beim Einstecken eines eines USB-Devices ein Registryeintrag in HKLM\SYSTEM\CurrentControlSet\Enum\USBSTOR\ erstellt (und nicht wieder entfernt), mit den Parametern des Devices.
    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.

    Probiert mal bitte mit dem WMI-Code von hier: [ gelöst ] USB-Hardware-ID auslesen
    Sollte bei eingestecktem Stick in etwa so etwas herauskommen:

    Code
    \\ComputerName\root\cimv2:Win32_PnPEntity.DeviceID="USBSTOR\\DISK&VEN_USB&PROD_FLASH_DISK&REV_V1.1\\907310000250&0"

    Wenn nicht... :wacko:

  • USB-Hardware-ID auslesen

    Hi,
    ich habe ein Skript zum USB-Drive managen erstellt (Manage USB-Drives per devcon.exe).
    Grundlegend gehe ich dabei so vor:
    - Removable Laufwerke ermitteln
    - aus Registry die Caption dieser Laufwerke ermitteln (nun hab ich Lw-Buchstabe und Name)
    - mit devcon.exe Caption und Hardware-ID der Instanz USB ermitteln
    - Lw-Buchstabe und Name mit Hardware-ID zusammenführen durch Abgleich des Namens
    Das klappt auch - bis auf den Fall, dass 2 Sticks desselben Herstellers im PC stecken. Die haben dann oft auch dieselbe Caption. 8|
    Somit wird auch die Hardware-ID nicht zuverlässig zugeordnet.
    Ich hab bis jetzt noch keine andere Möglichkeit entdeckt, die Hardware-ID direkt dem Lw-Buchstaben getreu auszulesen. Bin für jede Anregung dankbar. :rolleyes:

    OK - hat sich erledigt. Ich hatte mich mal wieder im Registry-Dschungel verirrt. :D
    Hab den Schlüssel gefunden. Nun kann ich das Skript deutlich vereinfachen.

  • Manage USB-Drives per devcon.exe

    Hi Alina,
    grrr.. Schönheitsfehler. Da hab ich die Variablendeklaration innerhalb der Funktion an die falsche Zeile gesetzt. Einfach die ersten beiden Zeilen der Funktion tauschen, dann sollte es klappen.

    Geänderte Version hochgeladen, dieser Fehler sollte damit auch behoben sein.

  • UDF selber erstellen - mit String möglich?

    Hi,
    hier mal ein Bsp. wie es einfacher geht, brauchst es für den Rest nur analog zu machen:

    Vorher
    [autoit]

    While 1 ; -> Linie 403
    Send("^c")
    $sMeldungsText1 = ClipGet()
    Send("{UP}")
    Send("^c")
    $sMeldungsText2 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText3 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText4 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText5 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText6 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText7 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText8 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText9 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText10 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText11 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText12 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText13 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText14 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText15 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText16 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText17 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText18 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText19 = ClipGet()
    Send("{UP }")
    Send("^c")
    $sMeldungsText20 = ClipGet()
    If $iniAusgangsPosition = 1 Then Send("{down 19}")
    BlockInput(0)
    Dim $avMeldungsText[20]
    $avMeldungsText[0] = $sMeldungsText1
    $avMeldungsText[1] = $sMeldungsText2
    $avMeldungsText[2] = $sMeldungsText3
    $avMeldungsText[3] = $sMeldungsText4
    $avMeldungsText[4] = $sMeldungsText5
    $avMeldungsText[5] = $sMeldungsText6
    $avMeldungsText[6] = $sMeldungsText7
    $avMeldungsText[7] = $sMeldungsText8
    $avMeldungsText[8] = $sMeldungsText9
    $avMeldungsText[9] = $sMeldungsText10
    $avMeldungsText[10] = $sMeldungsText11
    $avMeldungsText[11] = $sMeldungsText12
    $avMeldungsText[12] = $sMeldungsText13
    $avMeldungsText[13] = $sMeldungsText14
    $avMeldungsText[14] = $sMeldungsText15
    $avMeldungsText[15] = $sMeldungsText16
    $avMeldungsText[16] = $sMeldungsText17
    $avMeldungsText[17] = $sMeldungsText18
    $avMeldungsText[18] = $sMeldungsText19
    $avMeldungsText[19] = $sMeldungsText20

    [/autoit]
    Nachher
    [autoit]

    While 1 ; -> Linie 403
    Global $avMeldungsText[20]
    Send("^c")
    $avMeldungsText[0] = ClipGet()
    For $i = 1 To UBound($avMeldungsText) -1
    Send("{UP}")
    Send("^c")
    $avMeldungsText[$i] = ClipGet()
    Next

    [/autoit]

  • Manage USB-Drives per devcon.exe

    Hi,
    es wurde ja schon in einigen Threads auf das Tool devcon hingewiesen. Ich habe mal alle Beschreibungen zu den einzelnen Befehlen zusammengefaßt. Hier findet ihr die Syntaxbeschreibung.
    Nicht wundern, dass ein Scan recht lange dauert. Als Trigger verwende ich die durch die Hardwareerkennung gestartete rundll32.exe. Erst wenn diese beendet wurde, wird die Liste neu geschrieben.

    Edit: Habe die Zuordnung der Hardware-ID geändert. Nun ist gesichert, dass bei Sticks mit identischer Bezeichnung auch die ID zum Laufwerk stimmt.

    Edit: Da ich ständig am Laptop arbeite, war mir der Fehler mit der Floppy gar nicht bewußt geworden. :D
    Ich überprüfe im Registryeintrag auf $pref = _StringBetween($val, 'Media#', '&RM#', 1). Nur bei USB-Speichermedien ist dieser String in der Kennung enthalten. Jetzt habe ich dahinter eine Fehlerabfrage gesetzt mit ContinueLoop im Fehlerfall. Damit sollte eigentlich die Floppy keine Probleme mehr machen.
    Über weiteres Feedback bin ich natürlich erfreut. ;)

    Bsp. zum Managen von USB-Drives
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GuiListView.au3>
    #include <String.au3>
    #include <Constants.au3>
    #include <Array.au3>
    Opt('GUIOnEventMode', 1)
    Global $path_Devcon = @MyDocumentsDir & '\DOWNLOADS\TOOLS\Devcon\i386\devcon.exe' ; <<===== Pfad anpassen
    Global $aRemovable, $strRun

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

    $gui = GUICreate('Manage USB-Drive', 500, 120)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_ende')
    $hListView = GUICtrlCreateListView('Laufwerk|Bezeichnung', 10, 10, 350, 100)
    _GUICtrlListView_SetColumnWidth($hListView, 0, 60)
    _GUICtrlListView_SetColumnWidth($hListView, 1, $LVSCW_AUTOSIZE_USEHEADER )
    $btRemove = GUICtrlCreateButton('Entfernen', 380, 10, 100, 20)
    GUICtrlSetOnEvent(-1, '_entfernen')
    $btScan = GUICtrlCreateButton('Scan', 380, 40, 100, 20)
    GUICtrlSetOnEvent(-1, '_scan')

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

    GUISetState()
    _LVwrite()

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

    While 1
    Sleep(100)
    WEnd

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

    Func _ende()
    Exit
    EndFunc

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

    Func _setStat($disable=True)
    Local $stat = $GUI_ENABLE
    If $disable Then $stat = $GUI_DISABLE
    GUICtrlSetState($btRemove, $stat)
    GUICtrlSetState($btScan, $stat)
    EndFunc ;==>_setStat

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

    Func _RunDevcon($strRun)
    Local $data, $foo = Run("cmd.exe", @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    StdinWrite($foo, $strRun & @CRLF)
    StdinWrite($foo)
    While True
    $data &= StdoutRead($foo)
    If @error Then ExitLoop
    Sleep(25)
    WEnd
    Local $split = StringSplit($data, @LF)
    $data = ''
    For $i = 5 To $split[0]
    If StringStripWS($split[$i], 8) == '' Then ExitLoop
    $data &= $split[$i]
    Next
    Return $data
    EndFunc ;==>_RunDevcon

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

    Func _LVwrite()
    $aRemovable = _GetRemovable()
    If Not $aRemovable[0][0] Then Return
    For $i = 0 To UBound($aRemovable) -1
    GUICtrlCreateListViewItem($aRemovable[$i][0] & '|' & $aRemovable[$i][1], $hListView)
    Next
    EndFunc ;==>_LVwrite

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

    Func _entfernen()
    _setStat()
    Local $index = _GUICtrlListView_GetSelectedIndices($hListView)
    If $index = '' Then
    _setStat(False)
    Return
    EndIf
    Local $indRemove = _ArraySearch($aRemovable, _GUICtrlListView_GetItemText(GUICtrlGetHandle($hListView), $index, 1),0,0,0,0,1,1)
    _GUICtrlListView_DeleteAllItems($hListView)
    WinSetTitle($gui, '', 'Laufwerk wird entfernt..')
    _Remove($aRemovable[$indRemove][2])
    WinSetTitle($gui, '', 'Laufwerk wurde entfernt')
    _LVwrite()
    Sleep(500)
    WinSetTitle($gui, '', 'Manage USB-Drive')
    _setStat(False)
    EndFunc ;==>_entfernen

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

    Func _scan()
    _setStat()
    Local $count1 = 0, $count2 = 0, $list1 = ProcessList('rundll32.exe')
    If Not @error Then $count1 = $list1[0][0]
    _GUICtrlListView_DeleteAllItems($hListView)
    WinSetTitle($gui, '', 'Es wird gescannt..')
    $strRun = '"' & $path_Devcon & '" rescan'
    _RunDevcon($strRun)
    $list2 = ProcessList('rundll32.exe')
    If Not @error Then $count2 = $list2[0][0]
    If $count2 > $count1 And $count1 = 0 Then
    Do
    Sleep(50)
    Until Not ProcessExists($list2[1][0])
    ElseIf $count2 > $count1 Then
    For $i = 1 To UBound($list2) -1
    If _ArraySearch($list1, $list2[$i][0]) = -1 Then
    Do
    Sleep(50)
    Until Not ProcessExists($list2[$i][0])
    ExitLoop
    EndIf
    Next
    EndIf
    WinSetTitle($gui, '', 'Scan beendet')
    _LVwrite()
    Sleep(500)
    WinSetTitle($gui, '', 'Manage USB-Drive')
    _setStat(False)
    EndFunc ;==>_scan

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

    Func _Remove($ID)
    $strRun = '"' & $path_Devcon & '" remove ' & $ID
    _RunDevcon($strRun)
    EndFunc ;==>_Remove

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

    Func _GetRemovable()
    Local $reg, $tmp, $val, $pref, $aDrive[1][3]
    Local $var = DriveGetDrive( "REMOVABLE" )
    If Not @error Then
    For $i = 1 To UBound($var) -1
    $val = ''
    $reg = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", "\DosDevices\" & $var[$i])
    For $k = 1 To StringLen($reg) - 2 Step 2
    $tmp = _HexToString(StringMid($reg, $k, 2))
    If $tmp <> "" Then
    $val = $val & $tmp
    EndIf
    Next
    $pref = _StringBetween($val, 'Media#', '&RM#', 1)
    If @error Then ContinueLoop
    If $aDrive[UBound($aDrive)-1][0] <> '' Then ReDim $aDrive[UBound($aDrive)+1][3]
    $aDrive[UBound($aDrive)-1][0] = StringUpper($var[$i])
    $tmp = _GetUSBCaption($pref[0])
    $tmp = StringSplit($tmp, '|')
    $aDrive[UBound($aDrive)-1][1] = $tmp[1]
    $tmp = StringSplit($tmp[2], @LF)
    $aDrive[UBound($aDrive)-1][2] = $tmp[1]
    Next
    EndIf
    Return $aDrive
    EndFunc ;==>_GetRemovable

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

    Func _GetUSBCaption($strIDPrefix)
    Local $aUSB[1]=[0], $i = 0, $k, $var, $sub, $sRet
    While 1
    $i += 1
    $var = RegEnumKey('HKLM\SYSTEM\CurrentControlSet\Enum\USBSTOR', $i)
    If Not @error Then
    $k = 0
    While 1
    $k += 1
    $sub = RegEnumKey('HKLM\SYSTEM\CurrentControlSet\Enum\USBSTOR\' & $var, $k)
    If Not @error Then
    ReDim $aUSB[UBound($aUSB)+1]
    $aUSB[UBound($aUSB)-1] = $var & '\' & $sub
    Else
    ExitLoop
    EndIf
    WEnd
    Else
    ExitLoop
    EndIf
    WEnd
    For $i = 1 To UBound($aUSB) -1
    $var = RegRead('HKLM\SYSTEM\CurrentControlSet\Enum\USBSTOR\' & $aUSB[$i], 'ParentIdPrefix')
    If Not @error Then
    If $var = $strIDPrefix Then
    $sRet = RegRead('HKLM\SYSTEM\CurrentControlSet\Enum\USBSTOR\' & $aUSB[$i], 'FriendlyName')
    Return $sRet & '|' & RegRead('HKLM\SYSTEM\CurrentControlSet\Enum\USBSTOR\' & $aUSB[$i], 'HardwareID')
    EndIf
    EndIf
    Next
    EndFunc ;==>_GetUSBCaption

    [/autoit]
    einige Funktionsbsp.
    [autoit]

    #include <Constants.au3>

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

    Local $path_Devcon = @MyDocumentsDir & '\DOWNLOADS\TOOLS\Devcon\i386\devcon.exe' ; <<===== Pfad anpassen
    Local $strRun, $ID

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

    ; Name und Hardware-ID der Instance-ID USB ausgeben
    $strRun = '"' & $path_Devcon & '" hwids *USB*'
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)
    ; mögliche Ausgabe:
    ; USB\VID_13FE&PID_1D00\907310000250
    ; Name: USB-Massenspeichergerät
    ; Hardware ID's:
    ; USB\Vid_13fe&Pid_1d00&Rev_0110
    ; USB\Vid_13fe&Pid_1d00
    ; Compatible ID's:
    ; USB\Class_08&SubClass_06&Prot_50
    ; USB\Class_08&SubClass_06
    ; USB\Class_08

    ; Entfernen des USB-Massenspeichers mit der ID "USB\Vid_13fe&Pid_1d00&Rev_0110"
    #cs
    $ID = '"USB\Vid_13fe&Pid_1d00&Rev_0110"' ; <<------- ID in Anführungszeichen einfassen, sonst Fehler in Console
    $strRun = '"' & $path_Devcon & '" remove ' & $ID
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)
    #ce
    ; Scannen nach neu angeschlossener Hardware, z.B. wieder Aktivieren eines zuvor entfernten USB-Sticks
    $strRun = '"' & $path_Devcon & '" rescan'
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)

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

    ; alle PCI-Geräte auf dem Computer ausgeben
    $strRunRun = '"' & $path_Devcon & '" -m:\\' & @ComputerName & ' find pci\*'
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)

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

    ; Anzeigen aller bekannten Setupklassen
    $strRun = '"' & $path_Devcon & '" classes'
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)

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

    ; Anzeigen von Dateien, die jeweils mit den in der Setupklasse ports (Anschlüsse) enthaltenen
    ; Geräten verknüpft sind
    $strRun = '"' & $path_Devcon & '" driverfiles =ports'
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)

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

    ; Anzeigen der Geräteinstanzen aller Geräte , die auf dem lokalen Computer vorhanden sind.
    $strRun = '"' & $path_Devcon & '" find *'
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)

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

    ; Anzeigen aller "nicht vorhandenen" Geräte und vorhandenen Geräte der Klasse ports (Anschlüsse).
    ; Dies schließt auch Geräte ein, die entfernt wurden, Geräte die von einem Steckplatz zu einem anderen
    ; Steckplatz versetzt wurden, und möglicherweise auch Geräte, die aufgrund einer BIOS-Änderung anders
    ; aufgezählt wurden.
    $strRun = '"' & $path_Devcon & '" findall =ports'
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)

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

    ; Anzeigen aller vorhandenen Geräte aller angegebenen Klassen (in diesem Fall der Klassen "USB" und "1394").
    $strRun = '"' & $path_Devcon & '" listclass usb 1394'
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)

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

    ; Anzeigen der Ressourcen, die von den Geräten der Setupklasse USB verwendet werden.
    $strRun = '"' & $path_Devcon & '" resources =usb'
    ConsoleWrite(_RunDevcon($strRun) & @CRLF)

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

    Func _RunDevcon($strRun)
    Local $data, $foo = Run("cmd.exe", @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    StdinWrite($foo, $strRun & @CRLF)
    StdinWrite($foo)
    While True
    $data &= StdoutRead($foo)
    If @error Then ExitLoop
    Sleep(25)
    WEnd
    Local $split = StringSplit($data, @LF)
    $data = ''
    For $i = 5 To $split[0]
    If StringStripWS($split[$i], 8) == '' Then ExitLoop
    $data &= $split[$i]
    Next
    Return $data
    EndFunc

    [/autoit]

    DL bisher: 14

  • alle Items vom Treeview auflisten

    Hi Tweaky,
    wenn alles ausgeklappt ist und du möchtest die Werte aller Einträge lesen, arbeite mit _GetNext

    [autoit]

    Func _auslesen($hTreeView, $hItem)
    $hItem = _GUICtrlTreeView_GetFirstItem($hTreeView)
    ConsoleWrite("Erstes " & _GUICtrlTreeView_GetText($hTreeView, $hItem) & @CRLF)
    While True
    $hItem = _GUICtrlTreeView_GetNext($hTreeView, $hItem)
    If $hItem = 0 Then ExitLoop
    ConsoleWrite("Nächstes " & _GUICtrlTreeView_GetText($hTreeView, $hItem) & @CRLF)
    WEnd
    EndFunc

    [/autoit]

  • PrimA - der Primzahlengenerator

    Du kannst nochmals gewaltig beschleunigen, wenn du meine Funktion zum Primzahlcheck verwendest.
    Meine Funktion dient ursprünglich zur Primfaktorzerlegung - aber bei nur einem Primfaktor als Ergebnis ist dies somit automatisch auch eine Primzahl.
    Hier mal beide Funktionen im Vergleichstest:

    Spoiler anzeigen
    [autoit]

    Local $zahl, $start, $time, $sumFunc1 = 0, $sumFunc2 = 0
    For $i = 1 To 200
    ConsoleWrite($i & @TAB)
    $zahl = Random(10, 100000000, 1)
    ConsoleWrite($zahl & @CRLF)
    $start = TimerInit()
    ConsoleWrite('_primzahlcheck:' & @TAB & @TAB & _primzahlcheck($zahl) & @TAB)
    $time = TimerDiff($start)
    ConsoleWrite($time & @CRLF)
    $sumFunc1 += $time
    $start = TimerInit()
    ConsoleWrite('_GetPrimeFactors:' & @TAB & _GetPrimeFactors($zahl, True) & @TAB )
    $time = TimerDiff($start)
    ConsoleWrite($time & @CRLF)
    $sumFunc2 += $time
    Next
    ConsoleWrite(@CRLF & 'Durchscnitt Func _primzahlcheck:' & @TAB & $sumFunc1/200 & @CRLF)
    ConsoleWrite('Durchscnitt Func _GetPrimeFactors:' & @TAB & $sumFunc2/200 & @CRLF)

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

    Func _primzahlcheck($input_zahl)
    $teiler = 2
    $return = True
    While $teiler <= Sqrt($input_zahl)
    $rest = Mod($input_zahl,$teiler)
    If $rest = 0 Then
    $return = False
    EndIf
    $teiler = $teiler + 1
    WEnd
    Return $return
    EndFunc

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

    Func _GetPrimeFactors($n, $bPrime=False)
    Local $F = ObjCreate("System.Collections.ArrayList")
    While Mod($n,2) == 0
    If $bPrime Then Return False
    $F.add(2)
    $n = $n/2
    WEnd
    While Mod($n,3) == 0
    If $bPrime Then Return False
    $F.add(3)
    $n = $n/3
    WEnd
    Local $t = 5
    Local $diff = 2
    While $t*$t <= $n
    While Mod($n,$t) == 0
    If $bPrime Then Return False
    $F.add($t)
    $n = $n/$t
    WEnd
    $t = $t + $diff
    $diff = 6 - $diff
    WEnd
    If $n > 1 Then $F.add($n)
    If $bPrime Then
    If $F.Count > 1 Then
    Return False
    Else
    Return True
    EndIf
    EndIf
    Local $out = ''
    For $element In $F
    $out &= $element & ','
    Next
    Return StringTrimRight($out, 1)
    EndFunc

    [/autoit]


    Und das sind die Ergebnisse, meine Funktion ist im Durchschnitt 28-mal schneller als die von dir verwendete ;) :

    Spoiler anzeigen