Jump to content
Sign in to follow this  
kjcdude

Change Screen Resolution

Recommended Posts

kjcdude

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
kjcdude

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

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.