Un des exemples les plus simples et les plus évident de la démonstration d'un API de Windows est l'utilisation du GetTickCount, lequel retourne le compteur en milliseconde changeant à toutes les millisecondes. En LotusScript, il est tous a fait simple d'utiliser des API de Windows et de les intégrés dans un tableur Lotus 1-2-3 par exemple. Prenons le programme suivant :
Declare Function GetTickCount Lib "kernel32.dll" () As Long
Sub Click(Source As Buttoncontrol)
[A8].contents="GetTickCount=" &GetTickCount()
End Sub
On doit d'abord créer un événement de bouton dans le menu suivant:
On clique sur la cellule où a été insérer le bouton, on se retrouve dans l'éditeur de script du Lotus 1-2-3
On insère une ligne allant modifier la valeur de la cellule A8 pour qu'elle affiche le message "GetTickCount=" avec un nombre de milliseconde retourné par la fonction d'API Windows.
On insère la déclaration de définition de la fonction API de Windows
On clique sur le bouton pour voir le résultat :
