• Home
 · 
• Internet/HTML
 · 
• This is a simple MSN flooder. Floods the screen with messages. Thanks to Ritik who put up with me t

This is a simple MSN flooder. Floods the screen with messages. Thanks to Ritik who put up with me t

This is a simple MSN flooder. Floods the screen with messages. Thanks to Ritik who put up with me testing it on him.

Rate This is a simple MSN flooder. Floods the screen with messages. Thanks to Ritik who put up with me t

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
Next x
End Sub

Private Sub Command2_Click()
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
SendKeys " " & Text1.Text & "{enter}"
SendKeys "  " & Text1.Text & "{enter}"
SendKeys "   " & Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys "     " & Text1.Text & "{enter}"
SendKeys "      " & Text1.Text & "{enter}"
SendKeys "      " & Text1.Text & "{enter}"
SendKeys "      " & Text1.Text & "{enter}"
SendKeys "     " & Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys "   " & Text1.Text & "{enter}"
SendKeys "  " & Text1.Text & "{enter}"
SendKeys " " & Text1.Text & "{enter}"
SendKeys Text1.Text & "{enter}"
SendKeys Text1.Text & "{enter}"
Next x
End Sub

Private Sub Command3_Click()
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & Text1.Text & Text1.Text & Text1.Text & Text1.Text & Text1.Text & "{enter}"
Next x
End Sub

Private Sub Command4_Click()
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys "        " & Text1.Text & "{enter}"
SendKeys "            " & Text1.Text & "{enter}"
SendKeys "        " & Text1.Text & "{enter}"
SendKeys "    " & Text1.Text & "{enter}"
SendKeys Text1.Text & "{enter}"
Next x
End Sub

Private Sub Command5_Click()
Form1.WindowState = 1
For x = 1 To Text2.Text
SendKeys Text1.Text & "{enter}"
SendKeys " " & Text1.Text & "{enter}"
SendKeys "   " & Text1.Text & "{enter}"
SendKeys "     " & Text1.Text & "{enter}"
SendKeys "       " & Text1.Text & "{enter}"
SendKeys "         " & Text1.Text & "{enter}"
SendKeys "           " & Text1.Text & "{enter}"
Next x
End Sub