OVH Cloud OVH Cloud

Utilisation de LSet

1 réponse
Avatar
Soizic
Bonjour,

J'ai un probl=E8me avec l'utilisation du LSet dans une=20
fonction de d=E9cryptage. En effet, dans toutes les=20
versions de Windows LSet fonctionne correctement sauf=20
avec Windows NT 4 service pack 6 o=F9 cette instruction ne=20
fonctionne pas du tout.

Voici le code :
Dim sCryptBuffer As String, lCryptBufLen As Long
lCryptBufLen =3D Len(sInBuffer) * 2
sCryptBuffer =3D String(lCryptBufLen, vbNullChar)
LSet sCryptBuffer =3D sInBuffer

Est-ce un probl=E8me connu ?? Et existe-t-il une=20
solution ???

D'avance merci

1 réponse

Avatar
Zoury
Salut! :O)

Est-ce un problème connu ??



hmm. aucune idée. je n'ai jamais vu ça.. :OP


Et existe-t-il une solution ???



yep! utilise Mid$()
'***
Dim s As String

s = Space$(50)
Mid$(s, 1) = "allo!!"
Debug.Print "*" & s & "*"
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/