Beiträge von Tweaky

  • AcdSee Statusleiste auslesen

    Hi,
    ich will von ACDSee Pro 2.5 die Statusleiste auslesen.
    Leider bekomme ich keinen Text ausgelesen.

    Habe es z. B. so schon probiert

    [autoit]

    $handle = WinGetHandle("ACDSee Pro 2.5","Eigenschaften - Spezialformat")
    $dateiname = ControlGetText($handle, "Eigenschaften - Spezialformat",59393)

    [/autoit]

    oder so

    [autoit]

    $handle = WinGetHandle("ACDSee Pro 2.5","Eigenschaften - Spezialformat")
    $dateiname = StatusbarGetText("ACDSee Pro 2.5", "Eigenschaften - Spezialformat","BCGPStatusBar:400000:8:10011:101")

    [/autoit]

    leider ohne Erfolg.

    Habe Bilder vom Infotool als rar angehängt.
    Hoffe ihr könnt mir helfen :rolleyes:

  • Stand

    Hi,
    habs mir natürlich auch mal angesehen.
    - Bei der Übersichtsseite der Tutorial fehlt ein Link zu den regulären Ausdrücken
    - Tutorial - Notepad ist bereits übersetzt, jedoch in der Hilfe noch in Englisch
    - Tutorial - Winzip ist bereits übersetzt, jedoch in der Hilfe noch in Englisch
    - Schlüsselwortreferenz Übersichtsseite oberster Satz noch in Englisch
    - Funktionsreferenz Übersichtsseite oberster Satz noch in Englisch
    - Bei der Übersichtsseite des Anhangs fehlen teilweise Links zu den Unterordners
    - Nutzerdefinierte Funktionen Übersichtsseite oberster Satz noch in Englisch

    Rest dürfte passen :thumbup:

  • DVD-Brenner Laufwerksbuchstabe ändern

    Hm,
    glaube es klappt einigermassen.
    Wobei es recht lange braucht bis der Buchstabe zugewiesen wird.

    Ist eigentlich die ID die mit _FindGUID ermittelt wird dem Brenner zugeordnet oder wird die variabel vergeben?
    Ich habe es auch schon gehabt, dass bei DVD-Brenner die Buchstaben wechselten.
    Dann sollte Brenner 1 auf X und Brenner 2 auf Z.
    Ist das auch möglich :rolleyes:

    EDIT:
    habs mal so probiert.
    Ich habe beide Buchstaben entfernt.
    Aber leider wird (meistens) nur ein Buchstabe geändert

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>

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

    $tool_titel = "Laufwerk"

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

    $autostart_wert = "nein"
    ;Tool in den Autostart schreiben oder aus dem Autostart löschen
    $autostart_schluessel = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
    If $autostart_wert = "ja" Then
    RegWrite($autostart_schluessel, $tool_titel, "REG_SZ", @ScriptFullPath)
    Else
    RegDelete($autostart_schluessel, $tool_titel)
    EndIf

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

    Local $Data_soll[2][2] = [['x:', '\\?\Volume{8f4890ee-c54f-11dd-b048-806d6172696f}'],['z:', '\\?\Volume{8f4890ef-c54f-11dd-b048-806d6172696f}']]

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

    $Optical = DriveGetDrive('CDROM')

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

    If $Optical <> "" Then
    Local $Data_ist[$Optical[0]][2]
    For $i = 0 To $Optical[0] - 1
    $Data_ist[$i][0] = $Optical[$i + 1]
    $Data_ist[$i][1] = _FindGUID($Data_ist[$i][0])
    Next
    ;~ _ArrayDisplay($Data_ist)
    ;~ _ArrayDisplay($Data_soll)
    ;~ _ArrayDisplay($Optical)
    Else
    Dim $Data_ist[1][1]
    EndIf

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

    If UBound($Data_soll) - 1 < UBound($Data_ist) - 1 Then
    $ende = UBound($Data_soll) - 1
    Else
    $ende = UBound($Data_ist) - 1
    EndIf

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

    For $i = 0 To $ende
    If $Data_soll[$i][0] <> $Data_ist[$i][0] Or $Data_soll[$i][1] <> $Data_ist[$i][1] Then
    $ungleich = 1
    ExitLoop
    Else
    $ungleich = 0
    EndIf
    Next

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

    If $ungleich = 1 Then
    For $i = 0 To UBound($Data_soll, 1) - 1
    ConsoleWrite($Data_soll[$i][0] & " " & $Data_soll[$i][1] & @CRLF)

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

    If $i <= UBound($Data_ist) - 1 Then
    $s_cmd = "mountvol " & $Data_ist[$i][0] & " /D"
    RunWait(@ComSpec & " /c " & $s_cmd, "", @SW_HIDE)
    EndIf

    $s_cmd = "mountvol " & $Data_soll[$i][0] & " " & $Data_soll[$i][1]
    RunWait(@ComSpec & " /c " & $s_cmd, "", @SW_HIDE)
    Next
    Else
    MsgBox(0, "", "Laufwerke OK")
    EndIf

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

    Func _FindGUID($Drive)
    Local Const $DevList = 'HKLM\SYSTEM\MountedDevices'
    Local $i = 0
    Do
    If RegRead($DevList, '\DosDevices\' & $Drive) = RegRead($DevList, RegEnumVal($DevList, $i)) Then
    Return StringReplace(RegEnumVal($DevList, $i), '\??\', '\\?\', 1)
    EndIf
    $i += 1
    Until 0
    EndFunc ;==>_FindGUID

    [/autoit]

  • DVD-Brenner Laufwerksbuchstabe ändern

    Hi,
    nein geht leider auch nicht :(
    Es könnte statt G: auf T:, ... usw. sein.

    Man müsste abfragen auf welchem Buchstaben sich der DVD-Brenner befindet (mit der ID) , diesen Buchstaben freigibt und dann den neuen Buchstaben (x) mit dem DVD-Brenner setzen.
    Also ich dies probiert habe, hatte der DVD-Brenner gar keinen Buchstaben mehr :thumbdown:

  • DVD-Brenner Laufwerksbuchstabe ändern

    Hi funkey,
    danke nun habe ich es besser verstanden, aber es will noch nicht so ganz.

    Es ist folgendes:
    Standard:
    X DVD-Brenner 1 ID: 123
    Z DVD-Brenner 2 ID: 456

    Wenn ich nun eine Festplatte dazuschalte sieht es so aus
    G DVD-Brenner 1 ID: 789 (kann auch ein anderer Buchstabe sein)
    Z DVD-Brenner 2 ID: 456

    Wenn ich nun das Skript ausführen sagt er mir, dass er das Laufwerk nicht finden kann.
    Wenn ich das Laufwerk manuell auf G: zuweise ist die IDE des DVD-Brenner 123 und das Script klappt.

    Kannst du mir weiterhelfen, stehe irgendwie auf dem Schlauch :whistling:

  • DVD-Brenner Laufwerksbuchstabe ändern

    Hi,
    nach längerere erfolgloser Suche muß ich doch einen Thread aufmachen.
    2 Kollegen und ich haben das Problem, dass bei unserem PC manchmal der Laufwerksbuchstabe des ersten DVD-Brenners verändert wird.
    Dies nervt X(

    Wie kann ich mit AutoIt genau für diesen Brenner ohne Neustart (wir haben 2 identische verbaut) den Laufwerksbuchstaben ändern?

    Hoffe ihr könnt mir helfen
    Danke ;)

  • Netzwerkkarte deaktivieren - über Devcon und Gerätemanager klappts nicht

    Hallo,
    ich will für meinen PC (Mainboard Asus P5Q Deluxe) die Netzwerkkarte deaktivieren.

    Dies hat ich mich Devcon erledigt.

    Jedoch wird durch ausführen des folgenden Scripts auch der eSATA Port deaktiviert ?(

    Spoiler anzeigen
    [autoit]

    #include <eigen_version.au3>
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Res_Description=Netzwerkkarte auflisten
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_Language=1031
    #AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
    #AutoIt3Wrapper_Res_Field=Autor|Tweaky
    #AutoIt3Wrapper_Icon=zusatz\Icon.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #NoTrayIcon

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

    ;------------------------------------------------------------------------------------------------------------------------------------
    ;Durch dieses Tool können entweder:
    ; alle Netzwerkkarten aufgelistet werden oder
    ; eine bestimmte Netzwerkkarte deaktiviert werden oder
    ; eine bestimmte Netzwerkkarte aktiviert werden
    ;------------------------------------------------------------------------------------------------------------------------------------

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

    ;Deklarierung für _skriptinfos()
    Dim $tool_version, $tool_titel

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

    ;Tooltitel und Toolversion
    _skriptinfos()

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

    ;temporärer Ordner für die eingebundenen Dateien
    $temp_dir = @TempDir & "\" & StringStripWS($tool_titel, 8)
    DirCreate($temp_dir)
    $file_devcon = $temp_dir & "\" & "Devcon.exe"

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

    ;genauer Pfad zu den Icons, Grafiken, Sounds, ... die direkt in die exe eingebunden werden sollen
    FileInstall("zusatz\devcon.exe", $file_devcon, 1)

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

    $txt_datei_dateiname = "alle_Netzwerkkarten.txt"
    $txt_datei_tmp = "C:\" & $txt_datei_dateiname
    $txt_datei_ori = @ScriptDir & "\" & $txt_datei_dateiname

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

    $netzwerkkarte_id = "PCI\VEN_11AB"

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

    ;~ RunWait(@ComSpec & " /c " & $file_devcon & ' findall =net' & '> ' & $txt_datei_tmp, "", @SW_HIDE) ;alle Netzwerkkarten auflisten (in txt-Datei)
    RunWait(@ComSpec & " /c " & $file_devcon & ' disable ' & $netzwerkkarte_id, "", @SW_HIDE) ; 1 Netzwerkkarte deaktivieren
    ;~ RunWait(@ComSpec & " /c " & $file_devcon & ' enable ' & $netzwerkkarte_id, "", @SW_HIDE) ; 1 Netzwerkkarte aktivieren

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

    FileMove($txt_datei_tmp, $txt_datei_ori, 1)
    DirRemove($temp_dir, 1)

    [/autoit]

    Die Netzwerkkarte ist von Marvell 88E8056
    Der eSATA Controller ebenfalls (88SE6121)
    Jedoch kann er im Bios getrennt aktiviert bzw. deaktiviert werden.

    Dies ist die Liste mit allen Netzwerksachen meines PCs (erstellt mit devcon finall=net)

    Spoiler anzeigen

    PCI\VEN_11AB&DEV_4364&SUBSYS_81F81043&REV_12\4&20515DB1&0&00E5: Marvell Yukon 88E8056 PCI-E Gigabit Ethernet Controller
    ROOT\KL_KLIM5MP\0000 : Marvell Yukon 88E8056 PCI-E Gigabit Ethernet Controller - Kaspersky Anti-Virus NDIS Miniport
    ROOT\KL_KLIM5MP\0001 : WAN-Miniport (IP) - Kaspersky Anti-Virus NDIS Miniport
    ROOT\MS_L2TPMINIPORT\0000 : WAN-Miniport (L2TP)
    ROOT\MS_NDISWANIP\0000 : WAN-Miniport (IP)
    ROOT\MS_PPPOEMINIPORT\0000 : WAN-Miniport (PPPOE)
    ROOT\MS_PPTPMINIPORT\0000 : WAN-Miniport (PPTP)
    ROOT\MS_PSCHEDMP\0000 : WAN-Miniport (IP) - Paketplaner-Miniport
    ROOT\MS_PSCHEDMP\0001 : Marvell Yukon 88E8056 PCI-E Gigabit Ethernet Controller - Paketplaner-Miniport
    ROOT\MS_PTIMINIPORT\0000 : Parallelanschluss (direkt)
    SW\{EEAB7790-C514-11D1-B42B-00805FC1270E}\ASYNCMAC : Asynchroner RAS-Adapter
    V1394\NIC1394\14CC4041E8C00 : 1394-Netzwerkadapter
    12 matching device(s) found.

    Warum wird beides deaktiviert???

  • Happy Birthday, AutoIt.de

    Auch von mir alles Gute,
    hoffe das Board wird noch sehr sehr lange in der jetzigen Art und Weise existieren.
    AutoIt wäre längst nicht so verständlich ohne das Board.
    Und der Spaß ginge sehr schnell verloren, wenn man keine Möglichkeit hätte jemanden anderen zu fragen.

    Hoffe es bleibt so :thumbup: