AMcomputer分辨率设置工具(AU3源码)

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=1.ico
#AutoIt3Wrapper_outfile=Resolution_V1.0.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=https://www.ampc8.com/
#AutoIt3Wrapper_Res_Description=AMcomputer分辨率设置工具
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=All Right Reserved
#AutoIt3Wrapper_Res_Field=CompanyName|AM电脑吧
#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <ChangeScreenRes.au3>
#include <ComboConstants.au3>
#include <ButtonConstants.au3>
$gui1 = GUICreate("分辨率设置工具", 430, 285,-1,-1)
        GUICtrlCreateLabel("AMcomputer系统封装_辅助工具",130,15,200,17)
        GUICtrlSetColor(-1, 0x008000)
        GUICtrlCreateGroup("分辨率", 22, 33, 386, 175)
        $radio1 = GUICtrlCreateRadio("1024*768*32(4:3)", 100, 54, 140, 17)
        $radio2 = GUICtrlCreateRadio("1400*1050*32(4:3)", 100, 74, 140, 17)
        $radio3 = GUICtrlCreateRadio("1280*800*32(16:10)", 100, 94, 140, 17)
$radio4 = GUICtrlCreateRadio("1440*900*32(16:10)", 100, 114, 140, 17)
$radio5 = GUICtrlCreateRadio("1440*900*32(16:10)", 100, 134, 140, 17)
$radio6 = GUICtrlCreateRadio("1680*1050*32(16:10)", 100, 154, 140, 17)
        $radio7 = GUICtrlCreateRadio("1920*1200*32(16:10)", 100,174, 140, 17)
        $radio8 = GUICtrlCreateRadio("1280*1024*32(4:3)", 260, 54, 140, 17)
        $radio9 = GUICtrlCreateRadio("1280*854*32(15:10)", 260, 74, 140, 17)
$radio10 = GUICtrlCreateRadio("1280*720*32(16:9)",260, 94, 140, 17)
        $radio11 = GUICtrlCreateRadio("1366*768*32(16:9)", 260, 114, 140, 17)
$radio12 = GUICtrlCreateRadio("1360*768*32(16:9)", 260, 134, 140, 17)
$radio13 = GUICtrlCreateRadio("1680*945*32(16:9)", 260, 154, 140, 17)
        $radio14 = GUICtrlCreateRadio("1680*945*32(16:9)", 260, 174, 140, 17)
        GUICtrlCreateLabel("CTR(液晶)",40, 57, 60, 17)
        GUICtrlSetColor(-1, 0x00008B)
        GUICtrlCreateLabel("15吋液晶",40, 97, 60, 17)
        GUICtrlSetColor(-1, 0x00008B)
        GUICtrlCreateLabel("17吋液晶",40, 117, 60, 17)
        GUICtrlSetColor(-1, 0x00008B)
        GUICtrlCreateLabel("19吋液晶",40, 137, 60, 17)
        GUICtrlSetColor(-1, 0x00008B)
        GUICtrlCreateLabel("22吋液晶",40, 157, 60, 17)
        GUICtrlSetColor(-1, 0x00008B)
        GUICtrlCreateLabel("24吋液晶",40, 177, 60, 17)
        GUICtrlSetColor(-1, 0x00008B)
        GUICtrlCreateLabel("按下Ctrl+Alt+Esc可快速降低分辨率", 30, 223, 200, 17)
GUICtrlSetColor(-1, 0xFF00FF)
        $Combo = GUICtrlCreateCombo("", 278, 218, 60, 20)
        GUICtrlSetData(-1, "60Hz|75Hz|85Hz", "60Hz")
        GUICtrlCreateLabel("刷新频率",340,221,60,17)
        GUICtrlSetState($radio1, $GUI_CHECKED)
$Button1 = GUICtrlCreateButton("设置", 180, 254, 75, 22)
        $Button2 = GUICtrlCreateButton("退出", 310, 254, 75, 22)
        $Button3 = GUICtrlCreateButton("图形测试", 50, 254, 75, 22)
        HotKeySet("^!{Esc}", "DefaultRes")
        GUISetState(@SW_SHOW)
        $gui2 = GUICreate("AMcomputer分辨率设置工具", 430, 385,-1,-1)
        GUICtrlCreateLabel("分辨率正确时你看到的是正圆形", 125, 337, 195, 25)
        GUICtrlSetColor(-1, 0xFF00FF)
        FileInstall("00.jpg", @SystemDir & "\00.jpg", 1)
        $pic1 = GUICtrlCreatePic(@SystemDir & "\00.jpg", 0, 0, 430, 323)
        $Button4 = GUICtrlCreateButton("返回", 320, 354, 75, 22)        
While 1
$msg = GUIGetMsg()
Select
  Case $msg = $GUI_EVENT_CLOSE
                FileDelete(@SystemDir & "\00.jpg")
                         Exit
                Case $msg = $Button1
    _res()
  Case $msg = $Button2
                FileDelete(@SystemDir & "\00.jpg")
    Exit
                Case $msg = $Button3
                GUISetState(@SW_HIDE,$gui1)
                GUISetState(@SW_SHOW,$gui2)
                Case $msg = $Button4
                GUISetState(@SW_HIDE,$gui2)
                GUISetState(@SW_SHOW,$gui1)  
                     
        EndSelect
  WEnd
Func _res()
          $Hz = GUICtrlRead($Combo)
If GUICtrlRead($radio1) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1024,768,32,$Hz)
        EndIf
If GUICtrlRead($radio2) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1400,1050,32,$Hz)
        EndIf
If GUICtrlRead($radio3) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1280,800,32,$Hz)
        EndIf
If GUICtrlRead($radio4) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1440,900,32,$Hz)
        EndIf
If GUICtrlRead($radio5) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1440,900,32,$Hz)
        EndIf
If GUICtrlRead($radio6) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(680,1050,32,$Hz)
        EndIf
If GUICtrlRead($radio7) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1920,1200,32,$Hz)
        EndIf
If GUICtrlRead($radio8) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1280,1024,32,$Hz)
        EndIf
If GUICtrlRead($radio9) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1280,854,32,$Hz)
        EndIf
If GUICtrlRead($radio10) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1280,720,32,$Hz)
        EndIf
If GUICtrlRead($radio11) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1366,768,32,$Hz)
        EndIf
If GUICtrlRead($radio12) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1360,768,32,$Hz)
        EndIf
If GUICtrlRead($radio13) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1680,945,32,$Hz)
        EndIf
If GUICtrlRead($radio14) = $GUI_CHECKED Then
                $1 = _ChangeScreenRes(1680,945,32,$Hz)
        EndIf
EndFunc   ;==>_res
Func DefaultRes()
_ChangeScreenRes (640, 480, 16, 60)
EndFunc   ;==>DefaultRes

成品：

支持，谢谢

谢谢分享，学习了。

收藏了，封装系统用，哈哈。现在晚上，但也可以用上。

谢谢分享！学习了！缺少<ChangeScreenRes.au3>

很不错哦快来下载支持一下回帖是美德

年老痴呆很牛

好吧，回复一个表示。。。。你懂的

支持年老新作品.

想要学习就不贵