秋无痕常用软件全功能装机光盘 2024年秋天版 秋无痕一键优化Windows 10专版 秋无痕一键优化Windows 11专版 秋无痕论坛官方QQ群
获取无痕币和提高等级


上一主题下一主题
主题 : SystemInfo Test        By Fengwuji
复制链接 | 浏览器收藏 | 打印
If you put your heart into it,nothing is impossible！
级别: 技术组成员

作者资料 发送短消息 QQ联系
UID: 85553
精华: 2
发帖: 124
威望: 768 点
无痕币: 3522 WHB
贡献值: 0 点
在线时间: 171(时)
注册时间: 2009-06-27
最后登录: 2013-12-09
0  发表于: 2010-10-17 01:19｜请将IE368导航设置为首页，支持论坛
只看楼主 | 小 中 大

0 SystemInfo Test        By Fengwuji

管理提醒： 本帖被 秋无痕 执行加亮操作(2010-10-17)
上图:




功能自己看了~~~~

风无忌

2010年10月17日

源码：（CPU部分参考网上资料）

复制代码
  2. #Region AutoIt3Wrapper 预编译参数(常用参数)
  3. #AutoIt3Wrapper_Icon= D:\Downloads\win7_icons\cool0 Icon 152.ico    ;图标,支持EXE,DLL,ICO
  4. #AutoIt3Wrapper_OutFile=         ;输出文件名
  5. #AutoIt3Wrapper_OutFile_Type=exe       ;文件类型
  6. #AutoIt3Wrapper_Compression=4        ;压缩等级
  7. #AutoIt3Wrapper_UseUPX=y          ;使用压缩
  8. #AutoIt3Wrapper_Res_Comment= SystemInfo Test By FengWuji ;注释
  9. #AutoIt3Wrapper_Res_Description=检测系统信息   ;详细信息
  10. #AutoIt3Wrapper_Res_FileVersion= 1.0.0      ;文件版本
  11. ;#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p   ;自动更新版本
  12. #AutoIt3Wrapper_Res_LegalCopyright= 风无忌     ;版权
  13. #AutoIt3Wrapper_Change2CUI=N                       ;修改输出的程序为CUI(控制台程序)
  14. ;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%  ;自定义资源段
  15. ;#AutoIt3Wrapper_Run_Tidy=                       ;脚本整理
  16. ;#AutoIt3Wrapper_Run_Obfuscator=            ;代码迷惑
  17. ;#AutoIt3Wrapper_Run_AU3Check=         ;语法检查
  18. ;#AutoIt3Wrapper_Run_Before=         ;运行前
  19. ;#AutoIt3Wrapper_Run_After=         ;运行后
  20. #EndRegion AutoIt3Wrapper 预编译参数(常用参数)
  21. #cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
  22.  
  23.  Au3 版本:                          3.3.6.1
  24.  脚本作者:                          FengWuji
  25.  Email:           wzh880801@163.com
  26.  QQ/TM:           545144121
  27.  脚本版本:                          1.0.0
  28.  脚本功能:          Systeminfo Test
  29.  
  30. #ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
  31. #include <ButtonConstants.au3>
  32. #include <GUIConstantsEx.au3>
  33. #include <ProgressConstants.au3>
  34. #include <StaticConstants.au3>
  35. #include <WindowsConstants.au3>
  36. #Region ### START Koda GUI section ### Form=g:\auouit 3\我写的程序\form7.kxf
  37. Global $IDLETIME, $KERNELTIME, $USERTIME
  38. Global $StartIdle, $StartKernel, $StartUser
  39. Global $EndIdle, $EndKernel, $EndUser
  40. FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
  41. FileInstall("vista_style.skf", @TempDir & "\vista_style.skf", 1)
  42. $Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll")
  43. $Form1 = GUICreate("SystemInfo Test                            By FengWuji", 493, 442, -1, -1)
  44. DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
  45. DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
  46. DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", @TempDir & "\vista_style.skf")
  47. DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Form1, "int", 25)
  48. DllCall($Dll, "int:cdecl", "ApplySkin")
  49. $Label1 = GUICtrlCreateLabel("", 160, 8, 196, 17)
  50. $Group1 = GUICtrlCreateGroup("操作系统信息", 24, 32, 449, 121)
  51. $Label2 = GUICtrlCreateLabel("操作系统:", 48, 56, 55, 17)
  52. $Label3 = GUICtrlCreateLabel("", 157, 56, 175, 17)
  53. $Label4 = GUICtrlCreateLabel("Service Pack:", 48, 84, 78, 17)
  54. $Label5 = GUICtrlCreateLabel("", 157, 84, 116, 17)
  55. $Label6 = GUICtrlCreateLabel("系统构架:", 48, 113, 55, 17)
  56. $Label7 = GUICtrlCreateLabel("X86", 157, 113, 63, 17)
  57. GUICtrlCreateGroup("", -99, -99, 1, 1)
  58. $Group2 = GUICtrlCreateGroup("当前用户信息", 24, 168, 449, 57)
  59. $Label8 = GUICtrlCreateLabel("计算机名:", 40, 192, 55, 17)
  60. $Label9 = GUICtrlCreateLabel("登录用户名:", 248, 192, 67, 17)
  61. $Label10 = GUICtrlCreateLabel("", 109, 192, 90, 17)
  62. $Label11 = GUICtrlCreateLabel("", 332, 192, 100, 17)
  63. GUICtrlCreateGroup("", -99, -99, 1, 1)
  64. $Group3 = GUICtrlCreateGroup("其它信息", 24, 240, 449, 137)
  65. $Label12 = GUICtrlCreateLabel("屏幕分辨率:", 40, 264, 67, 17)
  66. $Label13 = GUICtrlCreateLabel("", 119, 264, 58, 17)
  67. $Label14 = GUICtrlCreateLabel("屏幕色深:", 40, 302, 55, 17)
  68. $Label15 = GUICtrlCreateLabel("", 120, 302, 44, 17)
  69. $Label16 = GUICtrlCreateLabel("屏幕刷新率:", 39, 340, 67, 17)
  70. $Label17 = GUICtrlCreateLabel("", 120, 340, 56, 17)
  71. $Group4 = GUICtrlCreateGroup("内存信息", 200, 256, 265, 105)
  72. $Label18 = GUICtrlCreateLabel("内存使用率:", 208, 275, 67, 17)
  73. $Progress1 = GUICtrlCreateProgress(303, 272, 113, 17)
  74. GUICtrlSetData(-1, 80)
  75. $Label19 = GUICtrlCreateLabel("CPU使用率:", 208, 301, 91, 17)
  76. $Progress2 = GUICtrlCreateProgress(303, 299, 113, 17)
  77. GUICtrlSetData(-1, 50)
  78. $Label20 = GUICtrlCreateLabel("虚拟内存使用率:", 208, 328, 91, 17)
  79. $Progress3 = GUICtrlCreateProgress(303, 327, 113, 17)
  80. GUICtrlSetData(-1, 10)
  81. $Label21 = GUICtrlCreateLabel("", 425, 274, 24, 17)
  82. $Label22 = GUICtrlCreateLabel("", 425, 301, 24, 17)
  83. $Label23 = GUICtrlCreateLabel("", 425, 329, 24, 17)
  84. GUICtrlCreateGroup("", -99, -99, 1, 1)
  85. GUICtrlCreateGroup("", -99, -99, 1, 1)
  86. $Button1 = GUICtrlCreateButton("确定(&O)", 128, 392, 89, 25)
  87. $Button2 = GUICtrlCreateButton("取消(&E)", 265, 392, 89, 25)
  88. GUISetState(@SW_SHOW)
  89. #EndRegion ### END Koda GUI section ###
  91. Time()
  92. CheckOS()
  93. UserInfo()
  94. OtherInfo()
  95. MemInfo()
  96. _CRR_Main()
  97. AdlibRegister("time")
  98. AdlibRegister('MemInfo', 10)
  99. AdlibRegister('_TrayTooltip')
  100. While 1
  101.  $nMsg = GUIGetMsg()
  102.  Switch $nMsg
  103.   Case $GUI_EVENT_CLOSE
  104.    Exit
  105.   Case $Button1, $Button2
  106.    Exit
  107.  EndSwitch
  108. WEnd
  110. ;时间函数
  111. Func Time()
  112.  Local $wday
  113.  Switch @WDAY
  114.   Case 1
  115.    $wday = "星期天"
  116.   Case 2
  117.    $wday = "星期一"
  118.   Case 3
  119.    $wday = "星期二"
  120.   Case 4
  121.    $wday = "星期三"
  122.   Case 5
  123.    $wday = "星期四"
  124.   Case 6
  125.    $wday = "星期五"
  126.   Case 7
  127.    $wday = "星期六"
  128.  EndSwitch
  129.  Local $time = @YEAR & "年" & @MON & "月" & @MDAY & "日" & " " & $wday & " " & @HOUR & ":" & @MIN & ":" & @SEC
  130.  GUICtrlSetData($Label1, $time)
  131. EndFunc   ;==>Time
  132. Func CheckOS()
  133.  Local $Osversion = @OSVersion
  134.  Switch $Osversion
  135.   Case "WIN_2008R2"
  136.    GUICtrlSetData($Label3, "Microsoft Windows 2008R2")
  137.   Case "WIN_7"
  138.    GUICtrlSetData($Label3, "Microsoft Windows 7")
  139.   Case "WIN_2008"
  140.    GUICtrlSetData($Label3, "Microsoft Windows 2008")
  141.   Case "WIN_VISTA"
  142.    GUICtrlSetData($Label3, "Microsoft Windows Vista")
  143.   Case "WIN_2003"
  144.    GUICtrlSetData($Label3, "Microsoft Windows 2003")
  145.   Case "WIN_XP"
  146.    GUICtrlSetData($Label3, "Microsoft Windows XP")
  147.   Case "WIN_XPe"
  148.    GUICtrlSetData($Label3, "Microsoft Windows XPE")
  149.   Case "WIN_2000"
  150.    GUICtrlSetData($Label3, "Microsoft Windows 2000")
  151.  EndSwitch
  152.  GUICtrlSetData($Label5, @OSServicePack)
  153.  GUICtrlSetData($Label7, @OSArch)
  154. EndFunc   ;==>CheckOS
  155. Func UserInfo()
  156.  GUICtrlSetData($Label10, @ComputerName)
  157.  GUICtrlSetData($Label11, @UserName)
  158. EndFunc   ;==>UserInfo
  159. Func OtherInfo()
  160.  GUICtrlSetData($Label13, @DesktopWidth & "×" & @DesktopHeight)
  161.  GUICtrlSetData($Label15, @DesktopDepth & " 位")
  162.  GUICtrlSetData($Label17, @DesktopRefresh & " 赫兹")
  163. EndFunc   ;==>OtherInfo
  164. Func MemInfo()
  165.  Local $array = MemGetStats()
  166.  GUICtrlSetData($Progress1, $array[0])
  167.  GUICtrlSetData($Label21, $array[0] & '%')
  168.  GUICtrlSetData($Progress3, Round(1 - $array[6] / $array[5], 1))
  169.  GUICtrlSetData($Label23, Round(1 - $array[6] / $array[5], 1) & '%')
  170. EndFunc   ;==>MemInfo
  171. Func _TrayTooltip()
  172.  TraySetToolTip(GUICtrlRead($Label1) & @LF & "                     By 风无忌")
  173. EndFunc   ;==>_TrayTooltip
  174. Func _CRR_Main()
  175.  $IDLETIME = DllStructCreate("dword;dword")
  176.  $KERNELTIME = DllStructCreate("dword;dword")
  177.  $USERTIME = DllStructCreate("dword;dword")
  178.  AdlibRegister("_TimerProc")
  179. EndFunc   ;==>_CRR_Main
  180. Func _TimerProc()
  181.  _GetSysTime($EndIdle, $EndKernel, $EndUser)
  182.  _CPUCalc()
  183.  _GetSysTime($StartIdle, $StartKernel, $StartUser)
  184. EndFunc   ;==>_TimerProc
  185. Func _GetSysTime(ByRef $sIdle, ByRef $sKernel, ByRef $sUser)
  186.  DllCall("kernel32.dll", "int", "GetSystemTimes", "ptr", DllStructGetPtr($IDLETIME), _
  187.    "ptr", DllStructGetPtr($KERNELTIME), _
  188.    "ptr", DllStructGetPtr($USERTIME))
  189.  $sIdle = DllStructGetData($IDLETIME, 1)
  190.  $sKernel = DllStructGetData($KERNELTIME, 1)
  191.  $sUser = DllStructGetData($USERTIME, 1)
  192. EndFunc   ;==>_GetSysTime
  193. Func _CPUCalc()
  194.  Local $iSystemTime, $iTotal, $iCalcIdle, $iCalcKernel, $iCalcUser
  195.  $iCalcIdle = ($EndIdle - $StartIdle)
  196.  $iCalcKernel = ($EndKernel - $StartKernel)
  197.  $iCalcUser = ($EndUser - $StartUser)
  198.  $iSystemTime = ($iCalcKernel + $iCalcUser)
  199.  $iTotal = Int(($iSystemTime - $iCalcIdle) * (100 / $iSystemTime))
  200.  Local $CPU = $iTotal
  201.  If $CPU & "%" <> GUICtrlRead($Label22) And ($CPU >= 0 And $CPU <= 100) Then
  202.   GUICtrlSetData($Progress2, $CPU)
  203.   GUICtrlSetData($Label22, $CPU & "%")
  204.  EndIf
  205. EndFunc   ;==>_CPUCalc

下载地址:
http://u.115.com/file/f547c38d81
[ 此帖被风无忌在2010-10-17 14:50重新编辑 ]
附件： SystemInfo Test.haozip01.zip (196 K) 下载次数:7
附件： SystemInfo Test.haozip02.zip (196 K) 下载次数:5
附件： SystemInfo Test.haozip03.zip (196 K) 下载次数:5
附件： SystemInfo Test.haozip04.zip (112 K) 下载次数:5
附件： SystemInfo Test.zip (3 K) 下载次数:6
附件： SystemInfo Test.zip_好压分卷说明.txt (1 K) 下载次数:4
本帖最近评分记录：
  • 无痕币:+50(秋无痕) 原创内容
    • 无限追求，超越自我！
    来自： 评分选定 顶端
    回复 引用 评分 分享
    级别: 七朵秋菊
    作者资料 发送短消息
    UID: 99415
    精华: 0
    发帖: 1989
    威望: 31322 点
    无痕币: 18620 WHB
    贡献值: 0 点
    在线时间: 744(时)
    注册时间: 2010-07-20
    最后登录: 2025-02-05
    1  发表于: 2013-04-19 17:59｜请将IE368导航设置为首页，支持论坛
    只看该作者 | 小 中 大

    了解学习一下了，感谢分享了
    来自： 评分选定 顶端
    回复 引用 评分 分享
    上一主题下一主题
     秋无痕论坛 » 『秋无痕原创作品发布』
    Total 30.047160(s) query 4, Time now is:02-05 15:51, Gzip enabled 粤ICP备07514325号-1
    Powered by PHPWind v7.3.2 Certificate Code © 2003-13 秋无痕论坛