[INNE] Oceńcie program

[PabloLewis]

Witam, mam prośbę, czy mógłby ktoś pobrać mój nowo narodzony program następnie go użyć, a potem wpisać ocenę.

http://www.sendspace.com/file/fwmywq

 

http://virusscan.jotti.org/pl/scanresult/c81d7496b8cb68f35c12ca190ed9ac557178e03c

 

 

Program polega na wysyłaniu e-maili.

Plusy:
-dowolny temat wiadomości
-dowolna treść wiadomości
-dowolny nadawca wiadomości

-dowolny odbiorca wiadomości

Minusy:

Sami napiszcie

[Gość]

Dodaj skan.

[PabloLewis]

Dodaj skan.

Już

[Jaca777]

Eset coś się czepia :p Nie pobiore, bo po nic potrzebne, a wole nie ryzykować. Jeśli naprawdę tak działa ("dowolny nadawca wiadomości") to niezła robota.

To nie jest zapewne skomplikowny kod, ale dobry pomysł. Kiedyś może się przyda i pobiore.

[Bum662]

Działa. ;p

Tylko wiesza się przy wysyłaniu emaili.

[PabloLewis]

ale tylko na 5 sekund :P

[Bum662]

ale tylko na 5 sekund :P

Radze ci, ucz sie c++, c# bo w visualbasic zbyt wiele nie osiagniesz ;p

[zima1o]

nie działa mi. ścina sie na 1 minute i error 0/100

[kacper173173pl]

Pff, widac, ze twoj mail do programu... A to sie nie wiesza, tylko wykonuje. Wiem, bo sprawdzalem na laczu 512kb/s i 60mb/s...

[muffin19]

Oj musisz nad tym popracować jeżeli coś z tego ma być. Pozdro.

[AnakinX]

http://i.imgur.com/skpUo.png

[Psychodela*-]

Moja ocena 7/10 bez sciagania programu

[seweryn55]

Zrób wątek w którym będziesz wysyłał wiadomość to nie będzie się program wieszał.

 

Tutaj na MSDN masz opisane:

http://support.microsoft.com/kb/315577/pl

[adi2dj]

heh

[LuK1337]

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)

Dim message As MailMessage

Dim client As SmtpClient

message = New MailMessage

client = New SmtpClient

client.Credentials = New NetworkCredential("[email protected]", "x6Y7uLOS321")

client.Port = &H19

client.Host = "smtp.gmail.com"

client.EnableSsl = 1

client.EnableSsl = 1

message.To.Add(Me.TextBox2.Text)

message.From = New MailAddress("[email protected]")

message.Subject = Me.TextBox3.Text

message.Body = (Me.TextBox1.Text & ChrW(12) & " : " & Me.TextBox4.Text & ChrW(12))

client.Send(message)

Me.TextBox1.Text = ""

Me.TextBox3.Text = ""

Me.TextBox4.Text = ""

Return

End Sub