' Tests mit SuisseID und Zertifikate

#Include "windows.bi"
#Include "win/wincrypt.bi"

Dim zertStor As HCERTSTORE

ScreenRes 640, 480, 4
Width 80, 30
Print !"Gefundenen Zertifikate, wo der Privatschl\129ssel zur Verf\129gung steht"

Const CERT_SYSTEM_STORE_CURRENT_USER_ID As Integer = 1
Const CERT_SYSTEM_STORE_LOCATION_SHIFT As Integer = 16
Const CERT_SYSTEM_STORE_CURRENT_USER As Integer = CERT_SYSTEM_STORE_CURRENT_USER_ID Shl CERT_SYSTEM_STORE_LOCATION_SHIFT
Const CERT_CLOSE_STORE_CHECK_FLAG As Integer = 2

zertStor = CertOpenStore(CERT_STORE_PROV_SYSTEM, 0, NULL, CERT_SYSTEM_STORE_CURRENT_USER, @"My")
' zertStor = CertOpenSystemStore(0, "My")
If zertStor = 0 Then
	Print !"Fehler beim \153ffnen"
	Sleep
	End 1
EndIf

If CertCloseStore(zertStor, CERT_CLOSE_STORE_CHECK_FLAG) Then
	Print "Schliessen ok"
Else
	Print "Fehler beim Schliessen"
EndIf

Sleep