Springen naar inhoud


Detectie Veilige modus


  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:32

Bedankt Ronneke,

Het zal voor morgen zijn. Ik zal het laten weten.

Guido

#2 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:32

Hallo

Probeer even het volgende:

Code:
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" _
     (ByVal nIndex As Long) As Long

Private Const SM_CLEANBOOT = 67


Private Sub Command1_Click()

  Select Case GetSystemMetrics(SM_CLEANBOOT)
     Case 1: Label1.Caption = "Systeem opgestart in veilige modus."
     Case 2: Label1.Caption = "Systeem opgestart in veilige modus met netwerkondersteuning."
     Case Else: Label1.Caption = "Windows in normale mode."
  End Select

End Sub




Succes

#3 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:31

Hoi,

Hoe kan ik met behulp van VB6 ontdekken of de pc draait in veilige modes?

Guido




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)