Bonjour,
ça fait plus de 2 mois que j'essaie de trouver une issue pour une application de gestion de caisse programmé en VB, chaque fois que mon frère formate son PC à cause des virus il doit appeler quelqu'un pour qu'il réactive cette application, malheureusement, ce Monsieur est parti en étranger et mon frère est bloqué sans cette application.

C'est une application en VB, après une petite analyse d'un fichier appelé DEMARRAGE.bas dans le dossier module, j'ai constaté qu'elle fait appel à la fonction GetVolumeinformation

Function NoSerieDisque(strDrive As String) As Long
Dim SerialNum As Long
Dim res As Long
Dim Trucnull As Long
Dim Strnul As String
res = GetVolumeInformation(strDrive, Strnul, _
Trucnull, SerialNum, Trucnull, Trucnull, Strnul, Trucnull)
'Me.Caption = strDrive
NoSerieDisque = SerialNum
End Function


J'ai essayé même avant de risquer de formater le PC de copier le serialnum du disque dur pour le réinjecter après formatage via SERIALNUMBER CHANGER. mais sans résultat, maintenant j'ai causé le problème et je dois le résoudre. SVP veuillez m'aider à résoudre ce problème , ou me donner des conseils pour essayer de le résoudre. voici le lien pour cette application http://www.mediafire.com/download/av2s1jk87m121mq/LOGI_NAYDIS.rar
MERCI beaucoup pour votre soutien