1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Alina

Beiträge von Alina

  • 2 in 1

    • Alina
    • 11. April 2008 um 17:25

    Hallo zusammen.

    Also erst einmal das Gui:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    $Form1 = GUICreate("ZA & E1", 394, 569, 193, 125)
    $Label1 = GUICtrlCreateLabel("Label1", 8, 8, 36, 17)
    $Input1 = GUICtrlCreateInput("Input1", 56, 8, 329, 21)
    $Label2 = GUICtrlCreateLabel("Label2", 8, 32, 36, 17)
    $Input2 = GUICtrlCreateInput("Input2", 56, 32, 329, 21)
    $Label3 = GUICtrlCreateLabel("Label3", 8, 56, 36, 17)
    $Input3 = GUICtrlCreateInput("Input3", 56, 56, 329, 21)
    $okay = GUICtrlCreateButton("In die Zwischenablage und unten ins Feld einfügen", 8, 88, 377, 33, 0)
    $exit = GUICtrlCreateButton("Exit", 8, 128, 377, 33, 0)
    $Edit1 = GUICtrlCreateEdit("", 8, 168, 377, 393)
    GUICtrlSetData(-1, StringFormat("Hier steht schon ein Text !!!!\r\n\r\nHier soll der Text der Label 1 bis 3 untereinander rein !!!!\r\n\r\nHier steht auch wieder etwas !!!!"))
    GUISetState(@SW_SHOW)

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

    GUICtrlSetData(-1, "Edit1")
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $msg = $exit
    Exit
    Case $mag = $okay

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

    ; >>>>>>>>>>>>>>>>>> Was muß hier rein <<<<<<<<<<<<<<<<<<<<<<<

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

    EndSwitch
    WEnd

    [/autoit]

    So, das GUI sollte soweit richtig sein.

    Ich möchte, wenn ich auf den Button mit der Aufschrift "In die Zwischenablage und unten ins Feld einfügen" klicke (Buttonvaribale: $okay) , das dann die Eingaben aus Label1, Label 2 und Label 3 in die Zwischenablage kopiert wird und gleichzeitig in das Feld von $Edit1 da wo beim Beispiel-GUI der Text dazu steht.

    Nun frage ich mich, ob Ihr mein Problem versteht und mir helfen könnt.

    Grüzi, servus und moin-moin.

    L I N A

  • Weiß keine Überschrift ;)

    • Alina
    • 11. April 2008 um 17:11

    Hier mal paar Begriffe, die wenn Ihr sie richtig anwendet, lustige sein könnten.
    Also auswendig lernen und beim nächsten mal mit 0,8 Prom. anwenden. MEGA-LOL

    Was meint man, wenn man sagt, der/die ist aber richtig flittig?
    Nein, nicht das diese Person "läufig" ist, nein es bedeutet "emsig". Kommt
    aus dem dänischen.

    Jeder kennt das Wort "and", aber was ist eine "and"?
    übersetzt engl. -> deutsch: und
    übersetzt dän. -> deutsch: Ente (Tier)

    Eines habe ich noch. Nicht jedes "Send" sendet auch.
    übersetzt engl. -> deutsch: senden
    übersetzt dän. ->deutsch: spät (Sie erscheint spät)

    Okay, das letzte Wort ist: "by"
    übersetzt engl. -> deutsch: Tschüß, Auf Wiedersehen, ...
    übersetzt dän. ->deutsch: Stadt im Sinne der deutschen Ortsschilder und nicht der grün/gelben Ortsschilder in Deutschland, wo ich noch immer nicht weiß, wie schnell ich da fahren darf. Aber die fahren da alle durchschnittlich 80 / 90 Kmh, also fahre ich da immer 85 Kmh. Aber Strafgelder sind in Deutschland eh günstiger. 10 Kmh zu stell sind in Deutschland EURO 10,- bis 15,- in Dänemark DK 350,- bis 700,- (EURO 50,- bis 100,-). Aber würde mich mal interessieren, was genau dieses Ortschild bedeutet fach Fahrschulunterlagen. Eigentlich könnte ich im Büro nachfragen, aber wie peinlich ist das? Andererseits, wenn man nach Deutschland rein fährt ist diese Geschwindigkeitsbegrenzung nicht ausgeschildert, wie die anderen Geschwindigkeitsbegrenzungen.

    In Deutschland ist das Schild mit den spielenden Kindern ein Hinweisschild, in Dänemark bedeutet dieses Schild außerhalb von geschlossenen Ortschaften , das hier die maximale Fahrgeschwindigkeit von 35 kmh nicht überschritten werden darf und das im ausgeschilderten Bereich der Schule / des Kindergartens maximal Schrittgeschwindigkeit (20 Kmh) zugelassen sind.

    Wenn ich mir so die deutschen Verkehrszeichen anschauen, dann weiß ich nicht, warum es so viele sein müssen. Okay, wenn andere bei uns in DK sind, dann fehlen vielen Menschen die Verkehrsschilder.

    Da fällt mir gerade etwas ein. Es gibt doch ein "Lexikon der sächsischen Sprache", damit man die Sachsen versteht. Aber gibt es dieses auch für Bayrisch oder Plattdeutsch? Sind irgendwie lustige Dialekte. War ja vor paar Wochen kurz vor Nürnburg, gerade von der BAB-A7 runter gewesen. Da bin ich auch ein Tag in Passau gewesen und fragte da an einer kleinen Tankstelle nach dem Neubaugebiet. Ich mußte immer wieder nachfragen und der hat bestimmt mit der doppelten Geschwindigkeit geredet, ich wie es verstanden habe. 8|

    Naja, wenn jemand weiß wo man es bekommt, BITTE laßt mich nicht dumm sterben. ;)

    So,, das reicht, seit einer Stunde möchte ich hier eigentlich mein Problem / meine Frage posten und was ist??? Lina hat schon wieder anderes im Kopf. Zuhause mal nicht konzentrieren? Ja, das ist auch mal was. Einfach mal den Kopf leer bekommen und ....


    LG, Lina. :thumbup:

  • Unterschied

    • Alina
    • 11. April 2008 um 16:21

    Hallo zusammen.

    Kann mir einer erklären wo bei diesen beiden Angaben der Unterschied ist. Ich weiß es ist der Backspace, aber wann benutzt man was und .... ! Irgendwie brauche ich da einfach etwas Infos.

    1.) "\test.exe"
    2.) "test.exe"

    Wo kann ich nun nachlesen, welches dir richtige Anwendungsart ist? Okay, ausprobieren ist eine Sache, aber es sollte dafür doch was geben, das man sich in eine Gehirnschublade packt und dann weiß, wann man welche Version anwendet. Oder?

    Und bevor ich es vergesse: Have a nicht weekend ;)

    Lina

  • Dateien zusammenbetten

    • Alina
    • 9. April 2008 um 08:26

    Hallo pauLee.

    Also wenn Du eine Datei mit dem Namen "muster.txt" genau da haben möchtest, wo Dein Script ist nutzt Du es so:

    FileInstall("\muster.txt", @ScriptDir)


    Wenn es nicht mehr benötigt wird bzw. Du es wieder entfernen möchtest (es bleibt aber in der Exe-Datei drinne) nutzt Du:

    FileDelete("\muster.txt", @ScriptDir).

    Aber vorsichtig. löscht Du die Datei zu früh, wird es Probleme geben. Ich selber mache es so, das ich das FileDelete zwar immer gleich mit einbaue, aber mit einem ";" erst deaktiviere und wenn das ganze Script auch als Exe-Datei läuft, dann aktiviere ich die FileDelete.

    Einen sonnigen MIttwoch wünscht,

    L I N A.

  • Ordner in Laufwerk suchen...

    • Alina
    • 9. April 2008 um 08:17

    Hallo Oscar.

    Am frühen MORGEN ein DANK !!!

    Jetzt verstehe ich Dein Script und kann es auch einbauen.

    Merci und LG,

    L I N A

  • Ordner in Laufwerk suchen...

    • Alina
    • 8. April 2008 um 08:20

    Hallo Oscar.

    Also von der Idee her super, aber das einbauen in mein Script (siehe Post Gestern, 20:04) bekomme ich noch nicht hin.
    Aber ich speichere es mir dennoch ab.

    LG und schönen Dienstag. Bei mir toben jetzt die Handwerker.

    L I N A

  • Ordner in Laufwerk suchen...

    • Alina
    • 7. April 2008 um 23:30

    Oscar .

    Also das muß ich mir jetzt mal ausdrucken und auf dem Sofa im wahrsten "Sinnde" durch den Kopf gehen lassen. ;)

    Nein, probiere ich morgen mal aus es in das Script einzuarbeiten.

    Irgendwie war ich die ganze Zeit am herumversuchen, wie man das mit FileSelectFolder lösen könnte, aber bin auf nichts gekommen.

    So, Drucker an, ausdrucken, PC aus und ab noch 30 Minuten aufs Sofa, bevor es denn zum nächtlichen, siebenstündigen Horizontaltraining geht.

    LG, Lina

  • Ordner in Laufwerk suchen...

    • Alina
    • 7. April 2008 um 21:13

    Ui, habe es so gemacht:

    Spoiler anzeigen
    [autoit]

    Const $B3 = FileSelectFolder("Laufwerk aussuchen. Laufwerk heißt nicht Ordner. ;) ", "") ;"C:\" ; Laufwerk wo installiert wird

    [/autoit]


    So umgehe ich die Überlegung, ob man auch Ordner auswählen darf. Es soll ja der Laufwerksbuchstabe ausgewählt werden und ab da soll in meinem Fall gesucht werden.

    Danke BugFix.

    LG, L I N A.

  • Ordner in Laufwerk suchen...

    • Alina
    • 7. April 2008 um 20:54

    Bug? Wie bau ich das richtig ein? Das würde ja gleich einige andere Probleme lösen, die ich noch so offen habe. Habe einige Projekte zur Seite geschoben, weil ich diese Möglichkeit immer gesucht habe.

    LG, Lina.

  • ControlClick bei Websites?

    • Alina
    • 7. April 2008 um 20:51

    @fabs.

    Um was für eine Seite geht es, die Du aufrufst? Wenn man nicht weiß, welche Seite es ist, könnte es evtl. schweeeeeeerrrrrr werden zu helfen.
    Aber Du kannst zum Beispiel mit dem Seitentitel arbeiten. Wenn Du z. B. https://autoit.de/www.rsh.de aufrufst, dann steht im Fenstertitel: R.SH - Mehr Hits, mehr Abwechslung, mehr Schleswig-Holstein. Ich komme gerade nicht drauf, aber ich meine das Du ein Mausklick erst ausführen lassen könntest, wenn das Fenster mit diesem Fenstertitel im absoluten Vordergrund ist. Man, ich komm einfach nicht da rauf, dabei habe ich es doch gerade erst irgendwie verwendet. Man ich bin überarbeitet. LOL

    Ist das WinActive in Zusammenhang mit WinGetTitle?

    Schau mal in der Doku unter den Funktionen. Mehr kann ich nicht helfen, da ich auch noch am lernen bin und öfters Hilfe benötige. Aber vllt. hilft es Dir ja.

    LG, Lina.

  • Der Unwissende Neue

    • Alina
    • 7. April 2008 um 20:29

    Willkommen.

    Ja, die SuFu ist schon was feines und seit ich bei AutoIt bin, macht es mehr sinn sich mit dem zu beschäftigen, was hinter Programmen und Scripte steckt und man (ich) versuche daraus immer wieder was zu lernen.

    Ja, wenn man hier nett und höflich seine Fragen und Probleme stellt, bekommt man Hilfe so gut wie alle zusammen können. Ui, das ist mehr Wissen als mal speichern kann, aber hier ist geballtes Wissen im Forum. Ich bin echt gerne hier. Mein Problem ist die Problemdarstellung, weil ich es beruflich eigentlich gewöhnt bin "nach System Texte zu verfassen" und nicht so wie man denkt. Oftmals sollte ich mir angewöhnen so zu posten, wie ich denke, aber sogar das wird hier liebevoll akzeptiert.

    Also, sein WILLKOMMEN !

    Lina

  • Ordner in Laufwerk suchen...

    • Alina
    • 7. April 2008 um 20:04

    Hallo zusammen.

    Ui, da habe ich doch noch eine Frage zu diesem Script:

    Spoiler anzeigen
    [autoit]


    #include <array.au3>
    $StartPfad = "C:\"
    $SuchOrdner = "gepacktdat"
    $application = @ScriptDir&"\gepackt.exe"
    Global $Daten = _GetFileList($StartPfad, "n",1) ; erzeugt Array mit allen Ordnernamen
    Global $ret = _ArraySearch($Daten, $SuchOrdner,1,0,0,True) ; durchsucht nach Ordner
    If $ret > 0 Then
    FileCopy($StartPfad & $application, $Daten[$ret] & $application, 1) ; EXE in gefundenen Ordner kopieren
    Run($Daten[$ret] & $application)
    Else
    MsgBox(0, 'Fehler', 'Ordner nicht vorhanden')
    EndIf

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

    Func _GetFileList($T_DIR,$T_MASK,$DIR_ONLY=0)
    Dim $N_DIRNAMES[200000] ; max number of directories that can be scanned
    Local $N_DIRCOUNT = 0
    Local $N_FILE
    Local $N_SEARCH
    Local $N_TFILE
    Local $N_OFILE
    Local $T_FILENAMES
    Local $T_FILECOUNT
    Local $T_DIRCOUNT = 1
    Local $FILEMASK
    ; check Filemask \ for empty File-Array by GetDirOnly
    If $FILEMASK = "n" Then $FILEMASK = "*.no"
    ; remove the end \ If specified
    If StringRight($T_DIR,1) = "\" Then $T_DIR = StringTrimRight($T_DIR,1)
    $N_DIRNAMES[$T_DIRCOUNT] = $T_DIR
    ; Exit if base dir doesn't exists
    If Not FileExists($T_DIR) Then Return 0
    ; keep on looping until all directories are scanned
    While $T_DIRCOUNT > $N_DIRCOUNT
    $N_DIRCOUNT = $N_DIRCOUNT + 1
    ; find all subdirs in this directory and save them in a array
    $N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\*.*")
    While 1
    $N_FILE = FileFindNextFile($N_SEARCH)
    If @error Then ExitLoop
    ; skip these references
    If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
    $N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
    ; if Directory than add to the list of directories to be processed
    If StringInStr(FileGetAttrib( $N_TFILE ),"D") > 0 Or _
    StringInStr(FileGetAttrib( $N_TFILE ),"D,H,S") > 0 Then
    $T_DIRCOUNT = $T_DIRCOUNT + 1
    $N_DIRNAMES[$T_DIRCOUNT] = $N_TFILE
    EndIf
    Wend
    FileClose($N_SEARCH) ; find all Files that mtach the MASK
    $N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\" & $T_MASK )
    If $N_SEARCH = -1 Then ContinueLoop
    While 1
    $N_FILE = FileFindNextFile($N_SEARCH)
    If @error Then ExitLoop
    ; skip these references
    If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
    $N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
    ; if Directory than add to the list of directories to be processed
    If StringInStr(FileGetAttrib( $N_TFILE ),"D") = 0 Or _
    StringInStr(FileGetAttrib( $N_TFILE ),"D,H,S") = 0 Then
    $T_FILENAMES = $T_FILENAMES & $N_TFILE & @CR
    $T_FILECOUNT = $T_FILECOUNT + 1
    ;MsgBox(0,'filecount ' & $T_FILECOUNT ,$N_TFILE)
    EndIf
    Wend
    FileClose($N_SEARCH)
    Wend
    If $DIR_ONLY = 0 Then
    $T_FILENAMES = StringTrimRight($T_FILENAMES,1)
    $N_OFILE = StringSplit($T_FILENAMES,@CR)
    Return( $N_OFILE )
    Else
    ReDim $N_DIRNAMES[$N_DIRCOUNT+1]
    $N_DIRNAMES[0] = $N_DIRCOUNT
    Return $N_DIRNAMES
    EndIf
    EndFunc ;==>_GetFileList

    [/autoit]

    Im Script heißt es: $StartPfad = "C:\" und beschränkt somit die Suche auf HDD-C. Was muß ich wie ändern, damit es auch für HDD-D, HDD-E und HDD-F Gültigkeit hat.
    Hatte überlegt es für jedes Laufwerk als eine einzelne Datei zu machen, aber da gibt es doch sicherlich eine bessere Lösung, oder?

    LG, L I N A.

  • Copyright?

    • Alina
    • 6. April 2008 um 18:56

    Hallo.

    Also ich kann Dir nur raten, dich an einen Anwalt zu wenden, der sich genau auf solche Sachen spezialisiert hat.

    Wenn Deine Angaben nachweislich sind, dann muß er seine Seite in der Form vom Netz nehmen. Hier kann der Rechtsanwalt eine für ihn kostenpflichtige UE (nterlassungserklärung) dem anderen zustellen. Es ist aber wichtig, das Du klar nachweisen kannst, das es Dein Eigentum (geistiges Eigentum?) ist und ich möchte hier keine Möglichkeit darstellen, wie Du es nachweisen könntest. Sonst nutzen andere diese Art noch dazu, sich dann illegal Daten zu besorgen. Die Möglichkeit die ich kenne ist auch von den Nutzungsbedingungen / AGB's des Forum abhängig.

    Wenn Du dich an einen Rechtsanwalt wendest, der sich auf solche Sache spezialisiert hat, wird auch er eine Möglichkeit kennen. Ich bin mir da sehr sicher, das es in Deutschland ausreichend Fachanwälte gibt, die helfen können.

    Ich frage mich auch, wie man ein "Service" anbieten kann, wo man Preise vorschlagen sollte, aber dann kein Impressum klar von der Grundseite ersichtlich. Hier würde ich drauf achten, bevor ich zum Rechtsanwalt gehe. Frage Dich, wo Deine Fehler sein könnten und was z. B. in ein Impressum muß, findest du auf guten Rechtsanwaltseiten. Wenn externe Links sind, sich von diesen distanzieren, usw..

    So, dann mal viel Erfolg und wenn Fragen diesbezüglich sind, bitte PM.

    Die, L I N A .

  • Warten

    • Alina
    • 5. April 2008 um 21:33

    Ich sage allen rechtherzlichen DANK.

    @ bernd670: ist mit der richtigen Lsg., der "Angel of the day" bzw. für die Saarländer unter uns "Les anges du jour" und für unsere Chinesen " 天使的一天 " .

    Man und das wo nun die Rotweinflasche fast leer ist.

    LG, Lina.

  • Warten

    • Alina
    • 5. April 2008 um 20:57

    geht auch nicht. Und ich gehe jetzt eine Falsche Wein leeren ! :cursing:

    LG Euch allen !!!

    Lina.

  • Warten

    • Alina
    • 5. April 2008 um 20:48

    Negativ Bernd. Auch hier wartet er nicht.

  • Warten

    • Alina
    • 5. April 2008 um 20:37

    Hallo Ihr beiden.

    @ Bernd670: Auch das läuft das Script weiter

    @ Xenobiologist: Und wie mache ich es, das es an der Stelle wartet das das Fenster geschlossen wird. Mgast es mir sagen?

    LG, Lina.

  • Warten

    • Alina
    • 5. April 2008 um 20:24

    Hallo.

    Also so sieht es bis dato aus und nach der Zeile 42 ( Run($dir & $C5) ) soll er warten, bis das Fenster zu ist. Aber er möchte das einfach nicht !!!

    Warum nicht?

    LG, Lina.


    Spoiler anzeigen
    [autoit]


    ; Variable
    Const $A1 = "Bilder installieren."

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

    Const $B2 = "Installiere die Bilder."
    Const $B3 = "C:\"
    Const $B4 = "nomap.jpg"

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

    Const $C5 = "\setup.exe"
    Const $C6 = "\*.*"
    Const $C7 = "\7z.dll"
    Const $C8 = "7z.exe"

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

    Const $D1 = "Setup wird ausgeführt, bitte etwas GEDULD."
    Const $D2 = "setup.exe"

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

    Const $E1 = "Jetzt mußt Du nur noch dem entpacken zustimmen."
    Const $E2 = "OKAY ???"
    Const $E3 = 1000

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

    SplashTextOn($A1, $B2,400,20,-1,-1,1)
    Sleep($E3)
    SplashOff()
    $filelist = _FileListToArrayEx($B3,$B4)
    If Not IsArray($filelist) Then
    If MsgBox(20,"Error",$B4) = 7 Then Exit ;Bei nein wird beenden
    Else
    $dir = StringLeft($filelist[1],StringInStr($filelist[1],"\",-1,-1))
    FileCopy(@ScriptDir & $C5,$dir&$C6)
    FileCopy(@ScriptDir & $C7,$dir&$C6)
    FileCopy(@ScriptDir & $C8,$dir&$C6)

    EndIf

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

    ;===============================================================================
    ; Installation
    ;===============================================================================
    SplashTextOn($A1, $D1,400,20,-1,-1,1)
    Sleep($E3)
    SplashOff()

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

    Run($dir & $C5)
    ProcessWaitClose($C5)

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

    ;===============================================================================
    ; Die Dateien löschen, wenn Script fehlerfrei läuft
    ;===============================================================================
    ;FileDelete($dir & $C5)
    ;FileDelete($dir & $C7)
    ;FileDelete($dir & $C8)
    ;FileDelete(@ScriptDir & $C5)

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

    ;===============================================================================
    ; Hinweis und ein OKAY ????
    ;===============================================================================
    SplashTextOn($A1, $E1,300,20,-1,-1,1)
    Sleep($E3)
    SplashOff()

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

    SplashTextOn($A1, $E2,400,20,-1,-1,1)
    Sleep($E3)
    SplashOff()

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



    ;===================
    ; SuchArray erstellen
    ;===================

    Func _FileListToArrayEx($sPath, $sFilter = '*.*', $iFlag = 0, $sExclude = '', $iRecurse = True)
    If Not FileExists($sPath) Then Return SetError(1, 1, '')
    If $sFilter = -1 Or $sFilter = Default Then $sFilter = '*.*'
    If $iFlag = -1 Or $iFlag = Default Then $iFlag = 0
    If $sExclude = -1 Or $sExclude = Default Then $sExclude = ''
    Local $aBadChar[6] = ['\', '/', ':', '>', '<', '|']
    $sFilter = StringRegExpReplace($sFilter, '\s*;\s*', ';')
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    For $iCC = 0 To 5
    If StringInStr($sFilter, $aBadChar[$iCC]) Or _
    StringInStr($sExclude, $aBadChar[$iCC]) Then Return SetError(2, 2, '')
    Next
    If StringStripWS($sFilter, 8) = '' Then Return SetError(2, 2, '')
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, '')
    Local $oFSO = ObjCreate("Scripting.FileSystemObject"), $sTFolder
    $sTFolder = $oFSO.GetSpecialFolder (2)
    Local $hOutFile = @TempDir & $oFSO.GetTempName
    If Not StringInStr($sFilter, ';') Then $sFilter &= ';'
    Local $aSplit = StringSplit(StringStripWS($sFilter, 8), ';'), $sRead, $sHoldSplit
    For $iCC = 1 To $aSplit[0]
    If StringStripWS($aSplit[$iCC], 8) = '' Then ContinueLoop
    If StringLeft($aSplit[$iCC], 1) = '.' And UBound(StringSplit($aSplit[$iCC], '.')) - 2 = 1 Then $aSplit[$iCC] = '*' & $aSplit[$iCC]
    $sHoldSplit &= '"' & $sPath & $aSplit[$iCC] & '" '
    Next
    $sHoldSplit = StringTrimRight($sHoldSplit, 1)
    If $iRecurse Then
    RunWait(@ComSpec & ' /c dir /b /s /a ' & $sHoldSplit & ' > "' & $hOutFile & '"', '', @SW_HIDE)
    Else
    RunWait(@ComSpec & ' /c dir /b /a ' & $sHoldSplit & ' /o-e /od > "' & $hOutFile & '"', '', @SW_HIDE)
    EndIf
    $sRead &= FileRead($hOutFile)
    If Not FileExists($hOutFile) Then Return SetError(4, 4, '')
    FileDelete($hOutFile)
    If StringStripWS($sRead, 8) = '' Then SetError(4, 4, '')
    Local $aFSplit = StringSplit(StringTrimRight(StringStripCR($sRead), 1), @LF)
    Local $sHold
    For $iCC = 1 To $aFSplit[0]
    If $sExclude And StringLeft($aFSplit[$iCC], _
    StringLen(StringReplace($sExclude, '*', ''))) = StringReplace($sExclude, '*', '') Then ContinueLoop
    Switch $iFlag
    Case 0
    If StringLeft($aFSplit[$iCC], StringLen($sPath)) <> $sPath Then
    $sHold &= $sPath & $aFSplit[$iCC] & Chr(1)
    Else
    $sHold &= $aFSplit[$iCC] & Chr(1)
    EndIf
    Case 1
    If StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') Then ContinueLoop
    If StringLeft($aFSplit[$iCC], StringLen($sPath)) <> $sPath Then
    $sHold &= $sPath & $aFSplit[$iCC] & Chr(1)
    Else
    $sHold &= $aFSplit[$iCC] & Chr(1)
    EndIf
    Case 2
    If Not StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') Then ContinueLoop
    If StringLeft($aFSplit[$iCC], StringLen($sPath)) <> $sPath Then
    $sHold &= $sPath & $aFSplit[$iCC] & Chr(1)
    Else
    $sHold &= $aFSplit[$iCC] & Chr(1)
    EndIf
    EndSwitch
    Next
    If StringTrimRight($sHold, 1) Then Return StringSplit(StringTrimRight($sHold, 1), Chr(1))
    Return SetError(4, 4, '')
    EndFunc ;==>_FileListToArrayEx

    [/autoit]
  • Warten

    • Alina
    • 5. April 2008 um 19:40

    Hallo.

    Ich möchte, das ein Script erst weiter arbeitet, wenn das Fenster mit "Self extracting ZIP File" geschlossen wurde.

    Folgendes habe ich probiert, aber erfolglos:
    - WinWaitNotActive("Self extracting ZIP File")
    - ProcessWaitClose("setup.exe")

    LG, Lina.

  • entpacken

    • Alina
    • 5. April 2008 um 18:51

    Danke,
    Lösung war: Run('7z x zusammengepackt.zip' & ' -o' & @ScriptDir).

    Aber Dein Ansatz hat mir sehr geholfen.

    LG, Lina.

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™