Sub Button1_Click
Dim FindTitle As String = "D:\TMP\Q.txt - Notepad++"
' Dim FindTitle As String = "Q.txt - Notepad"
Dim windowUtils As JavaObject
windowUtils.InitializeStatic("com.sun.jna.platform.WindowUtils")
Dim Jo1 As JavaObject
Dim Instance As JavaObject = Jo1.InitializeStatic("com.sun.jna.platform.win32.User32").GetField("INSTANCE")
Dim L As List = windowUtils.RunMethod("getAllWindows",Array(False))
Dim Found As Boolean
For Each Window As JavaObject In L
Dim Title As String = Window.RunMethod("getTitle",Null)
'Just to see the title formats
If Title.Contains("Q.txt") Then Log(Title)
If Title = FindTitle Then
Found = True
Dim Hwnd As JavaObject = Window.RunMethod("getHWND",Null)
If Initialized(Hwnd) Then
Instance.RunMethod("ShowWindow",Array(Hwnd,Instance.GetField("SW_RESTORE")))
Instance.RunMethod("SetForegroundWindow",Array(Hwnd))
End If
End If
Next
If Not(Found) Then Log($"Window ${FindTitle} not found"$)
End Sub