Beiträge von Lenny

  • Brauche Idee für mein Erstes Projekt

    Hi!

    So müsste es gehen:

    Spoiler anzeigen
    [autoit]


    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop

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

    Select
    Case $msg = $id_button1
    $befehl = InputBox("Befehl", "Wie lautet der Befehl?")
    $befehl2 = InputBox("Befehlbeschreibung", "Wie lautet die Befehlbeschreibung? Der Befehl beschreibt...")
    IniWrite(@ScriptDir & "\Befehle.ini", "Befehle", $befehl, $befehl2)
    $befehl3 = IniRead(@ScriptDir & "\sleep.ini", "Beschreibung", $befehl, $befehl2)
    MsgBox(4096, $befehl, $befehl3)

    Case $msg = $id_button2
    $suche = InputBox("Suche", "Geben sie den Befehl an den sie suchen!")
    $var = IniRead(@ScriptDir & "\Befehle.ini", "Befehle", $suche, "Nichts gefunden")
    MsgBox(4096, "Suchergebnis", $var)
    EndSelect
    WEnd

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

    Lg,

    Lenny

    Edit: Etwas vertauscht -> Jetzt richtig

  • Kleiner Donwloader

    Hallo ihr lieben.

    Ich habe mir heute den Nachmittag damit vertrieben einen kleinen Donwload zu basteln.

    Ich würde mich sehr über Feedback freuen, aber hier ersteinmal der SourceCode:

    Spoiler anzeigen
    [autoit]


    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=Dler.ico
    #AutoIt3Wrapper_Res_Comment=The Coderz Downloader
    #AutoIt3Wrapper_Res_Description=Downloads a given Link.
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=The-Coderz
    #AutoIt3Wrapper_Res_Language=1031
    #AutoIt3Wrapper_Res_File_Add=C:\Dokumente und Einstellungen\xxx\Eigene Dateien\Coderz\Downloader\Coderz DL.jpg
    #Obfuscator_Parameters=/striponly
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>

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

    $DlSpeed = ""

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

    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\xxx\eigene dateien\coderz\downloader\form1.kxf
    $Gui1 = GUICreate("C0derz Downloader", 400, 202, 286, 235, BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS))
    GUISetBkColor(0xFFFFFF)
    $Pic1 = GUICtrlCreatePic("coderzdl.jpg", 0, 0, 400, 60, BitOR($SS_NOTIFY, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS), $GUI_WS_EX_PARENTDRAG)
    $Input1 = GUICtrlCreateInput("Url der Datei", 10, 72, 380, 21)
    $Pic2 = GUICtrlCreatePic("button1.jpg", 10, 160, 123, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    $Pic3 = GUICtrlCreatePic("button1.jpg", 138, 160, 123, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    $Pic4 = GUICtrlCreatePic("button1.jpg", 267, 160, 123, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    $Label1 = GUICtrlCreateLabel("Warten auf Download", 10, 128, 380, 17, $SS_CENTER)
    $Progress1 = GUICtrlCreateProgress(10, 104, 380, 17)
    $LabelPos1 = ControlGetPos($Gui1, "", $Pic2)
    $LabelPos2 = ControlGetPos($Gui1, "", $Pic3)
    $LabelPos3 = ControlGetPos($Gui1, "", $Pic4)
    $ButtonLabel1 = GUICtrlCreateLabel("Download", $LabelPos1[0] + 6, $LabelPos1[1] + 8, 111, 17, $SS_CENTER)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $ButtonLabel2 = GUICtrlCreateLabel("Über", $LabelPos2[0] + 6, $LabelPos2[1] + 8, 111, 17, $SS_CENTER)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $ButtonLabel3 = GUICtrlCreateLabel("Beenden", $LabelPos3[0] + 6, $LabelPos3[1] + 8, 111, 17, $SS_CENTER)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic2
    GUICtrlSetData($Label1, "Vorbereiten...")
    GUICtrlSetImage($Pic2,"button2.jpg")
    Do
    Sleep(1)
    Until Not _IsPressed(01)
    GUICtrlSetImage($Pic2,"button1.jpg")
    $DlUrl = GUICtrlRead($Input1)
    If StringInStr($DlUrl, "http") = 0 And StringInStr($DlUrl, "www") = 0 Then
    GUICtrlSetData($Label1, "Ungültiger Link")
    Else
    $DlSize = InetGetSize($DlUrl)
    $DlSizeProg = $DlSize / 100
    $DlSizeMb = $DlSize / 1048576
    $DlNameSplit = StringSplit($DlUrl, "/")
    $DlError = @error
    $DlName = $DlNameSplit[$DlNameSplit[0]]
    $DlExte = StringRegExp($DlName, ".*(\..*)", 1)
    If $DlExte = "" Then
    If StringLen($DlName) >= 14 Then
    $DlNameShort = StringTrimRight($DlName, StringLen($DlName) - 9) & "*"
    Else
    $DlNameShort = $DlName
    EndIf
    Else
    If StringLen($DlName) >= 14 Then
    $DlNameShort = StringTrimRight($DlName, StringLen($DlName) - 9) & "*" & $DlExte[0]
    Else
    $DlNameShort = $DlName
    EndIf
    EndIf
    If $DlError = 1 Then
    _Download($DlName & ".html")
    Else
    _Download($DlName)
    EndIf
    EndIf
    Case $Pic3
    GUICtrlSetImage($Pic3,"button2.jpg")
    Do
    Sleep(1)
    Until Not _IsPressed(01)
    GUICtrlSetImage($Pic3, "button1.jpg")
    _about()
    Case $Pic4
    GUICtrlSetImage($Pic4, "button2.jpg")
    Do
    Sleep(1)
    Until Not _IsPressed(01)
    GUICtrlSetImage($Pic4, @TempDir & "\button1.jpg")
    Exit
    EndSwitch
    WEnd

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

    Func _Download($DlName)
    $DlDownl = InetGet($DlUrl, @DesktopDir & "\" & $DlName, 0, 1)
    If @error Then
    GUICtrlSetData($Label1, "Es ist ein Fehler aufgetreten.")
    Else
    $DlTimer = TimerInit()
    While @InetGetActive
    $LoFileSize = @InetGetBytesRead
    GUICtrlSetData($Label1, $DlNameShort & " " & Round($LoFileSize / 1048576, 2) & "MB/" & Round($DlSizeMb, 2) & "MB mit " & Round($DlSpeed, 0) & " KByte/s")
    GUICtrlSetData($Progress1, $LoFileSize / $DlSizeProg)
    Sleep(1000)
    $DlSpeed = (@InetGetBytesRead - $LoFileSize) / 1024
    WEnd
    GUICtrlSetData($Label1, "Download Abgeschlossen! Zeit: " & Round(TimerDiff($DlTimer) / 60000, 2))
    If $DlDownl = 0 Or $DlError = 1 Then
    GUICtrlSetData($Label1, "Es ist ein Fehler aufgetreten.")
    EndIf
    EndIf
    EndFunc ;==>_Download

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

    Func _about()
    $Form1 = GUICreate("Form1", 224, 283, 216, 142, BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS))
    GUISetBkColor(0xFFFFFF)
    $Label1a = GUICtrlCreateLabel("The C0derz Downloader 1.0 01. Jan (2009)", 8, 8, 208, 17)
    $Label2 = GUICtrlCreateLabel("Der Donwloader darf ausschließlich von:", 8, 32, 195, 17)
    $Label3 = GUICtrlCreateLabel("***", 48, 56, 127, 17)
    GUICtrlSetColor(-1, 0x0000FF)
    $Label4 = GUICtrlCreateLabel("heruntergeladen werden.", 48, 80, 122, 17)
    $Label5 = GUICtrlCreateLabel("Er darf nicht kommerziell vertrieben werden", 8, 104, 206, 17)
    $Label6 = GUICtrlCreateLabel("Bugs bitte auf ", 8, 128, 72, 17)
    $Label7 = GUICtrlCreateLabel("melden", 72, 152, 38, 17)
    $Label8 = GUICtrlCreateLabel("***", 48, 176, 105, 17)
    $Button1a = GUICtrlCreateButton("Schließen", 64, 208, 75, 25, 0)
    $Label9 = GUICtrlCreateLabel("***", 32, 256, 127, 17)
    GUICtrlSetColor(-1, 0x0000FF)
    $Label10 = GUICtrlCreateLabel("***", 80, 128, 127, 17)
    GUICtrlSetColor(-1, 0x0000FF)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1a
    GUISetState(@SW_HIDE, $Form1)
    ExitLoop
    Case $Label3
    Case $Label9
    Case $Label10
    EndSwitch
    WEnd
    EndFunc ;==>_about

    [/autoit]

    Da steht zwar "by coderz" aber ich habe ihn schon noch alleine gemacht.

    Ich hoffe ich habe jetzt keine Fehler gemacht (Original Version installiert er die Bilchen in den Temp dir und löscht sie später).

    Vllt kann ihn jemand auch noch weiter verwenden :)

    Screenshot:

    Spoiler anzeigen


    [Blockierte Grafik: http://ulyf.bplaced.net/upload/e7d2cf7f94568da27a59a76d90fbc247Downloader.JPG]
    [Blockierte Grafik: http://ulyf.bplaced.net/upload/d1bd702dccd4cc6093f1da300b7ddd67Downloader1.bmp]


    Die Bilder habe ich herangehängt!

    Lg,

    Lenny

  • StringInStr Und ">" Oder "<"

    Hi^^

    Ich habe da schooon wieder ein Problem:

    Ich habe eine Internet Seite, von der ich den Quelltext auslese; wir nehmen mal folgenden Abschnitt:

    Code
    <div class="formFieldDesc">
				<p>383/400</p>
			</div>

    Das Script sieht kurz und knackig ca. so aus:

    [autoit]


    Case $Button1
    If StringInStr($Quelltext,"<p>ZAHLGRÖßER ODER GLEICH VIERHUNDERT/400</p>") <> 0 ThenMsgbox(0,"","Die Zahl ist höher")

    [/autoit]

    Nur wie kann ich das StringInStr sagen, das er nach einem String gucken soll (<p>X/400</p>) Wo das X größer ist als 399?

    Also im Sinne von

    StringInStr($Quelltext,"<p>"&$AlleZahlen>399&"/400</p>")

    Nur wie kann ich das verwirklichen ?

    Vielen Dank im Vorraus,

    Lg,

    Lenny

    Edit1: Ich würde ja die Zahl dort heraus Splitten... aber das ganze muss extrem schnell gehen, da sich der Quelltext 2 Sekundenweise ändert!

  • Der Mülltonnen Thread

    Hi. Ich habe gedacht ich eröffne mal den Mültonnen Thread.

    Hier könnte man vllt Projekte Post, die zwar schon funktions Fähig sind, aber halt noch nicht komplett. Oder wenn ihr fast fertig seit und einfach keine Zeit oderso habt.


    Ich fang gleich mal an:

    Ich wollte ein Script machen, das eine Setup.exe erstellt.

    Zuvor werden natürlich die Dateien usw. Hinzugefügt ....

    Aber ich komme nicht weiter und ich denke die Probleme (AutoIt Abstürze ab 1000 Dateien) usw können nur schwer oder warschienlich garnicht behoben werden.

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>

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

    FileInstall("Installer Logo.jpg", @TempDir & "\Installer Logo.jpg")
    FileInstall("Installer.au3", @TempDir & "\Installer.au3")
    FileInstall("Installation GUI.au3", @TempDir & "\Installation GUI.au3")

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

    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\lenny\eigene dateien\wichtig install creater.kxf
    $Installation = GUICreate("Installation Script Creater.", 474, 372, 193, 134, -1, 0x00000018)
    GUISetBkColor(0xFFFFFF)
    $Label1 = GUICtrlCreateLabel("Fügen sie die Dateien über Drag and Drop hinzu, oder benutzen sie den *Hinzufügen* Button.", 8, 8, 445, 17, -1)
    $Edit1 = GUICtrlCreateEdit("", 8, 40, 329, 321, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $ES_READONLY, $WS_VSCROLL, $WS_HSCROLL))
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button1 = GUICtrlCreateButton("Datei Hizufügen", 352, 40, 107, 25, 0)
    $Button2 = GUICtrlCreateButton("Löschen", 352, 120, 107, 25, 0)
    $Button3 = GUICtrlCreateButton("Ordner Hizufügen", 352, 80, 107, 25, 0)
    $Button5 = GUICtrlCreateButton("Struktur Anzeigen", 352, 160, 107, 25, 0)
    $Button4 = GUICtrlCreateButton("Weiter", 352, 328, 105, 33, 0)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    Func _gui2()
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\install creater _ Options.kxf
    Global $InstallationOpt = GUICreate("Installation Script Creater.", 474, 374, 193, 134)
    GUISetBkColor(0xFFFFFF)
    Global $Label1a = GUICtrlCreateLabel("Stellen sie die übrigen Optionen ein:", 16, 8, 217, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    Global $Button2a = GUICtrlCreateButton("Durchsuchen", 352, 272, 107, 25, 0)
    Global $Button4a = GUICtrlCreateButton("Installationsprogramm erstellen!", 16, 328, 441, 33, 0)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    Global $Label2a = GUICtrlCreateLabel("Titel des Installations Programms:", 16, 56, 160, 17)
    Global $Input3a = GUICtrlCreateInput("", 16, 80, 313, 21)
    Global $Label3a = GUICtrlCreateLabel("AGB des Installations Programms:", 16, 120, 162, 17)
    Global $Input2a = GUICtrlCreateInput("", 16, 144, 313, 21)
    Global $Label4a = GUICtrlCreateLabel("Hersteller:", 16, 184, 51, 17)
    Global $Input1a = GUICtrlCreateInput("", 16, 208, 313, 21)
    Global $Label5a = GUICtrlCreateLabel("[Icon]", 16, 272, 31, 17)
    Global $Input4a = GUICtrlCreateInput("", 72, 272, 257, 21)
    Global $Button1a = GUICtrlCreateButton("Durchsuchen", 352, 144, 107, 25, 0)
    GUISetState(@SW_SHOW)

    While 2
    $Msg = GUIGetMsg()
    Switch $Msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1a
    $hAgb = FileOpenDialog("AGB", @WorkingDir, "TXT Dateien (*.txt)")
    GUICtrlSetData($Input2a, $hAgb)
    GUICtrlSetState($Input2a, $GUI_DISABLE)
    Case $Button2a
    $hIco = FileOpenDialog("ICONs 32x32", @WorkingDir, "Ico Dateien (*.ico)")
    GUICtrlSetData($Input4a, $hIco)
    GUICtrlSetState($Input4a, $GUI_DISABLE)
    Case $Button4a
    _FileWriteToLine(@TempDir & "\Installer.au3", 8, 'FileInstall("' & GUICtrlRead($Input2a) & '",@Tempdir & "\agb.txt")')
    $lInOp = FileOpen(@TempDir & "\Installer.au3", 1)
    $hInstaller = StringSplit($hFiles, @CRLF, 1)
    $2count = $hInstaller[0]

    For $i = 1 To $2count - 1
    If FileGetAttrib($hInstaller[$i]) = "D" Then
    $StartPfad = $hInstaller[$i]
    $FileTyp = '*'

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

    $aFiles = _GetFilesFolder_Rekursiv($StartPfad, $FileTyp, 0)
    $fileonserver = @UserName & '_' & @MIN & '.txt'

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

    For $i = 1 To $aFiles[0] - 1
    FileWriteLine($lInOp, 'FileInstall("' & $aFiles[$i] & '",$Input1 )')
    If @error Then ExitLoop
    Next
    EndIf
    FileWriteLine($lInOp, 'FileInstall("' & $hInstaller[$i] & '",$Input1 )')

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

    Next
    FileWriteLine($lInOp, 'Endif' & @CRLF & 'Endfunc')
    FileClose($lInOp)
    Sleep(1000)
    EndSwitch

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

    WEnd

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

    EndFunc ;==>_gui2

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $sText = GUICtrlRead($Edit1)
    $hFile = FileOpenDialog("Datei Hinzufügen", @WorkingDir, "All Files (*.*)", 4 + 8)
    GUICtrlSetData($Edit1, $sText & $hFile & @CRLF)
    Case $Button2
    GUICtrlSetData($Edit1, "")
    Case $Button3
    $sText = GUICtrlRead($Edit1)
    $hFolder = FileSelectFolder("Ordner Hinzufügen", @HomeDrive, "", @WorkingDir)
    $aSplit = StringSplit($hFolder, "\")
    $aCount = $aSplit[0]
    GUICtrlSetData($Edit1, $sText & $hFolder & @CRLF)
    Case $Button5
    If GUICtrlRead($Button5) = "Struktur Anzeigen" Then
    Global $Old = GUICtrlRead($Edit1)
    GUICtrlSetState($Edit1, $GUI_NODROPACCEPTED)
    GUICtrlSetData($Button5, "Pfad Anzeigen")
    GUICtrlSetState($Button1, $GUI_DISABLE)
    GUICtrlSetState($Button3, $GUI_DISABLE)
    GUICtrlSetState($Button2, $GUI_DISABLE)
    $sTexto = GUICtrlRead($Edit1)
    If $sTexto = "" Then
    Sleep(1000)
    GUICtrlSetData($Button5, "Struktur Anzeigen")
    Else
    GUICtrlSetData($Edit1, "")
    $hNew = StringSplit($Old, @CRLF, 1)
    For $i = 1 To $hNew[0] - 1
    $aNew = StringSplit($hNew[$i], "\")
    $count = $aNew[0]
    $iText = GUICtrlRead($Edit1)
    If FileGetAttrib($hNew[$i]) = "D" Then
    GUICtrlSetData($Edit1, $iText & "\" & $aNew[$count] & "\ Alle Dateien." & @CRLF)
    Else
    GUICtrlSetData($Edit1, $iText & "\" & $aNew[$count] & @CRLF)
    EndIf

    Next
    EndIf
    Else
    GUICtrlSetData($Edit1, $Old)
    GUICtrlSetState($Edit1, $GUI_DROPACCEPTED)
    GUICtrlSetData($Button5, "Struktur Anzeigen")
    GUICtrlSetState($Button1, $GUI_ENABLE)
    GUICtrlSetState($Button3, $GUI_ENABLE)
    GUICtrlSetState($Button2, $GUI_ENABLE)
    EndIf
    Case $Button4
    GUISetState(@SW_HIDE)
    Global $hFiles = GUICtrlRead($Edit1)
    _gui2()
    EndSwitch
    WEnd

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

    Func _GetFilesFolder_Rekursiv($sPath, $sExt = '*', $iDir = -1, $iRetType = 0, $sDelim = '0')
    Global $oFSO = ObjCreate('Scripting.FileSystemObject')
    Global $strFiles = ''
    Switch $sDelim
    Case '1'
    $sDelim = @CR
    Case '2'
    $sDelim = @LF
    Case Else
    $sDelim = @CRLF
    EndSwitch
    If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
    If $sExt = -1 Then $sExt = '*'
    If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
    _ShowSubFolders($oFSO.GetFolder($sPath), $sExt, $iDir, $sDelim)
    If $iRetType = 0 Then
    Local $aOut
    $aOut = StringSplit(StringTrimRight($strFiles, 1), $sDelim, 1)
    If $aOut[1] = '' Then
    ReDim $aOut[1]
    $aOut[0] = 0
    EndIf
    Return $aOut
    Else
    Return StringTrimRight($strFiles, 1)
    EndIf
    EndFunc ;==>_GetFilesFolder_Rekursiv

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

    Func _ShowSubFolders($Folder, $Ext = '*', $Dir = -1, $Delim = @CRLF)
    If Not IsDeclared("strFiles") Then Global $strFiles = ''
    If ($Dir = -1) Or ($Dir = 0) Then
    For $file In $Folder.Files
    If $Ext <> '*' Then
    If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
    $strFiles &= $file.Path & $Delim
    Else
    $strFiles &= $file.Path & $Delim
    EndIf
    Next
    EndIf
    For $Subfolder In $Folder.SubFolders
    If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & $Delim
    _ShowSubFolders($Subfolder, $Ext, $Dir, $Delim)
    Next
    EndFunc ;==>_ShowSubFolders

    [/autoit]

    Das ist das HauptScript. Es ist 100 % Funktionstüchtig und schreibt auch alle FileInstalls soweit korrekt in die Installer.au3.

    Ab 1000 Dateien aber kann man das script nicht mehr ausführen. Memory Fehler usw.

    Die Zusätzlichen dateien die Ihr bracuht findet ihr in dem Zip Archiv das ich rangehängt habe.

    Die Funktionen Titel und Icon sind noch nicht Funktionstüchtig.

    Außerdem habe ich an der Struktur nicht weiter gearbeitet (Jetzt Installiert er alle Dateien in den Selben Ordner.)

    Aber ich denke im Großen und ganzen ist das Script, bis auf die begrenzung der Dateien, für mich, als Anfänger, ganz okay.


    Und Vllt kann irgendjemand auf dieser kleien Welt noch etwas damit anfangen ;)

    Naja.

    Lg,

    Lenny

    Ps. Ich würde die Installation GUI.au3 und die Installer.au3 nicht verändern. Auszuführen ist denn natürlich die Install Maker.au3. Die anderen beiden werden erst Dynamisch geschrieben.

  • Edit - @CRLF - StringSplit Problem

    Hi.

    Ich hänge mal wieder bei einem Script fest, und würde mich freuen wenn ihr mir ein weiteres mal helfen könntet =)

    Also.

    Ich habe ein Edit. Da stehen DateiPfade drinnen, also z.B. C:\Lenny\Test.txt

    Das Script soll diesen String Splitten und nur "Test.txt" zurück geben.

    Soweit sogut.

    Klappt auch alles außer eins (Weitere Beschreibungen im Source)

    Spoiler anzeigen
    [autoit]


    Case $Button5
    GUICtrlSetData($Button5, "Pfade Anzeigen")
    $sTexto = GUICtrlRead($Edit1)
    If $sTexto = "" Then
    Sleep(1000)
    GUICtrlSetData($Button5, "Struktur Anzeigen")
    Else
    Global $Old = GUICtrlRead($Edit1)
    GUICtrlSetData($Edit1, "")
    $hNew = StringSplit($Old, @CRLF)
    $Numbers = ($hNew[0] - 1) / 2 ;Er nimmt immer 2x + 1 weil bei einem Neuen eintrag ein ZeilenSprung am Schluss eingefügt wird.
    For $i = 1 To $Numbers
    $aNew = StringSplit($hNew[$i], "\")
    $count = $aNew[0]
    If FileGetAttrib($hNew[$i]) = "D" Then
    GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & "\" & $aNew[$count] &"\" @CRLF) ; Wenn "Datei" ein Ordner denn ... Bla
    Else
    GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & "\" & $aNew[$count] & @CRLF)
    EndIf
    Next
    EndIf

    [/autoit]

    Mein Problem ist. das komischerweise hinter jedem Eintrag nach dem Splitten ein Zeilen Sprung hizugefügt wird:

    Also sieht es so aus:

    Test.txt

    Gummibärchen.mp3

    TestTestTestTestEtst.rtf

    Ich weiß aber nicht wodran das liegen könnte.


    Wüsstet ihr eine Lösung ohne mein Komplettes Script umzukrempeln ?=

    Vielen Dank im Vorraus,

    Lg,

    Lenny
    :)

  • Kann mir bitte einer ein Skript erstellen?

    Zitat von Amandil


    So oder was?

    Hast du erfolge ? Probier es aus ;)

    Aber gut:

    WinWaitDelay ist eine Option die für etwas anderes genutzt wird.

    Dein Problem lässt sich im einfachsten Fall mit Sleep() realisieren.

    Besser wäre _Timer_SetTimer() oder TimerInt / TimerDiff.

    Send:

    Send ( "{F7}" [, flag] ) ist denke ich genau aus der Hilfe übernommen. Die [ (ekigeklammer) bedeutet, das der Flag Optional ist. Wenn du das komma nach "{F7}" setzt muss du auch einen Flag angeben.

    Für deinen Fall würde aber Send("{F7}") langen.

    Außerdem führt er die komplette Aktion nur ein mal aus : While Schleife mit einbauen.

    Und -> Die zu wartende Zeit muss in Milisekunden angegeben werden:

    Also 1 Sekunde = 1000 MS


    Viel Glück

    Lg,

    Lenny

  • AutoIt Window Tool: Position Umrandeter Felder ermitteln:

    Hi.

    Also ich habe da nochmal diese Frage:

    Und zwar habe ich mein AutoIt Window Tool geöffnet und möchte von Folgender Umrandeter Tabelle die Position ermitteln:

    Spoiler anzeigen


    [Blockierte Grafik: http://img3.imagebanana.com/img/1wn0dtw1/Screenshot1.JPG]


    Ich habe gedacht das könnte ich ganz einfach mit ControlGetPos! Aber da bekomme ich folgende Koordinaten:

    Spoiler anzeigen


    [Blockierte Grafik: http://img3.imagebanana.com/img/qauvagq/Screenshot2.jpg]


    Also habe ich gedacht; z.B. die 6 Ist der Abstand vom Anfang der Tabelle zum Menü oben. Aber ich möchte ja die Koordinaten auf die Desktophöhe- und Breite bezogen.

    Die Tabellen sind Manchmal größer Manchmal kleiner aber haben immer die Selbe Class ;)

    Gibt es noch einen Anderen Befehl ? Oder Muss ich erst eine Andere Größe berechnen und davon denn die ControlGetPos Koordinaten subtrahieren ?


    Lg,

    Lenny


    Ps: Hier ist mein Source:

    Spoiler anzeigen
    [autoit]


    AutoItSetOption("WinTitleMatchMode", 2)

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

    #include <ScreenCapture.au3>

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

    If Not ProcessExists("Latein-Woerterbuch.exe") Then MsgBox(64, "Achtung", "Das Latein Wörterbuch läuft nicht. Bitte Starten sie das Programm erst.")

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

    HotKeySet("{F4}", "_gridprint")

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

    While 1
    WEnd

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

    Func _gridprint()
    $gridpos = ControlGetPos("Latein-Wörterbuch", "", "#327701")

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

    If @error Then MsgBox(64, "Achtung", "Die Tabelle wurde nicht gefunden.")

    MsgBox(0, "", $gridpos[0] & "," & $gridpos[1] & "," & $gridpos[2] & "," & $gridpos[3])

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

    _ScreenCapture_Capture(WinGetTitle("Latein-Wörterbuch", "")&".jpg", $gridpos[2], $gridpos[3],$gridpos[0], $gridpos[1])
    EndFunc ;==>_gridprint

    [/autoit]