Dim $var1
Dim $var2
Dim $result1
Dim $result2
Run("Rundll32 Shell32.dll,Control_RunDLL desk.cpl")
WinWaitActive("Eigenschaften von Anzeige")
Send("^+{TAB}")
WinWaitActive("Eigenschaften von Anzeige", "&Windows-Desktop auf diesem Monitor erweitern")
$var2=ControlCommand("Eigenschaften von Anzeige", "", "ComboBox1", "GetCurrentSelection", "")
$result1=StringLeft($var2, 1)
If $result1="1" Then
ControlCommand("Eigenschaften von Anzeige", "", "ComboBox1", "SetCurrentSelection",1)
Else
ControlCommand("Eigenschaften von Anzeige", "", "ComboBox1", "SetCurrentSelection",0)
EndIf
ControlCommand("Eigenschaften von Anzeige", "&Windows-Desktop auf diesem Monitor erweitern", "Button4", "Check", "")
ControlCommand("Eigenschaften von Anzeige", "&Dieses Gerät als primären Monitor verwenden", "Button3", "Check", "")
$var1=ControlCommand("Eigenschaften von Anzeige", "", "ComboBox1", "GetCurrentSelection", "")
$result2=StringLeft($var1, 1)
If $result2="2" Then
ControlCommand("Eigenschaften von Anzeige", "", "ComboBox1", "SetCurrentSelection",0)
Else
ControlCommand("Eigenschaften von Anzeige", "", "ComboBox1", "SetCurrentSelection",1)
EndIf
ControlCommand("Eigenschaften von Anzeige", "&Windows-Desktop auf diesem Monitor erweitern", "Button4", "Uncheck", "")
ControlCommand("Eigenschaften von Anzeige", "&Dieses Gerät als primären Monitor verwenden", "Button3", "Uncheck", "")
ControlClick("Eigenschaften von Anzeige", "OK", 1)