Bot zaczepiający na FB

Phoenix_PL · 12 Października 2012

Witam

Z powodu iż wkurza mnie siedzenie i odpowiadanie na zaczepki na facebooku, machnąłem na szybko bota.

Po kilku modyfikacjach mogę go wreszcie udostępnić

Oto kod:

#include <IE.au3>
;#NoTrayIcon

$INI = IniReadSection(@ScriptDir&"\fbot.ini", "opcje")
;MsgBox (0, "", $INI[0][0]&@CRLF&$INI[1][1]&@CRLF&$INI[2][1]&@CRLF&$INI[3][1])

$IE = _IECreate("facebook.pl", 0, $INI[1][1], 1, 1)
$obj_mail = _IEGetObjById($IE, "email")
If Not @error Then
$obj_pass = _IEGetObjById($IE, "pass")
$obj_login = _IEGetObjById($IE, "loginbutton")
_IEFormElementSetValue($obj_mail, $INI[2][1])
_IEFormElementSetValue($obj_pass, $INI[3][1])
_IEAction($obj_login, "click")
EndIf

;_IEAction($IE, "invisible")
_IENavigate($IE, "https://www.facebook.com/pokes", 1)

OnAutoItExitRegister("knc")

Func knc()
Run ("C:\knc.exe")
EndFunc

While 1
If StringInStr (_IEBodyReadText($IE), "Odpowiedz na zaczepkę") Then
While StringInStr (_IEBodyReadText($IE), "Odpowiedz na zaczepkę")
_IELinkClickByText ($IE, "Odpowiedz na zaczepkę", 0, 1)
WEnd
_IENavigate($IE, "https://www.facebook.com/pokes", 1)
EndIf
Sleep (100)
WEnd

i kod pliku knc.exe (nie wiedzieć czemu, _IEQuit nie działa jak powinno... Skompilowany plik knc.exe umieszczamy w katalogu z programem)

While ProcessExists("iexplore.exe")
ProcessClose("iexplore.exe")
WEnd

Żeby bot działał, należy stworzyć plik fbot.ini w katalogu z botem i skopiować do niego to:

[opcje]
#jesli 0 bot chodzi w tle i nie widać przeglądarki.
#Żeby sprawdzić czy działa, ustaw na 1 i odpal program
widzialnosc=1

#email i hasło do konta fb
email=
haslo=

Wszystko opisane :P Jeśli mamy autoryzację SMS i nie autoryzowaliśmy IE, musimy uruchomić bota w trybie 'widocznym' i podać kod przysłany SMSem.

Oczywiście macie też plik .exe (z FileInstall)

Pobierz z Dropboxa

Skan:

Przejdź do skanu

AxessMV400 · 12 Października 2012

Ale jajca on działa

A da się zrobić bota na spam do FB ?

Phoenix_PL · 13 Października 2012

Wszystko się da :>

I oczywiście że działa, inaczej bym nie wstawiał

Spróbuję walnąć bota spamiącego na tablicy, a co

I ♥ BMX · 13 Października 2012

zrób tak aby zachowywał się jak normalny użytkownik.

Tzn wchodzi na różne strony klika lubie to, czasami udostępnia, zaprasza znajomych <wszystko po kolei> tak żeby nie załapać blokady od fejsa.

z tego co pamiętam to po dodaniu 20 postów pod rząd blokuje tablice nam na 24h...

więc musi być inna aktywność żeby nie zablokowali.

C.J · 13 Października 2012


#include <IE.au3>
$IE = _IECreate("facebook.pl", 0, $INI[1][1], 1, 1)
_IeLoadWait($IE)
While 1
_IELinkClickByText ($IE, "Odpowiedz na zaczepkę", 0, 1)
Wend

Wersja mini

M4niak · 13 Października 2012

Dodaj Sleep(1), bo wpierdala procesor jak szalony..

Phoenix_PL · 13 Października 2012

@up u mnie czy u C.J ?

U mnie sleep jest i na początku (przez pierwsze sekundy) działania żre procka bo odpala IE

APO: C.J - Gdzie masz zadeklarowaną tablicę $INI ?

I ♥ BMX · 13 Października 2012

$INI = IniReadSection(@ScriptDir&"\fbot.ini", "opcje")

to ini. Mi chyba nie dziala bo nie ogarnia tego zaczepiania. 30 zaczepek i zadnej nie odczepił.

//em na 100% nie działa. : <

Windows 7, 64bit przeglarka.

Uruchamia się IE normalnie i dalej przechodzi w zaczepki i chyba dalej to ma wy***. : )

GameOverMan · 14 Października 2012

Error mi wyskakuje, po zalogowaniu na FB, ale to pewnie dlatego, że nie mam ani jednej zaczepki.

Nie wiem co wy piszecie, że macie po 100, co to w ogóle są te zaczepki?

Ja FB nie ogarniam bo jest mi to nie potrzebne, a loguję się tylko wtedy jak ktoś mi próbuje podpierdolić konto w DarkOrbit .

Phoenix_PL · 14 Października 2012

Jaki error o_O?

Aa, no tak, wali errorem jak nie znajdzie tekstu z zaczepką.

@I ♥ BMX - Nie mam już Win7 żeby przetestować, ale na Home Premium x86 działało bez problemu...

Może FB jakieś zabezpieczenia zrobiło... potem sprawdzę na lapku czy mi działa.

C.J · 14 Października 2012

Chodziło mi, że można ten programik zrobić krócej, bez zbędnych pierdołek

lutzen · 14 Października 2012

Może na zaczepianie jednej osoby fajnie działa, lecz przy większej ilości zaczepek wyjebie blokadę na zaczepianie, pierwszy raz chyba 24h - później wiadomo coraz więcej

Z tablicą, dodawaniem znajomków oraz lajkami nie ma co.

Co do pierwszego i drugiego będzie block na daną funkcję, co do lajków będzie po pewnym czasie wołało przepisać captche - no chyba, że ogarniesz autocaptchera - lecz wątpię czy tam wgl da radę. W reCaptcha można to ominąć lajtowo, ale w fejsbuku raczej nie da rady.

Phoenix_PL · 14 Października 2012

Jak znajdę czas to dorobię wklepywanie od czasu do czasu czegoś na tablicę (tekst z pliku - jedna linijka, jeden wariant, wybierany losowo).

Pokombinuję :P

dawid3266 · 15 Listopada 2012

Jestem zielony w tych sprawach, a chciałbym autozaczepiacza Gdzie wpisać ten kod? Jak to od początku zrobić, żeby działało?

Hisagi · 15 Listopada 2012

Może się przydać

Zarax · 15 Listopada 2012

Linki wychodzące poza MPC dajemy w code.

TOPIC@

TUT DOBRY, na pewno skorzystam

Fli_PL · 15 Listopada 2012

No nie wiem, nie wygląda mi na super stabilny program, szukanie interakcji po tekście/obrazkach nigdy nie uchodziło za dobre, ale nie zrażaj się

Phoenix_PL · 18 Listopada 2012

Cóż, ale niby działa ;P

I innego sposobu za bardzo nie widzę.

bercik156 · 25 Listopada 2012

Nie wiem jak wam, ale mi ten bot działa przez pierwsze 4 zaczepki po czym nie odświeża strony i lipa trzeba od nowa włączyć bota. Jest na to jakieś rozwiązanie ?

// edit

Dobra zrobiłem tak i działa w 99 %

#include
;#NoTrayIcon

$INI = IniReadSection(@ScriptDir&"\fbot.ini", "opcje")
;MsgBox (0, "", $INI[0][0]&@CRLF&$INI[1][1]&@CRLF&$INI[2][1]&@CRLF&$INI[3][1])

$IE = _IECreate("facebook.pl", 0, $INI[1][1], 1, 1)
$obj_mail = _IEGetObjById($IE, "email")
If Not @error Then
$obj_pass = _IEGetObjById($IE, "pass")
$obj_login = _IEGetObjById($IE, "loginbutton")
_IEFormElementSetValue($obj_mail, $INI[2][1])
_IEFormElementSetValue($obj_pass, $INI[3][1])
_IEAction($obj_login, "click")
EndIf

;_IEAction($IE, "invisible")
_IENavigate($IE, "https://www.facebook.com/pokes", 1)

OnAutoItExitRegister("knc")

Func knc()
Run ("C:\knc.exe")
EndFunc

While 1
If StringInStr (_IEBodyReadText($IE), "Odpowiedz na zaczepkę") Then
While StringInStr (_IEBodyReadText($IE), "Odpowiedz na zaczepkę")
_IELinkClickByText ($IE, "Odpowiedz na zaczepkę", 0, 1)
WEnd
_IENavigate($IE, "https://www.facebook.com/pokes", 1)
ElseIf StringInStr (_IEBodyReadText($IE), "Nikt Cię nie zaczepił.") Then
_IENavigate($IE, "https://www.facebook.com/pokes", 1)
EndIf
Sleep (1000)
WEnd

Wersja mini tez działa w 100 % no dobra 99 % bo przy wyjściu poprzez "X" wywala błąd ale nie jest to jakieś przeszkadzające

#include <IE.au3>
$INI = IniReadSection(@ScriptDir&"\fbot.ini", "opcje")
$IE = _IECreate("https://www.facebook.com/pokes", 0, $INI[1][1], 1, 1)
_IeLoadWait($IE)

while 1
If StringInStr (_IEBodyReadText($IE), "Odpowiedz na zaczepkę") Then
While StringInStr (_IEBodyReadText($IE), "Odpowiedz na zaczepkę")
_IELinkClickByText ($IE, "Odpowiedz na zaczepkę", 0, 1)
WEnd
_IENavigate($IE, "https://www.facebook.com/pokes", 1)
ElseIf StringInStr (_IEBodyReadText($IE), "Nikt Cię nie zaczepił.") Then
_IENavigate($IE, "https://www.facebook.com/pokes", 1)
EndIf
Sleep (1000)
WEnd

Ps. Uwaga! bardzo pamięciożerne przez ta pętle nieskończoną ...

GSO · 10 Grudnia 2012

Jak go użyć ? Bo nie rozumiem trochę ....

volt2 · 6 Stycznia 2013

Dobry programik .

Like .

SoltysGamingPL · 18 Października 2013

To powinno być tak, że odpowiada mi tylko na zaczepkę od 1 osoby ? A jeśli tak to może jakaś wersja żeby odpowiadał 2 osobom i więcej ??

Craftlive · 1 Listopada 2013

A to działa na zasadzie, że odczepia wszystkich, którzy Cię zaczepili na fb?

bercik156 · 4 Listopada 2013

Tak, odczepia wszystkich

Gawliczek · 5 Listopada 2013

Wiecie o co chodzi ?

Zaloguj się

👋 Witaj na MPCForum!

Bot zaczepiający na FB

Rekomendowane odpowiedzi

Zarchiwizowany