[TuT] Spam Bot By Bartek4175

[bartek4175]

Witam Jest To mój Pierwszy TuT

 

Spam Bot By Bartek4175 , Korzystam z Programu Microsoft Visual Basic 2010 Express

 

1. Tworzymy Nowy Projekt ( Windows Forms Applikaction ) i nazywamy Dowolnie ja go nazwałem Spam Bot By Bartek4175

 

2. Klikamy F4 i w Proporties Szukamy Linijki Text i Nazywamy ją Dowolnie ( ja nazwałem SpamBot By Bartek4175 ) okienko rozszerzamy

 

3. Klikamy w ToolBox i Dodajemy :

 

- TextBox

- 3x Button

- Timer

 

i ustawiamy dowolnie jak ustawiłem tak

 

 

4. Klikamy(2 razy) w Button 1 i wpisujemy

 

 

 Timer1.Start()    

 

Klikamy(2 razy) w Button 2 i piszemy :

 

 Timer1.Stop()  

 

Klikamy(2 razy) w button 3 i piszemy :

 

 Me.Close()  

 

5. Zmieniamy nazwy Przycisków :

 

Button1 - Start

Button2 - Stop

Button3 - Zamknij / Wyjście

 

6. Klikamy (2 razy) w Timer1 i wpisujemy :

 

SendKeys.Send(TextBox1.Text)
SendKeys.Send("{ENTER}")

 

7. Klikamy RAZ w Timer1 i klikamy F4 i zmieniamy Interval na 1500 ( czyli co 1,5 Sec. wiadomość będzie wysyłana ) i Zapisujemy !!

 

Włączamy Tryb Debug ( Debug > Start Debuggning ) i sprawdzamy czy chodzi wpisujemy text w TextBoksie i klikamy Start i włączamy np. notatnik czy jakieś forum klikamy tam gdzie można pisać i co 1,5 sec powinno wysyłać wiadomość . Błędy pisać na PW lub pod tematem

 

 

Licze na Like

 

Do Admina/Moderatora

 

Tak się staram zdejmiecie mi parę procent ?

 

 

Proszę o Dodanie do Spisu !!

 

Gotowy SpamBot :

 

Download :

 

http://www.mediafire.com/?2k9h2dapx9fvksl 

 

Skan :

 

 

 http://virusscan.jotti.org/pl/scanresult/3a3c81159085f38fefbe5103f96a34914eabc1a7 

[WellyPL]

NIe wiele mi to pomoże ale za staranie masz plusa :3

[traVisTB]

Hmm.... Jeśli chodzi o Twojego spambota (w downloadzie) to jest beznadziejny Żadnych przydatnych funkcji poza wysyłaniem zawartości textbox'a, że nie wspomnę o GUI ;p

Co do tutka - miliony takich widziałem, więc nie wiem czy jest jakoś specjalnie przydatny No ale jakby nie patrzeć jest w miarę czytelny i jest to dobrze napisany tut, ale jak już mówiłem... BYŁO ;D

 

PS. To nie jest Mega TUT - to, że dałeś jednego skrina nic nie zmienia ;d nie opisałeś szczegółowo co i jak działa ;D Więc to jest zwykły tut, 'skopiuj to i wklej tu' ;p

 

@edit, żeby spamu nie robić...

Z tym kopiowaniem chodzi o tych ludzi, którym dedykujesz ten tut. Nie mówię, że Ty kopiowałeś......... <pokerface>

[bartek4175]

Sam wszystko pisalem!!

[bartek4175]

Czy ktoś z niego korzysta ?

[PabloLewis]

Spoko, spoko, ale cudów nie ma :P

[Gość]

Nie bądźmy skromni - to nie jest tut. Kolejny gówno-spambot? Przecież ich było co najmniej 9000 (wszystkie są takie same).

Kosz.

[Bartek2112]

WellyPL?

[smooth killer]

Warto dodać jeszcze iż nie jest to dosyć poprawny sposób ponieważ wpisanie do textboxa znaków typu ( ) ^ wywali błąd, trzeba je wysyłać w taki sposób {(} {)} {^} bo te znaki są już "zarezerwowane"

Kiedyś gdy zaczynałem z VB napisałem taką funkcję:

Private Function poprawZnaki(ByVal wartosc As String) As String
        wartosc = wartosc.Replace("+", "{+}")
        wartosc = wartosc.Replace("(", "{(}")
        wartosc = wartosc.Replace(")", "{)}")
        wartosc = wartosc.Replace("%", "{%}")
        wartosc = wartosc.Replace("~", "{~}")
        wartosc = wartosc.Replace("^", "{^}")
        Return wartosc
    End Function

Uzywamy jej tak:

poprawZnaki(zmienna_typu_string) czyli np

Dim zleZnaki As String = "Czo to ()()()()()+++"
zleZnaki = poprawZnaki(zleZnaki)
SendKeys.Send(zleZnaki & "{Enter}")

[thiew3]

Sam pisałeś ? Coś nie wierze

[BBM_Corporation]

 

Sam pisałeś ? Coś nie wierze

I jeszcze napisal komentarz działa!! ! Dziecko