Bild im Spiel anzeigen ( GDI ) geht nicht

  • VB.NET

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

    Bild im Spiel anzeigen ( GDI ) geht nicht

    Hallo ich habe ein Programm mit GDI gebaut um ein Bild zu zeichnen da Formen nicht im spiel in den Vordergrund gesetzt werden können. Jetzt habe ich das Problem das mein programm die Karte zwar zeichnet nur nicht Ingame. Überall anders schon auch ohne game offen 8|

    VB.NET-Quellcode

    1. Imports System.Threading
    2. Imports System
    5. Public Class Form1
    8. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer ' Um Das Fenster zu finden
    10. Dim mythread As System.Threading.Thread
    11. Dim picgrößeX As Integer = My.Resources.bitswarzmap.Size.Width
    12. Dim picgrößeY As Integer = My.Resources.bitswarzmap.Size.Height
    14. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Long
    16. Public Sub anzeigen(ByVal PictureGrößeX As Integer, ByVal picgrößeY As Integer)
    17. Dim g As Graphics = Graphics.FromHwnd(New IntPtr(FindWindow("WarZ", "WarZ"))) ' Prozess finden
    18. Dim posx As Integer = ScreenResolutionX() - PictureGrößeX ' Rechts anordnen
    19. Dim posy As Integer = ScreenResolutionY() - picgrößeY ' unten anordnen
    22. g.DrawImage(My.Resources.bitswarzmap, posx, posy, PictureGrößeX, picgrößeY) ' Bild malen
    23. g.Dispose()
    24. End Sub
    26. Public Function ScreenResolutionX() As Integer
    27. Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width ' Momentaner Screenresolution X finden
    28. Return intX
    29. End Function
    31. Public Function ScreenResolutionY() As Integer
    32. Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height ' Momentaner Screenresolution Y finden
    33. Return intY
    34. End Function
    37. Dim timerstat As Integer = 0
    39. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    40. Me.TopMost = True
    41. If GetAsyncKeyState(Keys.NumPad1) Then
    42. anzeigen(picgrößeX, picgrößeY) ' Funktion zeichnen aufrufen
    43. 'Timer2.Start()
    44. ElseIf GetAsyncKeyState(Keys.NumPad0) Then
    45. Timer1.Stop()
    46. MsgBox("Programm beendet!")
    47. Me.Close()
    48. ElseIf GetAsyncKeyState(Keys.NumPad2) Then
    50. ' Timer2.Stop()
    51. ' Dim rec As New Rectangle(0, 0, ScreenResolutionX, ScreenResolutionY)
    52. ' Me.Invalidate(rec)
    53. End If
    54. End Sub
    56. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    57. Control.CheckForIllegalCrossThreadCalls = False
    58. Timer1.Start() ' Timer starten um Keys zu überprüfen
    59. End Sub
    61. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    62. mythread = New Thread(AddressOf zeigen)
    63. mythread.Start()
    64. End Sub
    66. Public Sub zeigen()
    67. anzeigen(picgrößeX, picgrößeY)
    68. End Sub
    69. End Class


    Bitte um Hilfe :S

    Als Admin schon ausgeführt und getestet? Ja

    Schlammy schrieb:

    Das ist C# -.-
    Ich arbeite mit vb.net
    Ausserdem will ich mich nicht in das Spiel einklinken sondern drüberzeichnen
    .NET ist .NET

    Ansonsten findest Du bei Google Codekonverter.

    Das mit dem Drüberzeichnen funktioniert aber so nunmal nicht, zumindest nicht annehmbar.
    Dafür müsste das Spiel, wie schon gesagt, im Fenstermodus oder "borderless" laufen.

    Du wirst mit der Performance nicht zufrieden sein.

    Das ist C# -.-
    Meine Güte das macht mich echt aggressiv. Ich meine man bekommt halt nicht immer alles Perfekt. Jetzt bekommst du nen Code zum kopieren in C# was auch .NET IST!! Und es sogar nen Converter gibt aber du bist zu faul nen Code zwei mal zu Copy-Pasten. Ich habe kürzlich seit Wochen was gesucht und dann in den tiefen von Google endlich nen Delphi Code gefunde. Habe keine Ahnung von Delphi. Aber entweder du versuchst damit etwas anfangen zu können oder du lässt es bleiben. Bei deiner Einstellung würd ich mir mal überlegen ob du es nicht lässt. (aber dann richtig und alles)


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

Facebook
Telefonspende