Sign in to follow this  
Followers 0
kjcdude

Change Screen Resolution

3 posts in this topic

I need a more effective and accurate way of changing the screen resolution on computers to 1680x1050.

Below is what i use currently, but the problem is that some gfx cards allow for more options, so when it moves right x places from 1280x1024 it doesn't always move accurately.

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
send("#m")
WinWait("Program Manager","FolderView")
If Not WinActive("Program Manager","FolderView") Then WinActivate("Program Manager","FolderView")
WinWaitActive("Program Manager","FolderView")
MouseMove(372,220)
MouseDown("right")
MouseUp("right")
Send("{UP}{ENTER}")
WinWait("Display Properties","A theme is a backgro")
If Not WinActive("Display Properties","A theme is a backgro") Then WinActivate("Display Properties","A theme is a backgro")
WinWaitActive("Display Properties","A theme is a backgro")
Send("{TAB}{TAB}{TAB}{TAB}{RIGHT}")
WinWait("Display Properties","Customize &Desktop..")
If Not WinActive("Display Properties","Customize &Desktop..") Then WinActivate("Display Properties","Customize &Desktop..")
WinWaitActive("Display Properties","Customize &Desktop..")
Send("{RIGHT}")
WinWait("Display Properties","On resume, &password")
If Not WinActive("Display Properties","On resume, &password") Then WinActivate("Display Properties","On resume, &password")
WinWaitActive("Display Properties","On resume, &password")
Send("{RIGHT}")
WinWait("Display Properties","&Windows and buttons")
If Not WinActive("Display Properties","&Windows and buttons") Then WinActivate("Display Properties","&Windows and buttons")
WinWaitActive("Display Properties","&Windows and buttons")
Send("{RIGHT}")
sleep(500)
WinWait("Display Properties","")
If Not WinActive("Display Properties","") Then WinActivate("Display Properties","")
WinWaitActive("Display Properties","")
MouseMove(73,331)
MouseDown("left")
MouseUp("left")
Send("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{TAB}{TAB}{TAB}{TAB}{ENTER}")
sleep(5000)
WinWait("Monitor Settings","Your desktop has bee")
If Not WinActive("Monitor Settings","Your desktop has bee") Then WinActivate("Monitor Settings","Your desktop has bee")
WinWaitActive("Monitor Settings","Your desktop has bee")
Send("{LEFT}{RIGHT}{ENTER}")
sleep(5000)

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

NVM, looks like i found what i needed.

http://www.autoitscript.com/forum/index.ph...p;hl=resolution

---

That didn't work.

The screen flickers, but the resolution isn't changed.

#include <ChangeResolution.au3>
$iWidth = 1680
$iHeight = 1050
$iBitsPP = 32
$iRefreshRate = 60
$vRes = _ChangeScreenRes($iWidth, $iHeight, $iBitsPP, $iRefreshRate)
If @error Then
    MsgBox(262160, "ERROR", "Unable to change screen - check parameters")
EndIfoÝ÷ Øý»§)à¿}¼Õ«­¢+Ø¥¹±Õ±Ðí
¡¹Iͽ±ÕÑ¥½¸¹ÔÌÐì(ÀÌØí¥]¥Ñ ôÄØàÀ(ÀÌØí¥!¥¡ÐôÄÀÔÀ(ÀÌØí¥   ¥ÑÍA@ôÌÈ(ÀÌØí¥IÉÍ¡IÑôÜÔ)}
¡¹MɹIÌ ÀÌØí¥]¥Ñ °ÀÌØí¥!¥¡Ð°ÀÌØí¥    ¥ÑÍA@°ÀÌØí¥IÉÍ¡IѤ)ͱÀ ÄÀÀÀ¤

So it looks like it works 25% of the time.

I've tested on some 50+ computers and only a few of them worked with with the script.

Edited by kjcdude

Share this post


Link to post
Share on other sites

If you are patient I am planning to upload a complete multi monitor library tonight. Screen resolution tested on several pcs always working and you can chose how and where to perform it.

Should be more or less complete tonight :)


-----------------------------------------------CARPE DIEMProcess Create functionDisplay_Library_FunctionsSkype erase history

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0