[Batch/Bash] [AutoIt] Upload-Auto-Push

Dieses Thema im Forum "Projekte / Codes" wurde erstellt von Ph1b, 16. Juni 2009 .

Schlagworte:
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 16. Juni 2009
    Zuletzt von einem Moderator bearbeitet: 16. April 2017
    [AutoIt] Upload-Auto-Push

    AutoPush Beta

    Stelle euch hier mein Upload-Push-Programm in der Beta Version vor.

    Das Programm ist in AutoIT gecodet. Auch wenn ich der Meinung bin, dass das Programm keine Fehler hat, solltet ihr die pushs eventuell überprüfen.



    Anleitung:
    • Dateien entpacken
    • Config.exe ausführen
    • Die zu pushenden Threads in die "Threads.txt" eintragen
    • AutoPush.exe ausführen

    In der Config.exe einfach den Anweisungen folgen, als erstes muss euer Benutzername eingetragen werden, dann euer Passwort, dann der Zeitabstand zum letzten Post, den ein Push haben muss.
    Die Zeit muss in Stunden angegeben werden.
    2 Wochen = 24 x 14 h = 336

    (Threads, die die Postingzeit "Heute", oder "Gestern" haben, werden automatisch sicherheitshalber nicht gepusht)
    Als nächstes müsst ihr noch das Wort, bzw. die Nachricht eintragen, mit der gepusht werden soll.


    Die Threads.txt soll danm wie folgt aussehen:

    Downloadlink, 648 KB, Beta

    Source:
    Spoiler
    Auto-Pusher
    PHP:
    #include <ie.au3>
    #include <string.au3>
    #include <Date.au3>
    #include <file.au3>

    $test  IniRead ( "config.ini" "Bump" "Push" "0" )
    $username  IniRead ( "config.ini" "Name" "user" "0" )
    $password  IniRead ( "config.ini" "Pass" "pwd" "0" )
    $maxtime  IniRead ( "config.ini" "Time" "zeit" "0" )

    HotKeySet ( "{END}" "stopscript" )
    Func stopscript ()
        Exit
    EndFunc

    If  not FileExists  ( "Threads.txt" Then
        _FileCreate 
    ( "Threads.txt" )
    EndIf

    Global 
    $begin
    $nor 
    0
    $nbr 
    _FileCountLines  ( "Threads.txt" )
    If 
    $nbr  0 Then
        MsgBox 
    ( 0 "Error" "Keine Threads vorhanden. Bitte in die Threads.txt eintragen" )
        Exit
    EndIf
    $ie  _IECreate  ( "about:blank" )

    While 
    True
    $nor 
    $nor  1

    If  $nor  $nbr Then
        MsgBox 
    ( 0 "End" $nor  " Threads gepusht" )
        Exit
    EndIf

    $site  FileReadLine  ( "Threads.txt" $nor )

    _IENavigate  ( $ie $site )
    _ieloadwait ( $ie )
    $source  _IEDocReadHTML ( $ie )

    If 
    StringInStr  $source "nicht angemeldet " Then
        $Form
    = _IEFormGetObjByName ( $IE 2 )

        
    $username2  _IEFormElementGetObjByName ( $Form "navbar_username" )
        
    $password2  _IEFormElementGetObjByName ( $Form "navbar_password" )

        
    _IEFormElementSetValue ( $username2 $Username )
        
    _IEFormElementSetValue ( $password2 $password )

        
    _IEFormSubmit ( $Form )

        
    Sleep ( 10000 )
        
    _IENavigate  ( $ie $site )
        
    _IELoadwait ( $ie )
        
    $source  _IEDocReadHTML ( $ie )
    EndIf

    $ft2  StringRegExp  ( $source "Seite 1 von \d" 1 )

    If 
    IsArray  ( $ft2 Then
    $ft3 
    StringRegExpReplace  ( $ft2 [ 0 ],  "Seite 1 von (\d)" "$1" )
    _IENavigate  ( $ie $site  "&page="  $ft3 )
    $source  _IEDocReadHTML ( $ie )
    EndIf

    _IEAction  ( $IE "Refresh" )
    _IELoadWait  ( $ie )
    $ftime  _StringBetween ( $source 'src="https://www.xup.in/000/board.raidrush.ws/a_rr_style/statusicon/post_old.gif"></A> ' ,   '<!-- / status icon and date --' )
    $a  UBound  ( $ftime ) -  1

    If  StringInStr  ( $ftime [ $a ],  "Heute" Then
        ContinueLoop
    EndIf

    If 
    StringInStr  ( $ftime [ $a ],  "Gestern" Then
        ContinueLoop
    EndIf

    $string  StringRegExpReplace ( $ftime [ $a ],  "(\d{2})\.(\d{2})\.(\d{4}), (\d{2}):(\d{2})" "$3/$2/$1 $4:$5:00" )
    $dif  _DateDiff ( "h" _NowCalc (),  $string )
    $dif  $dif  * - 1

    If  $dif  $maxtime Then
        ContinueLoop
    EndIf

    $number  _StringBetween ( $source '="showpost.php?p=' "&amp;" )

    _IENavigate ( $ie "http://board.raidrush.ws/newreply.php?do=newreply&noquote=1&p="  $number [ 0 ])
    _ieloadwait ( $ie )

    $Form = _IEFormGetObjByName ( $IE 2 )

    $enter  _IEFormElementGetObjByName ( $Form "vB_Editor_001_textarea" )
    _IEFormElementSetValue ( $enter $test )

    If 
    $begin Then
        $dif 
    TimerDiff ( $begin )
        If 
    $dif  31000 Then
            Sleep 
    31000  $dif )
        EndIf
    EndIf

    _IEFormSubmit ( $Form )

    $begin  TimerInit ()

    WEnd
    Config
    PHP:
    $name  InputBox ( "Username" "Bitte den Raidrush Benutzernamen eingeben" )
    IniWrite (@ ScriptDir  "\config.ini" "Name" "user" $Name )

    $pwd  InputBox ( "Password" "Bitte das Raidrush Passwort eingeben" )
    IniWrite (@ ScriptDir  "\config.ini" "Pass" "Pwd" $pwd )

    $time  InputBox  ( "Zeit" "Hier die minimale Zeit angeben, nach der die Threads gepusht werden. Zeit in Stunden angeben." )
    IniWrite (@ ScriptDir  "\config.ini" "Time" "zeit" $time )

    $bump  Inputbox "Text" "Hier die Nachricht eingeben, mit der die Threads gepusht werden sollen." "Push" )
    IniWrite (@ ScriptDir  "\config.ini" "Bump" "Push" $bump )
     

  2. Anzeige
  3. #2 16. Juni 2009
    AW: Upload-Auto-Push

    Weder Kritik noch Lob: Aber AutoIt != Assembler...
     
  4. #3 16. Juni 2009
    AW: Upload-Auto-Push

    agree.. hab mir den Thread eigentlich auch nur wegen dem präfix angeschaut..

    OT: Hmm.. schöner Forum Spambot.. ob man sowas wirklich braucht.
     
  5. #4 17. Juni 2009
    AW: Upload-Auto-Push

    Was ist es dann?
     
  6. #5 17. Juni 2009
    AW: Upload-Auto-Push

    AutoIT = Makro-Erstellung / Skriptsprache ( AutoIt )
    Assembler = Maschinensprache ( Assembler_(Informatik) )

    Das ist ein Riesen-Unterschied.
     
  7. #6 26. Juni 2009
    AW: Upload-Auto-Push

    Also ich kann mir vorstellen das dieses Programm nützlich ist probiere es jetz mal aus!
    Thx dafür! Bw hast du!

    Noch eine Frage klappt das mit dem pushen auch wenn man in die txt Datei vor den Link den Namen des Upps schreibt damit man leichter aussortieren kann wenn er down is?

    Gruß Derbe
     
  8. #7 26. Juni 2009
    AW: Upload-Auto-Push

    Nee, sollte nicht klappen. Geht auch mehr ums pushen von mehreren Threads, Downmeldungen kann ich ja schlecht rauslesen ;)

    Klappt alles soweit?
    Btw, wenn man sowieso standartmäßig mit dem IE in RR angemeldet ist, kann man die Anmelde-Boxen auch einfach frei lassen.
     
  9. #8 26. Juni 2009
    AW: Upload-Auto-Push

    ich meine nicht das das Programm die downmeldungen rauslioest sondern das man einfach vor den Link den Namen schreibt damit, falls etwas down man den link schneller findet und ihn rausnehmen kann damit er nicht ständig mitgepusht wird.
     
  10. #9 1. Juli 2009
    AW: Upload-Auto-Push

    Du kannst nach dem Link zum Thread doch einfach mit Strg+F in der .txt Datei suchen, einfach den Linknamen durchsuchen, dann hast du es. Prinzipiell könnt ich noch den Titel auslesen lassen, halte ich aber, soweit ich dein Problem verstehe für überflüssig.
     
  11. #10 1. Juli 2009
    AW: [AutoIt] Upload-Auto-Push

    schönes programm
    jetz hast du wohl autoit für dich entdeckt wa?^^
     

  12. Videos zum Thema
Die Seite wird geladen...