Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof

[patricktoulon]

Bonjour a tous
la principal raison des crash excel quand on utilise le hooking de la souris pour avoir le mouse wheel(la roulette)
c'est que le looping avec le (CallnextHook)est asynchrone avec le captage du message de la souris
donc quand une erreur se produit(on va trop vite ou autre)
le looping lui continue parfois au moins une fois même en erreur
résultat comme on déplace le block type du message en mémoire ça crash

je vous propose de tester ceci
ici on va rester dans un do/loop vba classique et le message de la souris sera récupéré par un peekmessage
si il y a une erreur (du au message de la souris non conforme) normalement on a une erreur vba classique
et donc le do/loop est interrompu
donc pas de relance avec un message de la souris erroné donc pas de crash
Vous constaterez que j'augmente l'allocation de la mémoire aussi (64 bits double (longlong ou longPtr))(+2&)

d'autant plus que la dans cette démo je met tout dans le userform
ce qui n'est pas possible avec un code de hooking bien entendu
et ça peut avoir un avantage lorsque l'on veut distribuer un interface(userform) sans devoir l'accompagner de x modules

toujours pareil pour déterminer le rectangle je me sert de ma fonction perso du calendar que j'ai modifié pour ce besoins
donc testez et si ça fonctionne je ferais une ressource au propre

merci d'avance pour votre participation

j'en connais un qui vas ouvrir grand les yeux 🤣

Patrick

 

[jurassic pork]

Hello,
pour le problème avec la comboBox, je ne sais pas pourquoi dans handleCombo tu prends le handle du parent , moi avec le handle cela fonctionne :

If class Like "F3 MdcPopup*" Then handlecombo = handle

Ami calmant, J.P

 

[patricktoulon]

re
Bonjour @jurassic pork
oui mais le test se fait sur le handleparent pour la classe je ne m'ennuie pas je prend celui là
donc ça marche ?

 

[patricktoulon]

pour info chez moi ca fonctionne pour les frame , listbox , multipage , combobox

 

[jurassic pork]

re
Bonjour @jurassic pork
oui mais le test se fait sur le handleparent pour la classe je ne m'ennuie pas je prend celui là
donc ça marche ?

Sur mon Excel 2021 64 bits pour que cela fonctionne il faut utiliser ta première version de PointApiToLong (celle avec t8), faire la modif dans handleCombo et pour le Multipage il faut scroller en haut à droite du multipage (si on est dans une page ne fonctionne pas) :

A vérifier la version de FM20.dll utilisée . Moi c'est la 16.0.18429.20044

Ami calmant, J.P

 

[patricktoulon]

ben moi j'ai celle qui correspond a ma version d'excel

 

[patricktoulon]

tu comprends que ça n'a pas de sens
puisque a partir du moment ou je donne le focus a un handle il ne le perds pas tant que suis par retourné dans le userform ou passé sur un autre control
parti de la ou que tu soit dans le multipage le scroll doit fonctionner
essai de remettre la FM20 d'origine tu la retrouve dans les cab de l'iso ou dossier d’installation si tu a décompilé l'iso

 

[jurassic pork]

essai de remettre la FM20 d'origine tu la retrouve dans les cab de l'iso ou dossier d’installation si tu a décompilé l'iso

Ben Non moi je laisse la FM20 de ma version et en plus elle est en 64 bits

 

[patricktoulon]

re
je te dis pas d'en mettre une autre je te dit de remettre celle qui est dans ton iso 64 bits
allez je vais faire le test donne moi la dans un zip
je vais remplacer la mienne pour voir

 

[patricktoulon]

re
et voilà le problème du textbox résolu
en fait il faut aller chercher le unknow handle et prendre le child

voila sans hooking sans peekmessage ni looping en addressof ou pas
me reste a mettre tout ça dans une classe histoire d'avoir un module utilitaire scroll pour userform ultra light en ressource

 

[patricktoulon]

re
et en fait pour le Inkcollector le child direct du userform suffit pour tout les control
en même temps quand on y réfléchi 2sec c'est evident vu qu'a la base c'est prévu pour les tabletPC le doight doit être capter partout
donc en fait je me suis ennuyé a récupérer les bons handles alors que ça n'était pas nécessaire
du coup
fini windowfrompoint
fini copymemory et ou son substitut
fini getparent
fini pointapi
problème pour choper le handle directement par findwindowhex ça ne fonctionne pas
on utilisera donc le joker avec la #172 de la shlwapi.dll
et le getwindow avec argument 5 pour le child
nous voila donc avec un handle corespondant au rectangle intérieur de l'userform( lui aussi classe "F3 server xxxxxxxx"
comme il n'est pas activable par la souris puisque c'est l'userform tout entier qui s'active avec la souris "classe thunderXDFrame"
on est tranquille puisque a partir du moment ou un control est focusé ce handle a le focus aussi
donc plus de perte de focus sur le handle dans le inkcollector
démo, des handle avec spy++

et voila donc en ayant tout supprimer au niveau de recherche de handle et ne gardant que le unknow child

vous constaterez que maintenant c'est toujours le même handle maitre
punaise j'suis en forme moi 🤣 🤣 🤣
qu'en dis tu @jurassic pork
on peut remercier Dan_W dans l'autre monde excel qui m'a bien mis sur la voie quand même

 

[jurassic pork]

qu'en dis tu @jurassic pork

Met moi ton classeur de test que j'essaie😉

 

[patricktoulon]

re

 

[jurassic pork]

re

🤔 avec Mon Excel 2021 64 bits , il n'y a que les TextBox qui fonctionnent, sur les autres il ne se passe rien

 

[patricktoulon]

re
si ca fonctionne sur les textbox ( ce qui entre parentèses est le plus difficile puisque pas de handle) ça devrait fonctionner sur les autres encore plus facilement
a mon avis tu a un sérieux problème avec tes librairies
il n'y a rien de logique dans tes résultats
mais en même temps je ne suis pas étonné
quand j'ai testé ta dll charp truc muche là ca a marché
mais dans mes nouveaux projets userforms ,des que je voulais ajouter un control dynamique ca marchait plus
ni manomano d'ailleurs
certains events ne marchait plus non plus et j'en passe

teste progressivement sur tes box virtual version par version en espérant que tu les ai pas traficoté aussi celles là de version
y a que comme ça que l'on pourra trouver ce qui ne va pas
mais j'en doute chez dan_W office 2021 64 ça fonctionne ,c'est basé sur son exemple

 

[jurassic pork]

Le proverbe dit :

Dans le doute abstiens toi

Moi j'attend le verdict d'autres utilisateurs et avec quelle configuration