[Tutorial] GameHacking mit VB.Net [German]

[*GuideMan*]

Ah vielen Dank 12354
Ich wusste doch das es noch eine Möglichkeit gibt, nach einem Prozess zu suchen.
Ich werde jetzt beginnen das Tutorial zu überarbeiten.


** Überarbeitet **
So nach wieder Einer Stunde arbeit habe ich das Tutorial nun überarbeitet.
Neu:
- Meine *.dll wird nicht mehr benötigt.
- Code wurde von mir kommentiert
- Mehr Bilder mit Beschreibung hinzugefügt.

[Cholik]

So ich verwarne dich mal.
Lies dir die Boardregeln durch und beachte diese auch.
Du kannst auch die Edit-Funktion nutzen und brauchst nicht Doubleposts zu erstellen nur um dadurch indirekt deinen Thread zu pushen.
Desweiteren solltest du in Zukunft darauf achten direkt in der richtigen Sektion zu posten, darauf habe ich dich in den anderen 2 Threads auch schon hingewiesen.

[*GuideMan*]

Okey. Danke fürs Post-Zusammenführen.
Wird nicht wieder vorkommen.

Nach dem Überarbeiten war ich einfach etwas "geschafft", und dachte garnicht an das Doubleposting.

Liebe Grüße, Michael.

[12354]

Dim p As Process() = Process.GetProcessesByName("sol.exe")
(..)
Memory.Writememory(p, "&HAA0D8", "505", "4")
(...)
Public Function Writememory(ByVal ProcessName As Process, ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)

p ist ein Process-Array.
Die Funktion will aber einen Process.
Sicher dass das so funktioniert?

[*GuideMan*]

***!
Habe ich getestet.

[musicinstructor]

Bei mir klappt das nicht. Das sind wohl irgendwie 2 verschienene Prozess-Typen.

Der Wert vom Typ "1-dimensionales Array von System.Diagnostics.Process" kann nicht in "System.Diagnostics.Process" konvertiert werden.

Der Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Dim pName As String = "SpiderSolitaire.exe"
' Dim p As Process() = process.GetProcessesByName(pName)


Dim p As Process() = Process.GetProcessesByName("SpiderSolitaire.exe")
If Not p.Length = 0 Then
Memory.Writememory(p, "&HAA0D8", "505", "4")
Else
MsgBox("Der Prozess SpiderSolitaire.exe wurde nicht gefunden!")
End If
End Sub

[*GuideMan*]

Es gibt derzeit ein kleines Server Problem.
Die Bilder werden nicht korrekt angezeigt.
Ich werde das so schnell wie möglich beheben.

Liebe Grüße, Michael.

/e: Achtung! Du darfst nicht ".exe" hintendran schreiben!

[musicinstructor]

Originally Posted by *GuideMan*

Es gibt derzeit ein kleines Server Problem.
Die Bilder werden nicht korrekt angezeigt.
Ich werde das so schnell wie möglich beheben.

Liebe Grüße, Michael.

/e: Achtung! Du darfst nicht ".exe" hintendran schreiben!

soweit bin ich ja garnicht gekommen.
ich konnte das programm noch nichtmal testen.

Memory.Writememory([U][B][COLOR="Red"]p[/COLOR][/B][/U], "&HAA0D8", "505", "4")

bei p tritt der fehler auf

€: vllt liegts auch daran, dass ich windows7 habe. aber mein compiler ist auch vb 2008 express edition.

[Shadowz75]

Originally Posted by musicinstructor

Bei mir klappt das nicht. Das sind wohl irgendwie 2 verschienene Prozess-Typen.


Der Code:

y, weil das bullshit ist, denn man muss einen Process aus diesem Array herauswählen. Hier habe ich den Ersten der gefunden wurde genommen

        ' Dim pName As String = "SpiderSolitaire.exe"
        ' Dim p As Process() = process.GetProcessesByName(pName)


        Dim p As Process() = Process.GetProcessesByName("SpiderSolitaire.exe")
        If Not p.Length = 0 Then
            Memory.Writememory(p(0), "&HAA0D8", "505", "4")
        Else
            MsgBox("Der Prozess SpiderSolitaire.exe wurde nicht gefunden!")
        End If

[musicinstructor]

ok, das Problem ist dank Shadowz75 jetzt behoben.
ich kann bei cheat engine auch meinen punktestand verändern, aber in vb wird die adresse nicht angenommen. bei CE zeigt der als Adresse 002C07C4 an. das ist ja ein anderes schema als in dem tutorial. muss man das irgendwie umrechnen mit HEX oder so?

[xxfabbelxx]

würde mich auchmal interessieren. ich bin gerad ein bisschen VB austesten und versuche verschiedene sachen auch selbst zu programmieren, aber bei dem tut blick ichs i-wie nit

[12354]

Originally Posted by 12354

p ist ein Process-Array.
Die Funktion will aber einen Process.
Sicher dass das so funktioniert?

Originally Posted by *GuideMan*

Jap!
Habe ich getestet.

Originally Posted by musicinstructor

Bei mir klappt das nicht. Das sind wohl irgendwie 2 verschienene Prozess-Typen.

Der Wert vom Typ "1-dimensionales Array von System.Diagnostics.Process" kann nicht in "System.Diagnostics.Process" konvertiert werden.

Wie kann man nur so hart failen?
WIE?
EDIT:
Der Code ist der größte Bullshit den ich je gesehen hab!

Public Function Writememory(ByVal ProcessName As Process, ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName )

If GameLookUp.Length = 0 Then

End

End If

Du lässt dir erst per den Prozess als Parameter übergeben, um dann später aus diesem Prozess den Prozessnamen rauszulesen und damit wieder den gleichen Prozess zu holen.
BULLSHIT

Ich bezweifel(ich hoffs auch für dich), dass du diesen Crap selber geschrieben hast.

P.S. Ich überleg mir echt grad ob ich meine private Memory Lib mit nem passenden Tut hier veröffentliche. Deine kann man ja niemandem antun.

[HardCore.1337]

Richtig, daran hab ich auch schon gedacht.
Bei dem TuT lernt man nix sondern kommt nur durch einnander.

[Bruno1212]

Ich habe folgendens problem

Bei mir wird bei dem code:

Dim p As Process() = Process.GetProcessesByName("sol.exe")
If Not p.Length = 0 Then
Memory.Writememory(p, "&HAA0D8", "505", "4")
Else
MsgBox("Der Prozess sol.exe wurde nicht gefunden!")
End If

Das p blau unterkringelt!

könnte mir bitte jemand helfen


Mfg Bruno

[musicinstructor]

Originally Posted by Bruno1212

Ich habe folgendens problem

Bei mir wird bei dem code:

Dim p As Process() = Process.GetProcessesByName("sol.exe")
If Not p.Length = 0 Then
Memory.Writememory(p, "&HAA0D8", "505", "4")
Else
MsgBox("Der Prozess sol.exe wurde nicht gefunden!")
End If

Das p blau unterkringelt!

könnte mir bitte jemand helfen


Mfg Bruno

probier mal

Memory.Writememory(p(0), "&HAA0D8", "505", "4")