=> ¿No se ha registrado todavía?
BIENVENIDOS, AQUI PUEDEN COMENTAR ACERCA DE MUCHAS COSAS, Xd, BUENO, TAMBIEN PUEDEN HACER PREGUNTAS COMO ¿COMO FUNCIONA EL TEXTBOX? ENTRE OTRAS COSAS. COMENTEN. ATTE: PVB6 (administrador general Foro - Restringir ejecucion del programa a 20 veces Vb62023 (Visitante)
| | en un formulario pegamos:
Dim program_count As Integer
Dim attempts As Integer
attempts = 20
program_count = GetSetting(App.EXEName, "Usage", "Count", 1)
SaveSetting App.EXEName, "Usage", "Count", program_count + 1
If program_count >= attempts Then
MsgBox "No puede ejecutar el programa, ya se ejecuto mas de 20 veces"
Unload Me
End
Else
MsgBox "Tienes " & attempts - program_count & " veces para ejecutar el programa"
End If |
Respuesta:
Temas totales: 12 Entradas totales: 11 Usuarios totales: 4 En este momento conectados (usuarios registrados): Nadie 
|
