[Tutorial] GameHacking mit VB.Net [German]

Page 2 of 4 1 2 34
01/09/2010 14:15 *GuideMan*#16
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.
01/09/2010 15:36 Cholik#17
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.
01/09/2010 15:44 *GuideMan*#18
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.
01/09/2010 23:37 12354#19
Quote:
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?
01/10/2010 00:13 *GuideMan*#20
Jap!
Habe ich getestet.
01/12/2010 17:56 musicinstructor#21
Bei mir klappt das nicht. Das sind wohl irgendwie 2 verschienene Prozess-Typen.
Quote:
Der Wert vom Typ "1-dimensionales Array von System.Diagnostics.Process" kann nicht in "System.Diagnostics.Process" konvertiert werden.
Der Code:
Quote:
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
01/12/2010 20:46 *GuideMan*#22
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!
01/12/2010 21:03 musicinstructor#23
Quote:
Originally Posted by *GuideMan* View Post
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.
Code:
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.
01/12/2010 21:11 Shadowz75#24
Quote:
Originally Posted by musicinstructor View Post
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
Code:
        ' 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
01/12/2010 21:27 musicinstructor#25
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?
01/12/2010 22:42 xxfabbelxx#26
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
01/14/2010 17:14 12354#27
Quote:
Originally Posted by 12354 View Post
p ist ein Process-Array.
Die Funktion will aber einen Process.
Sicher dass das so funktioniert?
Quote:
Originally Posted by *GuideMan* View Post
Jap!
Habe ich getestet.
Quote:
Originally Posted by musicinstructor View Post
Bei mir klappt das nicht. Das sind wohl irgendwie 2 verschienene Prozess-Typen.
Quote:
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!
Quote:
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.
01/15/2010 17:28 HardCore.1337#28
Richtig, daran hab ich auch schon gedacht.
Bei dem TuT lernt man nix sondern kommt nur durch einnander.
02/02/2010 19:56 Bruno1212#29
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
02/05/2010 22:51 musicinstructor#30
Quote:
Originally Posted by Bruno1212 View Post
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
Code:
Memory.Writememory(p(0), "&HAA0D8", "505", "4")
Page 2 of 4 1 2 34