Script qui provoque l'erreur "R6025 – pure virtual function call"

Bonjour tout le monde,

J'utilise depuis peu des scripts VBS dans une application spécifique à mon travail.

Je lance le script très régulièrement (si j'ai besoin de faire 15 fois la tâche, je le lance 15 fois - je veux dire, il ne fonctionne pas en boucle) et j'ai, de façon aléatoire (parfois jamais, parfois régulièrement, parfois après plusieurs traitement, parfois dès le 1er lancement), l'erreur suivante qui m'oblige à fermer puis redémarrer l'application :

Citation:

---

Microsoft Visual C++ Runtime Library
Runtime Error !
Program c:\[mon appli]
R6025
– pure virtual function call

---

J'ai regardé un peu sur le net et sur le site de Windows et ça semble venir d'incompatibilités avec des trucs tiers ou bien de bug intrinsèque au programme (je n'ai pas de login "admin" sur l'ordi du taf, donc je ne peux rien modifier du registre ni installer de choses nouvelles - ceci dit, on m'a déjà réinstallé l'application sans que ça change quelque chose) mais je voulais quand même poser la question ici : je n'ai cette erreur que lorsque je lance mon script, aussi je me demandais si je ne pouvais pas corriger quelque chose dans le script pour ne plus l'avoir - vider des variables avant de le relancer, ou bien ce genre de chose ? Je me disais que ça pouvait être un problème de mémoire (l'erreur survient de façon aléatoire, c'est ça que je ne comprends pas trop).

Merci de vos retours !

Salut

Dans ton erreur

Citation:

---

Microsoft Visual C++ Runtime Library

---

donc tu utilises un programme en langage XXX qui lance un autre script lui en langage VBScript?
De toute façon il serait utile d'avoir la ligne de code du programme langage XXX et l’essentiel du code VBScript pour essayer de résoudre ton problème.

D'ac', donc voilà l'erreur complète (je n'ai pas d'accès au code de l'application par contre) :

Citation:

---

Microsoft Visual C++ Runtime Library
Runtime Error !
Program c:\oclcpica\WinIBW30\WinIBW30.exe
R6025
– pure virtual function call

---

Et mon script (lancé à l'intérieur du programme effectivement) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

application.activeWindow.command "mod", false 'on met directement la fenêtre en mode édition application.activeWindow.title.startOfBuffer 'on place le curseur au début de la page   Dim cote Dim CB Dim Section Dim Consult Dim Sequence Dim cherche,cherchepn, result Dim Ex,a Dim PPN Dim recupRCR   'On récupère le RCR de la bibliothèque */ recupRCR = application.activeWindow.variable("P3GUL")   '/ Partie permettant de détecter le numéro d'exemplaire à ajouter ***/ Ex = "e01" a = 1 cherche = application.activeWindow.title.find(Ex, true, false, true) do while cherche = true a = a + 1 Ex = "e" & Right("00" & a, 2) cherche = application.activeWindow.title.find(Ex, true, false, true) loop application.activeWindow.title.endOfBuffer   '/* Partie permettant de remplir les champs propres de l'exemplaire **/ cote = inputbox("Quelle cote ?",, "") do while len(CB) <> 10 and vartype(CB) <> 2 'Partie permettant de contrôler le code-barre (10 caractères en chiffres) CB = inputbox("Quel code-barre ?") loop Section = inputbox("Quelle section ?",,"") 'Sequence = inputbox("Quelle séquence ?") Consult = msgbox("L'ouvrage est consultable sur place uniquement ?", vbyesno + vbquestion, "Statut de la consultation")   application.activeWindow.title.insertText Ex & " $bx" & vblf & "930" application.activeWindow.title.insertText Ex & " $bx" & vblf & "930 ##$b" & rtrim(recupRCR) & "$c" & Ucase(Section) & "$a" & cote & "$ju" & vblf 'disponible pour le PEB application.activeWindow.title.insertText "915 ##$b" & CB & vblf if Consult = 6 then 'Consultable sur place uniquement application.activeWindow.title.insertText"917 ##$axxbx" & vblf else application.activeWindow.title.insertText"917 ##$axxax" & vblf 'Empruntable end if application.activeWindow.title.insertText"999 ##$cj"   '/ Partie permettant de valider directement (sinon l'EPN n'est pas créé) */ application.activeWindow.simulateIBWKey "FR"   '/ Partie permettant de copier l'EPN de l'exemplaire */ application.activeWindow.command "mod", false a = a-1 application.activeWindow.clipboard = application.activeWindow.title.findTag("A99", a, false) application.activeWindow.simulateIBWKey "FE" 'Simuler avec cette touche - echap - permet apriori de réduire l'erreur WinIBW

---

Merci !

bonjour,

la doc scripting de ton programme précise ceci (page 59) :

Citation:

---

Short-circuit evaluation is very useful. On one hand it is faster (because it does not perform
superfluous evaluation) on the other hand it is practical. Have a look at the following code snippet:

if (application.activeWindow && application.activeWindow.title
&& application.activeWindow.title.canPaste()) {
application.activeWindow.title.paste();
}
This code works perfectly well in JavaScript. If you don’t have an activeWindow, the evaluation
stops. If you have an activeWindow, but no title, the evaluation stops; in this case it is not tried
to access the canPaste() function of the title object.
If you try to do the same in VBScript and you do not have an activeWindow or a title object,
you will receive a runtime error, because the VBScript engine will try to access objects, which are
null.

---

en clair, il est possible que dans certaines circonstances ton script soit appelé alors que l'activewindow ou l'activewindow.title n'est pas (encore) dispo
pour le vérifier je tenterais en tout début de script un truc comme ça :
(sans garantie :mrgreen:)

Code:

---

1 2 3

On Error Resume Next If IsObject(application.activeWindow) = False Then MsgBox "Pas bon du tout..." On Error GoTo 0

---

Super, ça fait déjà une piste, merci !
(s'il y en a d'autres, je prends aussi)

J'avais vu cette doc mais je n'ai jamais pensé à y rechercher textuellement le "runtime error" :oops:

Je vais tester et je vous tiendrais au courant (par contre là je suis dans une période où mon script ne va pas tellement me servir). Le doute que j'ai c'est que ma procédure est toujours la même et qu'il n'y a pas de raison que j'ai une fois une activewindow et une autre fois pas, mais je vais rajouter le bout de code ! :D

PS : j'ai pu faire un test en lançant 5-6 fois le script, je n'ai pas eu d'erreur, je ne sais pas si c'est une coïncidence ou si l'erreur est fixée.

Je viens de retester le script et, malheureusement, l'erreur est de nouveau apparue malgré l'ajout du bout de code :'(

pour lever le doute, j'ajouterais ceci en tête du script

Code:

---

1 2 3 4

On Error Resume Next If IsObject(application.activeWindow) = False Then MsgBox "Pas de fenetre active..." Else MsgBox "fenetre ok" If IsObject(application.activeWindow.title) = False Then MsgBox "Pas de titre..." Else Msgbox "titre ok" On Error GoTo 0

---

tu auras deux messages à valider en début d'exécution mais ça donnera des infos intéressantes
notamment si le runtime error survient sans aucun affichage car cela signifierait que l'application part en sucette
sans même permettre au moteur du vbscript de capturer l'erreur

Merci de ta réactivité !

Je vais ajouter ça et je vous tiens au courant :)

Alors ça n'a pas fonctionné non plus... J'ai eu les deux fenêtres, j'ai cliqué sur ok et après l'erreur est quand même apparue.

Mais ça m'a fait penser à un truc. Dans mon script, je suis obligé, avant toute modification, de passer le document en "écriture" avec la commande interne au logiciel :

Citation:

---

application.activeWindow.command "mod", false

---

Je fais cette opération deux fois : la première fois pour écrire ce que je veux, je valide, puis je repasse en mode "écriture" pour récupérer une donnée qui n'est dispo qu'après la validation (et que je ne peux pas récupérer en mode lecture seule - en tout cas pas de façon simple).

L'erreur ne survient jamais avant la validation (j'ai toujours pu valider sans avoir l'erreur), mais toujours au moment où la seconde commande pour passer en mode "écriture" est appelée (la fenêtre ne s'affiche même pas en mode "écriture") :

Citation:

---

application.activeWindow.simulateIBWKey "FR" [validation]

'/************** Partie permettant de copier l'EPN de l'exemplaire *********/
[SURVENUE DE L'ERREUR PAR LA]
application.activeWindow.command "mod", false

---

Du coup j'ai déplacé ton bout de code juste avant cette seconde commande, pour voir ?

Hello !

Alors je confirme malheureusement j'ai eu l'erreur même comme ça : après la validation mais également avant que ne s'affichent les fenêtres de contrôle dûes à ton morceau de code... :calim2:

PS : encore une info au cas où > le "application.activewindow.title" correspond à la fenêtre qui passe en mode "écriture" suite à la commande

Citation:

---

application.activeWindow.command "mod", false

---

a tout hasard, la validation ne prend-elle pas (parfois) un peu de temps ? et de ce fait la commande suivante est exécutée trop tôt et ferai alors planter le script ?
peut-être tester en mettant une petite tempo après la validation (1s ou 2s pour tester)

Hum, c'est pas impossible puisque les données sont envoyées à un serveur durant la validation... Je vais essayer ça, merci !

Heu... J'ai un peu cherché, mais je ne comprends pas bien comment je dois coder pour faire une temporisation... ? Est-ce que je dois faire une boucle qui se termine à la pression d'une touche ? Est-ce que je dois faire une espèce de timer (il y a des fonctions en vbs, mais plutôt des dates je crois) ? :oops:

Dans l'application, il y a une méthode qui permet de bloquer le déroulement du script mais pour le faire continuer, je dois cliquer à la souris sur un bouton, du coup c'est un peu embêtant.

Merci encore !

WScript.Sleep(time_in_ms) pour faire des essais, sinon un équivalent (c'est une méthode bloquante)
sinon avec des temps en seconde

Code:

---

1 2 3 4

Dim dteWait dteWait = DateAdd("s", 10, Now()) Do Until (Now() > dteWait) Loop

---

ici 10 secondes d'attente

Code:

---

WScript.Sleep(time_in_ms) pour faire des essais

---

ça ne fonctionnera pas car le vbscript ne tourne pas dans le contexte WSH et donc l'objet WScript n'est pas dispo

le code boucle d'attente a juste le défaut de charger le cpu inutilement mais ce n'est sans doute pas un problème dans ce cas de figure
sinon, une solution moins couteuse pour le cpu :

Code:

---

1 2 3

secs = 10 CreateObject("WScript.Shell").Run "TimeOut /t " & secs, 0, True

---

Faut que je pense à la mettre dans la FAQ

Merci pour les solutions !

Je viens de tester, les deux fonctionnent, mais je vais prendre le plus court (le tien, Omen - si je comprends bien, ça lance WScript avec une option de retardement, c'est ça ?).

Comme je l'ai dit, les occasions de tester mon script varient en fonction de mon travail. En ce moment je n'en ai pas l'utilité mais dès que je pourrai le tester plusieurs fois, je n'oublierai pas de vous faire un retour.

Citation:

---

Omen - si je comprends bien, ça lance WScript avec une option de retardement, c'est ça ?

---

heu non, ça crée un object shell indépendant de WSH mais livré avec lui d'où sa syntaxe...
cet object a une méthode Run qui permet à partir du script de lancer un exécutable
son flag True a pour effet de mettre le script en attente (comme un sleep) jusqu'à la fin de l'exécution du prog lancé
en l'occurence le petit utilitaire TimeOut dispo sous Windows

Merci pour l'explication !

J'ai refait fonctionner mon script et malheureusement l'erreur est encore apparue malgré la temporisation... Est-ce que ça veut dire qu'il faut que je me fasse une raison ? :(

Citation:

---

Est-ce que ça veut dire qu'il faut que je me fasse une raison ?

---

en désespoir de cause... puisqu'il ne semble pas possible d'activer un debugger,
il reste deux techniques :

1. celle des pseudo points d'arrêt :
tu inséres entre plusieurs lignes d'appel à l'objet application un code style

Code:

---

MsgBox "PA01"

---

en incrémentant le nombre évidemment...
et tu notes la dernière ligne avant plantage en espérant cerner la ligne coupable

2. celle du fichier log si tu es autorisé à utiliser l'objet "Scripting.FileSystemObject" depuis le script
la dernière ligne écrite dans le fichier avant le plantage aura le même rôle que le message en plus confortable

si tu constates que le plantage peut survenir à différents endroits du code de façon erratique, cela veut dire que l'erreur
dépend de conditions propres à l'appli que tu ne pourras pas tracer.

Oui, j'ai accès à cet objet, je vais faire un petit fichier de log alors, et je vous redirai, merci ! :)

Re !

J'ai pu faire tourner mon script une bonne 60aine de fois, et du coup je confirme que l'erreur se passe bien à la ligne que je citais plus haut (il n'y a que là qu'elle apparaît) :

Code:

---

1 2 3 4 5

application.activeWindow.simulateIBWKey "FR" [validation] '/************** Partie permettant de copier l'EPN de l'exemplaire *********/ [SURVENUE DE L'ERREUR] application.activeWindow.command "mod", false

---

Dans le log, la dernière ligne écrite dans le fichier est celle juste après le "FR", donc l'erreur survient bien au moment où je renvoie le "application.activewindow.command "mod", false".

Il s'agit d'un truc destiné à écrire dans l'entrée du commande du logiciel afin de passer ce qu'on vient de valider en mode "écriture". Je dirais bien que c'est un problème de timing mais a-priori ce n'est pas ça puisqu'on a fait une temporisation... Donc je sais pas (je vais essayer de changer cette ligne de code par une autre destinée à faire la même chose et voir si ça fonctionne).

Citation:

---

je vais essayer de changer cette ligne de code par une autre destinée à faire la même chose et voir si ça fonctionne).

---

excellente démarche
tu peux commencer par un simple ;)

Code:

---

application.activeWindow.command "mod"

---

(le param False est actif par défaut)

Citation:

---

Envoyé par Bidulbuk

[...] Je dirais bien que c'est un problème de timing mais a-priori ce n'est pas ça puisqu'on a fait une temporisation... Donc je sais pas (je vais essayer de changer cette ligne de code par une autre destinée à faire la même chose et voir si ça fonctionne).

---

Dans le code que tu viens de poster, on ne voit pas la tempo.. c'est normal ?

Oui, j'avais testé puis enlevé ce bout de code proposé par Omen puisque ça ne réglait pas le problème :)

Je vais tester avec ça :

Code:

---

application.activeWindow.simulateIBWKey "F7"

---

Ca fait la même chose que le "command" (ce qui est assez bizarre d'ailleurs, parce que si je tape F7 au clavier ça me fait autre chose que de passer en mode écriture alors qu'avec l'objet, ça passe en mode écriture - mais bref). Si ça ne marche pas, je testerai avec le "command" sans le false. Et si ça ne fonctionne toujours pas, il me restera encore une autre manière de faire. Mais après j'aurai plus d'idée.

:bug:

Donc j'ai testé avec le "F7", mais j'ai eu de nouveau l'erreur. Du coup, comme j'effectue deux fois cette manoeuvre dans le script, j'ai mis la première avec le "F7" et la seconde avec le "Command" et pour le moment je n'ai pas eu l'erreur... J'attends un peu avant de savoir si c'est une coïncidence ou si ça a marché :koi:

Bon, c'était une coïncidence, j'ai toujours le message d'erreur :?

Donc à moins que quelqu'un.e ait une nouvelle idée, j'abandonne, mais merci beaucoup de vos retours !

Je pensais à un truc un peu tordu pour essayer de contourner ça
on essai de faire la commande, si erreur on retente, sinon on poursuit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

ca_passe=false Do while not ca_passe Err.clear on error resume next application.activeWindow.command "mod" if Err.number = 0 then ca_passe=true else temporisation end if Err.Clear on error goto 0 Loop

---

Hello,

Merci pour cette dernière proposition ! Je vais tester ça dès que je suis de retour de congés :D

Re !

[EDIT : le bug décrit ci-dessous semble avoir été ponctuel... Je laisse le message au cas où, mais le code est maintenant bien interprété... :fou:]

Alors je n'ai pas testé encore ce bout de code (je n'en ai pas l'occasion) mais j'essaye de faire autrement pour ne pas avoir à repasser la fenêtre en mode "édition" deux fois de suite (vu que c'est ça qui bloque).

Donc j'essaye de passer par une expression régulière pour récupérer la donnée qui m'intéresse. Sauf que.

En fait ma recherche d'expression régulière se situe juste après la ligne de validation (j'y suis obligé parce que sinon la donnée qui m'intéresse n'est pas créé et je n'ai pas de moyen de la récupérer à la volée) :

Code:

---

application.activeWindow.simulateIBWKey "FR"

---

Et du coup le bout de code que j'ai ajouté après cette ligne n'est tout simplement pas interprété par le logiciel (je n'ai aucune erreur ni rien, c'est juste que le bout de code n'est pas exécuté). J'ai essayé en ajoutant juste un msgbox et même résultat : ce qui se situe, dans le code, juste après cette ligne n'est pas interprété...

J'ai ajouté 10 msgbox à la suite, au cas où il y aurait un message qui s'afficherait, mais aucune n'a fonctionnée.

Autre info : dans ce bout de code que j'ai rajouté, qui ne provoque aucune erreur, il n'y a pas d'appel aux objets internes de l'application (comme le application.activewindows... "mod")

Est-ce que ça vous aide à trouver une piste de réponse ? :weird:

Hello, c'est encore moi ! :D

Je reviens avec quelques infos nouvelles.

Comme j'ai dit ci-dessus, j'essaye de contourner l'erreur avec une recherche d'expression régulière et je me suis aperçu que l'erreur que j'ai dépend du poste sur lequel je me trouve (j'utilise majoritairement un PC portable, mais ça m'arrive de devoir travailler sur un fixe) : sur le PC portable, j'ai systématiquement l'erreur (même en rajoutant ton dernier bout de code Umfred) tandis qu'elle n'apparaît pas (je ne sais pas s'il faut dire jamais) sur le fixe... J'y ai pourtant les mêmes versions du logiciel et de Windows...

Ainsi la ligne suivante provoque systématiquement l'erreur sur le portable, tandis que ça n'est pas le cas sur le fixe :

Code:

---

1 2 3 4 5 6 7

application.activeWindow.simulateIBWKey "FR" 'valide le tout depuis une fenêtre en mode écriture 'SURVENUE DE L'ERREUR set modele = new regexp 'on créé l'objet regexp modele.pattern="A99 [0-9]{8}" 'modele recherché modele.global = true 'on recherche plusieurs fois la chaîne

---

L'erreur survient alors que je ne fais pas appel aux objets internes de l'application.

Je suis toujours à votre disposition si vous avez besoin de plus d'informations...

Comme ça commence à être dur à suivre et que j'ai de nouveau une info, je fais un petit récap de ce qui a déjà été fait ou dit.

J'utilise une application qui s'appelle WinIBW et dans laquelle j'utilise des scripts VBS. Cette application communique les données à un serveur. Lorsque j'utilise mes scripts j'ai, de façon aléatoire, une erreur "R6025 - pure virtual function call" (particulièrement lorsque des lignes de codes sont inscrites après la validation des données inscrites dans une fenêtre en mode "écriture"). Le service informatique m'a déjà réinstallé l'application (ce qui est souvent préconisé avec cette erreur) sans que ça ne change rien.

Grâce aux intervenant.es ici, on a essayé, sans que ça n'arrive à régler le problème, les solutions suivantes :

• La vérification que les objets appelés existent.
• Une temporisation placée à différents endroits du script.
• Faire la même chose avec un autre bout de code pour l'objet fenêtre.
• Essayer de contourner l'erreur.

Là je viens de m'apercevoir que l'erreur a a-priori un rapport avec la durée d'utilisation du script : plus j'utilise un script sur le même ordinateur, plus l'erreur aura tendance à apparaître. J'ai en effet eu, avec un script, l'apparition systématique de l'erreur sur l'ordinateur que j'utilise le plus tandis qu'en testant ce script sur d'autres ordinateurs avec le même logiciel, l'erreur n'apparaissait pas (mais je n'utilisais pas le logiciel à la même fréquence, je le lançais seulement une ou deux fois).
Aujourd'hui je viens de refaire un test sur l'ordinateur que j'utilise le plus, après une nuit, et l'erreur n'est pas apparue. J'en déduis que c'est lié à la durée d'utilisation en continu du logiciel.

Est-ce que ça vous paraît plausible comme "explication" ?

Il y a peut-être un "canal" de communication (ou de processus ou de requête) mal fermé ou se générant qui fait qu'au bout d'un moment le problème survient. (je sais je suis vague mais si ça te donne des pistes....)