Hallo zusammen.
Ich habe gerade versucht, ein Programm zu machen, mit dem ich sozusagen ein Overlay für andere Programme erzeugen kann. Im Prinzip funktioniert das auch, aber leider flackert das Overlay je nach Andwendung sehr stark, bzw ist kaum sichtbar.
Beim notepad zum Beispiel ist es sehr gut sichtbar und flackert selbst wenn man Text darunter schreibt nur minimal, aber bei Need For Speed blitzt es höchstens im Menü hin und wieder mal auf.
Weiß vielleicht einer eine Lösung für dieses Problem? Oder ist meine herangehensweise schon falsch?
Timer2 gibt es, damit mein Programm nicht anfängt zu zeichnen, bevor das Zielprogramm geladen ist.
Ich habe gerade versucht, ein Programm zu machen, mit dem ich sozusagen ein Overlay für andere Programme erzeugen kann. Im Prinzip funktioniert das auch, aber leider flackert das Overlay je nach Andwendung sehr stark, bzw ist kaum sichtbar.
Beim notepad zum Beispiel ist es sehr gut sichtbar und flackert selbst wenn man Text darunter schreibt nur minimal, aber bei Need For Speed blitzt es höchstens im Menü hin und wieder mal auf.
Weiß vielleicht einer eine Lösung für dieses Problem? Oder ist meine herangehensweise schon falsch?
Timer2 gibt es, damit mein Programm nicht anfängt zu zeichnen, bevor das Zielprogramm geladen ist.
VB.NET-Quellcode
- Dim wHandle As Long
- Dim game As Process
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Button1.Enabled = False
- Dim proID As Long
- proID = Shell(TextBox1.Text, AppWinStyle.NormalFocus)
- Button1.Text = proID
- game = Process.GetProcessById(proID)
- Timer2.Enabled = True
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- Timer2.Enabled = False
- wHandle = game.MainWindowHandle
- Timer1.Enabled = True
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- On Error GoTo fehler ' Prozess beendet
- Using g = Graphics.FromHwnd(wHandle)
- g.DrawImage(PictureBox1.Image, 20, 20, 200, 200)
- End Using
- Exit Sub
- fehler:
- Timer1.Enabled = False
- Button1.Enabled = True
- End Sub
Every Lemming For Himself!