3 replies to this topic

[hainz]

Hallo,
 
habe bisher null Erfahrung mit AutoIt, möchte nur meine Bildschirme automatisieren.
 
Was ich machen möchte:
Habe 3 Bildschirme, davon können immer nur 2 gleichzeitig aktiv sein. Ich möchte zwischen folgenden 3 Szenarien wechseln:
A: 2 ist Hauptbildschirm, 3 ist Erweiterung
B: 1 und 2 haben das gleiche Bild
C: 2 ist Hauptbildschirm, 1 ist Erweiterung
 
 
Bisheriges Skript:
Habe mir diesen Thread http://www.autoitscr...display-screen/ als Vorbild genommen und nun folgendes:

Spoiler

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_x64=..Compilex64ScreenResolution.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 378, 114, 401, 181)
$Button1 = GUICtrlCreateButton("Gaming", 32, 24, 75, 65)
$Button2 = GUICtrlCreateButton("CouchSurf", 152, 24, 75, 65)
$Button3 = GUICtrlCreateButton("Cinema", 272, 24, 75, 65)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
Run("rundll32.exe shell32.dll,Control_RunDLL desk.cpl")
Sleep(500)
;WinSetTrans("Bildschirmauflösung", "", 0)
Sleep(250)

ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:1]", "{HOME}")
Sleep(500)
$ScreenText=WinGetText("Bildschirmauflösung")
If StringInStr($ScreenText, "Desktop auf 1 und 2 duplizieren", 1, 1) Then
; nur auf 2
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:3]", "{END}")
Else
; 1 trennen
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:3]", "{END}")
EndIf

Sleep(150)
; 3 auswählen
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:1]", "{END}")
Sleep(150)
; auf 3 erweitern
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:3]", "{UP}")
Sleep(150)
ControlClick("Bildschirmauflösung", "", "[CLASS:Button; INSTANCE:4]")
Sleep(500)
Send("{LEFT}")
Sleep(150)
Send("{ENTER}")

Run("C:\Program Files (x86)\Dual Monitor\DualMonitor.exe")
Run("E:\Rainmeter\Rainmeter.exe")
Exit

Case $Button2

ProcessClose("DualMonitor.exe")
ProcessClose("Rainmeter.exe")
Run("rundll32.exe shell32.dll,Control_RunDLL desk.cpl")
Sleep(500)
; WinSetTrans("Bildschirmauflösung", "", 0)
Sleep(150)
; 3 auswählen
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:1]", "{END}")
Sleep(150)

$ScreenText=WinGetText("Bildschirmauflösung")
If StringInStr($ScreenText, "Diesen Bildschirm trennen", 1, 1) Then
; nichts
Else
; 3 trennen
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:3]", "{END}")
Sleep(150)
EndIf

; 2 auswählen
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:1]", "{UP}")
Sleep(150)
; duplizieren 1 und 2
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:3]", "{HOME}")
Sleep(150)
ControlClick("Bildschirmauflösung", "", "[CLASS:Button; INSTANCE:4]")
Sleep(500)
Send("{LEFT}")
Sleep(150)
Send("{ENTER}")
Exit

Case $Button3
ProcessClose("DualMonitor.exe")
ProcessClose("Rainmeter.exe")
Run("rundll32.exe shell32.dll,Control_RunDLL desk.cpl")
Sleep(500)
; WinSetTrans("Bildschirmauflösung", "", 0)
Sleep(150)
$ScreenText=WinGetText("Bildschirmauflösung")
If StringInStr($ScreenText, "Desktop auf 1 und 2 duplizieren", 1, 1) Then
; nur auf 2
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:3]", "{END}")
Else
; 3 auswählen und trennen
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:1]", "{END}")
Sleep(150)
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:3]", "{DOWN}")
EndIf
Sleep(250)
; 1 auswählen
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:1]", "{HOME}")
Sleep(500)
; erweitern auf 1
ControlSend("Bildschirmauflösung", "", "[CLASS:ComboBox; INSTANCE:3]", "{UP}")
Sleep(1000)
ControlClick("Bildschirmauflösung", "", "[CLASS:Button; INSTANCE:4]")
Sleep(500)
Send("{LEFT}")
Sleep(150)
Send("{ENTER}")
Exit

EndSwitch
WEnd

Leider funktioniert der Button1 nicht und zwar wird in dem Fenster statt der Ersten ComboBox der erste Button ausgewählt (obwohl ja eindeutig im Code Combobox steht und die gleiche Art von Code sowohl vorher schon funktioniert hat, als auch bei den anderen Buttons funktioniert).
 
Ich bin ratlos. Bitte um Hilfe :-)
 
EDIT: Am Ende von Button1 sieht es so aus als würde der Button3 in dem von AutoIt erstellten Fenster geklickt werden. Dh zuerst werden die falschen Buttons im Auflösungsfenster ausgewählt, dann das Fenster geschlossen und dann im AutoIt-Auswahl-Fenster der Button3 angeklickt.
 
Außerdem funktioniert Button3 nur manchmal bzw. macht nur die Hälfte (er aktiviert Bildschirm 1 nicht).

[gregster]

Vermutlich kann man das, was du vorhast, auch mit AutoHotKey erreichen (mit mehreren Monitoren kenne ich mich allerdings nicht aus). Wenn Du allerdings mit dem Skript arbeiten willst, dass du gefunden hast, dann kann man dir in der AutoIt-Community wahrscheinlich besser helfen.

[hainz]

Ups, da hab ich die beiden wohl verwechselt
 
Hab es nun Windows-Batch-Files gelöst:

taskkill /F /IM Rainmeter.exe
taskkill /F /IM DualMonitor.exe

C:\Windows\System32\DisplaySwitch.exe /extend

C:\Windows\System32\DisplaySwitch.exe /external
start /d "C:\Program Files (x86)\Dual Monitor" DualMonitor.exe
start /d "E:\Rainmeter" Rainmeter.exe

taskkill /F /IM Rainmeter.exe
taskkill /F /IM DualMonitor.exe

C:\Windows\System32\DisplaySwitch.exe /clone

Die DisplaySwitch-Anweisungen sind hier kurz erklärt:
http://www.deskmodde...orverknüpfungen
 
 
Entschuldigt die Verwechslung.

[jup0815]

Das Problem mit dem Verwechseln hatte ich auch gerade Oh mann  :D:D