[VB] Pointer+Offset Einbinden

[LittleChaos]

Guten Tag Alle Zusammen !

Folgendes Problem :
Wie Baue ich diesen Pointer von CheatEngine in Mein Visual Basic EIn!


Hier Code von VB da IST KEI POINTER DA IST EINFACH DIE NORMALER ADRESSE ABER WIE BAUE Ich den POINTER und offset ein ?

Public Class Form1
Private Const ProcName = "Solitaire"

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
GetProcessId(ProcName)

Dim munni As Integer

munni = Read_Long(&H15A2F4)
munni = munni + 500
Write_Long(&H15A2F4, munni)
Button5.BackColor = Color.Lime
Button3.Visible = False
Button4.Visible = True
End Sub

[LittleChaos]

Repodet#

[MoepMeep]

Du solltest erstmal wissen, was ein Pointer ist.

base auslesen -> offset addieren -> erneut auslesen

[LittleChaos]

Wie Meinst du das Genau Da ist Screnn von Cheat Engine diese DINGE ergeben zzusammen den POINTER! Aber wie füge ich das in mein VB Code ein xD!

[MoepMeep]

Originally Posted by LittleChaos

Wie Meinst du das Genau Da ist Screnn von Cheat Engine diese DINGE ergeben zzusammen den POINTER! Aber wie füge ich das in mein VB Code ein xD!

Wow, du bist noch unfähiger als ich dachte.

[LittleChaos]

Wenn du Ja so schlau Bist dan sag mir ma den Pointer xD Und wie mann den rein macht.... Vll lern ich was aus deinem Code oder Gib mir einen link zu einen tut wie ich den pointer in vb einbaue xD

[mydoom]

Originally Posted by MoepMeep

Du solltest erstmal wissen, was ein Pointer ist.

Mehr gibts da einfach nicht zu sagen.

[-AmA-]

Originally Posted by mydoom

Mehr gibts da einfach nicht zu sagen.

Ich mach euch die Freude kaputt und versuche das noch mal ein bischen ausführlicher zu erklären

Alles was du machen must ist wie MoepMeep schon sagte:
base auslesen -> offset addieren -> erneut auslesen

Die base in deinem Fall ist : 0x0079009C
Diese liest du aus und zwar 4-Byte und im Hex Format (kanste später noch umwandeln)
Das Ergibt: 0x023EC638
Nun wird das Offset dazu gerechnet also: 0x023EC638 + 0xC = 0x023EC644

Ab hier beginnt wieder alles von vorne...

0x023EC644 auslesen: 0x023EBD48
0x023EBD48 + 0x18 = 0x023EBD60

Fertig...
Das ist nun deine Adresse: 0x023EBD60

So nun hab ich erklärt was du in Bild (CE Bild) siehst...
Wenn du die Grundlagen, um diese Schritte ausführen zu können, nicht kennst, entäuschst du mich und ich werde in Zukunft keinem 0815 Noob mehr irgendetwas dazu erklären...


Eines möchte ich aber noch wissen:

Originally Posted by LittleChaos

Bitte Antworten!

Repodet#

was wilst du damit bezwecken?
Ich hoffe du weist wie mit der Report-funktion umzugehen...!!!

[LittleChaos]

Ein Sehr Großes Danke Sehr ! an:-AmA-

Ich Habs Verstanden.
Und ja das sollte die Repodet# funktion sein Aber .
Ich Binn Ein Dummi ich hatte nicht viel zeit und habs einfach hin gepostet xD
Aber Egal Danke SEHR!!!!!!

[-AmA-]

Originally Posted by LittleChaos

Ein Sehr Großes Danke Sehr ! an:-AmA-

Ich Habs Verstanden.
Und ja das sollte die Repodet# funktion sein Aber .
Ich Binn Ein Dummi ich hatte nicht viel zeit und habs einfach hin gepostet xD
Aber Egal Danke SEHR!!!!!!

Immer doch...

[LittleChaos]

1. Lezte Dumme Frage.
Wie füge ich das in mein VB Code ein Geht ürgend wioe nicht module hab ICH!

[-AmA-]

Originally Posted by LittleChaos

1. Lezte Dumme Frage.
Wie füge ich das in mein VB Code ein Geht ürgend wioe nicht module hab ICH!

Naja... was geht nicht? Debuggen...

[LittleChaos]

Guten Tag

Folgendes wen ich jezt in Mein VB Code den Pointer eingebe Wie in dem Code da Unten wird x23EBD60 Blau unterringelt warum ?
brauche ich ein Andres modul wen kann eienr posten xD
Aber normale adresse funzen nur pointer nicht

Public Class Form1
Private Const ProcName = "Solitaire"

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
GetProcessId(ProcName)

Dim munni As Integer

munni = Read_Long(&H0x23EBD60)
munni = munni + 500
Write_Long(&H15A2F4, munni)
Button5.BackColor = Color.Lime
Button3.Visible = False
Button4.Visible = True
End Sub

[-AmA-]

was du machst:
munni = Read_Long(&H0x23EBD60)

was ich mache (aber eigentlich nicht in VB):
munni = Read_Long(&H23EBD60)

für ein neues Modul: Google
für weitere Fragen: nicht ich

[mydoom]

&H0x23EBD60 funktioniert so nicht. Dann muss es &H23EBD60 lauten.