Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840" CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088" CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088" CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840" CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088" CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088" CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840" CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088" CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088" CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" a écrit dans le message de news:
456c338e$0$3863$Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" <Alain@nospam.fr> a écrit dans le message de news:
456c338e$0$3863$426a34cc@news.free.fr...
Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" a écrit dans le message de news:
456c338e$0$3863$Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
Bonsoir
Merci pour l'info
Effectivement, je n'ai plus d'erreur avec Kernel32 mais le prog reste dans
le
gestionnaire de tache de Windows
De plus en plus curieux....
Alain
"Patrice Henrio" a écrit dans le message de
news:J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un
objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si
form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" a écrit dans le message de news:
456c338e$0$3863$Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1"
MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
Bonsoir
Merci pour l'info
Effectivement, je n'ai plus d'erreur avec Kernel32 mais le prog reste dans
le
gestionnaire de tache de Windows
De plus en plus curieux....
Alain
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news: eQVtlNxEHHA.4212@TK2MSFTNGP04.phx.gbl...
J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un
objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si
form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" <Alain@nospam.fr> a écrit dans le message de news:
456c338e$0$3863$426a34cc@news.free.fr...
Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1"
MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
Bonsoir
Merci pour l'info
Effectivement, je n'ai plus d'erreur avec Kernel32 mais le prog reste dans
le
gestionnaire de tache de Windows
De plus en plus curieux....
Alain
"Patrice Henrio" a écrit dans le message de
news:J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un
objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si
form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" a écrit dans le message de news:
456c338e$0$3863$Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1"
MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006 10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
ré-essaie avec le end final ?
"Alain" a écrit dans le message de news:
456c9619$0$10034$Bonsoir
Merci pour l'info
Effectivement, je n'ai plus d'erreur avec Kernel32 mais le prog reste
dans le
gestionnaire de tache de Windows
De plus en plus curieux....
Alain
"Patrice Henrio" a écrit dans le message de
news:J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un
objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si
form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" a écrit dans le message de news:
456c338e$0$3863$Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1"
MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
ré-essaie avec le end final ?
"Alain" <Alain@nospam.fr> a écrit dans le message de news:
456c9619$0$10034$426a74cc@news.free.fr...
Bonsoir
Merci pour l'info
Effectivement, je n'ai plus d'erreur avec Kernel32 mais le prog reste
dans le
gestionnaire de tache de Windows
De plus en plus curieux....
Alain
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news: eQVtlNxEHHA.4212@TK2MSFTNGP04.phx.gbl...
J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un
objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si
form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" <Alain@nospam.fr> a écrit dans le message de news:
456c338e$0$3863$426a34cc@news.free.fr...
Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1"
MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
ré-essaie avec le end final ?
"Alain" a écrit dans le message de news:
456c9619$0$10034$Bonsoir
Merci pour l'info
Effectivement, je n'ai plus d'erreur avec Kernel32 mais le prog reste
dans le
gestionnaire de tache de Windows
De plus en plus curieux....
Alain
"Patrice Henrio" a écrit dans le message de
news:J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un
objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si
form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" a écrit dans le message de news:
456c338e$0$3863$Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1"
MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
Idem, je dois avoir qq. chose qui reste résident en mémoire et qui empêche
le déchargement, l'UC est au maximum.
j'utilise kernel32 pour une tempo de 200ms pour la com avec le modem.
"Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)"
"Patrice Henrio" a écrit dans le message de
news:ré-essaie avec le end final ?
"Alain" a écrit dans le message de news:
456c9619$0$10034$Bonsoir
Merci pour l'info
Effectivement, je n'ai plus d'erreur avec Kernel32 mais le prog reste
dans le
gestionnaire de tache de Windows
De plus en plus curieux....
Alain
"Patrice Henrio" a écrit dans le message de
news:J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un
objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si
form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" a écrit dans le message de news:
456c338e$0$3863$Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message
d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1"
MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation.
Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation.
Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
Idem, je dois avoir qq. chose qui reste résident en mémoire et qui empêche
le déchargement, l'UC est au maximum.
j'utilise kernel32 pour une tempo de 200ms pour la com avec le modem.
"Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)"
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news: eohHzAzEHHA.4952@TK2MSFTNGP06.phx.gbl...
ré-essaie avec le end final ?
"Alain" <Alain@nospam.fr> a écrit dans le message de news:
456c9619$0$10034$426a74cc@news.free.fr...
Bonsoir
Merci pour l'info
Effectivement, je n'ai plus d'erreur avec Kernel32 mais le prog reste
dans le
gestionnaire de tache de Windows
De plus en plus curieux....
Alain
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news: eQVtlNxEHHA.4212@TK2MSFTNGP04.phx.gbl...
J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un
objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si
form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" <Alain@nospam.fr> a écrit dans le message de news:
456c338e$0$3863$426a34cc@news.free.fr...
Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message
d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1"
MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation.
Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation.
Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
Idem, je dois avoir qq. chose qui reste résident en mémoire et qui empêche
le déchargement, l'UC est au maximum.
j'utilise kernel32 pour une tempo de 200ms pour la com avec le modem.
"Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)"
"Patrice Henrio" a écrit dans le message de
news:ré-essaie avec le end final ?
"Alain" a écrit dans le message de news:
456c9619$0$10034$Bonsoir
Merci pour l'info
Effectivement, je n'ai plus d'erreur avec Kernel32 mais le prog reste
dans le
gestionnaire de tache de Windows
De plus en plus curieux....
Alain
"Patrice Henrio" a écrit dans le message de
news:J'ai l'impression qu'il n'est pas utile (voire néfaste) de mettre un
objet
à nothing avant de le retirer de la mémoire
Donc pour moi et sans avoir testé. De plus le end n'est pas utile si
form1
est la forme de démarrage, le unload met fin au programme (je crois).
If Comm1.PortOpen
Then CloseComport 'routine de fermeture du port
DoEvents
End If
Unload Form1
"Alain" a écrit dans le message de news:
456c338e$0$3863$Bonjour,
Actuellement, je développe un petit programme de communication avec un
modem, tout fonctionne mais quand je ferme mon programme (compilé)
j'obtient une fenêtre
d'erreur :
"AppName: vr5000_v1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.2945 Offset: 00012a5b"
Pourtant, je ferme proprement le prog avec le code suivant :
------------------------------------------
If Comm1.PortOpen = True Then
CloseComport 'routine de fermeture du port
DoEvents
End If
Set Form1 = Nothing
Unload Form1
End
-------------------------------------------
Je suis sous XP/sp2 et VB6
Par avance merci pour votre aide
Cordialement
Alain
Ps: Pour faire suite, un fichier et crée à la suite du message
d'erreur
dans
un repertoire temporaire :
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="VR5000_V1.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="VR5000_V1.exe" SIZE="163840"
CHECKSUM="0x2EB4911F"
BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0"
PRODUCT_VERSION="1.00" COMPANY_NAME="NEC Computers International"
PRODUCT_NAME="VR-5000 Basic-CTRL " FILE_VERSION="1.00"
ORIGINAL_FILENAME="VR5000_V1.exe" INTERNAL_NAME="VR5000_V1"
LEGAL_COPYRIGHT=" Alain 2006" VERFILEDATEHI="0x0"
VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1"
MODULE_TYPE="WIN32"
PE_CHECKSUM="0x34CFB" LINKER_VERSION="0x10000"
UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0"
LINK_DATE="11/28/2006 12:31:35" UPTO_LINK_DATE="11/28/2006 12:31:35"
VER_LANGUAGE="Français (France) [0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation.
Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1049088"
CHECKSUM="0x3D112558"
BIN_FILE_VERSION="5.1.2600.2945" BIN_PRODUCT_VERSION="5.1.2600.2945"
PRODUCT_VERSION="5.1.2600.2945" FILE_DESCRIPTION="DLL du client API
BASE
Windows NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Système
d'exploitation Microsoft® Windows®" FILE_VERSION="5.1.2600.2945
(xpsp_sp2_gdr.060704-2349)" ORIGINAL_FILENAME="kernel32"
INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation.
Tous
droits réservés." VERFILEDATEHI="0x0" VERFILEDATELO="0x0"
VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32"
PE_CHECKSUM="0x10DA67" LINKER_VERSION="0x50001"
UPTO_BIN_FILE_VERSION="5.1.2600.2945"
UPTO_BIN_PRODUCT_VERSION="5.1.2600.2945" LINK_DATE="07/05/2006
10:56:38"
UPTO_LINK_DATE="07/05/2006 10:56:38" VER_LANGUAGE="Français (France)
[0x40c]" />
</EXE>
</DATABASE>
