CLASSE POUR LIRE/MODIFIER LA MEMOIRE DE N'IMPORTE QUEL PROCESSUS

Commentaire de Drikce06 le 15/12/2006 09:22:23

Salut, j'ai pas testé car j'ai pas VB6, mais en tout cas ça fais plaisir de voir un code autant commenté, si tout les membres déposant une source en fesaient autant ce serai super!

Commentaire de violent_ken le 16/12/2006 01:34:17

Drikce06 ==> J'essaie de commenter un maximum (parfois trop diront certains), mais au moins je suis certain de me retrouver dans mon code (pratique quand j'ai 15 mille lignes) et çà permet d'éclaircir la chose pour ceux qui veulent comprendre le fonctionnement.
Content que tu apprécies ^^


Le cancre ==> Nickel si çà peut t'être utile ;)

Merci pour vos commentaires, @+

Commentaire de violent_ken le 18/12/2006 19:32:41

Tu as tout à fait raison, j'avais confondu cette API avec GetCurrentProcess qui renvoie toujours -1.

Je change de suite, merci !
@+

Commentaire de violent_ken le 18/12/2006 23:53:48

Merci bien ;)

@+

Commentaire de khaleid le 03/03/2007 21:50:45

bonsoir

je vais essayer le code et je reviens .
j'en ai besoin pour automatiser la modification d'un offset dans stronghold crusader (une sorte de trainer perso )

merci

Commentaire de Trim le 25/05/2007 16:59:39

Salut,

Un petit probleme pour ta source: elle ne marche pas si la nouvelle chaine que tu veux remplacer est plus longue que celle existante.
On ne voie que le début (égale à la longueur de la chaine original)

Voici la solution au problème:

Private Sub cmdSearch_Click()
'procède à la recherche
Dim cRes() As Long
Dim lngOffset As Long
Dim PID As Long
Dim remplace_text As String
    
    'obtient le processus de notre application
    PID = GetMyPID
    
    'lance la recherche dans la mémoire
    cClasse.SearchForStringMemory PID, txtEXIT.Text, False, cRes()
    
    If UBound(cRes()) = 0 Then
        'raté !
        MsgBox "Pas trouvé....", vbInformation, "Hum -____-"
        Exit Sub
    End If
    
    'récupère l'offset du résultat
    lngOffset = cRes(1)
    
    'Texte à changer
    remplace_text$ = "C'est modifié... ^^ et maintenant je voie tout."
    
    'écriture dans la mémoire à cet offset
    cClasse.WriteBytes PID, lngOffset, remplace_text$
    
    MsgBox "Un p'tit refresh de la textbox....", vbInformation, "C'est fait ^_^"
    
    'Actualise toute la chaine
    txtEXIT.Text = cClasse.ReadBytes(PID, lngOffset, Len(remplace_text$))
    
End Sub


Remplacer cette procédur par celle existant.

Merci pour cette super source.

Commentaire de yocrita le 17/08/2007 08:49:55

Ce code permet-il de sauver un processus à un instant T ?
Voilà moi ce que je voudrais c'est sauver des parties lan d'alerte rouge 2 qui ne peuvent-être sauvées à ma connaissance.
En fait, j'imaginais synchroniser l'heure des machines grace à Internet et sauver mon processus RA2 à un instant T sur chaque machines et de les restaurer à un autre instant T. Je me dis que cela pourrait fonctionner puisque le jeu dispose d'un système d'attente de resynchronisation (30 sec environ). Qu'en pensez-vous ? rêve ou réalitée ?

Commentaire de daetips le 25/08/2007 23:03:32

A priori non, étant donné que ton antivirus doit fonctionner avec des hooks sur apis (via driver à mon avi), sur les fonctions NT..
Et donc même avec des privilèges, l'antivirus détectera quand même les appels aux api.
Daetips

Commentaire de vautour32 le 26/01/2008 16:59:52

Bonjour,
Tout d'abord, bravo. Cette source est vraiment super. Du travail de pro (tu en es un, je suppose).
Est-ce que quelqu'un saurait s'il y a moyen de lire/écrire dans n'importe quel espace mémoire (même non alloué à un processus)?