Protection Appli.par carte à puce. Besoin d'aide...
1 réponse
Thierry
Bonsoir,
lorsque je lance le code ci dessous
1: Private Sub Command1_Click()
2: mscomm1.PortOpen =true
3: End sub
j'ai le message d'erreure:
Erreur d'execution 424
un objet est requis.
avec un renvoi à la ligne 3.
Apparemment j'ai omis quelque chose......
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.
> >
> >
> >
>
>
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
Yo man je pense que ton probleme vient du fait que tu n'as pas fixé ton port COM essaie plutot ceci: with MsComm1 'fixe le port COM .CommPort=1 '2si t'as branché sur le port2 .RTSEnable = true 'ouver le port .PortOpen=True
'bla bla bla End With
et quand tu quittes ta for n'oublie pas: Mscomm1.PortOpenúlse
@+ ;o) Flex
"Thierry" a écrit dans le message de news: %
Bonsoir, lorsque je lance le code ci dessous
1: Private Sub Command1_Click() 2: mscomm1.PortOpen =true 3: End sub
j'ai le message d'erreure:
Erreur d'execution 424 un objet est requis. avec un renvoi à la ligne 3.
Apparemment j'ai omis quelque chose......
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. > > >
Yo man
je pense que ton probleme vient du fait que tu n'as pas fixé ton port COM
essaie plutot ceci:
with MsComm1
'fixe le port COM
.CommPort=1 '2si t'as branché sur le port2
.RTSEnable = true
'ouver le port
.PortOpen=True
'bla bla bla
End With
et quand tu quittes ta for n'oublie pas:
Mscomm1.PortOpenúlse
@+ ;o)
Flex
"Thierry" <emilie.rouby@free.fr> a écrit dans le message de news:
%23PVUq3Q2EHA.3504@TK2MSFTNGP12.phx.gbl...
Bonsoir,
lorsque je lance le code ci dessous
1: Private Sub Command1_Click()
2: mscomm1.PortOpen =true
3: End sub
j'ai le message d'erreure:
Erreur d'execution 424
un objet est requis.
avec un renvoi à la ligne 3.
Apparemment j'ai omis quelque chose......
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.
>
>
>
Yo man je pense que ton probleme vient du fait que tu n'as pas fixé ton port COM essaie plutot ceci: with MsComm1 'fixe le port COM .CommPort=1 '2si t'as branché sur le port2 .RTSEnable = true 'ouver le port .PortOpen=True
'bla bla bla End With
et quand tu quittes ta for n'oublie pas: Mscomm1.PortOpenúlse
@+ ;o) Flex
"Thierry" a écrit dans le message de news: %
Bonsoir, lorsque je lance le code ci dessous
1: Private Sub Command1_Click() 2: mscomm1.PortOpen =true 3: End sub
j'ai le message d'erreure:
Erreur d'execution 424 un objet est requis. avec un renvoi à la ligne 3.
Apparemment j'ai omis quelque chose......
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. > > >
