Hacker WarRock

[Ṗяø] ◄Яɪɢнτ

Petit tuto pour crée un spammer de wizz :

Il faut :

- 1 listbox
- 1 timer
- 2 buttons
- 1 textbox

Ensuite inserer ce code au dessus de "Public Class Form1" :

Code:

Imports MessengerAPI
Imports System.Runtime.InteropServices

Inserer en dessous de "Public Class Form1" ce code

Code:

Dim msn As New MessengerAPI.Messenger
    Dim msn2 As New MessengerAPI.Messenger
    Private Declare Function Chat Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Private Declare Function Nudge Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer

Avec ce code on déclare 2 fonctions : la première sert a trouvé la fentre du contact cible, la 2éme sert a envoyé un message. De plus on déclare 2 messengerApi pour controler msn.

Apres ceci inserer le code dans le premier boutton :

Code:

Timer1.Enabled = True ' on active juste le timer
Timer1.Start()

Dans le timer ajouter ceci :

Code:

Dim win As Integer
        Try ' essaie de spam
            msn.InstantMessage(TextBox1.Text) ' envoie le wizz a l'adresse dans la textbox1
            win = Chat("IMWindowClass", vbNullString) ' on utilise la function Chat declarer au debut
            Nudge(win, &H111S, &H2B1S, 0) ' envoie un wizz
            Me.TopMost = True ' permet que la fenetre reste au 1er plan
        Catch
        End Try

Regler l'interval du timer pour regler la vitesse du spam.

Dans le 2eme boutton ajouter ce code qui stop le timer :

Code:

Timer1.Enabled = False
Timer1.Stop()

Dans le "sub form1_load" ajouter ce code :

Code:

Dim msncontact As IMessengerContact
        Dim msncontacts As IMessengerContacts
        msncontacts = msn.MyContacts
        ListBox1.Items.Clear()
        For Each msncontact In msncontacts
            If msncontact.Status <> MISTATUS.MISTATUS_OFFLINE Then
                ListBox1.Items.Add(msncontact.SigninName)
            End If
        Next

Se code permet de faire une liste de vos contacte en ligne

Ensuite double cliquez sur votre listbox1 est ajoutez ce code

Code:

TextBox1.Text = ListBox1.Text

Et voila organizer vos boutton etc ... et vous avez créé un spammer de wizz , mais pour l'utiliser correctement il faut patcher la limitations Wink

Řųsħ-βэяsэkэя

Sa sert a quoi ?

th3k1n9127

sa reproduit se ek tu a écrit