Mensajes

[Skull Bat's Editor]

Saludos, bueno aqui les presento otra pequeña aplicacion de las mias! se llama Skull Bat's Editor y como su nombre lo dice nos permite Editar Archivos .bat o introducirles codigos que aqui en mi programa se presentan... bueno como siemrpe dejo las capturaS!

                              Capturas

Form Principal



Form de Opciones



Opciones de Edicion

- Propagacion USB
- Deshabilitar RegEdit
- Deshabilitar TaskMan
- Deshabilitar MsConfig
- Copiarse a Carpetas
     + System
     + System32
     + Temp
     + C:\WINDOWS
- Agregarse al Registro

Futuras Opciones

- Propagacion p2p
- Infectar Archivos .Rar
- Deshabilitar al minimizar ventanas
- Matar Procesos

Desventajas

Como esta hecho en VB6 y use un componente CommondDialog si no me equivoco si les tira un error de que les falta un .ocx o algo asi, en el archivo .rar esta esa .ocx, lo unico que tienen que hacer es copiar esa .ocx al C:\WINDOWS\system32 y listo!

Gracias a:

SmartGenius por siempre ayudarme en el testeo de mis programas! no se que haria sin el!

LINK DE DESCARGA: Descarga de AQUI

Salu2's! 8)

[Manipulando el MSN]

                                                                 Manipulando el MSN

Saludos, bueno creo este Tuto para que aprendan por decirlo asi a manipular, o crear sus aplicaciones un poco avanzadas usando el VB eso si este tuto no es para aquellos que no tienen ni idea de como hacerlo, o nisiquira han leido sobre manipular el MSN con VB para eso primero leanse esta pequeña introduccion y listo!

Introduccion al MSN AQUI

jeje bueno leanselo y listo, repito si no tienes idea de como manipular el msn en VB lee el tuto que te deje arriba y luego prosigue leyendo si no no!!

Comenzemos

Bueno antes que nada hay que agregar nuestra referencia que la agregamos asi: Proyecto > Referencia > Buscan Messenger API Type Library > Aceptar bueno este es el primer paso, luego agregamos en general Public WithEvents MSN As Messenger y en el form_load copian esto Set MSN = New Messenger
Bueno con esto estamos listos para comenzar y claro tampoco se los dejo papaya; tambien necesitan declarar ustedes saben que (Mas adelante veran) para manipular parte de los contactos, etc!

Agregando TODOS nusetro contactos en un ListBox:

Esto en el tuto de arriba si no me equivoco se lo van a explicar, pero bueno voy a refrescarles la memoria ya que vamos a trabajar mayormente listando a los contactos para luego hacernos de las nuestras!
Ya con todo agregado agregamos un ListBox y un CommandButton, en el comannd ponemos esto:

Código [Seleccionar] Expandir

Private Sub Command1_click()
List1.Clear 'limpiamos el listbox
Set MsgrUIA = New MessengerAPI.Messenger ' seteamos MsgrUIA para trabajar con contactos
Dim user As IMessengerContact ' declaramos user como contacto del msn

    For Each user In MsgrUIA.MyContacts ' por cada user(usuraio) en MsgrUIA.MyContacts(osea en la lista de TUS contactos)
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then ' si estan en esos estados de arriba
        List1.AddItem user.SigninName ' lo agregamos al list1
        End If 'terminamos if
    Next ' next
Set MsgrUIA = Nothing ' limpiamos el MsgrUIA
End sub ' terminamos

Bueno creo que el code no tiene mayor explicacion, se explica por si solo!

Ahora si quisieramos mandarler un Mensaje a TODOS los contactos de nuestra lista conectados, como hariamos?
pues simple, de la misma forma que arriba solo que vamos a hacer algo mas facil! :

Código [Seleccionar] Expandir

Private sub Command2_Click()
dim user as IMessengerContact ' ya explicado
dim venta as IMessengerConversationWnd ' ya explicado
Set MsgrUIA = New MessengerAPI.Messenger ' seteamos

    For Each user In MsgrUIA.MyContacts
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then ' por cada usuario en el estado de arriba
        Set venta = MSN.InstantMessage(user) ' abrimos la ventana de conversacion con el user que esta en el bucle
              SendKeys Text1.Text ' ponemos nuestro comentario en el ClipBoard del msn
              SendKeys "{ENTER}" ' enviamos las teclas enter
            venta.Close ' cerramos la ventana de conversacion
        End If
      Next
Set MsgrUIA = Nothing 'limpiamos
end sub

Bueno creo que hay me toca explicar ciertas cositas basicas, como es el SendKeys, el SendKeys nos permite enviar pulsaciones como si estuvieramos escribiendo lo que hacemos aqui es enviar lo que esta en el Text1.text a la aplicacion de la conversacion del MSN y luego el enter!....
Mas abajo les dejo un poco de info sobre las teclas, etc!
Bueno por lo demas no creo que haya mayor explicacione en esta!

Bueno skull y si ahora quisiera enviar un mensaje mas de una vez a un solo contacto que YO quiera!
Pues simple, lo voy a explicar de la manera que YO lo hago; agregamos 1 commandButton, 1 label(Caption Listar), 1 ListBox(Stile CheckBox), y 1 TextBox

Bueno en la label vamos a colocar este code:

Código [Seleccionar] Expandir

Private Sub Label1_Click()
On Error Resume Next
List1.Clear
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
    For Each user In MsgrUIA.MyContacts
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
        List1.AddItem user.SigninName
        End If
    Next
Set MsgrUIA = Nothing
End Sub

Bueno ya saben este code lo que hace es lista todos nuestros contactos en el listbox, el textbox sera donde pondremos el mensaje que queremos hacer llegar a el o nuestros contactos seleccionados en el ListBox, ahora pasamo al CommandButton y ponemos este code:

Código [Seleccionar] Expandir

Private sub command1_Clicl()
On Error Resume Next
If List1.SelCount = 0 Then ' vemos si no se selecciono nada en el listbox tiramos un MsgBox
MsgBox ("Porfavor eliga un usuario"), vbInformation, "MSN Manager"
GoTo fin
End If

If IsNumeric(Text2.Text) = False Then ' ahora si en el text2.text es numerico pues tiramos otro MsgBox
MsgBox ("Porfavor agrege un numero no una letra")
GoTo fin
End If

Call cucu(Text1, Text2)
Text2.Text = "1"
fin:
end sub

Bueno antes de que se me olvide, ya que se me habia olvidado tienen que agregar otro textbox, este es para el numero de veces que repetiremos el mensaje a enviar! ..
Ahora pasamos a las Funcion Cucu!

Código [Seleccionar] Expandir

Private Sub cucu(mensa As String, veces As String)
On Error Resume Next
Dim b As Integer
Dim g As Integer
Dim venta As IMessengerConversationWnd

If veces = 0 Then veces = 1 ' si el numero de veces es igual a 0 entonces ponemos de valor 1

For i = 0 To List1.ListCount - 1 ' para i que es igual a 0 hasta la lista de la cuenta del ListBox
    If List1.Selected(i) = True Then ' si el contacto esta seleccionado(true) entonces
    Set venta = MSN.InstantMessage(List1.List(i)) ' seteamos nuestra ventana de conversacion
        For g = 1 To veces ' creamos un bucle para el numero de veces
                SendKeys mensa ' enviamos el mensaje o lo seteamos en el "CliBoard"
                SendKeys "{ENTER}" ' damos un enter para enviarlo
                DoEvents ' hacemos DoEvents para no perder el bucle o el control de este
            Next ' seguimos
        venta.Close
    End If
    DoEvents
Next
Set venta = Nothing
End Sub


Bueno creo que ya explique en el code, y si entiendes es algo realmente facil no tiene mucha explicacion, solo hay que meterle la cabeza y listo!

Bueno ya hemos manipulado la mayor parte o bueno en realidad, hemos manipulado ciertas cosas, creo que con esto es suficiente para que creen sus propias aplicaciones para el MSN bueno en fin, ahora vamos a explicar otras cosas como un MSN Flooder de Status y un MSN Nudger Flooder

MSN Nudger

Bueno este es demasiado simple, y es manipulando las ventanas mas el SendKeys, claro exciste si no me equivoco un metodo mejor que es usando una API, yo como no sabia ese metodo, pues lo hice a mi manera!xD lo cual es mejor usar la API en vez de esta pero yo explico la mia!

Agregamos 2 TextBox y 1 CommandButton, el textbox es donde ponen el nombre del contacto que le haremos el Nudgeo, y el segundo para el numero de veces a nudgear!

en el command ponen esto:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
If Text6.Text = "" Then
    MsgBox ("Porfavor, agrege un contacto para Floodear"), vbInformation, "MSN Manager"
GoTo pero
End If

If Text5.Text = "" Then
    MsgBox ("Porfavor agrege una cantidad para Floodear"), vbInformation, "MSN Manager"
GoTo pero
End If

If IsNumeric(Text5.Text) = False Then
MsgBox ("Eso se supone que es un numero" & " Text5.text"), vbInformation, "MSN Manager"
GoTo pero
End If

If Text5.Text = 0 Then
Text5.Text = 1
End If

Dim ventax As IMessengerConversationWnd
    For Y = 1 To Text5.Text ' caemos en el bucle para el floodeo
        Set ventax = MSN.InstantMessage(Text6.Text) ' seteamos la ventana de conversacion con nuestro contacto
        SendKeys "%Z" ' enviamos esta tecla que mas abajo veran para que es solo les digo que cuando la precionan envia de una un Nudgeo
        Pause 1 'damos pausa por 1 segund mas abajo explico
    ventax.Close ' cerramos la ventana
Next Y ' seguimos el bucle
pero:
end sub

Bueno voy a explicar que es ese Pause 1 aunque en el tuto de arriba te explican que es pero bueno, lo que hace este pause es como dice mismo dar una pause y el 1 es el tiempo en segundo ustedes pueden poner 5 que son 5 segundo, pero yo uso uno ya veran para que, en fin este code lo tienen que agregar en un moduo .bas!

Código [Seleccionar] Expandir

Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

eso es todo, ahora el code esta bien explicado!

Status Flooder

Pies el Status Flooder no es mas que conectarnos y desconectarnos para asi crear muchas ventanitas PopUp para joder a la gente!

Agregamos un commandButton y un textbox donde el textbox sera la cantidad de veces a conectarnos! y como siempre agregen esto al command

Código [Seleccionar] Expandir

If Text1.Text = 0 Then
Text1.Text = 1
End If

For v = 1 To Text1.Text
    MSN.MyStatus = MISTATUS_INVISIBLE ' cambiamos nuestro estado a invisible
    Pause 1 ' pausa de 1 segundo
    MSN.MyStatus = MISTATUS_ONLINE ' y ahora a conectados y hay saldra el PopUP! ;)
Next

Bueno ahora, skull y si quiero hacer este Flood pero solo a una persona, pues simple amigo, este no te lo explico se los dejo de tarea! pero lo que te digo es, que en el MSN y su pones a una persona sin admision y luego la pones con admision, a esta le saldra una ventanita PopUp! en el tuto de arriba explican como Bloquearlas y Desbloquearlas (Sin y con admision)

Bueno creo que aqui explique lo que tenia que expicar, de verdad pude explicar dos cositas mas pero por falta de tiempo, no puedo.. Una cosa si los codes tienen errores avisenme hay algunos que los code aqui mismo! asi que espero que los disfruten y creen sus propias aplicaciones para el MSN!

Si quieren ver lo que hacen estos codes descargense el Skull MSN Manager V 0.1.5 o la nueva Version Skull MSN Manager V 0.2

¡¡¡¡AH casi se me olvida!!! tengo que postearles sobre el SendKeys bueno aqui les dejo los tipos de teclas, como se tienen que poner etc!

Código [Seleccionar] Expandir


Tecla Argumento

RETROCESO {BACKSPACE}, {BS} o {BKSP}
INTERRUMPIR {BREAK}
BLOQ MAYÚS {CAPSLOCK}
SUPR o SUPRIMIR {DELETE} o {DEL}
FLECHA ABAJO {DOWN}
FIN {END}
ENTRAR {ENTER} o ~
ESC {ESC}
AYUDA {HELP}
INICIO {HOME}
INS o INSERTAR {INSERT} o {INS}
FLECHA IZQUIERDA {LEFT}
BLOQ NUM {NUMLOCK}
AV PÁG {PGDN}
RE PÁG {PGUP}
IMPRIMIR PANTALLA {PRTSC}
FLECHA DERECHA {RIGHT}
BLOQ DESPL {SCROLLLOCK}
TAB {TAB}
FLECHA ARRIBA {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}
{BREAK} = Break
{CAPSLOCK} = Caps Lock
{CLEAR} = Clear
{DELETE} = Delete
{DOWN} = Down Arrow - Flechita Abajo
{LEFT} = Left Arrow - Flechita Izquierda
{RIGHT} = Right Arrow - Flechita Derecha
{UP} = Up Arrow - Flechita Arriba
{NUMLOCK} = Num Lock
{PGDN} = Page Down
{PGUP} = Page Up
{SCROLLLOCK} = Scroll Lock
{F1} = F1 Usar {F2} {F3} para F2, F3, etc
{HOME} = home
{INSERT} = Insert
___  ___  ___  ___  ___  ___  ___  ___

Tecla Carácter especial
MAYÚSCULAS +
CTRL ^
ALT %

P.D: Si parte de estos codes vienen de la Version 0.1.5

Salu2's! 8)

ecesitas descargar ese componente y luego copiarlo al system32

ola bueno gracias por sus críticas! :p jeje bueno cassiani a la mayoría de los textbox que si de cuantas veces floodear hice eso para que no metancaracteres distintos pero para el de los @hotmail.com no grax lo arrglare...

Spawn gracias también ya lo arrglare pero eso pasa porque al darle floodear contacto este busca en tu lista ese contacto y al no encontrarlo tira error :p

saludos, bueno disculpen, pero aqui les presento mi ultima version del Skull MSN Manager la version V 0.2 leer en el post original1

si estan por LAN podrias pasar un archivo a su Pc y ejecutarlo con el comando AT pero para el comando AT si no mal recuerdo necesitas privilegios de Administrador!

naa tampoco es para tanto! pero igual gracias!

ppues si te soy sincero había escuchado eso pero nunca supe como usarlo a ver si alguiennos explica que se ve interesante!

jet gracias man me va a ser de mucha ayuda esto! gracias amigo!!!'

jeje bueno espero que me lo pases o si me podrias contar como lo hicistes!