Jump to content

Benneh

Membros
  • Content count

    1
  • Joined

  • Last visited

  • Days Won

    3

Benneh last won the day on March 12 2017

Benneh had the most liked content!

Community Reputation

5 Neutro

1 Follower

About Benneh

  • Rank
    Novato

Profile Information

  • Gender
    Male
  • Location
    Natal RN
  1. Trocar de monitor

    Eu possuo um notebook de 14" que uso normalmente conectado via saída RGB a um monitor LCD de 21". Também costumo assistir filmes na sala num monitor/tv de 42" via cabo HDMI. Sempre que conecto a qualquer desses monitores tenho que selecioná-lo indo em "Painel de controle" >> "Vídeo" >> "Alterar configurações de vídeo" e daí selecionar o monitor desejado. Ficar fazendo isso toda hora acaba se tornando um "saco". Daí resolvi criar um pequeno script com o AutoIt para automatizar o processo. Só para constar: eu uso o Windows 10 (64bits). Seguem aí duas versões: uma para o Windows em Português e outra para o idioma Inglês. Você pode adaptá-los para suas necessidades. Script para Windows em Português: ;Abrir "Resolução de Tela" do Windows Run("rundll32.exe shell32.dll,Control_RunDLL desk.cpl") Sleep(2000) ;Se ele começa com "Múltiplos vídeos: Duplicar estes vídeos", então down 3 para "Mostrar área de trabalho somente em 2" ControlSend("Resolução de Tela", "", "[CLASS:ComboBox; INSTANCE:3]", "{Down 3}") Sleep(2000) ControlClick("Resolução de Tela", "", "[CLASS:Button; INSTANCE:6]"); Clica no botão "OK" ;Espera abrir a janela "Configurações de Vídeo", dá um TAB para mudar para o botão "Manter configurações" e, em seguida, clica no mesmo. WinWaitActive("Configurações de Vídeo") SEND("{TAB}") Sleep(500) Send("{ENTER}") troca-monitor_pt.au3 Script para Windows em Inglês: ;Abrir "Resolução de Tela" do Windows Run("rundll32.exe shell32.dll,Control_RunDLL desk.cpl") Sleep(2000) ;Se ele começa com "Múltiplos vídeos: Duplicar estes vídeos", então down 3 para "Mostrar área de trabalho somente em 2" ControlSend("Screen Resolution", "", "[CLASS:ComboBox; INSTANCE:3]", "{Down 3}") Sleep(2000) ControlClick("Screen Resolution", "", "[CLASS:Button; INSTANCE:6]"); Clica no botão "OK" ;Espera abrir a janela "Configurações de Vídeo", dá um TAB para mudar para o botão "Manter configurações" e, em seguida, clica no mesmo. WinWaitActive("Display Settings") SEND("{TAB}") Sleep(500) Send("{ENTER}") change-monitor_en.au3 Façam bom proveito!
×