[VB] Crash de VB en sortie de l'appli

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB] Crash de VB en sortie de l'appli

skeye

Bon, j'y connais pas des masses en VB et je suis censé débugger une petite appli qui permet de tester une dll (la question risque d'être savoir si c'est le prog VB ou la dll C++ qui fait planter le brol).
C'est pas très long, je vous mets le code:

Code :

Option Explicit
Private m_bShow As Boolean
Private Const VK_F2 = &H71
Private Const VK_SHIFT = &H10
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private WithEvents hook As CGlobalHook
Private Sub Form_Load()
Set hook = New CGlobalHook
Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set hook = Nothing
End Sub
Private Sub hook_KeyPressed(VKCode As Long, Scancode As Long, Repeatcount As Long, ExtendedKey As Boolean, AltDown As Boolean, PrevState As Boolean, State As Boolean)
Debug.Print "VKCode = " & VKCode & ", shift is " & GetAsyncKeyState(VK_SHIFT)
If VKCode = VK_F2 And (GetAsyncKeyState(VK_SHIFT) <> 0) Then
If AltDown Then
Unload Me
Else
m_bShow = True
End If
End If
End Sub
Private Sub Timer_Timer()
If m_bShow Then
Call MsgBox("You pressed Shift-F2!", vbInformation + vbSystemModal, "Information" )
m_bShow = False
End If
End Sub

Lorsque j'exécute ce machin ca fonctionne très bien, jusqu'à ce que je veuille l'arrêter...et là VB (VB6, au fait) me fait une op non conforme bla bla bla...
Je vois pas d'où ca peut venir, j'ai essayé en commentant le contenu de Form_Unload, mais ca ne change rien...

Publicité

drasche

Je dirais que ta DLL n'est pas conforme. Si elle l'était, je ne vois pas de raison pour laquelle VB planterait. A moins que ce ne soit lié à ton hook? C'est une possibilité à explorer.

Tout ce que je sais sur le sujet, c'est que les fonctions C appelées par VB doivent être déclarées avec __stdcall.

D'autre part, sans a priori sur le code de ta DLL, tu dois savoir qu'en VB, les Long et Integer sont toujours signés. Il y a donc possibilité d'une mauvaise interprétation si tu utilises du non-signé côté DLL.

skeye

drasche a écrit :

ok, dans ce cas je vais regarder de plus près la dll (spa mon code non plus...j'ai juste un peu modifié...:sweat

skeye

Autre question nulle: pourquoi est-ce que je vois aucune référence à ma dll dans ce putain de code??? :sweat:

drasche

oups

tout ce que je vois, c'est ceci:

Code :

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Tu devrais regarder dans la classe CGlobalHook

skeye

drasche a écrit :

oups

tout ce que je vois, c'est ceci:

Code :

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Tu devrais regarder dans la classe CGlobalHook

J'ai pas de classe CGlobalHook [:sisicaivrai] .
Et tout ce que ma dll exporte c'est

Citation :

SetHook
RemoveHook
CheckKey

...qui n'apparaissent nulle part dans ce code VB de mes 2...
:pt1cable:

drasche

skeye a écrit :

J'ai pas de classe CGlobalHook [:sisicaivrai] .

si, dans ton projet VB (me suis mal exprimé je crois :whistle: )

skeye

drasche a écrit :

si, dans ton projet VB (me suis mal exprimé je crois :whistle: )

grumpf.
Tout le code que j'ai se trouve dans mon 1er post...
Ou alors caché dans un autre rep de ce que m'a filé mon boss sans rien m'esspliker, p-e... :sweat:

drasche

ah mais... autre supposition, t'as une référence vers un compo externe, lequel contiendrait la classe litigeuse. Va voir dans le menu Project/Reference. T'as une liste avec les librairies référencées. En tête tu as 3x Visual Basic-TrucMuche puis OLE Automation. Ces 4 là sont standard. Les autres cases cochées sont des références spécifiques à ton projet VB.

skeye

drasche a écrit :

Bon, j'ai retrouvé globalHook (il était bien dans les références, et j'ai aussi les sources).
Ca donne ça:

Code :

Option Explicit
Event KeyPressed(VKCode As Long, _
Scancode As Long, _
Repeatcount As Long, _
ExtendedKey As Boolean, _
AltDown As Boolean, _
PrevState As Boolean, _
State As Boolean)
Friend Sub ProcessKeyStroke(VKCode As Long, Flags As Long)
Dim Scancode As Long
Dim Repeatcount As Long
Dim ExtendedKey As Boolean
Dim AltDown As Boolean
Dim PrevState As Boolean
Dim State As Boolean
Scancode = Flags And &HFFFF ' bits 0 .. 15
Repeatcount = Flags And &HFF0000 ' bits 16 .. 23
ExtendedKey = Flags And &H1000000 ' bit 24
AltDown = Flags And &H20000000 ' bit 29
PrevState = Flags And &H40000000 ' bit 30
State = Flags And &H80000000 ' bit 31
RaiseEvent KeyPressed(VKCode, Scancode, Repeatcount, ExtendedKey, AltDown, PrevState, State)
End Sub
Private Sub Class_Initialize()
Set MCallback.m_GlobalHook = Me
SetGlbHook
End Sub
Private Sub Class_Terminate()
UnSetGlbHook
Set MCallback.m_GlobalHook = Nothing
End Sub

Je vois pas de truc abracadabrant...à part ces affreux masques hexa, mais bo je suppose l'auteur sait ce qu'il fait! :sweat:
(Toujours pas de référence à ma dll c++, par contre...magique tout ça... :pt1cable: )

Publicité

drasche

doit manquer quelque chose car tu as un MCallback utilisé dans les Initialize et Terminate (constructeur et destructeur en VB) mais déclaré nulle part, il s'agit donc d'une variable globale. Si tu as le curseur dessus, tu fais un Shift-F2 et tu atterriras sur la déclaration (View/Definition si tu préfères par le menu).

skeye

drasche a écrit :

Trouvé...mais aussi trouvé un fichier texte qui donne un lien vers l'endroit ou mon boss doit avoir trouvé tout ce bordel:
http://www.Planet-Source-Code.com/ [...] 5&lngWId=1
Commentaire:

Citation :

The crashing is because VB
does not cleanly ends the code when you
use the (manque la fin!)

puis

Citation :

You
must NOT use the stop button in the IDE
or the "END" statement. If you unload
all forms nicely (or set the hook
variable to Nothing), all should be
just fine.

Résultat, je dis à mon chef de se démerder avec ça? :ange:

skeye

[:volta]
Mon boss va se démerder avec cette erreur à la con tout seul! [:ddr555]
Merci quand même!:jap:

drasche

la suite du commentaire était en dessous mais formulée autrement [:ddr555]

et effectivement, dès que t'as des hooks, du subclassing et compagnie, faut éviter d'appuyer sur Stop. Celui-ci cleane tout à sa manière mais plus aucun code VB n'est exécuté, dont celui qui est en charge du release du hook, d'où le plantage.

karlkox

Une "technique" lorsque l'on fait du subclassing c'est de s'envoyer le message WM_QUIT lors de l'unload de la form.
Une autre "technique" consiste à récupérer l'adresse de la fonction de hook/subclassing et de l'arreter via SetWindowLong(hwnd, GWL_WNDPROC, adresse_WindowProc) et d'ensuite envoyer le message WM_QUIT.
Ces deux "techniques" fonctionnent chez moi.

drasche

oui mais pour cela il faut que le code VB soit exécuté. Si le bouton Stop est pressé comme c'est très probablement son cas, aucun code VB ne sera plus exécuté. C'est le danger des techniques de hooking et subclassing, ça marche bien en EXE mais faire gaffe à ce que l'on fait en debug.

karlkox

Non, ce que j'ai dit fonctionne tres bien depuis le RAD et en debuggant. Il faut cliquer sur la croix et non sur le bouton Stop.

drasche

karlkox a écrit :

Non, ce que j'ai dit fonctionne tres bien depuis le RAD et en debuggant. Il faut cliquer sur la croix et non sur le bouton Stop.

ooops mal exprimé
je parlais pour lui, pas pour toi

karlkox

oki :jap:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB] Crash de VB en sortie de l'appli

Sujets relatifs
connaitre la fin d'un programme executé depuis une appli vb	MySQL V 4.1 est-elle vraiment stable pour une appli pro?
[Delphi] Intégrer une font a l'appli	WebCLIPS et appli CGI
PHP/C++ passage de paramètres de l'un à l'autre... (appli MFC)	rediriger la sortie standard d'un processus
[java] sortie dans un fichier excel?	Utilisation de JNI dans une appli web
[VBA/Access] Copier un formulaire d'une appli à une autre [résolu]
Plus de sujets relatifs à : [VB] Crash de VB en sortie de l'appli

Page générée en 0.097 secondes