Beiträge von Greenhorn

  • Viewer für Word, Excel, Powerpoint und Visio

    Warum so kompliziert ...? :rolleyes:

    WordViewer 2003, ExcelViewer 2003:
    WDVIEWER.EXE oder xlviewer.exe mit WinRAR oder 7-zip entpacken und dann Setup.exe /Q[S]
    S = Schalter ;0 = Exit wird angezeigt 1 = Setupfenster wird angezeigt T = Alle Setupfenster werden versteckt

    Nur /Q ist bestens. =)

    PowerPointViewer 2007:
    PowerPointViewer.exe /quiet ;)

    PowerPointViewer 2003, VisioViewer 2003:
    ppviewr.exe entpacken und dann PPVIEWR.MSI /qn
    vviewer.msi /qn /m vviewer ACCEPTEULA=1 ASSOCIATE=1

    VisioViewer 2007:
    visioviewer.exe /quiet


    Du kannst die entpackten Dateien dann wieder mit WinRAR oder halt 7-zip wieder als SFX packen und den Setup-Befehl mit dem Silent-Schalter als Option nach dem entpacken wählen ...


    Gruß
    Greenhorn

    p.s.: Einfach mal die *.exe mit *.exe /? aufrufen, meistens bekommst Du den Silent-Schalter auf diese weise heraus... ;)

  • StringRegExp (...mal wieder)

    Moin,

    ich krieg's einfach nicht in die Birne ... :comp2:

    Also, ich möchte aus folgender Zeile

    PHP
    <option value="490" selected>10.08.07::Dan Bland, Coldcut</option>


    das hier

    Code
    10.08.07::Dan Bland, Coldcut


    extrahieren, aber es klappt einfach nicht, egal wie ich es drehe und wende.
    Die "490" sind variabel !!!

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.4.9
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

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

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

    dim $szSource
    Dim $arSource
    Dim $c = 1
    Dim $szLine

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

    $arSource = StringSplit(_INetGetSource('http://www.ninjatune.net/solidsteel/playlist.php?play=1'), @CRLF)

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

    for $i = 1 To $arSource[0]
    ; Geht nicht !
    ; If StringRegExp($arSource[$i], '(?i:DK, Zeep)') Then
    ; $szLine &= StringRegExpReplace($arSource[$i], '.*\d*\>|</option>', '') & '|'
    ; EndIf
    ; Geht nicht !
    ; If StringRegExp($arSource[$i], '(?i:DK, Zeep)') Then
    ; $szLine &= StringRegExpReplace($arSource[$i], '<option value="\d*\">|</option>', '') & '|'
    ; EndIf
    ; Geht ...
    If StringInStr($arSource[$i], 'span class="listcol"') Then
    $szSource &= StringRegExpReplace($arSource[$i], '(?i).*\">|</span>', '') & '|'
    EndIf
    Next

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

    $arSource = StringSplit($szSource, '|')

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

    For $i = 1 To $arSource[0]
    Switch $c
    Case 1
    $szLine &= $arSource[$i] & ' - '
    $c += 1
    Case 2
    $szLine &= $arSource[$i] & ' ('
    $c += 1
    Case 3
    $szLine &= $arSource[$i] & ')|'
    $c = 1
    EndSwitch
    Next

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

    $arSource = StringSplit($szLine, '|')
    _ArrayDisplay($arSource)

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

    ;_FileWriteFromArray('Playlist.txt', $arSource, 1)

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

    :irre:


    Gruß
    Greenhorn

  • U3-Stick

    Hmmm, Du möchtest ein Programm 'portablen' ?!?

    Warum brauchst Du dann die S/N vom Stick ??? ?(

    Beim U3 Stick werden im Explorer auch zwei Laufwerke angezeigt:
    Eines als CD Laufwerk und eines als Wechselmedium.


    Gruß
    Greenhorn

  • Kontextmenüeintrag in mehrfacher Form

    Hi,

    1.)
    Für Dateien und Ordner ...

    [autoit]

    RegWrite('HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\Test', '', 'REG_SZ', 'Klick mich ...')
    RegWrite('HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\Test\command', '', 'REG_SZ', '%SystemSystem%\cmd.exe %1')

    [/autoit]

    Für Ordner: HKEY_CLASSES_ROOT\Directory\shell\ ...

    Für Dateien: HKEY_CLASSES_ROOT\*\shell\ ...

    2.)
    Gehe in den Ordner ->

    C:\Dokumente und Einstellungen\Administrator\SendTo

    oder

    Start -> Ausführen -> sendto -> Enter

    Dort erstellst Du eine Verknüpfung zu deinem Proggie -> Fertig ist die Laube !

    Den Rest wirst Du schon hinkriegen, denke ich ... :rolleyes:


    Gruß
    Greenhorn

  • Problem mit dem Run-Befehl

    Zitat

    Original von jjnoobish66
    Ist ja unglaublich hast recht über cmd passiert das gleiche - wie dähmlich, zumal das .exe doch hinten steht....

    Windows braucht in der Kommandoebene zum starten einer (ausführbaren) Datei keine Dateiendung.
    D.h., dass ich z.B. Thunderbird mit der Eingabe 'thunderbird' oder 'thunderbird.exe' starten kann.
    Wenn ich jetzt nun z.B. ResHacker so starte: 'reshacker anyapp.exe', dann wird 'anyapp.exe' mit reshacker geöffnet.
    In deinem Fall versucht nun die 'Thunderbird.exe' die Datei '1.5.0.exe' zu öffnen ! 8o

    Tip: Bei ausführbaren Dateien sollte man Leerzeichen grunsätzlich vermeiden ! ;)

    Tatsächlich wirst Du auch nur sehr selten auf eine EXE, DLL oder COM Datei treffen die Leerzeichen enthält ! 8o
    Benutze lieber _ oder - als Trennung.


    Gruß
    Greenhorn

  • Ordner in Laufwerk suchen...

    Funktioniert 1a, Bernd !!! =)

    Jetzt muss mir jemand nur noch eines Erklären:
    Warum wird bei der Version von AspirinJunkie nur der Inhalt vom letzten Bildschirm der Konsole durchsucht, bzw. angezeigt und bei Bernd's Version nicht ?!? ?(

    Die Grundfunktion ist doch die gleiche, also mit Run -> While -> Return $var...

    Und das mit den Leerzeichen im Pfad..., also wenn ich in der Konsole als Startverzeichnis einen Ordner mit Zahlen angebe (z.B. dir C:\Ordner 5 /a:d /b /s), dann kommt: Datei nicht gefunden.
    Wenn ich als Startverzeicnis z.B. E:\AutoIt Projekte angebe ebenso.

    Spoiler anzeigen

    [Blockierte Grafik: http://xs217.xs.to/xs217/07282/cmd.png]


    Gruß
    Greenhorn

  • Ordner in Laufwerk suchen...

    Mir ist aufgefallen, dass bei der DIR-Methode der Pfad keine Leerzeichen entalten darf ! 8o

    Wenn man Leerzeichen im Pfad hat werden Ordner angezeigt, die den einen oder anderen Namen enthalten ! (...und manchmal auch andere Ordner)


    Gruß

  • Ordner in Laufwerk suchen...

    AspirinJunkie

    Dein letztes Skript musste ich ein wenig umschreiben, damit es funktioniert.
    Du hast aus versehen die Variable $Search in den Run Befehl unter WorkingDirectory gesetzt... ;)

    So funzt es hervorragend :

    Spoiler anzeigen
    [autoit]

    Func _DirSearch($Pfad, $Suche)
    Local $Text, $Found


    $PID = Run(@ComSpec & " /c DIR " & $Pfad & " /S /A:D /B", '', @SW_HIDE, $STDOUT_CHILD)

    While 1
    $Text = StdoutRead($PID)
    If @error Then ExitLoop
    If StringInStr($Text, $Suche) Then $Found &= $Text
    WEnd

    $Found = StringSplit(StringStripCR(StringTrimRight($Found, 1)), @LF)

    If $Found[0] = 1 And $Found[1] = '' Then SetError(1)
    Return $Found

    EndFunc ;==>_DirSearch

    [/autoit]

    Vielen Dank aneuch alle ! =)


    Gruß
    Greenhorn

  • wie kann ich eine dateiendung meinem programm zuweisen?

    z.B.:

    [autoit]

    ; Kontextmenü 'In Ordner kopieren' und ' In Ordner verschieben' hinzufügen.

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

    RegWrite('HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\In Ordner kopieren', _
    '', 'REG_SZ', '{C2FBB630-2971-11D1-A18C-00C04FD75D13}')
    RegWrite('HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\In Ordner verschieben', _
    '', 'REG_SZ', '{C2FBB631-2971-11D1-A18C-00C04FD75D13}')

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

    ; Kontextmenü 'In Ordner kopieren' und ' In Ordner verschieben' entfernen.

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

    ;RegDelete('HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\In Ordner kopieren')
    ;RegDelete('HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\In Ordner verschieben')

    [/autoit]

    ergibt das hier:

    Spoiler anzeigen

    [Blockierte Grafik: http://xs117.xs.to/xs117/07270/Kontext.png]


    Gruß
    Greenhorn

  • Ordner in Laufwerk suchen...

    Als erstes möchte ich mich für das rege Interesse an diesem Thema bedanken,ihr seid die Besten !!! :)
    Hätte nicht gedacht, das das Thema soviel Beachtung findet. 8o

    Sorry, wenn ich mich heute Morgen etwas ungenau ausgedrückt habe, war übermüdet... ;)

    Also, das Skript soll eine EXE in einem Ordner ausführen, als Launcher sozusagen.
    Das ganze befindet sich auf einem USB Stick.
    EXE- und Ordnername sind bekannt.

    Mein Ziel ist es nun zu erreichen, dass der Launcher und der Ordner an verschiedenen Orten liegen können, da ja jeder seine Launcher und Programmordner woanders hat.

    Das ganze könnte ich jetzt natürlich über eine INI steuern, aber mich hat gestern Nacht/heute Morgen beschäftigt, ob es nicht auch so gehen könnte, und wenn ja mit welcher Zeitverzögerung ich durch das Suchen rechnen muss.
    Daher habe ich die Suche auch auf den Ordner beschränkt, um die Suchzeit zu verkürzen...

    Heute Morgen, kurz vor'm Einschlafen, fiel mir dann noch _FileListToArray ein !
    Damit könnte man auch eine Suchmaschine basteln...

    Ich werde nachher die Skripte von euch austesten und mich dann wieder melden. (muss jetzt kurz zur Tanke, Kühlschrank ist leer...)


    Gruß
    Greenhorn
    P.S.: Ist schon komisch, mir ist irgendwie aufgefallen, dass man mit AutoIt alles mögliche an Dateifunktionen hat, bei Ordnern sieht's da schon anders aus...

  • Ordner in Laufwerk suchen...

    Hallihallo,

    ich möchte gern einen bestimmten Ordner auf dem Laufwerk finden, auf dem auch das Skript ist...

    Wie stelle ich das an ?
    Bei FileFindFirstFile brauche ich ja den genauen Pfad zur Datei.
    Ich möchte aber einen Ordner 'Wanted' suchen.

    Jemand 'ne Idee ?


    Gruß
    Greenhorn

  • StringRegExp Kudelmuddel

    Moin,

    ich weiss, das Thema wurde schon oft abgehandelt, aber leider habe ich mit der Suchfunktion auch keine Lösung gefunden...

    Ich habe Probleme mit dem definieren von Gruppen, Sets usw.

    Also, wie schon hier einmal besprochen wurde, möchte ich von einem Pfad nur den Dateinamen ohne Endung herausfiltern.
    Ich weiss, das geht auch mit StringSplit, aber ich denke es müsste auch mit RegExp gehen, oder ?

    Ich bin jetzt so vorgegangen...

    $FileName = StringRegExp(SourceTracks[1], '\\.*\.', 1)

    Nun bekomme ich aber den String vom ersten Backslash bis zum Punkt zurück !

    Wie kann ich das nun auf den Daeinamen eingrenzen ?


    Gruß
    Greenhorn

  • Avira AntiVir Personal Edition 7 Classic

    Moin,

    ist für die Freeversion von AntiVir 7.

    getestet mit version 7.0.0.

    Spoiler anzeigen
    [autoit]


    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\..\..\..\AutoIt Projekte\Icons\setup.ico
    #AutoIt3Wrapper_outfile=Setup.exe
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.4.9
    Author: Greenhorn

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

    Script Function:
    Avira AntiVir PersonalEdition v7 Classic - Installationsskript.

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

    #ce ----------------------------------------------------------------------------
    Opt('WinTitleMatchMode', 2)
    $Title = 'Avira AntiVir PersonalEdition Classic'

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

    Run(@ScriptDir & '\basic\setup.exe')
    WinWait($Title)
    WinSetTrans($Title, '', 180)
    Sleep(200)
    ControlClick($Title, '', '&Weiter >')
    Sleep(200)
    ControlClick($Title, '', '&Weiter >')
    Sleep(200)
    ControlClick($Title, '', 'Ich &akzeptiere die Bedingungen der Lizenzvereinbarung.')
    Sleep(200)
    ControlClick($Title, '', '&Weiter >')
    Sleep(200)
    ControlClick($Title, '', 'Button1') ; Bestätigung der Privatnutzung.
    Sleep(500)
    ControlClick($Title, '', '&Weiter >')
    Sleep(200)
    ControlClick($Title, '', '&Weiter >')
    Sleep(200)
    ControlClick($Title, '', '&Weiter >')
    Sleep(200)
    WinWait($Title, 'Die Installation von Avira AntiVir PersonalEdition Classic wurde erfolgreich beendet.')
    ControlClick($Title, '', 'Button1') ; Read_me.txt nicht anzeigen.
    Sleep(500)
    ControlClick($Title, '', 'Fertig stellen')
    Sleep(200)
    WinWait('Setup von Avira AntiVir PersonalEdition Classic')
    WinSetTrans('Setup von Avira AntiVir PersonalEdition Classic', '', 180)
    Sleep(200)
    ControlClick('Setup von Avira AntiVir PersonalEdition Classic', '', '&Nein') ; Nach Updates suchen. (optional = &Ja)
    WinWait('Luke Filewalker') ; Virencheck beginnt.
    WinSetTrans('Luke Filewalker', '', 180)
    Sleep(200)
    ControlClick('Luke Filewalker', '', '&Stop') ; Virencheck stoppen. (optional = ;Zeile auskommentieren)
    Sleep(3000)
    ;WinWait('Luke Filewalker', 'Suchlauf beendet') ; Warten bis Virencheck beendet ist.
    ControlClick('Luke Filewalker', '', '&Beenden')
    WinClose('Luke Filewalker')
    Exit

    [/autoit]


    Gruß
    Greenhorn