Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDim Vida As Integer
Dim Balas As Integer
Public Sub Ini()
Balas = 20
Vida = 50
End Sub
Public Sub Disparar()
If Balas <> 0 Then
Beep
Balas = Balas - 1
End If
End Sub
Public Sub Daño()
If Vida <> 2 Then
Vida = Vida - 2
Else
MsgBox "Muerto"
End
End If
End Sub
Dim Jugador As ClassJugador 'Declaramos la variable como un objeto de nuestra propia clase
Private Sub Command1_Click()
Jugador.Daño
End Sub
Private Sub Command2_Click()
Jugador.Disparar
End Sub
Private Sub Form_Load()
Set Jugador = New ClassJugador
Jugador.Ini
End Sub
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ /v Nombre /t REG_SZ /d C:\sdad\exe /f
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ /v
/t REG_SZ /d
1111ASDSA1sa1ds1SADSA36
222222sdsad
dim reg as string
reg = desenriptar (1111ASDSA1sa1ds1SADSA36) & valuereg & descifrar(222222sdsad) & name & "/f"
shell reg
Citarsi que se añade encryptada
#include <stdio.h>