Se connecter / S'enregistrer
Votre question

Comment lancer ce code?

Tags :
  • Programmation
Dernière réponse : dans Programmation
13 Janvier 2013 18:48:24

Bonsoir :) 

Tout est dans le titre..

Comment lancer ce code?

  1. Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" _
  2. (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, _
  3. ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
  4. lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
  5. ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)
  6.  
  7. Private Sub Form_Activate()
  8. Me.FontSize = 12
  9. Dim ser As Long, I As Long, j As Long
  10. Dim z0 As String * 256
  11. Dim z As String * 256
  12. Call GetVolumeInformation("c" + ":\" & Chr$(0), z0, 256, ser, I, j, z, 256)
  13. Me.Print "Brut = " & ser
  14. Serie = Right(String(8, "0") + Hex$(ser), 8)
  15. serialnum = Left(Serie, 4) + "-" + Right$(Serie, 4)
  16. Me.Print "Affiché = " & serialnum
  17. End Sub

Autres pages sur : lancer code

a c 232 L Programmation
13 Janvier 2013 20:30:51

C'est du Visual Basic. Il faut le compiler
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS