Programme Winsock reste en mémoire !

Question

j'ai fait un code simple juste pour tester le probl&#232;me &#231;a donne &#231;a :



------------------------------------------------------------------------------------------



Private Sub ConnectButton_Click()



'On met en &#233;coute le port 6666.

Winsock1.LocalPort = 6666

Winsock1.Listen



End Sub



Private Sub QuitButton_Click()



'Fermeture du socket.


Winsock1.Close

'On appel la proc&#233;dure QueryUnload.


Unload Me




End Sub



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)



'On ferme le socket si il ne l'est pas d&#233;j&#224;.

If Winsock1.State <> sckClosed Then

    Winsock1.Close

    'On d&#233;charge la feuille ce qui va appeller la proc&#233;dure QueryUnload.

    Unload Me

End If



End Sub





------------------------------------------------------------------------------------------



3 fonctions, 1 bouton Connect (ConnectButton) et un bouton Quit (QuitButton).



Quand on lance le programme et qu'on le quitte directement sans avoir
appuy&#233; sur "Connect" ,le programme se d&#233;charge correctement 
. Par contre si on se connect et qu'on quitte ensuite, la le programme
reste en m&#233;moire avec un "pas de r&#233;ponse" dans le gestionnaire des
t&#226;ches. 

C'est &#233;trange d'autant plus que j'utilise bien le "Unload Me".

Je pr&#233;cise qu j'utilise Microsoft Winsock Control 6.0 (SP6), le fichier est MSWINSCK.OCX en version 6.1.97.82

cs_Jack · Answer

Salut
A mon avis, il doit suffire de laisser le temps &#224; windows d'ex&#233;cuter :

Do While ws.State <> sckClosed
   DoEvents
Loop

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

PCPT · Answer

salut, et comme çà? Private Sub ConnectButton_Click() ' On met en écoute le port 6666. (toujours fermer avant!!!) Winsock1.Close Winsock1.LocalPort = 6666 Winsock1.Listen End Sub ' ' Private Sub QuitButton_Click() ' Fermeture du socket. Winsock1.Close ' On appel la procédure QueryUnload ' !! QUI APPELLERA LUI-MÊME LE UNLOAD SI PAS CANCEL!! Unload Me End Sub ' ' Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ' On ferme le socket si il ne l'est pas déjà. ' (test inutile à mon goût, mais bon) If Winsock1.State <> sckClosed Then Winsock1.Close End Sub Coloration syntaxique automatique [AFCK] PCPT [AFCK]

PCPT · Answer

Jack -> en principe non, le simple appel suffit

c'est juste qu'il reste dans le Query puisqu'appel UNLOAD en boucle....

HeavenForsaker · Answer

Merci les gars pour les r&#233;ponses, 
bon j'ai test&#233; ta boucle Jack &#231;a ne fonctionne pas (c'&#233;tait pourtant bien vu  ).
PCPT le fait de ferm&#233; la connexion winsock avant la connexion et de supprimer le code dans QueryUnload ne fonctionne pas non plus ! 
Vous avez essay&#233; chez vous ? parce que j'ai l'impression que &#231;a fait &#231;a que chez moi. 
C'est chiant, tous mes prog avec winsock en VB reste en m&#233;moire comme &#231;a apr&#232;s fermeture.

Gobillot · Answer

m&#233;thode draconienne:







Private Sub CmdQuitter_Click()

    Dim x As Integer

    Do Until Winsock.State = 0

       Winsock.Close

       DoEvents

       Winsock.LocalPort = 0

       Loop

    For x = 1 To 50: DoEvents: Next

    Unload Me

End Sub


Daniel

HeavenForsaker · Answer

Meri Daniel mais...&#231;a marche toujours pas ! 
Voici le code que j'ai utiliser, il fonctionne chez vous ?

Private Sub ConnectButton_Click()


Winsock1.Close
Winsock1.LocalPort =  6666
Winsock1.Listen


 End Sub 


Private Sub QuitButton_Click()
Dim I As Integer


Do Until Winsock1.State  = 0
    Winsock1.Close
    DoEvents
    Winsock1.LocalPort = 0
Loop


For I = 1 To 50
    DoEvents
Next I


Unload Me


End Sub

Gobillot · Answer

oui &#231;a marche chez moi.

est-ce que tu as refait un reboot avant de tester, sinon l'erreur pr&#233;c&#233;dente peut rester.

tu peux encore rajouter, un contr&#244;le ultime avant le Unload.







Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    Dim x As Integer

    Winsock.Close

    DoEvents

    Winsock.LocalPort = 0

    If Winsock.State > 0 Then MsgBox "Erreur Unload"

    For x = 1 To 20: DoEvents: Next

End Sub


Daniel

HeavenForsaker · Answer

Non je n'ai pas reboot&#233; par contre j'ai d&#233;gag&#233; tous les processus des ex&#233;cutions pr&#233;c&#233;dentes.
Ok, je vais essayer de rebooter, je vous tiens au courant.

HeavenForsaker · Answer

Bon ben toujours pareil, c'est incompr&#233;hensible, j'ai reboot&#233;, j'ai
coup&#233; mon firewall, ma connexion internet, j'ai ferm&#233; toutes les
applications et ce fichu programme winsock reste en m&#233;moire ! 

Je sent que je vais &#234;tre obliger de r&#233;installer VB, voir carr&#233;ment winfuck si &#231;a continu...

PCPT · Answer

t'as essay&#233; sur un nouveau projet?

parce qu'avec toutes les propositions test&#233;es par chacun d'entre nous,
j'suis pr&#234;t &#224; parier que ton probl&#232;me vient d'ailleurs... genre une
autre form qui est juste hidden?!

HeavenForsaker · Answer

N&#233;gatif PCPT je viens de tester en cr&#233;ant un nouveau projet en faisant
un copier coller du code et en ajoutant juste le contr&#244;le Winsock au
projet et les 2 boutons. De toute fa&#231;on je n'utilise jamais plusieurs
form dans un projet. Ce programme de daube continu &#224; r&#233;sider en m&#233;moire
avec "pas de r&#233;ponse" dans le gestionnaire des t&#226;ches.

Je crois que Winsock doit faire appel &#224; des services r&#233;seau et j'en ai malheureusement vir&#233; certains dans un soucis de s&#233;curit&#233; . Sinon la je vois pas si &#231;a marche chez vous...

Au fait Daniel j'ai utilis&#233; ton code la :



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Dim I As Integer



If Winsock1.State <> 0 Then

    MsgBox "Erreur Unload"

End If



For I = 1 To 20

    DoEvents

Next



End Sub



Je n'ai pas la msgbox qui s'affiche ce qui veux dire que le socket est bel et bien ferm&#233; ! 

Si &#231;a n'est pas une mauvaise fermeture du socket qui emp&#234;che la cloture du prog qu'est ce que c'est ?

PCPT · Answer

je viens (encore) de faire le test avec le m&#234;me composant

Microsoft Winsock Control 6.0 (SP6) -> MSWINSCK.OCX



aucun probl&#232;me chez moi, d&#233;chargement correct....

je ne pense pas que &#231;&#224; soit li&#233; mais tu as essay&#233; sur un autre port?



sinon &#231;&#224; ne peut logiquement pas &#234;tre li&#233; &#224; ta connection ou configuration. &#224; VB lui-m&#234;me &#233;ventuellement...

dernier point, tu as essay&#233; en mode pas &#224; pas?

HeavenForsaker · Answer

J'ai test&#233; sur un autre port c'est idem, par contre tu fais bien de
soulever le point du pas &#224; pas parce que j'ai oubli&#233; de vous dire que
quand j'utilise le d&#233;bugage avec winsock &#231;a plante VB ! Mort de rire ! 

En fait VB fait comme le prog "ne r&#233;pond pas" et je suis oblig&#233; de tout fermer...

Je pensais que &#231;a faisais &#231;a chez tout le monde, que c'&#233;tait encore une de joyeuset&#233; de notre ami microsoft...

Gobillot · Answer

est ce que la forme elle m&#234;me est d&#233;charg&#233;e

et que reste-t-il en m&#233;moire  (composant Winsock, classe VBMsoStdCompMgr)

t'a peut &#234;tre une version bugg&#233;e de Winsock:

Microsoft Winsock Control 6.0   -> MSWINSCK.OCX  version 6.00.8169


Daniel

PCPT · Answer

Daniel -> je n'ai pas ta version mais bien la m&#234;me que notre d&#233;sesp&#233;r&#233; HeavenForsaker

le probl&#232;me doit venir directement de VB si le pas &#224; pas plante....

HeavenForsaker · Answer

J'ai MSWINSCK.OCX en version 6.1.97.82

et Visual Basic 6.0 SP6 version 6.0.9782

La form n'est plus visible &#224; l'&#233;cran, mais en m&#233;moire apparement elle
est toujours la parce que durant l'&#233;xecution le programme utilise 6852
ko et apr&#232;s fermeture le programme occupe 6932 ko

C'est fort tout de m&#234;me un programme qui occupe plus d'espace m&#233;moire apr&#232;s &#233;xecution que pendant !

HeavenForsaker · Answer

Ouai mon VB doit schlinguer, pourtant je l'ai pas t&#233;l&#233;charg&#233; sur emule
celui la (pour une fois), je l'ai eu durant mes &#233;tudes en BTS. C'est
bizar que &#231;a plante uniquement avec Winsock quand m&#234;me. faudrais que je
choppe une nouvelle version du contr&#244;le pour voir.

Sinon il me reste plus qu'&#224; acheter VB.NET ! halalala comment ils
poussent &#224; la consommation chez microsoft, on voit les
professionnels...

PCPT · Answer

je viens de t'h&#233;berger mon composant. c'est le m&#234;me mais celui-ci fonctionne (VB6 pareil, sur XP pro SP1)

&#224; toi de voir...

http://site.voila.fr/vrac-perso/dls/MSWINSCK.OCX

le pas &#224; pas fonctionne d'habitude?

HeavenForsaker · Answer

Merci beaucoup PCPT, j'ai t&#233;l&#233;charg&#233; ton fichier, je l'ai coll&#233; dans
system32, j'ai relanc&#233; VB, recompil&#233; mon prog et la...MIRACLE ! nan je
d&#233;conne ! MDR  &#231;a marche toujours pas ! Oui
le pas &#224; pas fonctionne nickel d'habitude, c'est uniquement quand je
connect avec Winsock que &#231;a plante en d&#233;bugage.Sinon &#231;a viens peux &#234;tre
du fichier winsock.dll ou de l'autre en 32bit ?

PCPT · Answer

j'aurais tent&#233;^^

il reste encore peut-&#234;tre une solution avant le formatage, mais il y a un risque de perte mat&#233;rielle :

1er choix : classique mais peu efficace, le coup de pied sur la facade de la tour.

2&#232;me : moins connue mais bien plus adapt&#233; : fl&#233;au fantassin. technique &#224; adapter selon l'humeur.....



 

je ne pourrais &#234;tre tenu pour responsable de l'interpr&#233;tation de ce dernier post

Programme Winsock reste en mémoire !

21 réponses

Discussions similaires