Trainer (oder so) erstellen ?

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von thefiloe.

    Trainer (oder so) erstellen ?

    Vorab : Sorry, fals es der falsche Bereich ist.
    Vorab2 : Es ist nichts illegales ! Wille keine Craks etc. programmieren

    Möchte nur fragen ob es möglich ist, das wenn ich z.B STRG und 1 drücke er ,,Aspirine,, in die Tastatur schreibt.
    Soll ein Cheat Trainer werden. Damit ich nicht alles händisch eingeben muss.

    Geht das mit VB ?

    Gruß

    Vielleicht soetwas,

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As IntPtr) As Integer
    4. Private Declare Function GetForegroundWindow Lib "user32" () As Integer
    5. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
    6. Private Const WM_SETFOCUS As Int32 = &H7
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Process.Start("notepad.exe")
    10. End Sub
    12. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    13. Dim p As Process = Process.GetProcessesByName("Notepad")(0)
    14. Clipboard.SetText(Me.TextBox1.Text)
    15. Me.Text = "in den vordergrundbringen"
    16. SetForegroundWindowEx(p.MainWindowHandle)
    17. Me.Text = "text senden"
    18. SendKeys.SendWait("^v")
    19. End Sub
    21. 'quelle: http://www.microsoft.com/germany/msdn/library/visualtools/vb6/FensterInDenDesktopVordergrundBringen.mspx?mfr=true
    22. ' Verwenden Sie die Funktion SetForegroundWindowEx statt der
    23. ' API Funktion SetForegroundWindow ausschließlich, wenn das
    24. ' betroffene Fenster tatsächlich in den Vordergrund gebracht
    25. ' werden muss.
    26. Private Function SetForegroundWindowEx(ByVal hWndWindow As Long) As Boolean
    27. ' Dient dem Setzen des Vordergrundfensters mit der Funktion
    28. ' SetForegroundWindow, die sich unter neueren Windows-Versionen
    29. ' anders verhält als unter Windows 95 und Windows NT 4.0.
    30. ' Der Rückgabewert ist True, wenn das Fenster erfolgreich in den
    31. ' Vordergrund gebracht werden konnte.
    32. Dim lThreadForeWin As Long ' Thread-ID für das aktuelle Vordergrundfenster
    33. Dim lThreadWindow As Long ' Thread-ID für das in hWndWindow spezifizierte
    34. ' Fenster, das in den Vordergrund des Desktops
    35. ' gebracht werden soll.
    36. ' Falls das Fenster dem gleichen Thread wie das aktuelle
    37. ' Vordergrundfenster angehört, ist kein Workaround erforderlich:
    38. lThreadWindow = GetWindowThreadProcessId(hWndWindow, 0)
    39. lThreadForeWin = GetWindowThreadProcessId(GetForegroundWindow(), 0)
    40. If lThreadWindow = lThreadForeWin Then
    41. ' Vordergrundfenster und zu aktivierendes Fenster gehören zum
    42. ' gleichen Thread. SteForegroundWindow allein reicht aus:
    43. SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
    44. Else
    45. ' Das Vordergrundfenster gehört zu einem anderen Thread als das
    46. ' Fenster, das neues Vordergrundfenster werden soll. Mittels
    47. ' AttachThreadInput erhaten wir kurzzeitig Zugriff auf die
    48. ' Eingabeverarbeitung des Threads des Vordergrundfensters,
    49. ' so dass SetForegroundWindow wie erwartet arbeitet:
    50. SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
    51. End If
    52. End Function
    53. End Class


    Mit diesem, wird der eingegebene Text, dem vordefinierten Prozess übergeben...

    Code war denk ich aus dem Forum...

    Mfg.eniking1998

    Kimo_13 schrieb:

    Ne, das geht auch wenn das Spiel nicht läuft.

    Dann überprüf ob das Spiel läuft und gib die Funktion nur dann frei :)

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. If CheckProcess("chrome") Then
    7. MessageBox.Show("Läuft :)")
    8. Else
    9. MessageBox.Show("Läuft nicht ! :(")
    10. End If
    11. End Sub
    13. Public Function CheckProcess(ByVal pname As String) As Boolean
    14. For Each p As Process In Process.GetProcesses()
    15. If p.ProcessName = pname Then
    16. Return True
    17. End If
    18. Next
    19. Return False
    20. End Function
    21. End Class

    Hotkey:
    social.msdn.microsoft.com/Foru…4-4adc-9d85-416a7158c6ba/

    Cheat eingeben:

    VB.NET-Quellcode

    1. sendkeys.send("{enter}")
    2. sendkeys.send("test")
    3. sendkeys.send("{enter}")


    Wenn es aber ein DirectX-Spiel o.Ä.(?) ist, funktioniert sendkeys nicht. Da musst du dann kompliziert directX-Funktionen hooken?!
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

    Da hast du recht. Aber mit der SendInput Funktion sollte es angeblich gehen: codeproject.com/Questions/2796…harp-DirectInput-Send-Key


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

Facebook
Telefonspende