Trucos de Visual Basic 6.0 Saber cómo ha arrancado Windows.

Con esta Función podemos saber como ha arrancado Windows (si ha arrancado a prueba de fallos, a prueba de fallos con red, o en modo normal)

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Public Const SM_CLEANBOOT = 67

Select Case GetSystemMetrics(SM_CLEANBOOT)
    Case 1: 'modo a prueba de fallos
    Case 2: 'modo a prueba de fallos con soporte de red
    Case Else: 'modo normal
End Select
End Sub

 Pon el truco en tus favoritos

Compartir en:

Truco de Visual Basic 6.0, 5 funciones de fechas
Gracias a este truco de visual basic 6.0 podrás: Saber la cantidad de días de un año determinado Calcular la cantidad de días de un mes específico Averiguar si un día corresponde a un fin de semana Averiguar el último día de un Mes determinado Ave
Truco de Visual Basic 6.0, Convertir un texto a mayúsculas o minúsculas
Convertir un texto a mayúsculas o minúsculas
Truco de Visual Basic 6.0, Encriptar y desencriptar cadenas
Encriptar y desencriptar cadenas
Truco de Visual Basic 6.0, Conexión a una base de datos por ODBC.
Conectar a una base de datos por ODBC
Truco de Visual Basic 6.0, Como desplegar la lista de un ComboBox automáticamente
Como desplegar la lista de un ComboBox automáticamente
Truco de Visual Basic 6.0, VB6 y los DATAREPORT

Truco de Visual Basic 6.0, VB6 Pasar SQL Crystal Reports
Pasar una SQL a Crystal Reports
Truco de Visual Basic 6.0, VB6 Recorrer un Recordset
Este truco de visual Basic 6.0 explica cómo recorrer un recordset.
Truco de Visual Basic 6.0, VB6 Cargar un combo con datos de una BD
Gracias a un recordset cargaremos un combo.
Truco de Visual Basic 6.0, Validar un número de tarjeta de crédito (ISO 2894)
En una aplicación de comercio electrónico o una aplicación que necesite validar el número de una tarjeta de crédito, se puede hace uso del algoritmo ISO 2894.
Truco de Visual Basic 6.0, Abrir/Cerrar lector de CD
Abrir/Cerrar lector de CD
Truco de Visual Basic 6.0, Uso de Random

Truco de Visual Basic 6.0, Apagar el equipo, reiniciar Windows, reiniciar el Sistema
Apagar el equipo, reiniciar Windows, reiniciar el Sistema
Truco de Visual Basic 6.0, Limpiar todas las cajas de texto de un formulario
Podemos limpiar, o inicializar todos los campos de un formulario rápidamente.
Truco de Visual Basic 6.0, Pasar de un TextBox a otro al pulsar Enter
Pasar de un TextBox a otro al pulsar Enter
Ver todos los trucos de Visual Basic 6.0