by Samuel (3 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 9th September 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This will send as many popup messages to any computer you wish. Open the code with Notepad and save as .frm.
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
No comments have been posted about This will send as many popup messages to any computer you wish. Open the code with Notepad and save. Why not be the first to post a comment about This will send as many popup messages to any computer you wish. Open the code with Notepad and save.