Gestionnaire de sauvegardes tomb raider

Soyez le premier à donner votre avis sur cette source.

Vue 8 517 fois - Téléchargée 1 005 fois

Description

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

Codes Sources

A voir également

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.