Find all our projects in development below.
All source code is GNU General Public License (GPL)
Browsing SendForm.frm (9.59 KB)
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form SendForm
BorderStyle = 3 'Fixed Dialog
Caption = "Send Message"
ClientHeight = 3615
ClientLeft = 45
ClientTop = 330
ClientWidth = 8055
ClipControls = 0 'False
Icon = "SendForm.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3615
ScaleWidth = 8055
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame3
Caption = "'To' &Alias (Username):"
Height = 855
Left = 120
TabIndex = 4
Top = 1440
Width = 3255
Begin VB.TextBox Text4
Height = 315
Left = 240
MaxLength = 20
TabIndex = 5
Top = 360
Width = 2775
End
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 3600
TabIndex = 14
Top = 3240
Visible = 0 'False
Width = 2085
_ExtentX = 3678
_ExtentY = 450
_Version = 393216
Appearance = 1
Max = 15
End
Begin VB.CheckBox Check1
Caption = "&Send As Spam Attack"
Height = 255
Left = 3600
TabIndex = 10
Top = 3240
Width = 1935
End
Begin VB.Frame Frame2
Caption = "&From:"
Height = 1095
Left = 120
TabIndex = 6
Top = 2400
Width = 3255
Begin VB.CommandButton Command3
Caption = "&Reset"
Height = 255
Left = 2280
TabIndex = 8
Top = 720
Width = 735
End
Begin VB.TextBox Text3
Height = 315
Left = 240
MaxLength = 20
TabIndex = 7
Top = 360
Width = 2775
End
End
Begin VB.TextBox Text2
Height = 1815
Left = 3600
MaxLength = 500
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 480
Width = 4335
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "Cancel"
Height = 375
Left = 6960
TabIndex = 3
Top = 3120
Width = 975
End
Begin VB.CommandButton Command1
Caption = "OK"
Default = -1 'True
Height = 375
Left = 5880
TabIndex = 2
Top = 3120
Width = 975
End
Begin VB.Frame Frame1
Caption = "&To:"
Height = 1215
Left = 120
TabIndex = 11
Top = 120
Width = 3255
Begin VB.TextBox Text1
Height = 315
Left = 240
MaxLength = 20
TabIndex = 0
Top = 720
Width = 2775
End
Begin VB.OptionButton Option1
Caption = "&Workgroup"
Height = 255
Index = 1
Left = 1920
TabIndex = 13
Top = 360
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "&Computer name"
Height = 255
Index = 0
Left = 240
TabIndex = 12
Top = 360
Value = -1 'True
Width = 1575
End
End
Begin VB.Image IconImage
Height = 255
Left = 7560
Top = 120
Visible = 0 'False
Width = 375
End
Begin VB.Label Label1
Caption = "&Message:"
Height = 255
Left = 3600
TabIndex = 9
Top = 240
Width = 735
End
End
Attribute VB_Name = "SendForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const KS_KEYDOWN = &H8001
Private Const GRAY = &H8000000F
Private Const WHITE = &H80000005
Dim DefFromValue As String
Private Sub Command1_Click()
Dim Control As Object
Dim SpamTotal As Integer
Dim PercentDone As String
Dim i As Integer, i2 As Integer
If Text1.Text = "" Then
MsgBox "You must enter a computer name to send a message.", vbExclamation
Text1.SetFocus
Exit Sub
ElseIf Text2.Text = "" Then
MsgBox "You must type a message.", vbExclamation
Text2.SetFocus
Exit Sub
ElseIf Text3.Text = "" Then
MsgBox "You must enter who the message is from.", vbExclamation
Text3.SetFocus
Exit Sub
ElseIf Text4.Text = "" Then Text4.Text = Text1.Text
End If
If (DefFromValue <> Text3.Text And bIsUnlocked = False) Or _
(Check1.Value = 1 And bIsUnlocked = False) Then
MsgBox "Hack Detected, terminating program!", vbCritical
End
Exit Sub
End If
If bIsUnlocked Then
If GetAsyncKeyState(16) = KS_KEYDOWN And _
GetAsyncKeyState(17) = KS_KEYDOWN And _
GetAsyncKeyState(18) = KS_KEYDOWN Then
MailBox.SendMessageSpike Text1.Text
MsgBox "Message Spike Sent!", vbExclamation
Unload Me
Exit Sub
End If
End If
If Check1.Value = 0 Then
MailBox.SendNewMessage Text3.Text, Text1.Text, Text2.Text, Text4.Text
Else
SpamTotal = Val(Left(InputBox("Enter the number of times to send the message (1-99999): ", "Spam Attack - " + App.Title, "1000"), 5))
If SpamTotal < 1 Then
MsgBox "Spam Attack Cancelled.", vbExclamation
Exit Sub
End If
Caption = "Sending Message Spam Attack..."
For Each Control In Controls
Control.Enabled = False
Next Control
EnableX hwnd, False
ProgressBar1.Enabled = True
ProgressBar1.Value = 0
Check1.Visible = False
ProgressBar1.Visible = True
For i = 1 To SpamTotal
MailBox.SendNewMessage Text3.Text, Text1.Text, Text2.Text & i, Text4.Text
i2 = ProgressBar1.Max * (i / SpamTotal)
If i2 > ProgressBar1.Max Then i2 = ProgressBar1.Max
PercentDone = CStr((i / SpamTotal) * 100)
If InStr(PercentDone, ".") Then PercentDone = Left(PercentDone, InStr(PercentDone, ".") - 1)
Caption = "Sending Message Spam Attack (" + PercentDone + "% Complete)..."
ProgressBar1.Value = i2
If GetAsyncKeyState(27) = KS_KEYDOWN Then Exit For
DoEvents
Next i
End If
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Dim Buffer As String
Buffer = String(20, Chr(0))
If GetUserName(Buffer, Len(Buffer)) = 0 Then
Buffer = String(20, Chr(0))
GetComputerName Buffer, Len(Buffer)
End If
If InStr(Buffer, Chr(0)) Then Buffer = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
Text3.Text = UCase(Buffer)
DefFromValue = Text3.Text
'UCase(GetRegString(HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\VxD\VNETSUP", "ComputerName"))
End Sub
Private Sub Form_Load()
IconImage.Picture = Icon
Set Icon = Nothing
Command3_Click
If bIsUnlocked = False Then
Text3.Enabled = False
Text3.BackColor = GRAY
Command3.Enabled = False
Check1.Enabled = False
End If
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.Text = ""
Case 1
Text1.Text = UCase(GetRegString(HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\VxD\VNETSUP", "Workgroup"))
End Select
End Sub
Private Sub Text1_Change()
Dim i As Integer
Text4.Text = UCase(Text1.Text)
If AAOptn_Enabled = 1 And UBound(AA_List) > 0 Then
For i = 1 To UBound(AA_List)
If UCase(Text1.Text) = UCase(AA_List(i).Recipient) Then Text4.Text = UCase(AA_List(i).RecipientAlias)
Next i
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub Text1_LostFocus()
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub Text2_GotFocus()
Command1.Default = False
End Sub
Private Sub Text2_LostFocus()
Command1.Default = True
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub Text3_LostFocus()
Text3.Text = UCase(Text3.Text)
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub Text4_LostFocus()
Text4.Text = UCase(Text4.Text)
End Sub