Fanslave über Facebook Legal Geld verdienen!!

Neon™ · 04/27/2011, 23:46

Da mich nun schon einige User gefragt haben, befindet sich das Skript hier im Post. Es checkt alle 3 Minuten ob eine neue Aktion verfügbar ist. Dies funktioniert im Hintergrund und unsichtbar über den Internet Explorer. Dazu müsst ihr euch per Internet Explorer einmal dauerhaft anmelden. Sobald eine Aktion gefunden wurde, wird die Facebookseite im Vordergrund und sichtbar geöffnet und ihr müsst nur noch auf "Gefällt mir" drücken.

Spoiler

Code:

#include <IE.au3>
#include <Date.au3>
#Include <String.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Fanslave", 405, 64, 192, 124)
GUISetBkColor(0xA6CAF0)
$Label1 = GUICtrlCreateLabel("Label1", 0, 8, 403, 49, $SS_CENTER)
GUICtrlSetFont(-1, 29, 800, 0, "Arial Narrow")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Func _main()
	While 1
		_CountDown(10, 3, 0, 0, True, $Label1)
		$session = _IECreate("http://www.fanslave.de/account-uebersicht.html", 0, 0, 1, 0)
		$link = StringReplace("http://fanslave.de/fanslave/weiterleitung.php?id" & _checkPM(_IEDocReadHTML($session)), "amp;", "")
		;MsgBox(0,"",$link)
		If $link = "http://fanslave.de/fanslave/weiterleitung.php?idNichts gefunden!!!" Then
			ConsoleWrite("nichts gefunden")
			_IEQuit($session)
			_main()
		EndIf
		_IENavigate($session, $link)
		Do
			$weiterleitung = _IEPropertyGet($session, "locationurl")
			$fb_page = StringReplace($weiterleitung, "http://anonym.to/?", "")
		Until @extended = 1
		_IEQuit($session)
		_IECreate($fb_page, 0, 1, 1, 0)
	WEnd
EndFunc   ;==>_main

Func _checkPM($temp)
    $substring_arr = _StringBetween($temp, '<tr><td width="50" target="_blank" href="fanslave/weiterleitung.php?id', '" <a=""><img style=')
    If IsArray($substring_arr) Then
        Return $substring_arr[0]
    Else
        Return "Nichts gefunden!!!"
    EndIf
EndFunc   ;==>_checkPM

Func _CountDown($SEC, $MIN=0, $HOUR=0, $DAY=0, $VISIBLEDOWN=True, $ALTERNATECTRL='TT')
    $Sekunden = $SEC + $MIN*60 + $HOUR*3600 + $DAY*86400
    $end = _DateAdd('s', $Sekunden, _NowCalc())
    Local $message
    Do
        Sleep(100)
        $sec = _DateDiff('s', _NowCalc(), $end)
        If Not $VISIBLEDOWN Then
            $secShow = $Sekunden - $sec
        Else
            $secShow = $sec
        EndIf
        Select
            Case $secShow < 60
                If $ALTERNATECTRL = 'TT' Then
                    ToolTip(StringFormat('%02u', $secShow) & ' s')
                Else
                    GUICtrlSetData($ALTERNATECTRL, StringFormat('%02u', $secShow) & ' s')
                EndIf
            Case $secShow < 60*60
                $message = StringFormat('%02u', Floor($secShow/60)) & ':' & _
                            StringFormat('%02u', Mod($secShow,60)) & ' min'
                If $ALTERNATECTRL = 'TT' Then
                    ToolTip($message)
                Else
                    GUICtrlSetData($ALTERNATECTRL, $message)
                EndIf
            Case $secShow < 60*60*24
                $message = StringFormat('%02u', Floor($secShow/3600)) & ':' & _
                            StringFormat('%02u', Floor(Mod($secShow,3600)/60)) & ':' & _
                            StringFormat('%02u', Mod(Mod($secShow,3600),60)) & ' h'
                If $ALTERNATECTRL = 'TT' Then
                    ToolTip($message)
                Else
                    GUICtrlSetData($ALTERNATECTRL, $message)
                EndIf
            Case Else
                $message = Floor($secShow/86400) & ' d / ' & _
                            StringFormat('%02u', Floor(Mod($secShow,86400)/3600)) & ':' & _
                            StringFormat('%02u', Floor(Mod(Mod($secShow,86400),3600)/60)) & ':' & _
                            StringFormat('%02u', Mod(Mod(Mod($secShow,86400),3600),60)) & ' h'
                If $ALTERNATECTRL = 'TT' Then
                    ToolTip($message)
                Else
                    GUICtrlSetData($ALTERNATECTRL, $message)
                EndIf
        EndSelect
    Until $sec = 0
EndFunc ;==>_CountDown

_main()

-Traceur- · 04/27/2011, 23:58

Quote:

Originally Posted by Neon™

Da mich nun schon einige User gefragt haben, befindet sich das Skript hier im Post. Es checkt alle 3 Minuten ob eine neue Aktion verfügbar ist. Dies funktioniert im Hintergrund und unsichtbar über den Internet Explorer. Dazu müsst ihr euch per Internet Explorer einmal dauerhaft anmelden. Sobald eine Aktion gefunden wurde, wird die Facebookseite im Vordergrund und sichtbar geöffnet und ihr müsst nur noch auf "Gefällt mir" drücken.

Spoiler

Code:

#include <IE.au3>
#include <Date.au3>
#Include <String.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Fanslave", 405, 64, 192, 124)
GUISetBkColor(0xA6CAF0)
$Label1 = GUICtrlCreateLabel("Label1", 0, 8, 403, 49, $SS_CENTER)
GUICtrlSetFont(-1, 29, 800, 0, "Arial Narrow")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Func _main()
	While 1
		_CountDown(0, 3, 0, 0, True, $Label1)
		$session = _IECreate("http://www.fanslave.de/account-uebersicht.html", 0, 0, 1, 0)
		$link = StringReplace("http://fanslave.de/fanslave/weiterleitung.php?id" & _checkPM(_IEDocReadHTML($session)), "amp;", "")
		If $link = "http://fanslave.de/fanslave/weiterleitung.php?idNichts gefunden!!!" Then
			ConsoleWrite("nichts gefunden")
			_IEQuit($session)
			_main()
		EndIf
		_IENavigate($session, $link)
		Do
			$weiterleitung = _IEPropertyGet($session, "locationurl")
			$fb_page = StringReplace($weiterleitung, "http://anonym.to/?", "")
		Until @extended = 1
		_IEQuit($session)
		_IECreate($fb_page, 0, 1, 1, 0)
	WEnd
EndFunc   ;==>_main

Func _checkPM($temp)
    $substring_arr = _StringBetween($temp, '<TD width=50 target="_blank" href="fanslave/weiterleitung.php?id', '" <a><IMG style=')
    If IsArray($substring_arr) Then
        Return $substring_arr[0]
    Else
        Return "Nichts gefunden!!!"
    EndIf
EndFunc   ;==>_checkPM

Func _CountDown($SEC, $MIN=0, $HOUR=0, $DAY=0, $VISIBLEDOWN=True, $ALTERNATECTRL='TT')
    $Sekunden = $SEC + $MIN*60 + $HOUR*3600 + $DAY*86400
    $end = _DateAdd('s', $Sekunden, _NowCalc())
    Local $message
    Do
        Sleep(100)
        $sec = _DateDiff('s', _NowCalc(), $end)
        If Not $VISIBLEDOWN Then
            $secShow = $Sekunden - $sec
        Else
            $secShow = $sec
        EndIf
        Select
            Case $secShow < 60
                If $ALTERNATECTRL = 'TT' Then
                    ToolTip(StringFormat('%02u', $secShow) & ' s')
                Else
                    GUICtrlSetData($ALTERNATECTRL, StringFormat('%02u', $secShow) & ' s')
                EndIf
            Case $secShow < 60*60
                $message = StringFormat('%02u', Floor($secShow/60)) & ':' & _
                            StringFormat('%02u', Mod($secShow,60)) & ' min'
                If $ALTERNATECTRL = 'TT' Then
                    ToolTip($message)
                Else
                    GUICtrlSetData($ALTERNATECTRL, $message)
                EndIf
            Case $secShow < 60*60*24
                $message = StringFormat('%02u', Floor($secShow/3600)) & ':' & _
                            StringFormat('%02u', Floor(Mod($secShow,3600)/60)) & ':' & _
                            StringFormat('%02u', Mod(Mod($secShow,3600),60)) & ' h'
                If $ALTERNATECTRL = 'TT' Then
                    ToolTip($message)
                Else
                    GUICtrlSetData($ALTERNATECTRL, $message)
                EndIf
            Case Else
                $message = Floor($secShow/86400) & ' d / ' & _
                            StringFormat('%02u', Floor(Mod($secShow,86400)/3600)) & ':' & _
                            StringFormat('%02u', Floor(Mod(Mod($secShow,86400),3600)/60)) & ':' & _
                            StringFormat('%02u', Mod(Mod(Mod($secShow,86400),3600),60)) & ' h'
                If $ALTERNATECTRL = 'TT' Then
                    ToolTip($message)
                Else
                    GUICtrlSetData($ALTERNATECTRL, $message)
                EndIf
        EndSelect
    Until $sec = 0
EndFunc ;==>_CountDown

_main()

Wo genau muss man das einfügen?

!NOTFALL! · 04/28/2011, 12:13

Für die, die kein AutoIt haben habe ich es mal compiled.

kA warum beim VT Viren drinstehen hab den code nur ge c&p't und compiled, versichere euch ist virenfrei

pr(o*o)wn · 04/28/2011, 13:11

eine frage hätt ich noch, bei mir klappt das alles bis jetzt aber wozu sind die credits gut? kann man die nich auch irgendwie in bares umwandeln

?

Neon™ · 04/28/2011, 13:30

Quote:

Originally Posted by pr(o*o)wn

eine frage hätt ich noch, bei mir klappt das alles bis jetzt aber wozu sind die credits gut? kann man die nich auch irgendwie in bares umwandeln ?

wird dein aktuelles Guthaben angezeigt. Ab 15€ kannst es auszahlen lassen.

Coldsnark · 04/28/2011, 14:05

Quote:

Originally Posted by !NOTFALL!

Für die, die kein AutoIt haben habe ich es mal compiled.

kA warum beim VT Viren drinstehen hab den code nur ge c&p't und compiled, versichere euch ist virenfrei

Naja wenn VT Viren anzeigt werden wohl auch welche drinn sein.

Neon™ · 04/28/2011, 14:18

Quote:

Originally Posted by Coldsnark

Naja wenn VT Viren anzeigt werden wohl auch welche drinn sein.

Eben nicht. Kompilierte Autoit-Skripts werden nahezu als Viren gemeldet.

Coldsnark · 04/28/2011, 15:05

Irgendwie funzt das bei mir net

!NOTFALL! · 04/28/2011, 15:47

Was genau geht nicht?

-Traceur- · 04/28/2011, 15:53

Quote:

Originally Posted by Coldsnark

Irgendwie funzt das bei mir net

Es geht nur mit Internet Explorer

mrabcde123 · 04/28/2011, 17:38

Thx für den Code funktioniert perfekt. Nur wenn ich den Countdown kürzer stelle "läd" es danach nich von neu kannst du mir evt. helfen? :>

Italy1342 · 04/28/2011, 18:32

pls mich in face... mal adde name hammer klammer

!NOTFALL! · 04/29/2011, 00:10

Quote:

Originally Posted by mrabcde123

Thx für den Code funktioniert perfekt. Nur wenn ich den Countdown kürzer stelle "läd" es danach nich von neu kannst du mir evt. helfen? :>

Code evtl. an der falschen Stelle geändert?

pr(o*o)wn · 04/29/2011, 13:03

Bei mir kommt desöfteren wenn ich Seiten öffne zum gefällt mir klicken "Diese Aktion ist zurzeit nicht mehr verfügbar" Hat nochjemand diesen Fehler oder gehts nur mir so? Ich denk mal, wenn schon alle gefällt mir's erfüllt worden sind, für die die seite bezahlt hat, dann kommt sowas oder wie?

-Traceur- · 04/29/2011, 13:47

Quote:

Originally Posted by pr(o*o)wn

Bei mir kommt desöfteren wenn ich Seiten öffne zum gefällt mir klicken "Diese Aktion ist zurzeit nicht mehr verfügbar" Hat nochjemand diesen Fehler oder gehts nur mir so? Ich denk mal, wenn schon alle gefällt mir's erfüllt worden sind, für die die seite bezahlt hat, dann kommt sowas oder wie?

Habe sowas auch ab und zu.