Basé sur un keylogger de "yannn" (
http://www.vbfrance.com/codes/KEYLOGGER-TRES-AVANCE-BETA_18315.aspx), il intercepte les touches et zip les saves si on appuie sur F12 et les dézip si on appuie sur F11.
La classe zip est de "jack" (
http://www.vbfrance.com/code.aspx?ID=24072)
Source / Exemple :
Public Sub UnzipAll()
Dim MonZip As New ZipExtractionClass
Dim FSO As New Scripting.FileSystemObject
MonZip.ZipOpen (App.Path & "\Saves.zip")
If MonZip.ZipComment = "Tomb Raider Saves" Then
MonZip.ExtractAllFiles App.Path, False, True
End If
MonZip.ZipClose
Set FSO = Nothing
End Sub
Public Sub ZipAll()
Dim MonZip As New ZipClass
Dim FSO As New Scripting.FileSystemObject
MonZip.Comment = "Tomb Raider Saves"
Dim i As Integer
For i = 1 To 23
If FSO.FileExists(App.Path & "\savegame." & i) Then
MonZip.FileAdd App.Path & "\savegame." & i, WithoutPath, False
End If
Next i
DelFile App.Path & "\Saves.zip"
MonZip.WriteZip App.Path & "\Saves.zip", False
i = 0
For i = 1 To 23
If FSO.FileExists(App.Path & "\savegame." & i) Then
DelFile App.Path & "\savegame." & i
End If
Next i
Set FSO = Nothing
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.