Beiträge von autoBert

  • _ftp_fileput problem

    Zitat von Scripter192

    wenn ich auf meinen ftp server etwas hochlade, wird nur für einen kurzen moment eine datei im zielverzeichniss erstellt ( mit dem namen .pureftpd-upload.4bba1eda.15.29e1.796ec976 )

    danach wird sie wieder gelöscht und es passiert gar nichts ...

    wiso das 8| ?

    schaffst du es denn mit einem anderen Programm z.B. FileZilla Daten hochzuladen?

    mfg (Auto)Bert

  • iniwrite - weigert sich

    Hallo SchrotterCh,

    Zitat von SchrotterCh

    ...
    aber wann ich dann mehr also 1und2 auswähle sollte er sagen es wurde schon 1es ausgewählt
    ...

    wenn der DAU nur eines auswählen darf, warum nimmst du dann nicht Radio-Controls oder eine ComboBox,
    da wird das ganze viel einfacher. Hier einmal ein Beispiel-Skript zum Auswählen einer URL die geöffnet werden soll:

    Spoiler anzeigen
    [autoit]

    ;#include <GuiComboBox.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    #include <File.au3>

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

    Const $sElect = "bitte eine URL auswählen"
    Global $URL

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

    If Not FileExists(@ScriptDir & "\URL.INI") Then
    $sData = "AutoIt=http://www.autoit.de" & @LF & "Der Thread=http://www.autoit.de/index.php?page=Thread&postID=122400#post122400" & @LF & "AutoIt V3=http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
    IniWriteSection(@ScriptDir & "\URL.INI", "URLs", $sData)
    EndIf

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

    $hGui = GUICreate("Combobox mit INI ", 300, 160, 302, 218)
    $hcboProg = GUICtrlCreateCombo($sElect, 8, 8, 200, 25)
    $hbtnAdd = GUICtrlCreateButton("&Hinzufügen", 213, 8)
    $hlblURL = GUICtrlCreateLabel("", 8, 35, 200, 50)
    $list1 = IniReadSection(@ScriptDir & "\URL.INI", "URLs")
    ConsoleWrite($list1 & @CRLF)
    For $i = 1 To $list1[0][0]
    GUICtrlSetData($hcboProg, $list1[$i][0])
    Next
    $hbtnOpen = GUICtrlCreateButton("&Öffnen", 8, 85)
    GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hbtnAdd
    $write1 = InputBox("URL", "Bitte eine gülzige eingeben")
    If $write1 <> "" Then
    $write2 = InputBox("URL verwalten unter", "Bitte Kurzbegriff eingeben")
    If $write2 <> "" Then IniWrite(@ScriptDir & "\URL.INI", "URLs", $write2, $write1)
    GUICtrlSetData($hcboProg, $write2, $write2)
    EndIf
    show_Selection()
    Case $hcboProg
    show_Selection()
    Case $hbtnOpen
    ;hier $URL öffnen
    ConsoleWrite($URL & @CRLF)
    EndSwitch
    WEnd

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

    Func show_Selection()
    If GUICtrlRead($hcboProg) = $sElect Then
    GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
    GUICtrlSetData($hlblURL, "")
    Else
    GUICtrlSetState($hbtnOpen, $GUI_ENABLE)
    $Prog = GUICtrlRead($hcboProg)
    ConsoleWrite("ausgewählt: " & $Prog & @CRLF)
    $URL = IniRead(@ScriptDir & "\URL.INI", "URLs", $Prog, "")
    GUICtrlSetData($hlblURL, $URL)
    EndIf
    EndFunc ;==>show_Selection

    [/autoit]

    Prinzip ist ja das gleiche,

    mfg (Auto)Bert

    mfg (Auto)Bert

  • YouTube Video Downloader + Converter

    Hallo bbm1995,

    Zitat von AutoBert


    HowTo:

    • JaYT-DwiMP3-P starten
    • auf Tab Downloader wechseln
    • Rechtsklick auf zu downloadende Linkadresse danach Linkadresse kopieren auswählen JaYT-DwiMP3-P ermittelt darauf hin den echten Download-Link (für alle gewünschten Lieder wiederholen)
    • In JaYT-DwiMP3-P Button Go klicken, das wars die Dateien werden als MP4 heruntergeladen und anschliessend mit FFMPEG je nach gewählen Einstellungen in MP3 und/oder MPEG gewandelt die ausgewähleten Typen werden danach in den ausgewählten Ordner laut Einstellungen verschoben
    • Unter Datei|Einstellungen kann man die gewünschten Musikformate auswählen und den Ordner in dem gespeichert werden soll bestimmen. Achtung wird bei Programmstart automatisch übernommen.
    • Mit F6 könnt ihr JaYT-DwiMP3-P verstecken und auch wieder anzeigen lassen

    mfg (Auto)Bert

  • JaYT-DwiMP3-P (YT-Downloader) Version 0.8.7.1

    Hallo Com,

    Habe heute 05.04.2010 nocheinmal getestet und es läuft. Entweder ist YouTube wieder auf den alten Quelltext-Code zurück oder es sind noch nicht alle Beiträge im neuen Format. Oder war es nur ein Aprilscherz :?: Dieser Link zufällig ausgewählten Links funktionieren:

    Wenn ein Download-Link nicht funktioniert (Internet-Störung oder Absicht von YouTube) wird gleich nach dem Kopieren des Links der Name nicht ermittelt und die Größe wird mit -1 angezeigt.
    Auf YouTube habe ich kurz vorher mit Link-Klick die Erläuterungen zum neuen Stil verweigert (Dieser Link kommt jetzt nicht mehr). Ausserdem habe ich auch noch vor diesem Test alle temporären Dateien inkl. Internet-Cache löschen lassen, ob dies der Grund war oder es heute morgen nur zufällig mit obigen Dateien geht kann ich (noch) nicht sagen.
    Ich bin weiter am Download testen dies ist aber bei mir wegen meiner INet-Verbindung über Web'n'Walk <= 12 KB/s sehr langwierig. Wäre nett wenn andere beim Testen helfen.
    Ich lade die Version 0.8.2.4 deshalb auch gleich wieder hoch

    mfg (Auto)Bert

  • Inhalte eines Inputs zu einer E-Mail Adresse senden

    Hallo joshi2122,

    das kannst du bei _inetMail doch ganz einfach anhand des Beispiels in der Hilfe überprüfen:

    [autoit]

    #include <INet.au3>

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

    $Address = InputBox('Adresse', 'Gib die E-Mail-Adresse des Empfängers ein:')
    $Subject = InputBox('Betreff', 'Gib einen Betreff für die E-Mail ein:')
    $Body = InputBox('Inhalt', 'Gib den Inhalt der E-Mail-Nachricht ein:')
    MsgBox(0, 'Das E-Mail-Programm wurde geöffnet', 'Das E-Mail-Programm wurde geöffnet, dessen Prozess-ID lautet: ' & _INetMail($Address, $Subject, $Body))

    [/autoit]

    danach geht automatisch das Standard-EMail Programm auf z.B. OutLookExpress. Wenn dieses richtig konfiguriert ist klappt es auch, falls du dort auf senden klickst

    mfg (Auto)Bert

  • Decompiler - Wie kann man sich schützen?

    Hallo,

    Das bedeutet, dass sich jeder der eine kompiliertes AutoIt-Programm dekompiliert eine CopyRightverletzung begeht, welche (auch) in Deutschland strafbar ist.

    mfg (Auto)Bert

  • Hilfe bei Combobox und unendlich Werte in .ini

    Hallo mipez,

    lässt sich doch ganz einfach übertragen:

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    #include <GUIConstants.au3>

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

    Global $sIni = @ScriptDir & "\Config.INI", $oldID

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

    $Auto = GUICreate("Auto-Login by mipez ver. 2.0", 571, 281, 193, 125)
    GUISetFont(12, 400, 0, "Tahoma")
    GUISetBkColor(0xC0DCC0)

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

    $resolution = GUICtrlCreateCombo("resolution", 16, 24, 153, 27)
    GUICtrlSetData(-1, "1440x900")
    $server = GUICtrlCreateCombo("server", 193, 24, 153, 27)
    GUICtrlSetData(-1, "English|German|French|Russian, Polish, Turkish|Spain, Italian, Portuguese")
    $channel = GUICtrlCreateCombo("channel", 370, 24, 153, 27)
    GUICtrlSetData(-1, "Rookie|Super Rookie|Pro|Free|Free 2|Free 3|Free 4")
    $loadevery1 = GUICtrlCreateCheckbox("Want to load this every time?", 16, 68, 233, 17)

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

    $id = GUICtrlCreateCombo("id", 16, 106, 153, 27)
    $list1 = IniReadSection($sIni, "IDs")
    ConsoleWrite($list1 & @CRLF)
    If IsArray($list1) Then
    For $i = 1 To $list1[0][0]
    GUICtrlSetData($id, $list1[$i][0])
    Next
    EndIf
    $pw = GUICtrlCreateInput("PW", 193, 106, 153, 27)
    $save1 = GUICtrlCreateButton("Save", 368, 106, 80, 27, 0)
    $load1 = GUICtrlCreateButton("Load", 458, 106, 80, 27, 0)

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

    $path = GUICtrlCreateInput("Path", 16, 152, 329, 27)
    $getpath = GUICtrlCreateButton("Get", 368, 152, 48, 27, 0)
    $savepath = GUICtrlCreateButton("Save", 422, 152, 56, 27, 0)
    $loadpath = GUICtrlCreateButton("Load", 482, 152, 56, 27, 0)

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

    $loadevery2 = GUICtrlCreateCheckbox("Want to load this every time?", 16, 195, 233, 17)
    $windowed = GUICtrlCreateCheckbox("Windowed", 16, 235, 105, 17)
    $news = GUICtrlCreateCheckbox("Click Announcement", 140, 235, 180, 17)

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

    $start = GUICtrlCreateButton("Start", 336, 200, 193, 57, 0)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    GUIDelete()
    Exit
    case $id, $load1
    show_Selection()
    Case $save1
    $writeID = GUICtrlRead($id)
    If $writeID <> "" Then
    $writePW = GUICtrlRead($pw)
    If $writePW <> "" Then IniWrite($sIni, "IDs", $writeID, $writePW)
    GUICtrlSetData($id, $writeID, $writeID)
    EndIf
    show_Selection()
    EndSwitch
    #cs
    if GUICtrlRead($id) <> $oldID Then ;nach jeder Änderung im Feld ID
    show_Selection()
    $oldID = GUICtrlRead($id)
    EndIf
    #ce
    WEnd

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

    Func show_Selection()
    Local $readID, $readPW
    If GUICtrlRead($id) = "ID" Then
    GUICtrlSetState($save1, $GUI_DISABLE)
    GUICtrlSetData($pw, "")
    Else
    GUICtrlSetState($save1, $GUI_ENABLE)
    $readID = GUICtrlRead($id)
    $readPW = IniRead($sIni, "IDs", $readID, "")
    GUICtrlSetData($pw, $readPW)
    EndIf
    EndFunc ;==>show_Selection

    [/autoit]

    mfg (Auto)Bert

  • Warum nicht 2 Sachen gleichzeitig ausbauen ?!?

    Du solltest dir die Forenregeln durchlesen,

    mfg (Auto)Bert