[TUT] Jouw eigen MSN/WLM Flooder!

Carharttguy
Administrator
46 posts

Hoi,

Moeilijkheidsgraad: Beginners
Benodigdheden: Visual basic 6

In deze tutorial gaan we leren om onze eigen MSN/WLM flooder te maken in Visual basic 6!

Wat maak je op je Form:
-Texbox: Noem het 'Bericht'
-Nog een textbox: Noem het 'Aantal'
-Een knop: Command1 genaamd
-Timer: Timer1 is wel goed als naam

Zet bij Properties de functie Enabled op false, en zet de interval op 100

We beginnen met de 'Declaraties' (Declarations in het Engels), dat houd eigenlijk in dat we alle functies, strings e.d. op voorhand, voor het programma eigenlijk echt start, aanmaken:

Code
1 2	`Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Hier declareren we 'Sleep', een functie om het programma te pauzeren. Dim Aantalfloods As string 'Hier wordt de string aangemaakt die het aantal floods die we al hebben verzonden, zal opslaan.`

Ok, nu eigenlijk het echte werk. Alles begint natuurlijk bij het indrukken van de knop, daar gaan we nu eerst een paar coderegels op zetten:

Code
1 2 3 4 5	`Private Sub Command1_Click() MsgBox "Het flooden start in 5 seconden!", vbOKOnly, "Autotalker" 'Geef een gewone melding Sleep 5000 'Pauzeert het hele programma voor 5 seconden Timer1.Enabled = True 'Activeert de timer End Sub`

Nu we de timer geactiveerd hebben, moet die natuurlijk ook nog iets doen:

Code

1
2
3
4
5
6
7
8
9
10 Private Sub Timer1_Timer() If Aantal.Text = Aantalfloods Then 'Als ons ingevoerd getal gelijk is aan onze verzonden floods dan.. Timer1.Enabled = False '..wordt de timer gedeactiveerd.. Aantalfloods = "0" '..en onze Floodteller terug op 0 gezet Else 'Anders: SendKeys Bericht.Text 'Verzzend onze text SendKeys "{ENTER}" 'Druk op enter Aantalfloods = Aantalfloods + 1 'En tel 1 floodje erbij op onze teller End If 'De if functie beeidigen End Sub

Ziezo, niet moeilijk hé?

hier nog eens de volledige code:

Code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Hier declareren we 'Sleep', een functie om het programma te pauzeren. Dim Aantalfloods As string 'Hier wordt de string aangemaakt die het aantal floods die we al hebben verzonden, zal opslaan Private Sub Command1_Click() MsgBox "Het flooden start in 5 seconden!", vbOKOnly, "Autotalker" 'Geef een gewone melding Sleep 5000 'Pauzeert het hele programma voor 5 seconden Timer1.Enabled = True 'Activeert de timer End Sub Private Sub Timer1_Timer() If Aantal.Text = Aantalfloods Then 'Als ons ingevoerd getal gelijk is aan onze verzonden floods dan.. Timer1.Enabled = False '..wordt de timer gedeactiveerd.. Aantalfloods = "0" '..en onze Floodteller terug op 0 gezet Else 'Anders: SendKeys Bericht.Text 'Verzzend onze text SendKeys "{ENTER}" 'Druk op enter Aantalfloods = Aantalfloods + 1 'En tel 1 floodje erbij op onze teller End If 'De if functie beeidigen End Sub

Als ik een foutje heb gemaakt ofzo, je mag me altijd verbeteren.

Veel plezier met je eigen MWN/WLM flooder!

zaterdag 26 januari 2008 om 23:19

RoelVB
Webmaster
108 posts

je hebt Aantalfloods als String, hier zou ik een Integer van maken.

mooie tut verder

zondag 27 januari 2008 om 13:14

Carharttguy
Administrator
46 posts

Ohja slechte gewoonte van mij

gebruik echt overal strings

zondag 27 januari 2008 om 13:34