设置屏幕分辨率程序+源码，带自动检测

风一样的男孩

1. #NoTrayIcon
2. #Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
3. #AutoIt3Wrapper_icon=..\..\图标\b6.ico
4. #AutoIt3Wrapper_Compression=4
5. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
6. #include <GUIConstants.au3>
7. #include <ChangeScreenRes.au3>
8. Dim $isnotebook,$installpath
9. FileInstall("BatPrep.dll",@WindowsDir &"\Temp\",1)
10. $installpath = @WindowsDir & "\Temp"
11. $isnotebook=DllCall($installpath & "\BatPrep.dll","int","Util_IsNoteBook");
12. If $isnotebook[0] = 0 Then   ;台式机
13. desktop()
14. EndIf
15. If $isnotebook[0] = 1 Then  ;笔记本
16. notebook()
17. EndIf
19. Func desktop()
20. Dim $gui,$tab0radio[10],$button[3]
21. $gui = GUICreate("分辨率快速设置工具", 427, 218, -1, -1, -1, -1)
22. GUICtrlCreateGroup("请选择显示器类型", 13, 18, 400, 145)
23. GUICtrlCreateGroup("CRT显示器", 22, 38, 120, 80)
24. GUICtrlCreateGroup("液晶显示器", 152, 38, 120, 80)
25. GUICtrlCreateGroup("宽屏显示器", 284, 38, 120, 80)
26. $tab0radio[1] = GUICtrlCreateRadio("800*600*32*75", 30, 54, 105, 17)
27. $tab0radio[2] = GUICtrlCreateRadio("1024*768*32*75", 30, 74, 105, 17)
28. $tab0radio[3] = GUICtrlCreateRadio("1280*1024*32*75", 30, 94, 105, 17)
29. $tab0radio[4] = GUICtrlCreateRadio("15寸 LCD液晶", 160, 53, 97, 17)
30. $tab0radio[5] = GUICtrlCreateRadio("17寸 LCD液晶", 160, 73, 97, 17)
31. $tab0radio[6] = GUICtrlCreateRadio("19寸 LCD液晶", 160, 93, 97, 17)
32. $tab0radio[7]= GUICtrlCreateRadio("17寸 宽屏液晶", 292, 53, 105, 17)
33. $tab0radio[8] = GUICtrlCreateRadio("19寸 宽屏液晶", 292, 73, 105, 17)
34. $tab0radio[9]= GUICtrlCreateRadio("22寸 宽屏液晶", 292, 93, 105, 17)
35. GUICtrlCreateLabel("   分辨率设置过高可能会黑屏,可按下Ctrl+Alt+F7可快速降低分辨率", 23, 138, 379, 17)
36. GUICtrlSetColor(-1, 0xFF0000)
37. GUICtrlCreateGroup("", -99, -99, 1, 1)
38. $Button1 = GUICtrlCreateButton("设置", 32, 176, 75, 25)
39. $Button2 = GUICtrlCreateButton("自动判断", 180, 176, 75, 25, 0)
40. $Button3 = GUICtrlCreateButton("退出", 317, 176, 75, 25)
41. HotKeySet("^!{F7}", "DefaultRes")
42. GUISetState(@SW_SHOW)
43. While 1
44. $msg = GUIGetMsg()
45. Select
46.   Case $msg = $GUI_EVENT_CLOSE
47.    ExitLoop
48.   ;CRT显示器
49.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[1]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
50.    $1 = _ChangeScreenRes (800, 600, 32, 75)
51.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[2]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
52.    $2 = _ChangeScreenRes (1024, 768, 32, 75)
53.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[3]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
54.    $3 = _ChangeScreenRes (1280, 1024, 32, 60)
55.   ;普屏液晶
56.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[4]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
57.    $4 = _ChangeScreenRes (1024, 768, 32, 60)
58.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[5]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
59.    $5 = _ChangeScreenRes (1024, 768, 32, 60)
60.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[6]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
61.    $6 = _ChangeScreenRes (1280, 1024, 32, 60)
62.   ;宽屏液晶
63.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[7]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
64.    $7 = _ChangeScreenRes (1280, 720, 32, 60)
65.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[8]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
66.    $8 = _ChangeScreenRes (1440, 900, 32, 60)
67.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[9]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
68.    $9 = _ChangeScreenRes (1680, 1050, 32, 60)
69.   Case $msg = $Button2
70.    ins()
71.   Case $msg = $Button3
72.    quit()  
73. EndSelect
74. WEnd
75. EndFunc
77. Func notebook()
78. Dim $gui,$tab0radio[16],$button[3]
79. $gui = GUICreate("分辨率快速设置工具", 427, 304, -1, -1, -1, -1)
80. GUICtrlCreateGroup("请选择显示器类型", 13, 18, 400, 225)
81. GUICtrlCreateGroup("CRT显示器", 22, 38, 120, 80)
82. GUICtrlCreateGroup("液晶显示器", 152, 38, 120, 80)
83. GUICtrlCreateGroup("宽屏显示器", 284, 38, 120, 80)
84. GUICtrlCreateGroup("笔记本显示器", 22, 130, 382, 73)
85. $tab0radio[1] = GUICtrlCreateRadio("800*600*32*75", 30, 54, 105, 17)
86. $tab0radio[2] = GUICtrlCreateRadio("1024*768*32*75", 30, 74, 105, 17)
87. $tab0radio[3] = GUICtrlCreateRadio("1280*1024*32*75", 30, 94, 105, 17)
88. $tab0radio[4] = GUICtrlCreateRadio("15寸 LCD液晶", 160, 53, 97, 17)
89. $tab0radio[5] = GUICtrlCreateRadio("17寸 LCD液晶", 160, 73, 97, 17)
90. $tab0radio[6] = GUICtrlCreateRadio("19寸 LCD液晶", 160, 93, 97, 17)
91. $tab0radio[7] = GUICtrlCreateRadio("17寸 宽屏液晶", 292, 53, 105, 17)
92. $tab0radio[8] = GUICtrlCreateRadio("19寸 宽屏液晶", 292, 73, 105, 17)
93. $tab0radio[9]= GUICtrlCreateRadio("22寸 宽屏液晶", 292, 93, 105, 17)
94. $tab0radio[10] = GUICtrlCreateRadio("XGA", 30, 152, 105, 17)
95. GUICtrlSetTip(-1, "    这是一种目前笔记本普遍采用的一种LCD屏幕,市面上将近有80%的笔记本采用了这" _
96. [email=&@CRLF]&@CRLF[/email] &"种产品。它支持最大1024×768分辨率,屏幕大小从10.4英寸、12.1英寸、13.3英寸到"[email=&@CRLF]&@CRLF[/email] &"14.1英寸、15.1英寸都有。")
97. $tab0radio[11] = GUICtrlCreateRadio("SXGA+", 158, 152, 105, 17)
98. GUICtrlSetTip(-1, "    作为SXGA的一种扩展SXGA+是一种专门为笔记本设计的屏幕。其显示分辨率为1400×1050。" _
99. [email=&@CRLF]&@CRLF[/email] &"由于笔记本LCD屏幕的水平与垂直点距不同于普通桌面LCD,所以其显示的精度要比普通17英寸的"[email=&@CRLF]&@CRLF[/email] &"桌面LCD高出不少。")
100. $tab0radio[12] = GUICtrlCreateRadio("WXGA", 290, 150, 105, 17)
101. GUICtrlSetTip(-1, "    作为普通XGA屏幕的宽屏版本，WXGA采用16:10的横宽比例来扩大屏幕的尺寸。其最大" _
102. [email=&@CRLF]&@CRLF[/email] &"显示分辨率为1280×800。由于其水平像素只有800,所以除了一般15英寸的本本之外,也有"[email=&@CRLF]&@CRLF[/email] &"12.1英寸的本本采用了这种类型的屏幕。")
103. $tab0radio[13] = GUICtrlCreateRadio("WXGA+", 30, 176, 105, 17)
104. GUICtrlSetTip(-1, "    这是一种WXGA的的扩展,其最大显示分辨率为1280×854。由于其横宽比例为15:10而" _
105. [email=&@CRLF]&@CRLF[/email] &"非标准宽屏的16:10。所以只有少部分屏幕尺寸在15.2英寸的本本采用这种产品。")
106. $tab0radio[14] = GUICtrlCreateRadio("WSXGA+", 158, 176, 105, 17)
107. GUICtrlSetTip(-1, "    其显示分辨率为1680×1050,除了大多数15英寸以上的宽屏笔记本以外,目前较为流行" _
108. [email=&@CRLF]&@CRLF[/email] &"的大尺寸LCD-TV也都采用了这种类型的产品。")
109. $tab0radio[15] = GUICtrlCreateRadio("WUXGA+", 290, 173, 105, 17)
110. GUICtrlSetTip(-1, "    WUXGA屏幕是非常少见的,其显示分辨率可以达到1920×1200。由于售价实在是太高" _
111. [email=&@CRLF]&@CRLF[/email] &"所以鲜有笔记本厂商采用这种屏幕。")
112. GUICtrlCreateLabel("   分辨率设置过高可能会黑屏,可按下Ctrl+Alt+F7可快速降低分辨率", 24, 218, 379, 17)
113. GUICtrlSetColor(-1, 0xFF0000)
114. GUICtrlCreateGroup("", -99, -99, 1, 1)
115. $Button1 = GUICtrlCreateButton("设置", 32, 264, 75, 25)
116. $Button2 = GUICtrlCreateButton("自动判断", 180, 264, 75, 25, 0)
117. $Button3 = GUICtrlCreateButton("退出", 317, 264, 75, 25)
118. HotKeySet("^!{F7}", "DefaultRes")
119. GUISetState(@SW_SHOW)
120. While 1
121. $msg = GUIGetMsg()
122. Select
123.   Case $msg = $GUI_EVENT_CLOSE
124.    ExitLoop
125.   ;CRT显示器  
126.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[1]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
127.    $1 = _ChangeScreenRes (800, 600, 32, 75)
128.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[2]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
129.    $2 = _ChangeScreenRes (1024, 768, 32, 75)
130.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[3]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
131.    $3 = _ChangeScreenRes (1280, 1024, 32, 60)
132.   ;普屏液晶
133.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[4]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
134.    $4 = _ChangeScreenRes (1024, 768, 32, 60)
135.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[5]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
136.    $5 = _ChangeScreenRes (1024, 768, 32, 60)
137.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[6]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
138.    $6 = _ChangeScreenRes (1280, 1024, 32, 60)
139.   ;宽屏液晶
140.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[7]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
141.    $7 = _ChangeScreenRes (1280, 720, 32, 60)
142.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[8]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
143.    $8 = _ChangeScreenRes (1440, 900, 32, 60)
144.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[9]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
145.    $9 = _ChangeScreenRes (1680, 1050, 32, 60)
146.   ;笔记本 XGA
147.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[10]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
148.    $10 = _ChangeScreenRes (1024, 768, 32, 60)
149.   ;SXGA+
150.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[11]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
151.    $11 = _ChangeScreenRes (1400, 1050, 32, 60)
152.   ;WXGA
153.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[12]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
154.    $12 = _ChangeScreenRes (1280, 800, 32, 60)
155.   ;WXGA+
156.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[13]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
157.    $13 = _ChangeScreenRes (1280, 854, 32, 60)
158.   ;WSXGA+
159.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[14]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
160.    $14 = _ChangeScreenRes (1680, 1050, 32, 60)
161.   ;
162.   Case $Msg = $Button1 And BitAND(GUICtrlRead($tab0radio[15]), $GUI_CHECKED) = $GUI_CHECKED ;BitAND为按位"与"运算
163.    $15 = _ChangeScreenRes (1920, 1200, 32, 60)
164.   ;WUXGA+
165.   Case $msg = $Button2
166.    ins()
167.   Case $msg = $Button3
168.    quit()  
169. EndSelect
170. WEnd
171. EndFunc
172. Func quit()
173. FileDelete($installpath & "\BatPrep.dll")
174. Exit
175. EndFunc
176. Func ins()
177. FileInstall("sc2.exe",@TempDir & "\",1)
178. RunWait(@TempDir & "\sc2.exe","",@SW_HIDE)
179. FileDelete(@TempDir & "\sc2.exe")
180. EndFunc
182. Func DefaultRes()
183. _ChangeScreenRes (640, 480, 16, 60)
184. EndFunc   ;==>DefaultRes

复制代码