Manuel du langage de script Desktop Management › Fonctions › Fonctions diverses › Not : Renvoyer la négation logique d'une expression

Not : Renvoyer la négation logique d'une expression

Valide sur les plates-formes NetWare, Symbian OS, UNIX, Windows et Windows CE

La fonction Not renvoie la négociation logique d'une expression.

Format de la fonction :

Not(n as Integer) as Integer

n

Expression.

Si le paramètre n est évalué à zéro, la fonction renvoie la valeur True (autre que zéro). Dans le cas contraire, elle renvoie la valeur False (zéro).

Exemple :

rem

Rem Cet exemple crée un groupe d'icônes appelé DMS Test avec une icône pour l'éditeur de script.
Rem Cet exemple ajoute également un raccourci sur le bureau.
Rem
Rem Après la création, le groupe d'icônes et le raccourci sont supprimés.
Rem

' détermine l'emplacement de dmsedit.exe
Dim hkey, dummy As Integer
Dim dmseditPath As String

hkey = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ComputerAssociates\DMScript\DMSEdit")
If hKey = 0 Then
	MessageBox("Impossible d'ouvrir DMSEdit-key", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)

SetStatus(1)
	quitter
End If

If Not(RegQueryVariable(hkey, "dmseditInstalledAt", dmseditPath, dummy) = REG_STRING) Then
	MessageBox("dmseditInstalledAt introuvable ou invalide", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(2)
	quitter
End If

RegCloseKey(hkey)

' Maintenant, créez le groupe et les icônes
If Not(CreateGroup("DMS Test", LNK_PROGRAMS)) Then
	MessageBox("Impossible de créer le groupe d'icônes", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)

SetStatus(3)
	quitter
End If

If Not(AddItem("DMS Editor", dmseditPath+"\dmsedit.exe","","", "DMS Test",False,)) Then
	MessageBox("Impossible d'installer dmsedit dans le groupe d'icônes", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(4)
	quitter
End If

if Not(CreateLink("DMS Editor", dmseditPath+"\dmsedit.exe","","", "",LNK_NORMAL, LNK_DESKTOP)) Then	MessageBox("Impossible d'installer dmsedit sur le bureau", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)

SetStatus(5)
	quitter
End If

MessageBox("Les icônes et le raccourci ont été créés, cliquez sur OK pour les supprimer","Script Desktop Management : Confirmation d'icône", MB_OK + MB_ICONINFORMATION)

'Supprimez le raccourci 
if Not(DeleteItem("Editeur DMS", "", LNK_DESKTOP)) Then
	MessageBox("Impossible de désinstaller dmsedit du bureau", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(6)
	quitter
End If

if Not(DeleteGroup("Test DMS", LNK_PROGRAMS)) Then
	MessageBox("Impossible de supprimer le groupe d'icônes", "Script Desktop Management", MB_OK + MB_ICONEXCLAMATION)

SetStatus(7)
	quitter

End If