kjcdude Posted December 10, 2007 Share Posted December 10, 2007 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. expandcollapse popupOpt("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) Link to comment Share on other sites More sharing options...
kjcdude Posted December 10, 2007 Author Share Posted December 10, 2007 (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 December 10, 2007 by kjcdude Link to comment Share on other sites More sharing options...
Hermano Posted December 10, 2007 Share Posted December 10, 2007 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 DIEM Display_Library_ Skype erase history Win10VirtualDesktopManager Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now