We Are DevilzCrew
 
IndeksPendaftaranLogin

Share | 
 

 Membbuat mail sender dengan VB 2008

Go down 
PengirimMessage
plaque
Pengunjung
Pengunjung
avatar

Jumlah posting : 3
Join date : 12.05.09
Age : 30
Lokasi : Ujung Bangka

PostSubyek: Membbuat mail sender dengan VB 2008   Tue May 12, 2009 11:24 am

add 3 button/tombol
text/name
----------------
start / startbtn
stop / stopbtn
exit / exitbtn

add 5 textbox
text/name
-----------------
gmail username / usernamebox
gmail password / passwordbox
to: / tobox
subject / subjectbox
message / messagebox <-- buat ini multiline

add 1 timer
--------------------------

add 1 label
text/name
--------------------
0 / label1 <-- angka nol bukan huruf O

maka akan jadi seperti berikut ini



setelah panel jadi kita masukkan code dengan langkah langkah sebagai berikut

View --> Code
di paling atas tuliskan code berikut
Code:
Imports System.Net.Mail

kembali ke designer, double klik tombol start dan tuliskan code berikut
Code:
Timer1.start()

dobel klik tombol stop tuliskan code berikut
Code:
Timer1.stop()

dobel klik tombol exit dan tuliskan code
Code:
End

maka code akan nampak seperti berikut


Bagian terakhir, dobel klik pada timer dan masukkan code berikut
Code:
Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(usernamebox.Text)
        MyMailMessage.To.Add(tobox.Text)
        MyMailMessage.Subject = (subjectbox.Text)
        MyMailMessage.Body = messagebox.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.text)
        SMTPServer.EnableSsl = True
        Label1.Text = Val(Label1.Text + 1)
        SMTPServer.Send(MyMailMessage)

Full code akan nampak seperti dibawah ini


pencet tombol f5 bila semua telah selesai.
ini adalah program bomber sederhana, anda bisa merubah layout, warna , atau icon dari folder debug.

semoga berguna
Kembali Ke Atas Go down
petimati
Admin
Admin
avatar

Jumlah posting : 89
Join date : 11.05.09

PostSubyek: Re: Membbuat mail sender dengan VB 2008   Tue May 12, 2009 11:04 pm

ada yang udah jadi blummmm
Kembali Ke Atas Go down
kiddies
Asisten LAB
Asisten LAB
avatar

Jumlah posting : 135
Join date : 05.05.09

PostSubyek: Re: Membbuat mail sender dengan VB 2008   Fri May 15, 2009 3:12 am

wew vb yang biasa jah lum ngusain.....tapi keren lah kaka, nice share gitu loh.....
Kembali Ke Atas Go down
roganro
Pengunjung
Pengunjung
avatar

Jumlah posting : 21
Join date : 15.05.09
Age : 27
Lokasi : iN Th3 E4RTH

PostSubyek: Re: Membbuat mail sender dengan VB 2008   Tue May 19, 2009 12:02 pm

plaque wrote:
add 3 button/tombol
text/name
----------------
start / startbtn
stop / stopbtn
exit / exitbtn

add 5 textbox
text/name
-----------------
gmail username / usernamebox
gmail password / passwordbox
to: / tobox
subject / subjectbox
message / messagebox <-- buat ini multiline

add 1 timer
--------------------------

add 1 label
text/name
--------------------
0 / label1 <-- angka nol bukan huruf O

maka akan jadi seperti berikut ini



setelah panel jadi kita masukkan code dengan langkah langkah sebagai berikut

View --> Code
di paling atas tuliskan code berikut
Code:
Imports System.Net.Mail

kembali ke designer, double klik tombol start dan tuliskan code berikut
Code:
Timer1.start()

dobel klik tombol stop tuliskan code berikut
Code:
Timer1.stop()

dobel klik tombol exit dan tuliskan code
Code:
End

maka code akan nampak seperti berikut


Bagian terakhir, dobel klik pada timer dan masukkan code berikut
Code:
Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(usernamebox.Text)
        MyMailMessage.To.Add(tobox.Text)
        MyMailMessage.Subject = (subjectbox.Text)
        MyMailMessage.Body = messagebox.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.text)
        SMTPServer.EnableSsl = True
        Label1.Text = Val(Label1.Text + 1)
        SMTPServer.Send(MyMailMessage)

Full code akan nampak seperti dibawah ini


pencet tombol f5 bila semua telah selesai.
ini adalah program bomber sederhana, anda bisa merubah layout, warna , atau icon dari folder debug.

semoga berguna

wew kayanya knal nih om, anak forum ubuntu indo bukan???
Kembali Ke Atas Go down
http://roganro.web44.net
vhesckot
Pengunjung
Pengunjung
avatar

Jumlah posting : 56
Join date : 03.06.09

PostSubyek: Re: Membbuat mail sender dengan VB 2008   Fri Jun 05, 2009 7:23 am

Wah keren kk. cheers cheers

Ajarin dong kk.


Btw kalo boleh di share dong kk kalo udah jadi.
Smile Smile Smile Smile Smile Smile Smile
Kembali Ke Atas Go down
cakill
Pengunjung
Pengunjung
avatar

Jumlah posting : 7
Join date : 07.07.09
Age : 34
Lokasi : Dolly Rock City

PostSubyek: Re: Membbuat mail sender dengan VB 2008   Tue Jul 07, 2009 3:23 am

wkwkwkwk gut job om..
ktmu lagi dah ma om plaque...
pa kabar om??

mo coba-coba neeh om
kalo pake' vb.6 isa kagak iia??


test ahhhhhh
Kembali Ke Atas Go down
http://jatimcom.org
N4ck0
Pengunjung
Pengunjung
avatar

Jumlah posting : 59
Join date : 21.06.09

PostSubyek: Re: Membbuat mail sender dengan VB 2008   Tue Jul 07, 2009 7:24 am

wahh
nice nih
boleh di coba om
Kembali Ke Atas Go down
kiddies
Asisten LAB
Asisten LAB
avatar

Jumlah posting : 135
Join date : 05.05.09

PostSubyek: Re: Membbuat mail sender dengan VB 2008   Thu Jul 09, 2009 2:04 am

kren dah akh,pkloopingnya brapakali nih.....lumayan buat spam ke emailorang om.....tr wedit lagi codinganya....
Kembali Ke Atas Go down
Sponsored content




PostSubyek: Re: Membbuat mail sender dengan VB 2008   

Kembali Ke Atas Go down
 
Membbuat mail sender dengan VB 2008
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Perbedaan Spesifikasi Ninja 205R 2008,2009,2010
» bercanda dengan LOGIKA
» WTS Honda Tiger tahun 2008 (butuh uang) harga miring
» WTB Satria FU 2007/2008 2nd
» WTS: Ninja R 150 L tahun 2008 - Maret, Cekidot , Gan!!

Permissions in this forum:Anda tidak dapat menjawab topik
Devilzc0de TeaM :: Pemrograman :: Lain-lain-
Navigasi: