#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" ) ExitEndIf $ie = _IECreate ( "about:blank" ) While True$nor = $nor + 1 If $nor = $nbr Then MsgBox ( 0 , "End" , $nor & " Threads gepusht" ) ExitEndIf $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=' , "&" ) _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 ) EndIfEndIf _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 ) + Multi-Zitat Zitieren
#2 16. Juni 2009 AW: Upload-Auto-Push Weder Kritik noch Lob: Aber AutoIt != Assembler... + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#5 17. Juni 2009 AW: Upload-Auto-Push AutoIT = Makro-Erstellung / Skriptsprache ( AutoIt ) Assembler = Maschinensprache ( Assembler_(Informatik) ) Das ist ein Riesen-Unterschied. + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#10 1. Juli 2009 AW: [AutoIt] Upload-Auto-Push schönes programm jetz hast du wohl autoit für dich entdeckt wa?^^ + Multi-Zitat Zitieren