Yes there is, see this example
Dim oShell
Set oShell = CreateObject("WScript.Shell")
'bring the window to front
'title must be exactly what you see in the titlebar of the window
oShell.AppActivate "title of your window"
WScript.Sleep 500 'give the window the time to activate, time is in miliseconds
oShell.SendKeys "{ENTER}" 'you can send keystrokes to this window
Set oShell = nothing
if you want to minimize that window you can send keystrokes to do that, but this is language dependent so first try them manually. The following sends the keystrokes Alt (%) space and N from miNimize. Try in your window to push the Alt-Space keys to get the menu that controls this
oShell.SendKeys "(% )N"
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…