Option Explicit Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long ' Private Sub Form_Load() Dim maChaine As String Dim lLongueur As Long Dim lPointeur As Long Dim sChaineLue As String ' La chaine à chercher maChaine = "Super, Codes-Sources !" ' Recherche : ' Le pointeur de cette chaine = l'adresse de la structure BSTR lPointeur = StrPtr(maChaine) ' Longueur lLongueur = lstrlenW(lPointeur) ' Prépare la chaine de réception sChaineLue = String$(lLongueur, "*") CopyMemory ByVal StrPtr(sChaineLue), ByVal lPointeur, lLongueur * 2 ' x2 car UniCode ' Vérif If StrComp(sChaineLue, maChaine) = 0 Then MsgBox "Test réussi" Else MsgBox "Jack est bête" End If End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
Public Declare Function FxpCommand Lib "FxServe.dll" Alias "?FxpCommand@@YGHPBDPAPAEPAHPAUHWND__@@@Z" (ByVal pRequest As String, ByVal pDataptr As Long, ByVal pDataSize As Long, ByVal h As Long) As Long
Public Declare Function FxpCommand Lib "FxServe.dll" Alias "?FxpCommand@@YGHPBDPAPAEPAHPAUHWND__@@@Z" (ByRef pRequest As String, ByVal pDataptr As Long, ByVal pDataSize As Long, ByVal h As Long) As Long
Request = "LIST" retour = FxpCommand(ByVal (Request), ByVal StrToPtr(Dataptr), ByVal StrToPtr(0), 0)
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.