Häng mal dein Projektmappe an (ohne vs, bin und obj) Ordner. Ich schau morgen mal rein, hab schon eine Vermutung.
Edit @Xiantrius
Also es lag daran das bei spielen im fullscreen exclusive die taskbar nicht da ist, dann muss man wieder Screen.Bounds(workingarea ist ohne taskbar) nehmen, hab das hinzugefügt. Wenn nun nicht mehr als als FullScren erkannt werden soll, wenn Taskleiste sichtbar ist, sollte klar sein wie der Code anzupassen ist(das rectangle r1 wieder rauswerfen, r dafür aber screens(i).Bounds zuweisen)
Edit @Xiantrius
Also es lag daran das bei spielen im fullscreen exclusive die taskbar nicht da ist, dann muss man wieder Screen.Bounds(workingarea ist ohne taskbar) nehmen, hab das hinzugefügt. Wenn nun nicht mehr als als FullScren erkannt werden soll, wenn Taskleiste sichtbar ist, sollte klar sein wie der Code anzupassen ist(das rectangle r1 wieder rauswerfen, r dafür aber screens(i).Bounds zuweisen)
VB.NET-Quellcode
- Private Function FullscreenCheck(processName As String) As Boolean
- Dim p() As Process = Process.GetProcessesByName(processName)
- If p.Length = 0 Then
- Return False
- End If
- Dim rect As New RECT
- If GetWindowRect(p(0).MainWindowHandle, rect) Then
- Debug.WriteLine(rect)
- If rect.Left < 0 Then
- rect.Right += rect.Left
- rect.Left = 0
- End If
- If rect.Top < 0 Then
- rect.Bottom += rect.Top
- rect.Top = 0
- End If
- Dim screens() As Screen = Screen.AllScreens
- For i As Integer = 0 To screens.Length - 1
- If screens(i).WorkingArea.Contains(New Point(rect.Left, rect.Top)) Then
- Dim r As Rectangle = screens(i).WorkingArea
- Dim r1 As Rectangle = screens(i).Bounds
- If Not r.X = rect.Left Or Not r.Y = r.Top Then
- Return False
- End If
- If r.Width = rect.Right AndAlso r.Height = rect.Bottom Then
- Return True
- End If
- If r1.Width = rect.Right AndAlso r1.Height = rect.Bottom Then
- Return True
- End If
- End If
- Next
- End If
- Return False
- End Function
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Debug.WriteLine(FullscreenCheck("TakasCasino"))
- End Sub
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Takafusa“ ()