AM电脑吧 - Win10精简版系统_Win11精简版_Win7旗舰版

Yes
查看: 10926|回复: 18
收起左侧

[其它] AMcomputer分辨率设置工具(AU3源码)

[复制链接]
ampc8110

签到天数: 3 天

[LV.2]二兆带宽

id fuldho 发表于 2011-10-22 18:49:58
20111018180700.jpg


20111018180811.jpg

#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

成品:
分辨率设置工具_V1.0.rar (397.96 KB, 下载次数: 584)

评分

参与人数 3电脑 +10 硬盘 +12 收起 理由
ampc86 + 2 + 10 赞一个!
ampc82 Forget + 6 赞一个!
ampc85 水铃 + 2 + 2 支持年老的原创!

本文地址: https://www.ampc8.com/thread-4104-1-1.html
上一篇:母盘2011.10.04的问题
下一篇:卡巴斯基又发现德国第二款“联邦木马”
回复

举报

ampc839210

签到天数: 271 天

[LV.8]八秒开机

id trhy1234567 发表于 2016-10-28 19:26:12
支持,谢谢
回复

举报

ampc837848

签到: Lazy

id 1834782466 发表于 2016-02-20 03:55:42
谢谢分享,学习了。
回复

举报

ampc88849

签到天数: 3 天

[LV.2]二兆带宽

id [帐号异常] 发表于 2016-01-18 15:35:57
收藏了,封装系统用,哈哈。现在晚上,但也可以用上。
回复

举报

ampc810379

签到天数: 3919 天

[LV.Master]顶级配置

id chzj589 发表于 2015-08-10 22:45:45
谢谢分享!学习了!缺少<ChangeScreenRes.au3>
回复

举报

ampc823649

签到天数: 3 天

[LV.2]二兆带宽

id zpmc123 发表于 2015-07-22 12:32:38 手机发帖
很不错哦快来下载支持一下回帖是美德
回复

举报

ampc823649

签到天数: 3 天

[LV.2]二兆带宽

id zpmc123 发表于 2015-07-19 12:16:04 手机发帖
年老痴呆很牛
回复

举报

ampc822003

签到天数: 3 天

[LV.2]二兆带宽

id 影子天团 发表于 2014-05-17 23:16:21
好吧,回复一个表示。。。。你懂的
回复

举报

ampc81146

签到天数: 4 天

[LV.2]二兆带宽

id dsming 发表于 2011-11-29 13:34:52
支持年老新作品.
回复

举报

ampc8638

签到天数: 2 天

[LV.1]一个记事本

id aming 发表于 2011-10-27 12:38:00
想要学习就不贵
回复

举报

您需要登录后才可以回帖 登录 | 验证注册

Powered by AMpc8.Com (晋ICP备13003365号ghs 晋公网安备 14090202000112号 |GMT+8, 2024/3/29 14:31 |
快速回复 返回顶部 返回列表