la question est peut être idiote mais, est ce que l'un d'entre vous
aurait déjà utilisé la commande HASP de windev 8, plus particuliérement
les fonctions d'écritures (fct 4 et 51 du service HASP). car la j'en
perd mon latin les fonctions de lecture réagissent correctement, mais
impossible de faire fonctionner les commandes 4, 6, 51 elle ne font rien
(même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour
les faire fonctionner, je l'en remerci d'avance.
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
Eric LAURENT
Jérôme a écrit:
Bonsoir,
la question est peut être idiote mais, est ce que l'un d'entre vous aurait déjà utilisé la commande HASP de windev 8, plus particuliérement les fonctions d'écritures (fct 4 et 51 du service HASP). car la j'en perd mon latin les fonctions de lecture réagissent correctement, mais impossible de faire fonctionner les commandes 4, 6, 51 elle ne font rien (même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour les faire fonctionner, je l'en remerci d'avance.
Voici un petit bout de code que j'utilise. C'est en effet un Truc qui fonctionne.
NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers Entier1, Entier2, Entier3, Entier4 sont des entiers ch est une chaîne fixe sur 110
// IMPORTANT A CHANGER SUIVANT LES CLES // Passe1=XXXXX // Constante contenant les mots de passe Passe2=XXXXX // idem...
SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS RETOUR
/////////////////////////////////////// // Test de reconnaissance de la clé // ///////////////////////////////////// NumFonc=1 SeedCode=0 Lpt=0
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2,&Entier1,&Entier2,&Entier3,&Entier4) SI Entier1<>1 ALORS Erreur("La clé électronique est absente") RETOUR FIN
ch=Répète("Z",110) //Chaine à écrire dans la clé , mettre ce que vous voulez écrire ici (110 fois la lettre Z dans l'exemple)
/////////////////////////// // Ecriture dans la clé // ///////////////////////// NumFoncQ SeedCode=0 Lpt=0 Entier1=0 Entier2U Entier3=0 Entier4=&ch
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2, &Entier1,&Entier2,&Entier3,&Entier4) SI Entier3 <> 0 ALORS Erreur("Erreur d'écriture dans la clé électronique",... "Status d'erreur = ",Entier3) RETOUR FIN
//////////////////////// // Lecture de la clé // ////////////////////// NumFoncP ch=Répète(" ",110) Entier1=0 Entier2U Entier3=0 Entier4=&ch
Info("Contenu de l'adresse mémoire de la clé >"+ch+"<")
Cordialement, --- Eric LAURENT
(enlever nospam.) ---
Jérôme <nospam@nospam.com> a écrit:
Bonsoir,
la question est peut être idiote mais, est ce que l'un d'entre vous
aurait déjà utilisé la commande HASP de windev 8, plus
particuliérement les fonctions d'écritures (fct 4 et 51 du service
HASP). car la j'en perd mon latin les fonctions de lecture réagissent
correctement, mais impossible de faire fonctionner les commandes 4,
6, 51 elle ne font rien (même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour
les faire fonctionner, je l'en remerci d'avance.
Voici un petit bout de code que j'utilise. C'est en effet un Truc qui
fonctionne.
NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers
Entier1, Entier2, Entier3, Entier4 sont des entiers
ch est une chaîne fixe sur 110
// IMPORTANT A CHANGER SUIVANT LES CLES //
Passe1=XXXXX // Constante contenant les mots de passe
Passe2=XXXXX // idem...
SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS RETOUR
///////////////////////////////////////
// Test de reconnaissance de la clé //
/////////////////////////////////////
NumFonc=1
SeedCode=0
Lpt=0
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2,&Entier1,&Entier2,&Entier3,&Entier4)
SI Entier1<>1 ALORS
Erreur("La clé électronique est absente")
RETOUR
FIN
ch=Répète("Z",110) //Chaine à écrire dans la clé , mettre ce que vous
voulez écrire ici (110 fois la lettre Z dans l'exemple)
///////////////////////////
// Ecriture dans la clé //
/////////////////////////
NumFoncQ
SeedCode=0
Lpt=0
Entier1=0
Entier2U
Entier3=0
Entier4=&ch
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2,
&Entier1,&Entier2,&Entier3,&Entier4)
SI Entier3 <> 0 ALORS
Erreur("Erreur d'écriture dans la clé électronique",...
"Status d'erreur = ",Entier3)
RETOUR
FIN
////////////////////////
// Lecture de la clé //
//////////////////////
NumFoncP
ch=Répète(" ",110)
Entier1=0
Entier2U
Entier3=0
Entier4=&ch
la question est peut être idiote mais, est ce que l'un d'entre vous aurait déjà utilisé la commande HASP de windev 8, plus particuliérement les fonctions d'écritures (fct 4 et 51 du service HASP). car la j'en perd mon latin les fonctions de lecture réagissent correctement, mais impossible de faire fonctionner les commandes 4, 6, 51 elle ne font rien (même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour les faire fonctionner, je l'en remerci d'avance.
Voici un petit bout de code que j'utilise. C'est en effet un Truc qui fonctionne.
NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers Entier1, Entier2, Entier3, Entier4 sont des entiers ch est une chaîne fixe sur 110
// IMPORTANT A CHANGER SUIVANT LES CLES // Passe1=XXXXX // Constante contenant les mots de passe Passe2=XXXXX // idem...
SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS RETOUR
/////////////////////////////////////// // Test de reconnaissance de la clé // ///////////////////////////////////// NumFonc=1 SeedCode=0 Lpt=0
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2,&Entier1,&Entier2,&Entier3,&Entier4) SI Entier1<>1 ALORS Erreur("La clé électronique est absente") RETOUR FIN
ch=Répète("Z",110) //Chaine à écrire dans la clé , mettre ce que vous voulez écrire ici (110 fois la lettre Z dans l'exemple)
/////////////////////////// // Ecriture dans la clé // ///////////////////////// NumFoncQ SeedCode=0 Lpt=0 Entier1=0 Entier2U Entier3=0 Entier4=&ch
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2, &Entier1,&Entier2,&Entier3,&Entier4) SI Entier3 <> 0 ALORS Erreur("Erreur d'écriture dans la clé électronique",... "Status d'erreur = ",Entier3) RETOUR FIN
//////////////////////// // Lecture de la clé // ////////////////////// NumFoncP ch=Répète(" ",110) Entier1=0 Entier2U Entier3=0 Entier4=&ch
Info("Contenu de l'adresse mémoire de la clé >"+ch+"<")
Cordialement, --- Eric LAURENT
(enlever nospam.) ---
Jérôme
Merci
Eric LAURENT a écrit:
Jérôme a écrit:
Bonsoir,
la question est peut être idiote mais, est ce que l'un d'entre vous aurait déjà utilisé la commande HASP de windev 8, plus particuliérement les fonctions d'écritures (fct 4 et 51 du service HASP). car la j'en perd mon latin les fonctions de lecture réagissent correctement, mais impossible de faire fonctionner les commandes 4, 6, 51 elle ne font rien (même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour les faire fonctionner, je l'en remerci d'avance.
Voici un petit bout de code que j'utilise. C'est en effet un Truc qui fonctionne.
NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers Entier1, Entier2, Entier3, Entier4 sont des entiers ch est une chaîne fixe sur 110
// IMPORTANT A CHANGER SUIVANT LES CLES // Passe1=XXXXX // Constante contenant les mots de passe Passe2=XXXXX // idem...
SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS RETOUR
/////////////////////////////////////// // Test de reconnaissance de la clé // ///////////////////////////////////// NumFonc=1 SeedCode=0 Lpt=0
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2,&Entier1,&Entier2,&Entier3,&Entier4) SI Entier1<>1 ALORS Erreur("La clé électronique est absente") RETOUR FIN
ch=Répète("Z",110) //Chaine à écrire dans la clé , mettre ce que vous voulez écrire ici (110 fois la lettre Z dans l'exemple)
/////////////////////////// // Ecriture dans la clé // ///////////////////////// NumFoncQ SeedCode=0 Lpt=0 Entier1=0 Entier2U Entier3=0 Entier4=&ch
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2, &Entier1,&Entier2,&Entier3,&Entier4) SI Entier3 <> 0 ALORS Erreur("Erreur d'écriture dans la clé électronique",... "Status d'erreur = ",Entier3) RETOUR FIN
//////////////////////// // Lecture de la clé // ////////////////////// NumFoncP ch=Répète(" ",110) Entier1=0 Entier2U Entier3=0 Entier4=&ch
Info("Contenu de l'adresse mémoire de la clé >"+ch+"<")
Cordialement, --- Eric LAURENT
(enlever nospam.) ---
Merci
Eric LAURENT a écrit:
Jérôme <nospam@nospam.com> a écrit:
Bonsoir,
la question est peut être idiote mais, est ce que l'un d'entre vous
aurait déjà utilisé la commande HASP de windev 8, plus
particuliérement les fonctions d'écritures (fct 4 et 51 du service
HASP). car la j'en perd mon latin les fonctions de lecture réagissent
correctement, mais impossible de faire fonctionner les commandes 4,
6, 51 elle ne font rien (même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour
les faire fonctionner, je l'en remerci d'avance.
Voici un petit bout de code que j'utilise. C'est en effet un Truc qui
fonctionne.
NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers
Entier1, Entier2, Entier3, Entier4 sont des entiers
ch est une chaîne fixe sur 110
// IMPORTANT A CHANGER SUIVANT LES CLES //
Passe1=XXXXX // Constante contenant les mots de passe
Passe2=XXXXX // idem...
SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS RETOUR
///////////////////////////////////////
// Test de reconnaissance de la clé //
/////////////////////////////////////
NumFonc=1
SeedCode=0
Lpt=0
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2,&Entier1,&Entier2,&Entier3,&Entier4)
SI Entier1<>1 ALORS
Erreur("La clé électronique est absente")
RETOUR
FIN
ch=Répète("Z",110) //Chaine à écrire dans la clé , mettre ce que vous
voulez écrire ici (110 fois la lettre Z dans l'exemple)
///////////////////////////
// Ecriture dans la clé //
/////////////////////////
NumFoncQ
SeedCode=0
Lpt=0
Entier1=0
Entier2U
Entier3=0
Entier4=&ch
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2,
&Entier1,&Entier2,&Entier3,&Entier4)
SI Entier3 <> 0 ALORS
Erreur("Erreur d'écriture dans la clé électronique",...
"Status d'erreur = ",Entier3)
RETOUR
FIN
////////////////////////
// Lecture de la clé //
//////////////////////
NumFoncP
ch=Répète(" ",110)
Entier1=0
Entier2U
Entier3=0
Entier4=&ch
la question est peut être idiote mais, est ce que l'un d'entre vous aurait déjà utilisé la commande HASP de windev 8, plus particuliérement les fonctions d'écritures (fct 4 et 51 du service HASP). car la j'en perd mon latin les fonctions de lecture réagissent correctement, mais impossible de faire fonctionner les commandes 4, 6, 51 elle ne font rien (même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour les faire fonctionner, je l'en remerci d'avance.
Voici un petit bout de code que j'utilise. C'est en effet un Truc qui fonctionne.
NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers Entier1, Entier2, Entier3, Entier4 sont des entiers ch est une chaîne fixe sur 110
// IMPORTANT A CHANGER SUIVANT LES CLES // Passe1=XXXXX // Constante contenant les mots de passe Passe2=XXXXX // idem...
SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS RETOUR
/////////////////////////////////////// // Test de reconnaissance de la clé // ///////////////////////////////////// NumFonc=1 SeedCode=0 Lpt=0
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2,&Entier1,&Entier2,&Entier3,&Entier4) SI Entier1<>1 ALORS Erreur("La clé électronique est absente") RETOUR FIN
ch=Répète("Z",110) //Chaine à écrire dans la clé , mettre ce que vous voulez écrire ici (110 fois la lettre Z dans l'exemple)
/////////////////////////// // Ecriture dans la clé // ///////////////////////// NumFoncQ SeedCode=0 Lpt=0 Entier1=0 Entier2U Entier3=0 Entier4=&ch
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2, &Entier1,&Entier2,&Entier3,&Entier4) SI Entier3 <> 0 ALORS Erreur("Erreur d'écriture dans la clé électronique",... "Status d'erreur = ",Entier3) RETOUR FIN
//////////////////////// // Lecture de la clé // ////////////////////// NumFoncP ch=Répète(" ",110) Entier1=0 Entier2U Entier3=0 Entier4=&ch
Info("Contenu de l'adresse mémoire de la clé >"+ch+"<")
Cordialement, --- Eric LAURENT
(enlever nospam.) ---
Lionel
pure curiosité : à quoi vous sert l'écriture sur la clé ? quel type d'utilisation ?
"Jérôme" a écrit dans le message de news:
Merci
Eric LAURENT a écrit: > Jérôme a écrit: > > >>Bonsoir, >> >>la question est peut être idiote mais, est ce que l'un d'entre vous >>aurait déjà utilisé la commande HASP de windev 8, plus >>particuliérement les fonctions d'écritures (fct 4 et 51 du service >>HASP). car la j'en perd mon latin les fonctions de lecture réagissent >>correctement, mais impossible de faire fonctionner les commandes 4, >>6, 51 elle ne font rien (même pas d'erreurs)!!! >> >> >>Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour >>les faire fonctionner, je l'en remerci d'avance. > > > Voici un petit bout de code que j'utilise. C'est en effet un Truc qui > fonctionne. > > NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers > Entier1, Entier2, Entier3, Entier4 sont des entiers > ch est une chaîne fixe sur 110 > > // IMPORTANT A CHANGER SUIVANT LES CLES // > Passe1=XXXXX // Constante contenant les mots de passe > Passe2=XXXXX // idem... > > SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS
RETOUR
> > /////////////////////////////////////// > // Test de reconnaissance de la clé // > ///////////////////////////////////// > NumFonc=1 > SeedCode=0 > Lpt=0 > >
> > Info("Contenu de l'adresse mémoire de la clé >"+ch+"<") > > > Cordialement, > --- > Eric LAURENT > > (enlever nospam.) > --- > >
pure curiosité : à quoi vous sert l'écriture sur la clé ?
quel type d'utilisation ?
"Jérôme" <nospam@nospam.com> a écrit dans le message de
news:40FC05CD.5060602@nospam.com...
Merci
Eric LAURENT a écrit:
> Jérôme <nospam@nospam.com> a écrit:
>
>
>>Bonsoir,
>>
>>la question est peut être idiote mais, est ce que l'un d'entre vous
>>aurait déjà utilisé la commande HASP de windev 8, plus
>>particuliérement les fonctions d'écritures (fct 4 et 51 du service
>>HASP). car la j'en perd mon latin les fonctions de lecture réagissent
>>correctement, mais impossible de faire fonctionner les commandes 4,
>>6, 51 elle ne font rien (même pas d'erreurs)!!!
>>
>>
>>Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour
>>les faire fonctionner, je l'en remerci d'avance.
>
>
> Voici un petit bout de code que j'utilise. C'est en effet un Truc qui
> fonctionne.
>
> NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers
> Entier1, Entier2, Entier3, Entier4 sont des entiers
> ch est une chaîne fixe sur 110
>
> // IMPORTANT A CHANGER SUIVANT LES CLES //
> Passe1=XXXXX // Constante contenant les mots de passe
> Passe2=XXXXX // idem...
>
> SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS
RETOUR
>
> ///////////////////////////////////////
> // Test de reconnaissance de la clé //
> /////////////////////////////////////
> NumFonc=1
> SeedCode=0
> Lpt=0
>
>
pure curiosité : à quoi vous sert l'écriture sur la clé ? quel type d'utilisation ?
"Jérôme" a écrit dans le message de news:
Merci
Eric LAURENT a écrit: > Jérôme a écrit: > > >>Bonsoir, >> >>la question est peut être idiote mais, est ce que l'un d'entre vous >>aurait déjà utilisé la commande HASP de windev 8, plus >>particuliérement les fonctions d'écritures (fct 4 et 51 du service >>HASP). car la j'en perd mon latin les fonctions de lecture réagissent >>correctement, mais impossible de faire fonctionner les commandes 4, >>6, 51 elle ne font rien (même pas d'erreurs)!!! >> >> >>Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour >>les faire fonctionner, je l'en remerci d'avance. > > > Voici un petit bout de code que j'utilise. C'est en effet un Truc qui > fonctionne. > > NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers > Entier1, Entier2, Entier3, Entier4 sont des entiers > ch est une chaîne fixe sur 110 > > // IMPORTANT A CHANGER SUIVANT LES CLES // > Passe1=XXXXX // Constante contenant les mots de passe > Passe2=XXXXX // idem... > > SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS
RETOUR
> > /////////////////////////////////////// > // Test de reconnaissance de la clé // > ///////////////////////////////////// > NumFonc=1 > SeedCode=0 > Lpt=0 > >
T'as essayer avec les mots de passe 23023 et 12339 ? Ca devrait mieux marcher !
-- Utilisez notre serveur de news 'news.foorum.com' depuis n'importe ou. Plus d'info sur : http://nnrpinfo.go.foorum.fr/
Jérôme
Pour Stocker des infos différentes suivant les machines clients
Lionel a écrit:
pure curiosité : à quoi vous sert l'écriture sur la clé ? quel type d'utilisation ?
"Jérôme" a écrit dans le message de news:
Merci
Eric LAURENT a écrit:
Jérôme a écrit:
Bonsoir,
la question est peut être idiote mais, est ce que l'un d'entre vous aurait déjà utilisé la commande HASP de windev 8, plus particuliérement les fonctions d'écritures (fct 4 et 51 du service HASP). car la j'en perd mon latin les fonctions de lecture réagissent correctement, mais impossible de faire fonctionner les commandes 4, 6, 51 elle ne font rien (même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour les faire fonctionner, je l'en remerci d'avance.
Voici un petit bout de code que j'utilise. C'est en effet un Truc qui fonctionne.
NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers Entier1, Entier2, Entier3, Entier4 sont des entiers ch est une chaîne fixe sur 110
// IMPORTANT A CHANGER SUIVANT LES CLES // Passe1=XXXXX // Constante contenant les mots de passe Passe2=XXXXX // idem...
SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS
RETOUR
/////////////////////////////////////// // Test de reconnaissance de la clé // ///////////////////////////////////// NumFonc=1 SeedCode=0 Lpt=0
SI Entier1<>1 ALORS Erreur("La clé électronique est absente") RETOUR FIN
ch=Répète("Z",110) //Chaine à écrire dans la clé , mettre ce que vous voulez écrire ici (110 fois la lettre Z dans l'exemple)
/////////////////////////// // Ecriture dans la clé // ///////////////////////// NumFoncQ SeedCode=0 Lpt=0 Entier1=0 Entier2U Entier3=0 Entier4=&ch
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2, &Entier1,&Entier2,&Entier3,&Entier4) SI Entier3 <> 0 ALORS Erreur("Erreur d'écriture dans la clé électronique",... "Status d'erreur = ",Entier3) RETOUR FIN
//////////////////////// // Lecture de la clé // ////////////////////// NumFoncP ch=Répète(" ",110) Entier1=0 Entier2U Entier3=0 Entier4=&ch
Info("Contenu de l'adresse mémoire de la clé >"+ch+"<")
Cordialement, --- Eric LAURENT
(enlever nospam.) ---
Pour Stocker des infos différentes suivant les machines clients
Lionel a écrit:
pure curiosité : à quoi vous sert l'écriture sur la clé ?
quel type d'utilisation ?
"Jérôme" <nospam@nospam.com> a écrit dans le message de
news:40FC05CD.5060602@nospam.com...
Merci
Eric LAURENT a écrit:
Jérôme <nospam@nospam.com> a écrit:
Bonsoir,
la question est peut être idiote mais, est ce que l'un d'entre vous
aurait déjà utilisé la commande HASP de windev 8, plus
particuliérement les fonctions d'écritures (fct 4 et 51 du service
HASP). car la j'en perd mon latin les fonctions de lecture réagissent
correctement, mais impossible de faire fonctionner les commandes 4,
6, 51 elle ne font rien (même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour
les faire fonctionner, je l'en remerci d'avance.
Voici un petit bout de code que j'utilise. C'est en effet un Truc qui
fonctionne.
NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers
Entier1, Entier2, Entier3, Entier4 sont des entiers
ch est une chaîne fixe sur 110
// IMPORTANT A CHANGER SUIVANT LES CLES //
Passe1=XXXXX // Constante contenant les mots de passe
Passe2=XXXXX // idem...
SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS
RETOUR
///////////////////////////////////////
// Test de reconnaissance de la clé //
/////////////////////////////////////
NumFonc=1
SeedCode=0
Lpt=0
SI Entier1<>1 ALORS
Erreur("La clé électronique est absente")
RETOUR
FIN
ch=Répète("Z",110) //Chaine à écrire dans la clé , mettre ce que vous
voulez écrire ici (110 fois la lettre Z dans l'exemple)
///////////////////////////
// Ecriture dans la clé //
/////////////////////////
NumFoncQ
SeedCode=0
Lpt=0
Entier1=0
Entier2U
Entier3=0
Entier4=&ch
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2,
&Entier1,&Entier2,&Entier3,&Entier4)
SI Entier3 <> 0 ALORS
Erreur("Erreur d'écriture dans la clé électronique",...
"Status d'erreur = ",Entier3)
RETOUR
FIN
////////////////////////
// Lecture de la clé //
//////////////////////
NumFoncP
ch=Répète(" ",110)
Entier1=0
Entier2U
Entier3=0
Entier4=&ch
Pour Stocker des infos différentes suivant les machines clients
Lionel a écrit:
pure curiosité : à quoi vous sert l'écriture sur la clé ? quel type d'utilisation ?
"Jérôme" a écrit dans le message de news:
Merci
Eric LAURENT a écrit:
Jérôme a écrit:
Bonsoir,
la question est peut être idiote mais, est ce que l'un d'entre vous aurait déjà utilisé la commande HASP de windev 8, plus particuliérement les fonctions d'écritures (fct 4 et 51 du service HASP). car la j'en perd mon latin les fonctions de lecture réagissent correctement, mais impossible de faire fonctionner les commandes 4, 6, 51 elle ne font rien (même pas d'erreurs)!!!
Bref si quelqu'un avait un bout de code qui fonctionne ou le Truc pour les faire fonctionner, je l'en remerci d'avance.
Voici un petit bout de code que j'utilise. C'est en effet un Truc qui fonctionne.
NumFonc, SeedCode, Lpt, Passe1, Passe2 sont des entiers Entier1, Entier2, Entier3, Entier4 sont des entiers ch est une chaîne fixe sur 110
// IMPORTANT A CHANGER SUIVANT LES CLES // Passe1=XXXXX // Constante contenant les mots de passe Passe2=XXXXX // idem...
SI PAS OuiNon("Confirmez l'écriture dans la clé électronique") ALORS
RETOUR
/////////////////////////////////////// // Test de reconnaissance de la clé // ///////////////////////////////////// NumFonc=1 SeedCode=0 Lpt=0
SI Entier1<>1 ALORS Erreur("La clé électronique est absente") RETOUR FIN
ch=Répète("Z",110) //Chaine à écrire dans la clé , mettre ce que vous voulez écrire ici (110 fois la lettre Z dans l'exemple)
/////////////////////////// // Ecriture dans la clé // ///////////////////////// NumFoncQ SeedCode=0 Lpt=0 Entier1=0 Entier2U Entier3=0 Entier4=&ch
Hasp(NumFonc,SeedCode,Lpt,Passe1,Passe2, &Entier1,&Entier2,&Entier3,&Entier4) SI Entier3 <> 0 ALORS Erreur("Erreur d'écriture dans la clé électronique",... "Status d'erreur = ",Entier3) RETOUR FIN
//////////////////////// // Lecture de la clé // ////////////////////// NumFoncP ch=Répète(" ",110) Entier1=0 Entier2U Entier3=0 Entier4=&ch
