Puede presionar Alt+ CTRL+ SHIFT+ Hpara cerrar Opera 12 en la bandeja.
Utilizamos este comando y dejamos que un script VB abra Opera y, tan pronto como Opera esté abierto, presione esta combinación de teclas para cerrarlo en la bandeja.
OperaToTray.vbs
set objShell = CreateObject("WScript.Shell") 'Create object
strCommand = chr(34) & "D:\Opera Mail\operamail.exe" &chr(34) 'Set app path
objShell.Run strCommand, 1, false 'open application
Do 'start infinite loop
If objShell.AppActivate("Opera Mail") Then 'check if window is active
objShell.SendKeys "^+%h" 'Send Alt + CTRL + SHIFT + H
Exit Do 'and exit loop/script
End If
WScript.Sleep 100 'wait 100ms (to try again)
Loop 'loop if no match was found
Notas
El método AppActivate intenta activar una aplicación cuyo título de Windows es la coincidencia más cercana, por strApplicationTitle
lo que puede no ser 100% precisa si hay múltiples Opera Windows
Si planea cambiar de Opera a Opera Mail (cliente independiente M2) , también puede usar este método.
Si agrega Show Exit Dialog=2
al ..\OperaMail\profile\operaprefs.ini
cliente de correo, siempre se minimizará en la bandeja si hace clic en la X (cerrar)
Puede generalizar este script VB para cerrar todas las aplicaciones utilizando en su
objShell.SendKeys "%{F4}"
lugar las Altteclas +F4
Muchas gracias por la pregunta. De ahora en adelante, también lo usaré para mi cliente Opera Mail.
Recursos utilizados