Comment protéger mon application par carte à puce.
5 réponses
Thierry
Bonjour,
je dispose de deux lecteurs de carte à puce:
1 SMARTLP3 de chez INGENICO sur COM1 DB9
et
1 SMARTLP2 de chez Bull sur COM1 DB9
je voudrai savoir comment détecter la présence d'une carte dans ce lecteur
et lire son numéro de série afin de m'en servir comme clé dans certaine de
mes application en VB6 ou VBA.
PS: je suis sous W2000 Pro et W98SE.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Flex
un element de reponse tu utilises le composant mscomm de vb6 la demarche a suivre: mscomm 1.PortOpen =true for i=1 to 400 mscomm 1.RTSEnable = true 'reset de la carte next i
Do DoEvents If mscomm 1.InBufferCount Then sTemp = sTemp + Hex(Asc(mscomm1.Input)) 'pr l'affichage en hexa End If Loop While mscomm1.InBufferCount
en gros c'est quelque chose comme ça j'espere que ca peut aider
"Thierry" a écrit dans le message de news:
Bonjour,
je dispose de deux lecteurs de carte à puce:
1 SMARTLP3 de chez INGENICO sur COM1 DB9 et 1 SMARTLP2 de chez Bull sur COM1 DB9
je voudrai savoir comment détecter la présence d'une carte dans ce lecteur et lire son numéro de série afin de m'en servir comme clé dans certaine de mes application en VB6 ou VBA. PS: je suis sous W2000 Pro et W98SE.
Merci, Thierry.
un element de reponse
tu utilises le composant mscomm de vb6
la demarche a suivre:
mscomm 1.PortOpen =true
for i=1 to 400
mscomm 1.RTSEnable = true 'reset de la carte
next i
Do
DoEvents
If mscomm 1.InBufferCount Then
sTemp = sTemp + Hex(Asc(mscomm1.Input)) 'pr l'affichage en hexa
End If
Loop While mscomm1.InBufferCount
en gros c'est quelque chose comme ça
j'espere que ca peut aider
"Thierry" <emilie.rouby@free.fr> a écrit dans le message de news:
Osc1eOi1EHA.3120@TK2MSFTNGP12.phx.gbl...
Bonjour,
je dispose de deux lecteurs de carte à puce:
1 SMARTLP3 de chez INGENICO sur COM1 DB9
et
1 SMARTLP2 de chez Bull sur COM1 DB9
je voudrai savoir comment détecter la présence d'une carte dans ce lecteur
et lire son numéro de série afin de m'en servir comme clé dans certaine de
mes application en VB6 ou VBA.
PS: je suis sous W2000 Pro et W98SE.
un element de reponse tu utilises le composant mscomm de vb6 la demarche a suivre: mscomm 1.PortOpen =true for i=1 to 400 mscomm 1.RTSEnable = true 'reset de la carte next i
Do DoEvents If mscomm 1.InBufferCount Then sTemp = sTemp + Hex(Asc(mscomm1.Input)) 'pr l'affichage en hexa End If Loop While mscomm1.InBufferCount
en gros c'est quelque chose comme ça j'espere que ca peut aider
"Thierry" a écrit dans le message de news:
Bonjour,
je dispose de deux lecteurs de carte à puce:
1 SMARTLP3 de chez INGENICO sur COM1 DB9 et 1 SMARTLP2 de chez Bull sur COM1 DB9
je voudrai savoir comment détecter la présence d'une carte dans ce lecteur et lire son numéro de série afin de m'en servir comme clé dans certaine de mes application en VB6 ou VBA. PS: je suis sous W2000 Pro et W98SE.
Merci, Thierry.
Emmanuel DURAND
Toi qui as le matériel sous la main tu es le plus à même de savoir comment l'utiliser non?
"Thierry" a écrit dans le message de news:
Bonjour,
je dispose de deux lecteurs de carte à puce:
1 SMARTLP3 de chez INGENICO sur COM1 DB9 et 1 SMARTLP2 de chez Bull sur COM1 DB9
je voudrai savoir comment détecter la présence d'une carte dans ce lecteur et lire son numéro de série afin de m'en servir comme clé dans certaine de mes application en VB6 ou VBA. PS: je suis sous W2000 Pro et W98SE.
Merci, Thierry.
Toi qui as le matériel sous la main tu es le plus à même de savoir comment
l'utiliser non?
"Thierry" <emilie.rouby@free.fr> a écrit dans le message de
news:Osc1eOi1EHA.3120@TK2MSFTNGP12.phx.gbl...
Bonjour,
je dispose de deux lecteurs de carte à puce:
1 SMARTLP3 de chez INGENICO sur COM1 DB9
et
1 SMARTLP2 de chez Bull sur COM1 DB9
je voudrai savoir comment détecter la présence d'une carte dans ce lecteur
et lire son numéro de série afin de m'en servir comme clé dans certaine de
mes application en VB6 ou VBA.
PS: je suis sous W2000 Pro et W98SE.
Toi qui as le matériel sous la main tu es le plus à même de savoir comment l'utiliser non?
"Thierry" a écrit dans le message de news:
Bonjour,
je dispose de deux lecteurs de carte à puce:
1 SMARTLP3 de chez INGENICO sur COM1 DB9 et 1 SMARTLP2 de chez Bull sur COM1 DB9
je voudrai savoir comment détecter la présence d'une carte dans ce lecteur et lire son numéro de série afin de m'en servir comme clé dans certaine de mes application en VB6 ou VBA. PS: je suis sous W2000 Pro et W98SE.
Merci, Thierry.
Emmanuel DURAND
for i=1 to 400 mscomm 1.RTSEnable = true 'reset de la carte next i
C'est pas beau ça, qu'est ce que ça veut dire? tu veux faire une tempo?
La suite du code voudrait dire que le lecteur envoie périodiquement qq chose sur la ligne...? qu'en dis tu Thierry?
for i=1 to 400
mscomm 1.RTSEnable = true 'reset de la carte
next i
C'est pas beau ça, qu'est ce que ça veut dire? tu veux faire une tempo?
La suite du code voudrait dire que le lecteur envoie périodiquement qq chose
sur la ligne...? qu'en dis tu Thierry?
for i=1 to 400 mscomm 1.RTSEnable = true 'reset de la carte next i
C'est pas beau ça, qu'est ce que ça veut dire? tu veux faire une tempo?
La suite du code voudrait dire que le lecteur envoie périodiquement qq chose sur la ligne...? qu'en dis tu Thierry?
Thierry
"Emmanuel DURAND @wanadoo.fr>" <edurand<NOSPAM> a écrit dans le message de news: #
Toi qui as le matériel sous la main tu es le plus à même de savoir comment l'utiliser non?
"Thierry" a écrit dans le message de news: > Bonjour, > > je dispose de deux lecteurs de carte à puce: > > 1 SMARTLP3 de chez INGENICO sur COM1 DB9 > et > 1 SMARTLP2 de chez Bull sur COM1 DB9 > > je voudrai savoir comment détecter la présence d'une carte dans ce
lecteur
> et lire son numéro de série afin de m'en servir comme clé dans certaine
de
> mes application en VB6 ou VBA. > PS: je suis sous W2000 Pro et W98SE. > > Merci, Thierry. > >
Merci, pour ton aide. Dès que j'aurai essayé je te dirai ce que cela donne. A plus,
Thierry
"Emmanuel DURAND @wanadoo.fr>" <edurand<NOSPAM> a écrit dans le message de
news: #lOM9li1EHA.2612@TK2MSFTNGP14.phx.gbl...
Toi qui as le matériel sous la main tu es le plus à même de savoir comment
l'utiliser non?
"Thierry" <emilie.rouby@free.fr> a écrit dans le message de
news:Osc1eOi1EHA.3120@TK2MSFTNGP12.phx.gbl...
> Bonjour,
>
> je dispose de deux lecteurs de carte à puce:
>
> 1 SMARTLP3 de chez INGENICO sur COM1 DB9
> et
> 1 SMARTLP2 de chez Bull sur COM1 DB9
>
> je voudrai savoir comment détecter la présence d'une carte dans ce
lecteur
> et lire son numéro de série afin de m'en servir comme clé dans certaine
de
> mes application en VB6 ou VBA.
> PS: je suis sous W2000 Pro et W98SE.
>
> Merci, Thierry.
>
>
Merci, pour ton aide.
Dès que j'aurai essayé je te dirai ce que cela donne.
A plus,
"Emmanuel DURAND @wanadoo.fr>" <edurand<NOSPAM> a écrit dans le message de news: #
Toi qui as le matériel sous la main tu es le plus à même de savoir comment l'utiliser non?
"Thierry" a écrit dans le message de news: > Bonjour, > > je dispose de deux lecteurs de carte à puce: > > 1 SMARTLP3 de chez INGENICO sur COM1 DB9 > et > 1 SMARTLP2 de chez Bull sur COM1 DB9 > > je voudrai savoir comment détecter la présence d'une carte dans ce
lecteur
> et lire son numéro de série afin de m'en servir comme clé dans certaine
de
> mes application en VB6 ou VBA. > PS: je suis sous W2000 Pro et W98SE. > > Merci, Thierry. > >
Merci, pour ton aide. Dès que j'aurai essayé je te dirai ce que cela donne. A plus,
Thierry
Thierry
Bonsoir, lorsque je lance le code ci dessous Private Sub Command1_Click mscomm1.PortOpen =true End sub
j'ai le message d'erreure:
Erreur d'execution 424 un objet est requis.
J'utilise VB6 édition initiation avec le composant mscomm32.ocx.
Merci de m'éclairer.
"Flex" a écrit dans le message de news: > un element de reponse
tu utilises le composant mscomm de vb6 la demarche a suivre: mscomm 1.PortOpen =true for i=1 to 400 mscomm 1.RTSEnable = true 'reset de la carte next i
Do DoEvents If mscomm 1.InBufferCount Then sTemp = sTemp + Hex(Asc(mscomm1.Input)) 'pr l'affichage en hexa End If Loop While mscomm1.InBufferCount
en gros c'est quelque chose comme ça j'espere que ca peut aider
"Thierry" a écrit dans le message de news:
> Bonjour, > > je dispose de deux lecteurs de carte à puce: > > 1 SMARTLP3 de chez INGENICO sur COM1 DB9 > et > 1 SMARTLP2 de chez Bull sur COM1 DB9 > > je voudrai savoir comment détecter la présence d'une carte dans ce
lecteur
> et lire son numéro de série afin de m'en servir comme clé dans certaine
de
> mes application en VB6 ou VBA. > PS: je suis sous W2000 Pro et W98SE. > > Merci, Thierry. > > >
Bonsoir,
lorsque je lance le code ci dessous
Private Sub Command1_Click
mscomm1.PortOpen =true
End sub
j'ai le message d'erreure:
Erreur d'execution 424
un objet est requis.
J'utilise VB6 édition initiation avec le composant mscomm32.ocx.
Merci de m'éclairer.
"Flex" <flex@yahoo.co.jp> a écrit dans le message de news: > un element de
reponse
tu utilises le composant mscomm de vb6
la demarche a suivre:
mscomm 1.PortOpen =true
for i=1 to 400
mscomm 1.RTSEnable = true 'reset de la carte
next i
Do
DoEvents
If mscomm 1.InBufferCount Then
sTemp = sTemp + Hex(Asc(mscomm1.Input)) 'pr l'affichage en hexa
End If
Loop While mscomm1.InBufferCount
en gros c'est quelque chose comme ça
j'espere que ca peut aider
"Thierry" <emilie.rouby@free.fr> a écrit dans le message de news:
Osc1eOi1EHA.3120@TK2MSFTNGP12.phx.gbl...
> Bonjour,
>
> je dispose de deux lecteurs de carte à puce:
>
> 1 SMARTLP3 de chez INGENICO sur COM1 DB9
> et
> 1 SMARTLP2 de chez Bull sur COM1 DB9
>
> je voudrai savoir comment détecter la présence d'une carte dans ce
lecteur
> et lire son numéro de série afin de m'en servir comme clé dans certaine
de
> mes application en VB6 ou VBA.
> PS: je suis sous W2000 Pro et W98SE.
>
> Merci, Thierry.
>
>
>
Bonsoir, lorsque je lance le code ci dessous Private Sub Command1_Click mscomm1.PortOpen =true End sub
j'ai le message d'erreure:
Erreur d'execution 424 un objet est requis.
J'utilise VB6 édition initiation avec le composant mscomm32.ocx.
Merci de m'éclairer.
"Flex" a écrit dans le message de news: > un element de reponse
tu utilises le composant mscomm de vb6 la demarche a suivre: mscomm 1.PortOpen =true for i=1 to 400 mscomm 1.RTSEnable = true 'reset de la carte next i
Do DoEvents If mscomm 1.InBufferCount Then sTemp = sTemp + Hex(Asc(mscomm1.Input)) 'pr l'affichage en hexa End If Loop While mscomm1.InBufferCount
en gros c'est quelque chose comme ça j'espere que ca peut aider
"Thierry" a écrit dans le message de news:
> Bonjour, > > je dispose de deux lecteurs de carte à puce: > > 1 SMARTLP3 de chez INGENICO sur COM1 DB9 > et > 1 SMARTLP2 de chez Bull sur COM1 DB9 > > je voudrai savoir comment détecter la présence d'une carte dans ce
lecteur
> et lire son numéro de série afin de m'en servir comme clé dans certaine
de
> mes application en VB6 ou VBA. > PS: je suis sous W2000 Pro et W98SE. > > Merci, Thierry. > > >
