Bonjours à tous,

J'ai un petit problème dans ma page HTML dans la partie vbscript.

J'appelle une api UniKeyCon.ocx installé dans mon O/S Windows7.

Mon code plante sur l'affichage UniKeyCon.buffer car c'est un pointeur et pas une variable.

D'ou la question: comment déclarer des pointeurs, passer et récupérer les contenus de ceux ci en vbscript?
Il semble que ce soit possible par des fonctions non officielles de vbscript: merci de me fournir un exemple.

Merci pour votre aide,
Hervé



Voici la doc partielle de l'API :

Paramètres Description
function [in] UNIKEY_READ_MEMORY
*handle [in] Identifiant de session du Dongle
*p1 [in] Offset de la mémoire
*p2 [in] Nombre d’octets à lire
buffer [out] Pointeur sur le buffer contenant les données à lire

Valeurs retournées
Message Valeur Description
SUCCESS 0 Succès
ERROR_INVALID_ADDR_OR_SIZE 7 Erreur de Lecture/écriture ou de la longueur
ERROR_READ 10 Erreur d’écriture
ERROR_NO_OPEN 15 Action impossible car
aucun dongle connecté


Voici une partie du code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>UniKey Sample (Visual Basic Script)</title>
</head>
<body>
<object classid="clsid:3F54E351-1AFD-4CD7-82BB-AD959454F68E" height="10"
id="UniKeyCon" style="LEFT: 0px; TOP: 0px" width="10" codebase="UniKeyCon.ocx">
        <param name="_Version" value="65536" />
        <param name="_ExtentX" value="2646" />
        <param name="_ExtentY" value="1323" />
        <param name="_StockProps" value="0" />

</object>
<script id="clientEventHandlersVBS" type="text/vbscript" language="vbscript">

.../...( là je déclare les constantes de l'API )

UniKeyCon.function = UNIKEY_READ_MEMORY
UniKeyCon.p1 = 0 ' Offset mémoire
UniKeyCon.p2 = 4 'Nb Octets
UniKeyCon.handle = 0

if Not (errCode = SUCCESS) Then
	bHasUniKey = False
	msgbox "UNIKEY_READ_MEMORY Err Returned Code: " +  Cstr (errCode)
			
Else
	bHasUniKey = true
	msgbox "UNIKEY_READ_MEMORY returns : "  +  Cstr (UniKeyCon.buffer)
				
End If

.../...
</script>
</body>
</html>