Beiträge von autoBert

  • Doppelklick funktioniert nicht immer. warum?

    Das kannst du alles in ein Sript packen. Wenn deine 3 Dateien Lokal genauso heisen wie Remote und alle im gleichen Ordner gespeichert werden, sieht es so aus:

    Spoiler anzeigen
    [autoit]

    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <FTPEx.au3>
    Opt('MustDeclareVars', 1)

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

    _example()

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

    Func _example()
    Local $s_ServerName = 'ftp.wortmann.de' ;dieser Server existiert
    Local $s_Username = "meinuser"
    Local $s_Password = "meinpass"

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

    Local $s_LocalPath = @ScriptDir & "P:\preislisten\\"
    Local $s_RemotePath = "/Preislisten/"
    Local $aFiles[3] ;da in der Schleife zum Herunter laden UBound benutzt wird kann hier einfach das Array angepasst werden die Dateinamen müssen angegeb en werden, snst nichts
    $aFiles[0] = "JTL_WAWI.csv"
    $aFiles[1] = "JTL_WAWH.csv" ;Namen austauschen
    $aFiles[2] = "JTL_WAWO.csv" ;Namen austauschen

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

    Local $i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann auch mit 1 für passive Verbung testen

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

    Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP

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

    $l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
    $errOpen = @error
    If Not @error Then
    $l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
    $errFTP = @error
    If Not @error Then
    For $i = 0 To UBound($aFiles) - 1
    If _FTP_FileGet($l_FTPSession, $s_RemotePath & $aFiles[$i], $s_LocalPath & $aFiles[$i]) Then
    ;ShellExecute($s_LocalPath)
    ConsoleWrite("Download: " & $aFiles[$i] & " erfolgreich" & @CRLF)
    Else
    ConsoleWrite("Download: " & $aFiles[$i] & " fehlgeschlagen " & " " & @error & @CRLF)
    EndIf
    Next
    Else
    MsgBox(0, "Connect", "fehlgeschlagen")
    ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
    EndIf
    Else
    MsgBox(0, "Open", "fehlgeschlagen")
    ConsoleWrite("Open " & " " & $errOpen & @CRLF)
    EndIf
    _FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzng
    ;ab hier kannst du den Skriptcode für den nächsten Server anhängen
    $s_ServerName = 'ftp.wortmann2.de' ;< ======= anpassen
    $s_Username = "meinuser"
    $s_Password = "meinpass"

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

    $s_LocalPath = @ScriptDir & "P:\preislisten2\\" ;< ======= anpassen
    $s_RemotePath = "/Preislisten/" ;< ======= anpassen
    ;Local $aFiles[3] ;evt. mit Redim neue Arraygrösse festlegen
    $aFiles[0] = "JTL_WAWI.csv" ;< ======= anpassen
    $aFiles[1] = "JTL_WAWH.csv" ;< ======= anpassen
    $aFiles[2] = "JTL_WAWO.csv" ;< ======= anpassen

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

    ;$i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann auch mit 1 für passive Verbung testen

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

    $l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
    $errOpen = @error
    If Not @error Then
    $l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
    $errFTP = @error
    If Not @error Then
    For $i = 0 To UBound($aFiles) - 1
    If _FTP_FileGet($l_FTPSession, $s_RemotePath & $aFiles[$i], $s_LocalPath & $aFiles[$i]) Then
    ;ShellExecute($s_LocalPath)
    ConsoleWrite("Download: " & $aFiles[$i] & " erfolgreich" & @CRLF)
    Else
    ConsoleWrite("Download: " & $aFiles[$i] & " fehlgeschlagen " & " " & @error & @CRLF)
    EndIf
    Next
    Else
    MsgBox(0, "Connect", "fehlgeschlagen")
    ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
    EndIf
    Else
    MsgBox(0, "Open", "fehlgeschlagen")
    ConsoleWrite("Open " & " " & $errOpen & @CRLF)
    EndIf
    _FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzng
    EndFunc ;==>_example

    [/autoit]

    ich denke das war erst einmal genug für heute, denn du solltest dir die verwendeten Befehle noch in der Hilfe anschauen damit du sie verstehst und später selbstständig verwenden kannst.

    Edit: Skriptfehler bereinigt
    mfg autoBert

  • Fehler in der deutschen Hilfe bitte hier melden (Hilfedatei 3.3.6.1 2011.05.27)

    Das Beispiel in der Hilfe zu _FTP_FileGet gehört zu _FTP_FilePut (dort ist es richtig).Hier ein Beispiel das zu _FTP_FileGet passt:

    Spoiler anzeigen
    [autoit]

    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <FTPEx.au3>
    Opt('MustDeclareVars', 1)

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

    _example()

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

    Func _example()
    Local $s_ServerName = 'ftp.csx.cam.ac.uk'
    Local $s_Username = ""
    Local $s_Password = ""
    Local $i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann auch mit 1 für passive Verbung testen

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

    Local $s_LocalFile = @TempDir & "\tmp.txt"
    Local $s_RemoteFile = "/README"
    Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP

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

    $l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
    $errOpen = @error
    If Not @error Then
    $l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
    $errFTP = @error
    If Not @error Then
    If _FTP_FileGet($l_FTPSession, $s_RemoteFile, $s_LocalFile) Then
    ShellExecute($s_LocalFile)
    ConsoleWrite("Download: erfolgreich" & @CRLF)
    Else
    ConsoleWrite("Download: fehlgeschlagen " & " " & @error & @CRLF)
    EndIf
    Else
    MsgBox(0, "Connect", "fehlgeschlagen")
    ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
    EndIf
    Else
    MsgBox(0, "Open", "fehlgeschlagen")
    ConsoleWrite("Open " & " " & $errOpen & @CRLF)
    EndIf
    _FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzng
    EndFunc ;==>_example

    [/autoit]

    mfg autoBert

  • Doppelklick funktioniert nicht immer. warum?

    Da ist irrtümlich das fasche Beispiel (_FTP_FilePut) hier das Beispiel zu _FTP_FileGet:

    Spoiler anzeigen
    [autoit]

    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <FTPEx.au3>
    Opt('MustDeclareVars', 1)

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

    _example()

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

    Func _example()
    Local $s_ServerName = 'ftp.wortmann.de' ;dieser Server existiert nicht
    Local $s_Username = "meinuser"
    Local $s_Password = "meinpass"

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

    Local $s_LocalFile = @ScriptDir & "P:\preislisten\\JTL_WAWI.csv"
    Local $s_RemoteFile = "/Preislisten/JTL_WAWI.csv"
    Local $i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann auch mit 1 für passive Verbung testen

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

    Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP

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

    $l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
    $errOpen = @error
    If Not @error Then
    $l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
    $errFTP = @error
    If Not @error Then
    If _FTP_FileGet($l_FTPSession, $s_RemoteFile, $s_LocalFile) Then
    ShellExecute($s_LocalFile)
    ConsoleWrite("Download: erfolgreich" & @CRLF)
    Else
    ConsoleWrite("Download: fehlgeschlagen " & " " & @error & @CRLF)
    EndIf
    Else
    MsgBox(0, "Connect", "fehlgeschlagen")
    ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
    EndIf
    Else
    MsgBox(0, "Open", "fehlgeschlagen")
    ConsoleWrite("Open " & " " & $errOpen & @CRLF)
    EndIf
    _FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzng
    EndFunc ;==>_example

    [/autoit]

    mfg autoBert

  • Skript komplett pausieren

    Zitat von SgtIgram

    also immer wenn das fenster inaktiv ist, deaktivieren sich alle hotkeys und andersherum

    Dies wäre sogar die beste Methode, da aber mein Skript einen Ziffernblock simuliert (es soll Notebooks geben die einen Zifferblock noch nicht einmal auf der Tastatur umschaltbar haben) der für alle Anwendungen verfügbar ist war dies nicht möglich.

    mfg autoBert

  • HEUTE - Skript Erstellung / muss nicht neu erfunden werden...

    Zitat von timyboy

    Auch 35 - (wenn heute noch, dann 45 Euro) denke ich sind gerechtfertigt, denn wie gesagt es gibt genug Bezugsquellen für Anregungen.... und wenn es ein Programmierer aus Leidenschaft ist, der hat es 1. In ca. 1,5 Stunden fertig erstellt.

    warum ist dein Skript noch nicht fertig?

    • Nicht genug Leidenschaft?
    • Kein Programmierer?

    Der Preis ist für eine Auftragsentwicklung deutlich zu niedrig. Deine angegebenen Stunden bräuchte man ja schon um die angedeuteten "Bezugsquellen für Anregungen" zu finden, was sicherlich Zeitverschwendung wäre. Diese nutzt man besser um sich Gedanken zu machen wie man an sein Geld kommt.

    Ich wünsche dir aber trotzdem, dass du heute noch deine 45 € ausgeben darfst, die Qualtät entspricht dann ~ dem Niveau deiner Beiträge.

    Allein dieser Punkt:

    Zitat von timyboy

    4. es muss auch die Möglichkeit gegeben sein, noch 3 alternativ abfrage-URL´s eintragen zu können, wobei hier gesagt sei das bei den 3 URL´s noch die Funktionen eingebaut werden können, auf einer Webseite im z.b. Quelltext, ... nach der Versionsnummer zu suchen, also wird hier eher nicht die direkte url zur exe angeben werden, da sich eine url ja immer ändern kann...


    ist so schwammig formuliert und nimmt dadurch warscheins pro gewünschter Webseite mehr Zeit in Anspruch als du für das ganze Programm veranschlagst.

    Im übrigen Verweise ich darauf, dass die Forenregeln auch in diesem Bereich gelten , du müsstest also erst einmal die Websites benennen. Falls du dies nicht tust gehe ich mit Verweis auf [ offen ] UpdateScript umwandeln davon aus das du immer noch nicht bereit bist diese einzuhalten und plädiere daher dafür dieses Thema zu löschen und dich zu bannen solltest du nicht heute noch die Websites benennen.

    mfg autoBert

  • Ebay Kleinanzeigen - Skript zum Einstellen eines Artikels

    Zitat von minx

    Ok, macht was ihr wollt. Ich berichte nur was hier schon passiert ist. Es wurden alle solche Skripte in letzter Zeit abgewiesen, das ist eine Tatsache.

    Komisch, ich lese fast 100% der Beiträge in H&U und schaue fast 100% der Themen in Skripte an. Mir fällt keine einzige Abweisung in diesem direkten Zusammenhang (Kleinanzeigen bei EBay einstellen) ein. Habe deshalb die Forensuche mit "EBay Forenregeln" bemüht: 1 Treffer
    Im Zusammenhang mit EBay finde ich nur ein Thema dass ich am liebsten geschlossen sehen würde: [ offen ] Autologin Bot/ _FFClick / _FFWindowSelect/ _FFOpenURL da wird EBay aber nur als Tarnung benutzt.

    Zitat von minx

    Zuletzt mit JaneDoe, die inzwischen ihren Acc gelöscht hat.

    Zu JaneDoe und Ebay habe ich nur noch diese Spur der Google Suche:

    Zitat

    9. Okt. 2012 – »JaneDoe« ist der Autor dieses Themas ... Dann wurde mir auch untersagt Beiträge bezüglich einem Ebay Kleinanzeigen Rss-Feed zu posten

    Da geht es ums auslesen. Falls du also im unveröffentlichtem Teil der EBay AGB nichts überlesen hast gibt es keinen Grund dieses Thema nicht zu supporten.

    mfg autoBert

  • FileMove Problem

    Zitat von minx

    File-Befehle gehen nicht? Erst Ansatz: "#requireAdmin" an den Anfang des Skriptes.


    Hat nichts mit Berechtigungen zu tun, denn

    Zitat von Ilse

    Komisch ist, die erste Datei wird umbenannt und kommt an,
    aber alle anderen nicht!


    Dies deutet auch darau hin:

    • dass entweder die Dateien noch durch _SundPlay gesperrt sind.
    • oder falsche Pfadngaben, das umbenennen verhindern.
    Zitat von Ilse

    Habe ich einen Zähler dann werden alle Files benannt bzw.verschoben

    deutet stark uf den Pfad.

    Zitat von Ilse

    Ich kann leider das kpl. Script nicht posten,
    ist sehr komplex....


    dann wirst du den Fehler wohl alleine suchen müssen. Die Tipps aus [ offen ] Tutorial: Wie man Script-Fehler erfolgreich sucht/findet bzw. richtig debuggt sind dabei nützliich. Du kannst aber auch ein ansonstren lauffähiges Beispiel machen in dem der Fehler auftritt.


    mfg autoBert

  • Problem mit iniRead

    Zitat von derBrot

    Momment ich glaub ich habe die falsche Funktion eingefügt... :whistling:

    war mr klar dass _PseudoIniRead nich drinnen ist.

    Da die beiden DL-Quellen unterschiedliche Trennzeichen beim Zeilenende haben solltest du dir vor dem Hochladen eine Sicherung vom Original anlegen.

    mfg autoBert

  • Problem mit iniRead

    Ja gibt es so z.B.:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GuiComboBox.au3>
    #include <StaticConstants.au3>
    #include <Array.au3>

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

    Const $sIniPath = @ScriptDir & "\Test.ini"
    Const $sElect = "bitte einen KEY auswählen"
    Global $sValue
    $sLineSep = @LF
    $sRead = FileRead($sIniPath)
    $sRead = StringReplace($sRead,@CR,"") ;damit es sowohl mit @LF als auch mir @CRLF funktioniert
    $aRes = StringSplit($sRead, $sLineSep)
    ;~ _ArrayDisplay($aRes)
    Global $aINI[$aRes[0] + 1][2] = [[$aRes[0]]]
    For $i = 1 To $aRes[0] - 1
    $aTmp = StringSplit($aRes[$i], "=", 2)
    $aINI[$i][0] = $aTmp[0]
    $aINI[$i][1] = $aTmp[1]
    Next
    ;_ArrayDisplay($aINI)

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

    GUICreate("Account-Keys Editor", 300, 90, 302, 218)
    $idCboKey = GUICtrlCreateCombo("", 8, 8, 200, 25)
    If IsArray($aINI) Then
    For $i = 1 To $aINI[0][0]
    _GUICtrlComboBox_InsertString($idCboKey, $aINI[$i][0])
    Next
    EndIf
    _GUICtrlComboBox_InsertString($idCboKey, $sElect, 0)
    _GUICtrlComboBox_SetCurSel($idCboKey, 0)

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

    $idInpValue = GUICtrlCreateInput("", 213, 8, 80)
    $idBtnOK = GUICtrlCreateButton("&OK", 8, 33, 284)
    $idBtnSave = GUICtrlCreateButton("Account &speichern", 8, 60, 284)
    GUICtrlSetState($idBtnOK, $GUI_DISABLE)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $idCboKey
    If GUICtrlRead($idCboKey) = $sElect Then
    GUICtrlSetState($idBtnOK, $GUI_DISABLE)
    Else
    GUICtrlSetState($idBtnOK, $GUI_ENABLE)
    GUICtrlSetData($idInpValue, _PseudoIniRead(GUICtrlRead($idCboKey)))
    EndIf
    Case $idBtnSave ;Werte zurück in Datei schreiben
    ;_ArrayDisplay($aINI)
    $hFile = FileOpen($sIniPath, 2)
    For $i = 1 To $aINI[0][0]
    FileWrite($hFile, $aINI[$i][0] & "=" & $aINI[$i][1] & @LF)
    Next
    FileClose($hFile)
    Case $idBtnOK
    _PseudoIniWrite(GUICtrlRead($idCboKey),GUICtrlRead($idInpValue))
    EndSwitch
    WEnd

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

    Func _PseudoIniRead($sKey) ;gibt den Wert zu einem KEY zurück
    Local $iPos = _ArraySearch($aINI, $sKey)
    ;ConsoleWrite("gefunden an: " & $iPos & ". Stelle" & @CRLF)
    If $iPos <> -1 And $aINI[$iPos][0] = $sKey Then
    Return $aINI[$iPos][1]
    Else
    SetError(-1)
    EndIf
    EndFunc ;==>_PseudoIniRead

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

    Func _PseudoIniWrite($sKey,$sValue) ;schreibt einen Wert zu einem KEY ins Array KEINE SPEICHERUNG IN DATEI AN DIESER STELLE
    Local $iPos = _ArraySearch($aINI, $sKey)
    ;ConsoleWrite("gefunden an: " & $iPos & ". Stelle" & @CRLF)
    If $iPos <> -1 And $aINI[$iPos][0] = $sKey Then
    $aINI[$iPos][1]=$sValue
    Else
    SetError(-1)
    EndIf
    EndFunc

    [/autoit]

    mfg autoBert