Réccupérer le framerate d'un jeu en VB.NET

Bonjour, j'aimerais réccupérer le framerate d'un jeu.. je pense pas qu'on puisse le faire nativement, en revanche, je pense que l'on peut réutiliser des dll (comme par exemple celle de FRAPS, ou Tatski).

Pour Fraps j'ai essayé d'importer la dll qui contient la Fonction FrapsSharedData qui permet de retourner CurrentFPS qui est la valeur du Framerate actuelle calculée par FRAPS. Le problème est que l'on ne peut l'importer :

Une référence à 'monprog\fraps.dll' n'a pas pu être ajoutée. Assurez-vous que le fichier est accessible et qu'il s'agit d'un assembly valide ou d'un composant COM.

Donc si quelqu'un à déjà réussi à faire ce genre de chose, par cette méthode ou une autre, je suis preneur ;)

il a raison, cette dll est une dll d'api, qui exporte ta fonction.

j'ai tapé FrapsSharedData sur google, il me l'a dit:

http://www.yofx-nrw.de/bilder/yofx_demos/Fraps/README.HTM

(exemples de code tout en bas)

en VB, tu fera donc un Declare function ...

Merci Renfield ;)

Mais maintenant j'ai un peu de mal encore (j'aime pas trop ça les API).

J'ai le message : Restriction PInvoke : impossible de retourner des variants

et le code que j'ai fait :

    Structure FRAMERATE
        Dim sizeOfStruc As Decimal
        Dim currentFPS As Decimal
        Dim totalFrames As Decimal
        Dim timeOfLastFrame As Decimal
        Dim gameName As String
    End Structure

   Declare Function FrapsSharedData Lib "fraps.dll" (ByVal lpFrame As FRAMERATE)

    Function ActualFPS()
        Dim nActualFPS As FRAMERATE
        FrapsSharedData(nActualFPS)
        ActualFPS = nActualFPS.currentFPS
    End Function

Aïe...
ta déclaration d'API ne convient pas...

une fonction qui ne retourne rien (donc un variant, d'ou ton message d'erreur)
une structure dont les types ne conviennent pas... DWORD c'est un UINT, c'est pas décimal...
ton gameName qui n'a pas de taille spécifiée (32 caractères)...

difficile de prévoir ce que ton code va nous générer.

l'API alloue ta structure et t'en renvoie un pointeur (donc Integer, en .NET)
(je ne connais pas Fraps, je ne fais que lire le code)

En faisant

   Declare Function FrapsSharedData Lib "fraps.dll" (ByVal lpFrame As FRAMERATE) As quelquechose..

Je n'ai plus le message d'erreur mais ça retourne 0 alors que FRAPS est lancé avec une visualisation wmp (60fps)

Erf ça me renvoie toujours 0.

    Function ActualFPS()
        Dim nActualFPS As FRAMERATE
        FrapsSharedData(nActualFPS)
        ActualFPS = nActualFPS.totalFrames
    End Function

Je pense que ça vient du fait que nActual est souligné me disant qu'une référence de type null peut se produire du fait qu'aucune valeur ne lui est assignée.

Pourtant sur la même structure ceci marche impec :

    Structure MEMORYSTATUS
        Dim dwLength As Long
        Dim dwMemoryLoad As Long
        Dim dwTotalPhys As Long
        Dim dwAvailPhys As Long
        Dim dwTotalPageFile As Long
        Dim dwAvailPageFile As Long
        Dim dwTotalVirtual As Long
        Dim dwAvailVirtual As Long
    End Structure

    Declare Sub GlobalMemoryStatus Lib "kernel32" (ByVal lpBuffer As MEMORYSTATUS)

    Function GetRamSize() As String
        Dim RamStats As MEMORYSTATUS
        GlobalMemoryStatus(RamStats)
        GetRamSize = FormatNumber((RamStats.dwTotalPhys / 1024 ^ 2), -1) ' pour un résultat en Mo
    End Function

la fonction FrapsSharedData ne prend aucun argument et renvoie un pointeur vers une structure FRAMERATE qu'elle alloue.

Declare Function FrapsSharedData Lib "fraps.dll" () As Integer

D'accord mais alors comment intercepter chaque variable du pointeur ?

CopyMemory

Bon, ça n'avance pas trop.

J'ai essayé d'utiliser CopyMemory comme suit :

    Declare Function FrapsSharedData Lib "fraps.dll" () As UInteger
    Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal variable, ByVal pointeur, ByVal byteLen)

    Function ActualFPS()
        Dim currentFPS As UInteger
        Dim Pointeur As UInteger
        Pointeur = FrapsSharedData()
        CopyMemory(currentFPS, Pointeur,4)
        ActualFPS = currentFPS
    End Function

Retourne toujours 0.