Visual Basic Patcher Erstellen!WIchtig!

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von Gugi.

    Visual Basic Patcher Erstellen!WIchtig!

    Hallo Leute ich möchte gerne Ein Patcher erstellen Also Das Eine Bestimmte Datei IN ein Bestimmtes Verzeichnis verschiebt


    Meine Nächste Frage ist wie kann ich ein programm machen also z.b ein Freund Schreibt Zu Mir Hallo Und Das Programm Schreibt Meine Antwort Die ich einProgrammiert Habe Zurück?



    -FIlemove

    Würdest du die Grundlagen kennen, hättest du diese Fragen nicht gestellt.

    Patcher? Nur Datei verschieben? Datei downloaden? Datei checken per MD5 oder sowas?

    2. Chatbot? Chat mit Server?

    Du musst dich schon genauer formulieren.

    Soll er die .Dll downloaden oder soll er die aus den Resourcen ziehen?

    Jetzt ist es ein Game...das ist wieder was komplett anderes...um was für ein Game handelt es sich.

    Mit Sendkeys kommste da nicht weit. Das geht nämlich eigentlich nie in DirectX Spielen.

    Und du musst ja auch irgendwie das gepostete von anderen Spielern lesen, das ist nicht einfach mal eben copy & paste.

    das was du dafür machen musst ist dasselbe wie Hacken, also wäre der Text schonmal falsch...ReadProcessMemory/WriteProcessMemory sind deine Methoden/Funktionen, dazu sollte auch hier etwas zu finden sein...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    VB.NET-Quellcode

    1. Module Module1
    3. #region "Declarations"
    5. Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    6. Private Declare Function WriteProcessMemory 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
    7. 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
    8. 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
    9. 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
    10. Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
    12. Private string1 As Long
    13. Private string2 As Integer
    14. Private RBuff1 As Long
    15. Private RBuff2 As Single
    16. Private RBuff3 As Integer
    18. #end region
    20. #Region "Check Process/ReadDll"
    22. Private Function readdll(ByVal modulename As String)
    23. Dim procmodule As ProcessModule
    24. Dim constant1 As Integer
    25. Dim constant2 As Long
    26. Dim constant3 As Process() = Process.GetProcessesByName("iw4mp")
    27. If constant3.Length = 0 Then
    28. Return 0
    29. End If
    30. For Each procmodule In constant3(0).Modules
    31. If modulename = procmodule.ModuleName Then
    32. constant1 = procmodule.BaseAddress
    33. End If
    34. Next
    35. constant2 = constant1
    36. Return constant2
    37. End Function
    39. Public Function IsProcessOpen(ByVal name As String) As Boolean
    41. For Each clsProcess As Process In Process.GetProcesses
    43. If clsProcess.ProcessName.Contains(name) Then
    46. Return True
    48. End If
    49. Next
    50. ' Do nothing
    51. Return False
    52. End Function
    55. #end region
    57. #Region "Hacks"
    59. 'WriteMemory
    60. Private Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
    61. Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
    62. If iw4mpLookUp.Length = 0 Then
    63. End
    64. End If
    65. Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
    66. WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
    67. CloseHandle(processHandle)
    69. Return Nothing
    70. End Function
    72. 'WriteFloat
    73. Private Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
    74. Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
    75. If iw4mpLookUp.Length = 0 Then
    76. End
    77. End If
    78. Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
    79. WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
    80. CloseHandle(processHandle)
    82. Return Nothing
    83. End Function
    85. 'NOP
    86. Private Function NOP(ByVal Address As Integer, ByVal value As Integer)
    87. Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
    88. If iw4mpLookUp.Length = 0 Then
    89. End
    90. End If
    91. Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
    92. WriteProcessMemory(processHandle, Address, value, 1, Nothing)
    93. CloseHandle(processHandle)
    95. Return Nothing
    96. End Function
    98. #End region
    100. #Region "Functions"
    102. Public Function memoryh4x(ByVal address As String, ByVal value As Long, ByVal bytes As Byte)
    103. If IsProcessOpen("iw4mp") Then
    105. string1 = readdll("cshell.dll")
    106. string2 = "&H" & Hex(string1 + address)
    107. WriteMemory(string2, value, bytes)
    108. End If
    109. Return Nothing
    110. End Function
    112. Public Function floath4x(ByVal address As String, ByVal value As Long)
    113. If IsProcessOpen("iw4mp") Then
    115. string1 = readdll("cshell.dll")
    116. string2 = "&H" & Hex(string1 + address)
    117. WriteFloat(string2, value)
    118. End If
    119. Return Nothing
    120. End Function
    122. Public Function noph4x(ByVal address As String, ByVal value As Long)
    123. If IsProcessOpen("iw4mp") Then
    124. string1 = readdll("cshell.dll")
    125. string2 = "&H" & Hex(string1 + address)
    126. NOP(string2, value)
    129. End If
    130. Return Nothing
    131. End Function
    133. #end region
    134. End Module


    VB.NET-Quellcode

    1. memoryh4x(&H12BC89F, 1337, 4)


    Zum lesen ist da nun keine Funktion drinne, das kannst du ja mal selbst probieren...

    Hat das nicht irgendwas mit Packets zu tun?

    Genau weiß ich es nicht...

    Beim Webclient hast du dann auch die Möglichkeiten den aktuellen Status herauszulesen. Außerdem gibt es ein Event dafür, wenn der Download abgeschlossen ist.

    My.Computer.Network.Downloadfile ist ungenau und ich würde es niemandem empfehlen.

    Fazit: Benutz einen Webclient. Bevor du fragst wie, versuch es doch erst einmal selbst...

    Damit meinte ich, dass du nicht weißt, wann der Download fertig ist. Du kannst natürlich bei kleinen Dateien einfach Sleep einbauen, trotzdem...

    Da bevorzuge ich doch eher den webclient. Oder kann man bei Computer.Network den Progress mit Handlern irgendwie ablesen?

    Naja egal, ich bin mal pennen. Wenn alles was ich sage Müll ist, liegt es daran, dass ich sau müde bin :pinch:

    Bisschen schlecht formuliert.

    My-Download...hat zwar weder Events noch eine sonstige benachrichtigung, jedoch erfolgt der Download im GUI Thread, somit wird auch keine Benachrichtigung benötigt, der Download ist fertig, sobald die nächste Zeile Code ausgeführt wird...


    BTT:msdn.microsoft.com/de-de/libra…bclient.downloadfile.aspx
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    MoonMen2010 schrieb:

    Kapier Ich Garnicht Kann ich nicht Einfach:

    VB.NET-Quellcode

    1. my.computer.downloadfile("Mein FTP")

    nein kannst du nicht!
    wenn du es so machen willst gehts so:

    VB.NET-Quellcode

    1. my.computer.network.downloadfile("Mein FTP")


    aber besser siehts so aus:

    VB.NET-Quellcode

    1. dim client as new net.webclient
    2. client.downloadfile("Mein FTP", "Pfad und Dateiname")

    wenn der pfad der startpfad der datei sein soll musst du es mit application.startuppath machen.

    lg Gugi

Facebook
Telefonspende