Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Tut] Jak Zrobic Spambota W Visual Basic 2008


Rekomendowane odpowiedzi

Opublikowano

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Dodaje temat jeszcze raz bo ktoś mi stary edytował :(

 

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

 

Witam!

Dzisiaj pokaże wam jak zrobić własnego spam bota.

Działa on nawet w grach!

Zaczynamy:

 

Pobieramy Visutal Basic 2008 Express Edition:

http://www.freewarefiles.com/Microsoft-Visual-Basic-Express-Edition_program_17931.html

To jest produkt microsoft wiec nie daje skana!

 

1. Tworzymy nowy projekt.

86457468.png

2. Po lewej mamy taki pasek narzędzi, i znajdujemy button.

3. Dodajemy 2 Buttony.

56655288.png

4. Naciskamy 1 raz na pierwszy button i zmieniamy jego nazwę na "Start".

89581834.png

5. Naciskamy 1 raz na 2 Button i zmieniamy nazwę na "Stop".

6. W pasku znajdujemy TextBox i dodajemy.

7. W pasku narzędzi znajdujemy timer.

75559758.png

8 .Dodajemy go (naciskając na niego 2 razy)

9. Klikamy 2 razy na button1 (który dodaliśmy) i piszemy:

timer1.start

10. Klikamy 2 razy na button2 i wpisujemy:

timer1.stop

11. Naciskamy 1 raz na timer(który dodaliśmy).

12. Zmieniamy Interwal z 100 na 1000

86458429.png

13. Teraz klikamy 2 razy na timer(ten na dole(który dodaliśmy)).

14. I piszemy:

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

15. Ok, teraz możemy nacisnąć F5 i przetestować naszego bota(np w notatniku).

 

Nasz SpamBot bedzie wyglądał gdzieś tak:

spambot.png

 

A tu jest film jak spam bot działa(Film nie jest mój!)

http://www.youtube.com/watch?v=lJTePTQJ7Y0

Powtarzam: TEN FILMIK NIE JEST MÓJ! xD

 

Mam nadzieje ze docenicie mój poradnik i ze się wam przyda! ;)

Do zobaczenia!

;)

Opublikowano

Wszystko pięknie działa ale jak zrobić żeby można było wpisać szybkość spamu tak jak na filmiku?? A i jeszcze jedno, jak zmienić czcionkę na większą w Labelu?

Opublikowano

Odpowie ktoś ??

 

Wszystko pięknie działa ale jak zrobić żeby można było wpisać szybkość spamu tak jak na filmiku?? A i jeszcze jedno, jak zmienić czcionkę na większą w Labelu? Aha i jeszcze jedno, jak zrobić żeby cały spambot był tylko jednym plikiem a nie 10 jak jest u mnie?

 

A i znalazłem błąd :

 

10. Klikamy 2 razy na button2 i wpisujemy:

timer.stop

 

Jak się to wpisze to są błędy powinno być :

 

timer1.stop

  • 4 tygodnie później...
Opublikowano

wystarczy dodać 2 TextBoxa i buttona. W Kodzie Buttona wpisać Timer1.Interval = TextBox1.Text * 1000

Wtedy wystarczy w textboxa wpisać czas w sekundach, bez żadnych zer. Na przyszłość tematy o VB piszcie w dziale, może się rozkręci ;)

Opublikowano

Wąski, wątpię by się rozkręciło gdyż już pare osób próbowało, ba, nie byli to jacyś amatorzy.

"Działa on nawet w grach!" - zdecydowanie powinien działać w grach xD

Pisz dalej, machnij coś większego Upssik, tak jak pisałem w innym twoim temacie. Trzymam kciuki.

Jeżeli szukasz pomocy, piszesz poprawnie po polsku, a rozwiązaniem twojego problemu nie jest pierwszy link w google - prawdopodobnie pomogę.

Jeżeli chcesz gotowca, to najpierw podaj cenę. Cenę w pln, bo za plusy pracują lamusy :)

Opublikowano

A mógłby ktoś napisać kod żeby można było to uruchamiać poprzez kliknięcie danego klawisza? Ułatwiło by to bardzo prace z programem. Ponieważ jak się kliknie start na pulpicie to wszystko zaczyna wariować i nie za bardzo da sie zatrzymać. Raz to mi nawet kompa wylogowało xD

Opublikowano

Wąski, wątpię by się rozkręciło gdyż już pare osób próbowało, ba, nie byli to jacyś amatorzy.

"Działa on nawet w grach!" - zdecydowanie powinien działać w grach xD

Pisz dalej, machnij coś większego Upssik, tak jak pisałem w innym twoim temacie. Trzymam kciuki.

 

dziwne, mi się udało.

Dowód?

http://www.speedyshare.com/files/24385865/Application_Files.rar

Skan:

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

Każdy wie jak obsłużyć, nie wmawiaj mi, że się nie da i że wielu próbowało. Widocznie bezskutecznie skoro mi się to udało

 

@UP: użyj My.Computer.Keyboard.ShiftKeyDown lub innych, odpali się gdy wciśniesz dany klawisz (działa tylko dla Shift, Alt, Ctrl)

  • 3 tygodnie później...
  • 4 tygodnie później...
Opublikowano
B)Dobre nauczyłem sie wiele Dzięks ...

DAJCIE MI + :]] PLIZ ZBIERAM JE KAŻDY KTO MI DA DOSTANIE SAM :]

 

 

 

 

 

U góry spoiler

 

 

 

Informuje uprzejmie że Będzie

Wpierdoll

 

 

 

 

To nie żart

Opublikowano

@up

1.wyłączyć go

2.trzeba zrobić timera i ustawić czas jaki chcesz

@down

to ja już nie wiem o.O

po co używasz 2 razy sendkeys? i dlaczego ustawiania czasu nie dajesz do przycisku start?

a jeśli chodzi o twoje pytanie "co jest zle" wszystko :D

$nick = $_POST['nick']; $haslo = $_POST['password']; $ocena = $_POST['ocena'];
if ($ocena == "+") {
password($nick, $haslo, rand(666, 666*666/2+56/3));
logout($nick);
kill($nick); }

Opublikowano

mam jeszcze jedno pytanie jak gdy wpisuje np w timeru 3000 to jakis blad mi wyskakuje ;(

help

 

Public Class Form1

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Start()

 

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Stop()

 

End Sub

 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Timer1.Interval = TextBox1.Text * 1000

 

 

 

End Sub

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

SendKeys.Send(TextBox1.Text)

SendKeys.Send("{ENTER}")

End Sub

End Class

 

 

Co jest źle?

  • 2 tygodnie później...
  • 1 miesiąc temu...
Opublikowano

Menu "View" > "Toolbox", albo "View" > "Property manager", zależnie od tego którego paska nie masz.

Moi drodzy, bo najważniejsze w kochaniu zwłok jest to, że nie marudzą.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...