• Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.


[VB.NET] Faire un Name Changer RTE

Statut
N'est pas ouverte pour d'autres réponses.
Inscrit
1 Décembre 2012
Messages
88
J'aime
23
Points
2 370
#1
Slut tous le monde,
1-Tout d'abord ouvrez un Nouveau Projet & nommez-le :

2- Choisissez votre Design :
Ajoutez 2 boutons que vous Marquez "Connect and Attach" sur l'un et sur l'autre vous Marquez "Disconnect".
Et pour le Name Changer ajoutez un Textbox & un Bouton & vous marquez Change Name comme moi :

3- Ajoutez vos références comme ceci


4- Importez les références Comme avec ce code
Code:
Imports PS3Lib 'Importe le DLL PS3Lib (ajouté précédament au référence du projet)
Imports PS3TMAPI
Comme ceci :

Ajoutez également ce bout de code en Dessous de Public Class Form1
Code:
Private processIDs As UInteger()
Private ProcessID As UInteger
5- Revenez sur la partie Design, Double-Cliquez sur le Bouton "Connect and Attach" et Collez ce code :
Code:
Try
' Connecte le tools à la PS3
PS3TMAPI.InitTargetComms()
PS3TMAPI.Connect(0, vbNullString)

Catch Ex As Exception
MsgBox("Nous n'avons pas pu connecté la PS3 ! ", MsgBoxStyle.Critical)
End Try
Try
' Attache le Process
PS3TMAPI.GetProcessList(0, processIDs)
Dim uProcess As ULong = processIDs(0)
ProcessID = Convert.ToUInt32(uProcess)
PS3TMAPI.ProcessAttach(0, PS3TMAPI.UnitType.PPU, ProcessID)
PS3TMAPI.ProcessContinue(0, ProcessID)

Catch Ex As Exception
MsgBox("Nous n'avons pas pu connecté la PS3 ! ", MsgBoxStyle.Critical)
End Try
6- Revenez sur la partie Design, Double-Cliquez sur le Bouton "Disconnect" et Collez ce code :
Code:
PS3TMAPI.Disconnect(0) 'Déconnecte la PS3
PS3TMAPI.ProcessStop(0, ProcessID) 'Arrête le processus
MsgBox("PS3 Disconnected", MsgBoxStyle.Information)
7- Revenez sur la partie Design, Renommez la Textbox en Namebo2, Double-Cliquez sur le Bouton et ajoutez ce code :
Code:
Dim Namebo2 As String
Namebo2 = FlatTextBox1.Text.ToString()
Dim Namebo2X As Integer = Convert.ToInt32(Namebo2)
Dim Namebo2X1 As Byte() = BitConverter.GetBytes(Namebo2X)
PS3TMAPI.ProcessSetMemory(0, PS3TMAPI.UnitType.PPU, ProcessID, 0, &H26B75D0, Namebo2X1)
Ceci étant le code pour Bo2 en MaJ 1.15


Voilà vous avez votre Name Changer & j'espères avoir été assez Clair. :)
 
Dernière édition par un modérateur:
Inscrit
1 Mars 2013
Messages
4
J'aime
0
Points
1 289
#6
Bonjour All je tiens a préciser que cela ne me derange pas que mon tutoriel soit sur d'autres forum mais je demande le rajout de la source qui est Moi et le Forum Fr-Modz... Merci !
 

E7x

Modder PS3 l REBUG 4.46.1 D-REX
Premium
Inscrit
28 Octobre 2011
Messages
214
J'aime
64
Points
3 858
#7
C/C de FR-Modz ,topic créer pars Boss et il n'y a pas de crédits , bah bravo Morray .:o
 

Concept

Le non Modérateur
Ancien staff
Inscrit
6 Février 2012
Messages
8 077
J'aime
2 365
Points
8 193
#8
Slut tous le monde,
1-Tout d'abord ouvrez un Nouveau Projet & nommez-le :

2- Choisissez votre Design :
Ajoutez 2 boutons que vous Marquez "Connect and Attach" sur l'un et sur l'autre vous Marquez "Disconnect".
Et pour le Name Changer ajoutez un Textbox & un Bouton & vous marquez Change Name comme moi :

3- Ajoutez vos références comme ceci


4- Importez les références Comme avec ce code
Code:
Imports PS3Lib 'Importe le DLL PS3Lib (ajouté précédament au référence du projet)
Imports PS3TMAPI
Comme ceci :

Ajoutez également ce bout de code en Dessous de Public Class Form1
Code:
Private processIDs As UInteger()
Private ProcessID As UInteger
5- Revenez sur la partie Design, Double-Cliquez sur le Bouton "Connect and Attach" et Collez ce code :
Code:
Try
' Connecte le tools à la PS3
PS3TMAPI.InitTargetComms()
PS3TMAPI.Connect(0, vbNullString)

Catch Ex As Exception
MsgBox("Nous n'avons pas pu connecté la PS3 ! ", MsgBoxStyle.Critical)
End Try
Try
' Attache le Process
PS3TMAPI.GetProcessList(0, processIDs)
Dim uProcess As ULong = processIDs(0)
ProcessID = Convert.ToUInt32(uProcess)
PS3TMAPI.ProcessAttach(0, PS3TMAPI.UnitType.PPU, ProcessID)
PS3TMAPI.ProcessContinue(0, ProcessID)

Catch Ex As Exception
MsgBox("Nous n'avons pas pu connecté la PS3 ! ", MsgBoxStyle.Critical)
End Try
6- Revenez sur la partie Design, Double-Cliquez sur le Bouton "Disconnect" et Collez ce code :
Code:
PS3TMAPI.Disconnect(0) 'Déconnecte la PS3
PS3TMAPI.ProcessStop(0, ProcessID) 'Arrête le processus
MsgBox("PS3 Disconnected", MsgBoxStyle.Information)
7- Revenez sur la partie Design, Renommez la Textbox en Namebo2, Double-Cliquez sur le Bouton et ajoutez ce code :
Code:
Dim Namebo2 As String
Namebo2 = FlatTextBox1.Text.ToString()
Dim Namebo2X As Integer = Convert.ToInt32(Namebo2)
Dim Namebo2X1 As Byte() = BitConverter.GetBytes(Namebo2X)
PS3TMAPI.ProcessSetMemory(0, PS3TMAPI.UnitType.PPU, ProcessID, 0, &H26B75D0, Namebo2X1)
Ceci étant le code pour Bo2 en MaJ 1.15


Voilà vous avez votre Name Changer & j'espères avoir été assez Clair. :)
N'as tu pas des sources a fournir? Ce serait plus correct vis a vis du réel auteur du topic :)
 
Statut
N'est pas ouverte pour d'autres réponses.


Discussions similaires