E-mail server abhohlen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von dusti.

    E-mail server abhohlen

    Hi

    Ich kenn mich in Visual basic nicht so gut aus und dachte ich melde mich hier mal an.

    Hatt einer von euch den code zum E-mails abhohlen über einen pop3 server für microsoft visual basic 2008
    8|
    Ich hab schon voll Viel gegoogelt hab massig codes gefunden aber ich hab immer massig fehlermeldungen wär toll wenn mir jemand helfen könnte.


    mfg


    Fabi

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Net
    3. Imports System.Net.Sockets
    4. Imports System.Text
    5. Imports System.io
    6. Imports System.Threading[/font]
    7. Public Class Form1
    8. Inherits System.Windows.Forms.Form
    9. Public stream As NetworkStream
    10. Public sr As StreamReader
    12. Private Sub cmdPOPen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPOPen.Click
    13. Dim server As String = "servername"
    14. Dim user As String = "benutername"
    15. Dim password As String = "passwort"
    16. Dim message As String
    17. Dim send As String
    18. Dim client As New TcpClient(server, 110)
    19. stream = client.GetStream()
    20. sr = New StreamReader(stream)
    21. txtResponse.Text += sendCommand("?")
    22. txtResponse.Text += sendCommand("USER " + user)
    23. txtResponse.Text += sendCommand("PASS " + password)
    24. txtResponse.Text += sendCommand("STAT" + vbCrLf)
    25. txtResponse.Text += sendCommand("RETR 1" + vbCrLf) 'hole erstes Mail
    26. txtResponse.Text += sendCommand("QUIT" + vbCrLf)
    27. End Sub
    28. Private Function sendCommand(ByVal send As String) As String
    29. send += vbCrLf
    30. Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
    31. stream.Write(data, 0, data.Length)
    32. sr = New StreamReader(stream)
    33. Dim buffer As New StringBuilder
    34. Do While sr.Peek() > 0
    35. Thread.Sleep(100)
    36. buffer.Append(sr.ReadLine + vbCrLf)
    37. Loop
    38. Return buffer.ToString
    39. End Function
    40. End Class


    ein Paar sachen bekomme ich einfach nicht deklariert z.b txtresponse

    könntet ihr euch das mal anschauen ob ihr den Fehler findet ?? :rolleyes:


    Edit by LaMa5:
    - 1. Bitte keine Doppelpost (*gelöscht*)
    - 2. für Quelltexte bitte den [ V B ] Tag verwenden (wie immer ohne die Leerzeichen)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()

    Wie, bekommst du nicht deklariert, du hast den Code doch geschrieben, da musst du doch auch wissn, was für ein Objekt das ist, oder? Aber ich vermute mal, dass das irgend ein Textfeld oder Label ist (wegen dem .Text dahinter). Falls du das irgendwo her kopiert hast (Tutorial) steht sicherlich im begleitenden Text, als was das zu deklarieren ist.