Stronhold Crusader Trainer

[SuperOwnBash]

STOP! bevor du mich jetzt jetzt meldest usw., ich habe keine richtige abteilung dafür gefunden, mach was du willst



Zum Trainer:

gecodet mit Visual Basic 2010, das programm nutzt den/die speicher/memories

der CODE siehe weiter unten

Ps: die adressen ändern sich nicht

PHP Code:

Public Class Form1
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        MsgBox("Zuviel ausgewählte Optionen können dein System stark Bremsen und Unötig belasten", vbInformation, "information")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H01A47C20", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
   Private Sub gold_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gold.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D61208", "100000", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            gold.Start()

        Else
            gold.Stop()
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            steine.Start()

        Else
            steine.Stop()

        End If
    End Sub

    Private Sub steine_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles steine.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D611DC", "9999", "4")
            Else

            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub eisen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eisen.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D611E4", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked Then
            eisen.Start()
        Else
            eisen.Stop()
        End If
    End Sub

    Private Sub pech_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pech.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D611E8", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked Then
            pech.Start()
        Else
            pech.Stop()
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked Then
            hopfen.Start()

        Else
            hopfen.Stop()
        End If
    End Sub

    Private Sub hopfen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hopfen.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D611D8", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
        If CheckBox8.Checked Then
            weizen.Start()
        Else
            weizen.Stop()
        End If
    End Sub
    Private Sub weizen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles weizen.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D611F0", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub bier_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bier.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D61204", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked Then
            bier.Start()
        Else
            bier.Stop()
        End If
    End Sub
    Private Sub brot_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brot.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D611F4", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
        If CheckBox9.Checked Then
            brot.Start()
        Else
            brot.Stop()
        End If
    End Sub
    Private Sub käse_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles käse.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D611F8", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged
        If CheckBox10.Checked Then
            käse.Start()
        Else
            käse.Stop()
        End If
    End Sub
    Private Sub fleisch_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fleisch.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D611FC", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged
        If CheckBox11.Checked Then
            fleisch.Start()
        Else
            fleisch.Stop()
        End If

    End Sub
    Private Sub früchte_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles früchte.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D61200", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged
        If CheckBox12.Checked Then
            früchte.Start()

        Else
            früchte.Stop()
        End If
    End Sub
    Private Sub mehl_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mehl.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D6120C", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged
        If CheckBox13.Checked Then
            mehl.Start()
        Else
            mehl.Stop()
        End If
    End Sub
    Private Sub CheckBox14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox14.CheckedChanged
        If CheckBox14.Checked Then
            schwerter.Start()

        Else
            schwerter.Stop()
        End If
    End Sub
    Private Sub schwerter_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles schwerter.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D61224", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub streitkolben_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles streitkolben.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D61220", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox15.CheckedChanged
        If CheckBox15.Checked Then
            streitkolben.Start()
        Else
            streitkolben.Stop()
        End If
    End Sub
    Private Sub lanzen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lanzen.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D61218", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox16.CheckedChanged
        If CheckBox16.Checked Then
            lanzen.Start()
        Else
            lanzen.Stop()
        End If
    End Sub
    Private Sub piken_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles piken.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D6121C", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox17_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox17.CheckedChanged
        If CheckBox17.Checked Then
            piken.Start()
        Else
            piken.Stop()
        End If
    End Sub
    Private Sub bögen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bögen.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D61210", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox18_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox18.CheckedChanged
        If CheckBox18.Checked Then
            bögen.Start()
        Else
            bögen.Stop()
        End If
    End Sub
    Private Sub armbrüste_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles armbrüste.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D61214", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox19_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox19.CheckedChanged
        If CheckBox19.Checked Then
            armbrüste.Start()
        Else
            armbrüste.Stop()
        End If
    End Sub
    Private Sub lederharnisch_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lederharnisch.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D61228", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox20_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox20.CheckedChanged
        If CheckBox20.Checked Then
            lederharnisch.Start()
        Else
            lederharnisch.Stop()
        End If
    End Sub
    Private Sub eisen_rüsi_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eisen_rüsi.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D6122C", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub CheckBox21_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox21.CheckedChanged
        If CheckBox21.Checked Then
            eisen_rüsi.Start()
        Else
            eisen_rüsi.Stop()
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked Then
            holz.Start()
        Else
            holz.Stop()
        End If
    End Sub

    Private Sub holz_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles holz.Tick
        Dim p As Process() = Process.GetProcessesByName("Stronghold Crusader")
        Try
            If Not p.Length = 0 Then
                Memory.Writememory(p(0), "&H00D611D4", "9999", "4")
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class 


und jetzt die memory module datei, wird benötigt!

PHP Code:

Module Memory

    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
    Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Public RBuff As Long
    Public RBuff2 As Single
    Public RBuff3 As Integer

    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
        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)

        WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)

        CloseHandle(processHandle)

    End Function

    Public Function ReadFloat(ByVal ProcessName As Process, ByVal Address As Single)

        Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName)

        If GameLookUp.Length = 0 Then

            End

        End If

        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)

        ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)

        CloseHandle(processHandle)

        Return RBuff

    End Function

    Public Function WriteFloat(ByVal ProcessName As Process, ByVal Address As Integer, ByVal Value As Single)

        Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName)

        If GameLookUp.Length = 0 Then

            End

        End If

        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)

        WriteFloatMemory(processHandle, Address, Value, 4, Nothing)

        CloseHandle(processHandle)

    End Function

    Public Function ReadLong(ByVal ProcessName As Process, ByVal Address As Integer)

        Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName)

        If GameLookUp.Length = 0 Then

            End

        End If

        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)

        ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)

        CloseHandle(processHandle)

        Return RBuff

    End Function

    Public Function ReadFloatPointer(ByVal ProcessName As Process, ByVal Base As Integer, ByVal Offset As Short)

        Dim fullAddress As Long

        Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName)

        If GameLookUp.Length = 0 Then

            End

        End If

        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)

        ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

        fullAddress = RBuff + Offset

        ReadFloat(processHandle, fullAddress, RBuff2, 4, Nothing)

        Return RBuff2

        CloseHandle(processHandle)

    End Function

    Public Function ReadLongPointer(ByVal ProcessName As Process, ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer)

        Dim fullAddress As Long

        Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName)

        If GameLookUp.Length = 0 Then

            End

        End If

        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)

        ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

        fullAddress = RBuff + Offset

        ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing)

        Return RBuff3

        CloseHandle(processHandle)

    End Function

    Public Function WriteFloatPointer(ByVal ProcessName As Process, ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single)

        Dim fullAddress As Long

        Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName)

        If GameLookUp.Length = 0 Then

            End

        End If

        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)

        ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

        fullAddress = RBuff + Offset

        WriteFloatMemory(processHandle, fullAddress, Value, 4, Nothing)

        CloseHandle(processHandle)

    End Function

    Public Function WriteLongPointer(ByVal ProcessName As Process, ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer)

        Dim fullAddress As Long

        Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName)

        If GameLookUp.Length = 0 Then

            End

        End If

        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)

        ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)

        fullAddress = RBuff + Offset

        WriteProcessMemory(processHandle, fullAddress, Value, Bytes, Nothing)

        CloseHandle(processHandle)

    End Function

    Public Function NOP(ByVal ProcessName As Process, ByVal Address As Integer, ByVal value As Integer)

        Dim GameLookUp As Process() = Process.GetProcessesByName(ProcessName.ProcessName)

        If GameLookUp.Length = 0 Then

            End

        End If

        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, GameLookUp(0).Id)

        WriteProcessMemory(processHandle, Address, value, 1, Nothing)

        CloseHandle(processHandle)

    End Function
End Module 


[->HackSh[!]eldx3]

Falsche Section und 100% nicht deine Source

#reported.

[SuperOwnBash]

Originally Posted by ->HackSh[!]eldx3

Falsche Section und 100% nicht deine Source

WOW, und ich dachte ich hätte das gegenteil geschrieben

[Acoia]

Hackshield sei nun mal nicht so

[theitfan1337]

#moved