Páginas

jueves, 18 de abril de 2019

Organizacion automatica ventanas con wmctrl y gambas3


Organización automatica ventanas con wmctrl y gambas3

Usualmente uso varias ventanas de chrome abiertas, y necesito muchas veces tener abierta 2 ventanas organizadas horizontalmente en la pantalla. He usado mucho tiempo el programa X-tile, pero se me hacia un poco tedioso usarlo, para hacer lo que necesitaba. Buscando por la web, encontre el comando wmctrl, y un ejemplo de uso, y lo he modificado para  hacer más sencillo y directo lo que quiero. Os dejo un video de su funcionamiento y su codigo fuente e instalador por si lo quereis usar o modificar para vuestros usos.




'CODIGO FUENTE (VER ARCHIVO EN ENLACE DE DESCARGA: alojado en google drive)

Cógido principal, donde se puede ver como se usa el comando wmctrl:
' Gambas module file
Public Sub Main()
    Dim listaVentanas As String[]
    Dim codigo As String
    'detecto ventanas con Coogle chrome
    Shell "wmctrl -l | grep \"Google Chrome\" | awk '{print  $1}'" To codigo
    Print codigo
    listaVentanas = Split(codigo, "\n")
    If listaVentanas.count > 2 Then
        listaVentanas.Pop() 'quito ultima linea
    Else
        Return
    Endif
    Shell "wmctrl -v -i -r " & listaVentanas[0] & " -e '0,0,0,1280,500'"
    Shell "wmctrl -i -a " & listaVentanas[0]
    Shell "wmctrl -v -i -r " & listaVentanas[1] & " -e '0,0,520,1280,500'"
    Shell "wmctrl -i -a " & listaVentanas[1]
End


Enlaces Interesantes:
https://www.enmimaquinafunciona.com/pregunta/51638/como-utilizo-wmctrl-y-linea-de-comandos-para-hacer-una-ventana-mas-grande-que-la-pantalla-para-obtener-una-captura-de-pantalla-enorme