Probleme bei Zugriff auf Funktionen in einer DLL

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von asusdk.

    Probleme bei Zugriff auf Funktionen in einer DLL

    Hi @ all,

    ich habe mir aus dem (glaube ich gut bekannten) ReadWritingMemory Module versucht eine .dll zu erstellen, das erstellen klappt problemlos, ich kann auch einfach den Verweis hinzufügen usw.

    ABER, ich kann nur dann auf die Funktionen der .dll zugreifen, wenn ich die jeweilige CodeZeile mit einem Dim beginne..

    Spoiler anzeigen

    VB.NET-Quellcode

    1. #Region "Imports"
    2. Imports rwm
    3. #End Region
    5. Public Class Main
    7. #Region "ThreadSafeStuff"
    8. #End Region
    10. #Region "Deklaration and Initialization"
    11. Dim upd As New rwm.rwm
    12. #End Region
    14. #Region "MainFunction1"
    16. Dim Address0 As Integer = upd.CorrectBase("FTLGame", "FTLGame.exe") + &H39BAAC '<-funktioniert
    18. upd.WriteDMAInteger("FTLGame", Address0, {&H28, &H4, &H24, &H450}, 10000, 4) '<-funktioniert nicht
    20. #End Region
    22. #Region "MiscSubs"
    23. Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    25. Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    26. Me.UpdateStyles()
    28. End Sub
    30. Private Sub Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    32. End Sub
    33. #End Region
    34. End Class


    wo habe ich hier denn etwas übersehen / falsch gemacht ?

    die .dll:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class rwm
    3. Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    5. Public Declare Function WriteProcessMemory1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    6. Public Declare Function WriteProcessMemory2 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 Single
    7. Public Declare Function WriteProcessMemory3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Long
    9. Public Declare Function ReadProcessMemory1 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
    10. Public Declare Function ReadProcessMemory2 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Single
    11. Public Declare Function ReadProcessMemory3 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Long
    13. Const PROCESS_ALL_ACCESS = &H1F0FF
    15. Public Function CorrectBase(ByVal ProcName As String, ByVal ModuleName As String) As Integer
    16. Dim P As Process() = Process.GetProcessesByName(ProcName)
    17. If (P.Length <> 0) Then
    18. Dim pMod As ProcessModuleCollection = P(0).Modules
    19. For i As Integer = pMod.Count - 1 To 0 Step -1
    20. If pMod.Item(i).FileName.EndsWith(ModuleName) Then
    21. Return pMod.Item(i).BaseAddress.ToInt32
    22. End If
    23. Next i
    24. End If
    25. Return 0
    26. End Function
    28. Public Function WriteDMAInteger(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Integer, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
    29. Try
    30. Dim lvl As Integer = Address
    31. For i As Integer = 1 To Level
    32. lvl = ReadInteger(Process, lvl, nsize) + Offsets(i - 1)
    33. Next
    34. WriteInteger(Process, lvl, Value, nsize)
    35. Return True
    36. Catch ex As Exception
    37. Return False
    38. End Try
    39. End Function
    41. Public Function ReadDMAInteger(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Integer
    42. Try
    43. Dim lvl As Integer = Address
    44. For i As Integer = 1 To Level
    45. lvl = ReadInteger(Process, lvl, nsize) + Offsets(i - 1)
    46. Next
    47. Dim vBuffer As Integer
    48. vBuffer = ReadInteger(Process, lvl, nsize)
    49. Return vBuffer
    50. Catch ex As Exception
    51. Return -1
    52. End Try
    53. End Function
    55. Public Function WriteDMAFloat(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Single, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
    56. Try
    57. Dim lvl As Integer = Address
    58. For i As Integer = 1 To Level
    59. lvl = ReadFloat(Process, lvl, nsize) + Offsets(i - 1)
    60. Next
    61. WriteFloat(Process, lvl, Value, nsize)
    62. Return True
    63. Catch ex As Exception
    64. Return False
    65. End Try
    66. End Function
    68. Public Function ReadDMAFloat(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Single
    69. Try
    70. Dim lvl As Integer = Address
    71. For i As Integer = 1 To Level
    72. lvl = ReadFloat(Process, lvl, nsize) + Offsets(i - 1)
    73. Next
    74. Dim vBuffer As Single
    75. vBuffer = ReadFloat(Process, lvl, nsize)
    76. Return vBuffer
    77. Catch ex As Exception
    78. Return -1
    79. End Try
    80. End Function
    82. Public Function WriteDMALong(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Long, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
    83. Try
    84. Dim lvl As Integer = Address
    85. For i As Integer = 1 To Level
    86. lvl = ReadLong(Process, lvl, nsize) + Offsets(i - 1)
    87. Next
    88. WriteLong(Process, lvl, Value, nsize)
    89. Return True
    90. Catch ex As Exception
    91. Return False
    92. End Try
    93. End Function
    95. Public Function ReadDMALong(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Long
    96. Try
    97. Dim lvl As Integer = Address
    98. For i As Integer = 1 To Level
    99. lvl = ReadLong(Process, lvl, nsize) + Offsets(i - 1)
    100. Next
    101. Dim vBuffer As Long
    102. vBuffer = ReadLong(Process, lvl, nsize)
    103. Return vBuffer
    104. Catch ex As Exception
    105. Return -1
    106. End Try
    107. End Function
    109. Public Sub WriteNOPs(ByVal ProcessName As String, ByVal Address As Long, ByVal NOPNum As Integer)
    110. Dim C As Integer
    111. Dim B As Integer
    112. If ProcessName.EndsWith(".exe") Then
    113. ProcessName = ProcessName.Replace(".exe", "")
    114. End If
    115. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    116. If MyP.Length = 0 Then
    117. Exit Sub
    118. End If
    119. Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
    120. If hProcess = IntPtr.Zero Then
    121. Exit Sub
    122. End If
    124. B = 0
    125. For C = 1 To NOPNum
    126. Call WriteProcessMemory1(hProcess, Address + B, &H90, 1, 0&)
    127. B = B + 1
    128. Next C
    129. End Sub
    131. Public Sub WriteXBytes(ByVal ProcessName As String, ByVal Address As Long, ByVal Value As String)
    132. If ProcessName.EndsWith(".exe") Then
    133. ProcessName = ProcessName.Replace(".exe", "")
    134. End If
    135. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    136. If MyP.Length = 0 Then
    137. Exit Sub
    138. End If
    139. Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
    140. If hProcess = IntPtr.Zero Then
    141. Exit Sub
    142. End If
    144. Dim C As Integer
    145. Dim B As Integer
    146. Dim D As Integer
    147. Dim V As Byte
    149. B = 0
    150. D = 1
    151. For C = 1 To Math.Round((Len(Value) / 2))
    152. V = Val("&H" & Mid$(Value, D, 2))
    153. Call WriteProcessMemory1(hProcess, Address + B, V, 1, 0&)
    154. B = B + 1
    155. D = D + 2
    156. Next C
    158. End Sub
    160. Public Sub WriteInteger(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Integer, Optional ByVal nsize As Integer = 4)
    161. If ProcessName.EndsWith(".exe") Then
    162. ProcessName = ProcessName.Replace(".exe", "")
    163. End If
    164. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    165. If MyP.Length = 0 Then
    166. Exit Sub
    167. End If
    168. Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
    169. If hProcess = IntPtr.Zero Then
    170. Exit Sub
    171. End If
    173. Dim hAddress, vBuffer As Integer
    174. hAddress = Address
    175. vBuffer = Value
    176. WriteProcessMemory1(hProcess, hAddress, CInt(vBuffer), nsize, 0)
    177. End Sub
    179. Public Sub WriteFloat(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Single, Optional ByVal nsize As Integer = 4)
    180. If ProcessName.EndsWith(".exe") Then
    181. ProcessName = ProcessName.Replace(".exe", "")
    182. End If
    183. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    184. If MyP.Length = 0 Then
    185. Exit Sub
    186. End If
    187. Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
    188. If hProcess = IntPtr.Zero Then
    189. Exit Sub
    190. End If
    192. Dim hAddress As Integer
    193. Dim vBuffer As Single
    195. hAddress = Address
    196. vBuffer = Value
    197. WriteProcessMemory2(hProcess, hAddress, vBuffer, nsize, 0)
    198. End Sub
    200. Public Sub WriteLong(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Long, Optional ByVal nsize As Integer = 4)
    201. If ProcessName.EndsWith(".exe") Then
    202. ProcessName = ProcessName.Replace(".exe", "")
    203. End If
    204. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    205. If MyP.Length = 0 Then
    206. Exit Sub
    207. End If
    208. Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
    209. If hProcess = IntPtr.Zero Then
    210. Exit Sub
    211. End If
    213. Dim hAddress As Integer
    214. Dim vBuffer As Long
    216. hAddress = Address
    217. vBuffer = Value
    218. WriteProcessMemory3(hProcess, hAddress, vBuffer, nsize, 0)
    219. End Sub
    221. Public Function ReadInteger(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Integer
    222. If ProcessName.EndsWith(".exe") Then
    223. ProcessName = ProcessName.Replace(".exe", "")
    224. End If
    225. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    226. If MyP.Length = 0 Then
    227. Exit Function
    228. End If
    229. Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
    230. If hProcess = IntPtr.Zero Then
    231. Exit Function
    232. End If
    234. Dim hAddress, vBuffer As Integer
    235. hAddress = Address
    236. ReadProcessMemory1(hProcess, hAddress, vBuffer, nsize, 0)
    237. Return vBuffer
    238. End Function
    240. Public Function ReadFloat(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Single
    241. If ProcessName.EndsWith(".exe") Then
    242. ProcessName = ProcessName.Replace(".exe", "")
    243. End If
    244. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    245. If MyP.Length = 0 Then
    246. Exit Function
    247. End If
    248. Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
    249. If hProcess = IntPtr.Zero Then
    250. Exit Function
    251. End If
    253. Dim hAddress As Integer
    254. Dim vBuffer As Single
    256. hAddress = Address
    257. ReadProcessMemory2(hProcess, hAddress, vBuffer, nsize, 0)
    258. Return vBuffer
    259. End Function
    261. Public Function ReadLong(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Long
    262. If ProcessName.EndsWith(".exe") Then
    263. ProcessName = ProcessName.Replace(".exe", "")
    264. End If
    265. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    266. If MyP.Length = 0 Then
    267. Exit Function
    268. End If
    269. Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
    270. If hProcess = IntPtr.Zero Then
    271. Exit Function
    272. End If
    274. Dim hAddress As Integer
    275. Dim vBuffer As Long
    277. hAddress = Address
    278. ReadProcessMemory3(hProcess, hAddress, vBuffer, nsize, 0)
    279. Return vBuffer
    280. End Function
    282. End Class


    danke schon mal und Beste Grüße =)
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Hallo asusdk

    Ich kann dir nur empfehlen dringend die Options zu setzen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On


    Im Anhang eine Beispiel wie du Zugriff auf die Dll hast. Es müssen aber noch alle Exception korrigiert bzw angepasst werden.

    Edit: Irgendwie blick ich aber bei deinem Code in der Dll nicht ganz durch.

    Freundliche Grüsse

    exc-jdbi
    Dateien

    • Probe.zip

      (20,5 kB, 77 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „exc-jdbi“ ()

    Wenn man vom Microsoft.VisualBasic-Namespace, den alten DLL-Deklarationen, sehr vielen Codewiederholungen und Option Strict Off absieht: Was genau funktioniert nicht? Auch wenn ich keine Ahnung habe, was der Code macht (weil ich zu faul bin, ihn zu analysieren): Funktioniert bei mir insofern alles, dass es weder Exceptions noch Abbrüche oder so gibt. Das Programm läuft dorsch.

    Ah, zu langsam, VaporiZed
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed wenn ich den Code der Klasse, direkt im Projekt einfüge, funktioniert es einwandfrei, aber mir geht es darum dies als .dll anzulegen,
    wenn ich das mache kann ich leider nicht auf die Funktionen in der (.dll)Klasse zugreifen, wie oben beschrieben.

    Greets

    @exc-jdbi also in deinem Bespiel scheint es zu funktionieren, aber anscheinend auch "nur" da die DLL als Projekt mit dabei ist, wenn ich in einem Anderen Projekt, den verweiss auf die fertige .dll hinzufüge, dann importiere, bleibt das ganze leider so wie davor, es funktioniert nicht die funktionen aufzurufen...

    Edit: Irgendwie blick ich aber bei deinem Code in der Dll nicht ganz durch.

    ist aus dem netz um direkten zugriff auf Rameinträge zu haben, kam als Module
    aber im Prinzip gehts hier ja gar nicht darum was die .dll macht, sondern wie ich auf (auch wenn es eine andere .dll wäre)
    darauf zugreifen kann


    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „asusdk“ ()

    "That's what I'm telling you."*. Hab Deinen DLL-Klassencode in eine neue DLL gepackt und kompiliert, meinem Testprojekt über die Verweise die DLL bekannt gemacht und dann eben Dim upd As New DllName.rwm. Was genau funktioniert denn da bei Dir nicht?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    ok, ich versuchs mal so,

    also die .dll ist erstellt/kompiliert (jetzt auch korrigiert mit Option Strict on) dann in einem gänzlich neuem Projekt

    Verweiss zur .dll hinzugefügt und Importiert (wie im folgenden Code ersichtlich, der auch im ersten Post ist)

    VB.NET-Quellcode

    1. #Region "Imports"
    2. Imports rwm
    3. #End Region
    5. Public Class Main
    7. #Region "ThreadSafeStuff"
    8. #End Region
    10. #Region "Deklaration and Initialization"
    11. Dim upd As New rwm.rwm
    12. #End Region
    14. #Region "MainFunction1"
    16. Dim Address0 As Integer = upd.CorrectBase("FTLGame", "FTLGame.exe") + &H39BAAC '<-funktioniert
    18. upd.WriteDMAInteger("FTLGame", Address0, {&H28, &H4, &H24, &H450}, 10000, 4) '<-funktioniert nicht
    20. #End Region
    22. #Region "MiscSubs"
    23. Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    25. Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    26. Me.UpdateStyles()
    28. End Sub
    30. Private Sub Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    32. End Sub
    33. #End Region
    34. End Class



    die Zeile:

    VB.NET-Quellcode

    1. upd.WriteDMAInteger("FTLGame", Address0, {&H28, &H4, &H24, &H450}, 10000, 4) '<-funktioniert nicht

    unterkringelt das "upd" in rot weil es angeblich nicht deklariert ist.

    wenn ich in einer leeren Zeile "upd." eintippe wird mir auch nichts vorgeschlagen ! Beginnt diese Zeile jedoch mit einem DIM
    wie hier:

    VB.NET-Quellcode

    1. Dim Address0 As Integer = upd.CorrectBase("FTLGame", "FTLGame.exe") + &H39BAAC '<-funktioniert


    dann funktioniert es, aber das ist ja sinnfrei.... Ich hoffe jetzt ist genau genau dargestellt was ich meine

    Greets

    @exc-jdbi
    Hast du alle Exception schon korrigiert und die Dll erst dann eingebunde?


    ja option strict on ist wieder standardmäßig eingestellt, und die dadurch auftretenden Probleme sind korrigiert. Danach auch neu kompiliert.

    korrigierte Klasse:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class rwm
    3. Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    4. Public Declare Function WriteProcessMemory1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    5. Public Declare Function WriteProcessMemory2 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 Single
    6. Public Declare Function WriteProcessMemory3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Long
    7. Public Declare Function ReadProcessMemory1 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
    8. Public Declare Function ReadProcessMemory2 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Single
    9. Public Declare Function ReadProcessMemory3 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Long
    11. Const PROCESS_ALL_ACCESS = &H1F0FF
    13. Public Function CorrectBase(ByVal ProcName As String, ByVal ModuleName As String) As Integer
    14. Dim P As Process() = Process.GetProcessesByName(ProcName)
    15. If (P.Length <> 0) Then
    16. Dim pMod As ProcessModuleCollection = P(0).Modules
    17. For i As Integer = pMod.Count - 1 To 0 Step -1
    18. If pMod.Item(i).FileName.EndsWith(ModuleName) Then
    19. Return pMod.Item(i).BaseAddress.ToInt32
    20. End If
    21. Next i
    22. End If
    23. Return 0
    24. End Function
    26. Public Function WriteDMAInteger(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Integer, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
    27. Try
    28. Dim lvl As Integer = Address
    29. For i As Integer = 1 To Level
    30. lvl = ReadInteger(Process, lvl, nsize) + Offsets(i - 1)
    31. Next
    32. WriteInteger(Process, lvl, Value, nsize)
    33. Return True
    34. Catch ex As Exception
    35. Return False
    36. End Try
    37. End Function
    39. Public Function ReadDMAInteger(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Integer
    40. Try
    41. Dim lvl As Integer = Address
    42. For i As Integer = 1 To Level
    43. lvl = ReadInteger(Process, lvl, nsize) + Offsets(i - 1)
    44. Next
    45. Dim vBuffer As Integer
    46. vBuffer = ReadInteger(Process, lvl, nsize)
    47. Return vBuffer
    48. Catch ex As Exception
    49. Return -1
    50. End Try
    51. End Function
    53. Public Function WriteDMAFloat(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Single, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
    54. Try
    55. Dim lvl As Integer = Address
    56. For i As Integer = 1 To Level
    57. lvl = CInt(ReadFloat(Process, lvl, nsize) + Offsets(i - 1))
    58. Next
    59. WriteFloat(Process, lvl, Value, nsize)
    60. Return True
    61. Catch ex As Exception
    62. Return False
    63. End Try
    64. End Function
    66. Public Function ReadDMAFloat(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Single
    67. Try
    68. Dim lvl As Integer = Address
    69. For i As Integer = 1 To Level
    70. lvl = CInt(ReadFloat(Process, lvl, nsize) + Offsets(i - 1))
    71. Next
    72. Dim vBuffer As Single
    73. vBuffer = ReadFloat(Process, lvl, nsize)
    74. Return vBuffer
    75. Catch ex As Exception
    76. Return -1
    77. End Try
    78. End Function
    80. Public Function WriteDMALong(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Long, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
    81. Try
    82. Dim lvl As Integer = Address
    83. For i As Integer = 1 To Level
    84. lvl = CInt(ReadLong(Process, lvl, nsize) + Offsets(i - 1))
    85. Next
    86. WriteLong(Process, lvl, Value, nsize)
    87. Return True
    88. Catch ex As Exception
    89. Return False
    90. End Try
    91. End Function
    93. Public Function ReadDMALong(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Long
    94. Try
    95. Dim lvl As Integer = Address
    96. For i As Integer = 1 To Level
    97. lvl = CInt(ReadLong(Process, lvl, nsize) + Offsets(i - 1))
    98. Next
    99. Dim vBuffer As Long
    100. vBuffer = ReadLong(Process, lvl, nsize)
    101. Return vBuffer
    102. Catch ex As Exception
    103. Return -1
    104. End Try
    105. End Function
    107. Public Sub WriteNOPs(ByVal ProcessName As String, ByVal Address As Long, ByVal NOPNum As Integer)
    108. Dim C As Integer
    109. Dim B As Integer
    110. If ProcessName.EndsWith(".exe") Then
    111. ProcessName = ProcessName.Replace(".exe", "")
    112. End If
    113. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    114. If MyP.Length = 0 Then
    115. Exit Sub
    116. End If
    117. Dim hProcess As IntPtr = CType(OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id), IntPtr)
    118. If hProcess = IntPtr.Zero Then
    119. Exit Sub
    120. End If
    122. B = 0
    123. For C = 1 To NOPNum
    124. Call WriteProcessMemory1(CInt(hProcess), CInt(Address + B), &H90, 1, 0&)
    125. B = B + 1
    126. Next C
    127. End Sub
    129. Public Sub WriteXBytes(ByVal ProcessName As String, ByVal Address As Long, ByVal Value As String)
    130. If ProcessName.EndsWith(".exe") Then
    131. ProcessName = ProcessName.Replace(".exe", "")
    132. End If
    133. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    134. If MyP.Length = 0 Then
    135. Exit Sub
    136. End If
    137. Dim hProcess As IntPtr = CType(OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id), IntPtr)
    138. If hProcess = IntPtr.Zero Then
    139. Exit Sub
    140. End If
    142. Dim C As Integer
    143. Dim B As Integer
    144. Dim D As Integer
    145. Dim V As Byte
    147. B = 0
    148. D = 1
    149. For C = 1 To (Len(Value) \ 2)
    150. V = CByte(Val("&H" & Mid$(Value, D, 2)))
    151. Call WriteProcessMemory1(CInt(hProcess), CInt(Address + B), CInt(V), 1, 0&)
    152. B = B + 1
    153. D = D + 2
    154. Next C
    156. End Sub
    158. Public Sub WriteInteger(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Integer, Optional ByVal nsize As Integer = 4)
    159. If ProcessName.EndsWith(".exe") Then
    160. ProcessName = ProcessName.Replace(".exe", "")
    161. End If
    162. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    163. If MyP.Length = 0 Then
    164. Exit Sub
    165. End If
    166. Dim hProcess As IntPtr = CType(OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id), IntPtr)
    167. If hProcess = IntPtr.Zero Then
    168. Exit Sub
    169. End If
    171. Dim hAddress, vBuffer As Integer
    172. hAddress = Address
    173. vBuffer = Value
    174. WriteProcessMemory1(CInt(hProcess), hAddress, CInt(vBuffer), nsize, 0)
    175. End Sub
    177. Public Sub WriteFloat(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Single, Optional ByVal nsize As Integer = 4)
    178. If ProcessName.EndsWith(".exe") Then
    179. ProcessName = ProcessName.Replace(".exe", "")
    180. End If
    181. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    182. If MyP.Length = 0 Then
    183. Exit Sub
    184. End If
    185. Dim hProcess As IntPtr = CType(OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id), IntPtr)
    186. If hProcess = IntPtr.Zero Then
    187. Exit Sub
    188. End If
    190. Dim hAddress As Integer
    191. Dim vBuffer As Single
    193. hAddress = Address
    194. vBuffer = Value
    195. WriteProcessMemory2(CInt(hProcess), hAddress, vBuffer, nsize, 0)
    196. End Sub
    198. Public Sub WriteLong(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Long, Optional ByVal nsize As Integer = 4)
    199. If ProcessName.EndsWith(".exe") Then
    200. ProcessName = ProcessName.Replace(".exe", "")
    201. End If
    202. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    203. If MyP.Length = 0 Then
    204. Exit Sub
    205. End If
    206. Dim hProcess As IntPtr = CType(OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id), IntPtr)
    207. If hProcess = IntPtr.Zero Then
    208. Exit Sub
    209. End If
    211. Dim hAddress As Integer
    212. Dim vBuffer As Long
    214. hAddress = Address
    215. vBuffer = Value
    216. WriteProcessMemory3(CInt(hProcess), hAddress, vBuffer, nsize, 0)
    217. End Sub
    219. Public Function ReadInteger(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Integer
    220. If ProcessName.EndsWith(".exe") Then
    221. ProcessName = ProcessName.Replace(".exe", "")
    222. End If
    223. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    224. If MyP.Length = 0 Then
    225. Exit Function
    226. End If
    227. Dim hProcess As IntPtr = CType(OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id), IntPtr)
    228. If hProcess = IntPtr.Zero Then
    229. Exit Function
    230. End If
    232. Dim hAddress, vBuffer As Integer
    233. hAddress = Address
    234. ReadProcessMemory1(CInt(hProcess), hAddress, vBuffer, nsize, 0)
    235. Return vBuffer
    236. End Function
    238. Public Function ReadFloat(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Single
    239. If ProcessName.EndsWith(".exe") Then
    240. ProcessName = ProcessName.Replace(".exe", "")
    241. End If
    242. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    243. If MyP.Length = 0 Then
    244. Exit Function
    245. End If
    246. Dim hProcess As IntPtr = CType(OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id), IntPtr)
    247. If hProcess = IntPtr.Zero Then
    248. Exit Function
    249. End If
    251. Dim hAddress As Integer
    252. Dim vBuffer As Single
    254. hAddress = Address
    255. ReadProcessMemory2(CInt(hProcess), hAddress, vBuffer, nsize, 0)
    257. Return vBuffer
    258. End Function
    260. Public Function ReadLong(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Long
    261. If ProcessName.EndsWith(".exe") Then
    262. ProcessName = ProcessName.Replace(".exe", "")
    263. End If
    264. Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
    265. If MyP.Length = 0 Then
    266. Exit Function
    267. End If
    268. Dim hProcess As IntPtr = CType(OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id), IntPtr)
    269. If hProcess = IntPtr.Zero Then
    270. Exit Function
    271. End If
    273. Dim hAddress As Integer
    274. Dim vBuffer As Long
    276. hAddress = Address
    277. ReadProcessMemory3(CInt(hProcess), hAddress, vBuffer, nsize, 0)
    278. Return vBuffer
    279. End Function
    281. End Class




    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „asusdk“ ()

    Aber das upd.WriteDMAInteger("FTLGame", Address0, {&H28, &H4, &H24, &H450}, 10000, 4) in irgendeine Funktion/Prozedur gehört, damit es funktioniert, weißt Du schon, oder? Klar geht das mit Dim-Anweisungen. Aber eben nicht mit Funktionsaufrufen wie dem dargestellten.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @asusdk

    Setze die Zeile die nicht funktioniert wie ich es gezeigt in eine eigene Funktion /Prozedur(z.B, FirstFunk oder so). Du kannst die Funktion/Prozedur dann direkt ansprechen aus der Form1_Load Funktion.

    Dann korrigiere mit den gesetzten Options alle deine Exception.

    Prüfe ob die Funktionen die du in der Dll hast auch das machen was du möchtest.

    Wenn das alles gemacht ist, kompilieren, daraus entsteht dann eine dll im Dll-Projekt.

    Diese einbinden in dein Projekt mit "Add Reference"

    Jetzt sollte die Dll drin sein.

    Freundliche Grüsse

    exc-jdbi

    @VaporiZed und @exc-jdbi oh mein Gott, peinliche Aktion....
    Aber das upd.WriteDMAInteger("FTLGame", Address0, {&H28, &H4, &H24, &H450}, 10000, 4)
    in irgendeine Funktion/Prozedur gehört, damit es funktioniert, weißt Du
    schon, oder? Klar geht das mit Dim-Anweisungen. Aber eben nicht mit
    Funktionsaufrufen wie dem dargestellten.


    das hatte ich komplett verplant.... in einer function/sub funktioniert es ganz normal.....*hochroterKopf/schäääm*

    danke vielmals für eure Hilfe !
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

Facebook
Telefonspende