硬件信息查看工具 1.0
#include <GUIConstants.au3>电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！$ y$ C" |, O' t( K; `
#NoTrayIcon
1 W9 k% v$ R+ e红苹果工作室
1 g8 G& E2 U7 M: m9 r2 f9 ?红苹果工作室+ Y& R! E: Z4 V; D
$g_szVersion = "info"电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计# Q2 D+ Y- J8 v/ n9 O, I
If WinExists($g_szVersion) Then Exit电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计9 k0 ~ `" a% F6 a' Y
AutoItWinSetTitle($g_szVersion)
; u) C( L/ n. D( Z电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！
, U0 P$ B" \% m电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！Opt('GUICloseOnESC', 0)
W( ^9 u4 C& A# e1 ~5 }& \电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！! A) d4 ?% t0 N1 `: y0 r
) i. \3 K5 {2 G, j
GUICreate ("硬件信息查看器",500,350)
& a+ E3 v/ b; f; ^电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！
U% \% G4 m* P7 h( _红苹果工作室
# T. F% W8 N# Z! i. k, B Y, Z% a1 m电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计GUICtrlCreateLabel("B I O S：",10,30,60,30)
! H/ c* l b; J+ P: H电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计GUICtrlSetColor(-1,0x0000ff)redapple2008.5d6d.com+ I* j: r+ e1 `) Y. R
$bios=GUICtrlCreateInput("",80,20,250,25)
1 v* L& ~9 V' U7 H1 x电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！
/ V. V$ O G; i& x% C9 J/ Q: f电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！GUICtrlCreateLabel("主 板：",10,70,60,30)
4 u% g- U) r, h0 M4 J1 |4 tGUICtrlSetColor(-1,0x0000ff)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计7 T5 O: Y" I5 X/ R' E: a _
$board=GUICtrlCreateInput("",80,60,250,25)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！ @5 J( n3 d0 C/ X) \, `! ?' E% m
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！" C5 T- z* y( G' M2 {, w
GUICtrlCreateLabel("C P U：",10,110,60,30)
8 n$ @" t, W/ T$ T# i/ i7 n( J电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计GUICtrlSetColor(-1,0x0000ff)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计( P7 ~) L) @' S, |
$cpu=GUICtrlCreateInput("",80,100,250,25)) i) I7 e, K* o
! n- ~4 O. o5 X9 y& ]电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计GUICtrlCreateLabel("显 卡：",10,150,60,30)红苹果工作室! f% j# B, h0 o' J; e x2 Y
GUICtrlSetColor(-1,0x0000ff)
+ q! K5 |( E. W9 x& A$display=GUICtrlCreateInput("",80,140,250,25)
3 a( t8 j$ I9 M5 Y$ y" k2 X4 _红苹果工作室* n9 }, `* X) F/ B( q
GUICtrlCreateLabel("声 卡：",10,190,60,30)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计/ [8 m9 G# R/ s& P! k. z- c
GUICtrlSetColor(-1,0x0000ff)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$ l# A+ |, q" I5 X2 o
$sound=GUICtrlCreateInput("",80,180,250,25). n7 X7 b- l% T1 c1 t5 A2 W% J- t
红苹果工作室" [1 f0 Y- g4 S7 _1 y8 I, R
GUICtrlCreateLabel("网 卡：",10,230,60,30)
1 `* z% w) `$ }& x' t p电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！GUICtrlSetColor(-1,0x0000ff)
. i' r" l' I# t) d红苹果工作室$network=GUICtrlCreateInput("",80,220,250,25)) ~5 T# ?4 R( S0 W4 ^
3 G- k! }! D* F- e8 y+ X, `电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计GUICtrlCreateLabel("内 存：",10,270,60,30). y) r# ^. }) N( s0 Y& n
GUICtrlSetColor(-1,0x0000ff)
7 i$ b& V; H# l$ t: U! D: {3 q红苹果工作室$mem=GUICtrlCreateInput("",80,260,250,25)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计& u2 V1 l' D: t* Y
红苹果工作室" I& ^6 [) f' Q4 H* h
GUICtrlCreateLabel("操作系统：",10,310,60,30)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计2 K; s3 }9 |; n
GUICtrlSetColor(-1,0x0000ff)
/ [( @" D. R# w) D+ s电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$os=GUICtrlCreateInput("",80,300,250,25)
O8 \6 H* {- {5 w: t! o( a% q电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计
) G6 X( x! l9 R- D红苹果工作室GUISetState( )
2 D. r5 J/ b# X9 ` D! Aredapple2008.5d6d.cominfo()
" Z* t i- Z2 F( J9 |redapple2008.5d6d.com电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计* W' t+ C3 T& @5 _4 R* [6 O
While 1
: D3 F) o( b! Y) S电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！ $msg = GUIGetMsg()电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计: O2 i" K4 ^! K- ]2 q' x( n
- P( C* Q) H( Z电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！ Select
. N, `5 P, c( s- kredapple2008.5d6d.com
. N& C* H9 J E" Q case $msg = $GUI_EVENT_CLOSE
& V: @8 Z# {6 D电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！ ExitLoop
; J! W8 G4 q; w& l0 ?6 _电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！ EndSelect
+ c) E4 b8 ^1 Y; ?电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！Wend
8 S( H! @/ b1 G' P9 M电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计
0 v- I/ R6 o# C9 r* M( G1 `' J. T$ o; v. s: m红苹果工作室
- N' `5 Z% z# Q7 [2 e$ E MFunc info()红苹果工作室, S! a, f# k5 ?& ^' w
- `1 e/ P; Y5 ^电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$objWMIService = objget("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
& [; d1 E' J6 _; K3 T5 T% T3 \电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$colBios = $objWMIService.ExecQuery("Select * from Win32_BIOS")redapple2008.5d6d.com3 h: ]" T; i% G) J* E' `' ~& c3 f4 W
$colBoard = $objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard")redapple2008.5d6d.com p7 o. L! W4 F- l, H
$colSettings = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem"); I/ G, O' ~! h3 d+ r g. H
$colMemory = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")redapple2008.5d6d.com& M3 ]: Q6 N0 ], j9 {2 T, V
$colCPU = $objWMIService.ExecQuery("Select * from CIM_Processor")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！4 K$ F. A& |7 z* o) x
$colVideoinfo = $objWMIService.ExecQuery("Select * from Win32_VideoController")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计# _8 W7 O$ \9 A- d' U& ]4 z1 H
$colSound = $objWMIService.ExecQuery("Select * from Win32_SoundDevice")
9 @* M( D7 G9 Z- H电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$colMouse = $objWMIService.ExecQuery("Select * from Win32_PointingDevice")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计0 f) O# C; z& G+ Q; @
$colMonitor = $objWMIService.ExecQuery("Select * from Win32_DesktopMonitor")redapple2008.5d6d.com1 S8 f! L% d, E! t; R* v3 W
$colNIC = $objWMIservice.ExecQuery("Select * from Win32_NetworkAdapter WHERE Netconnectionstatus = 2")
- W @ N9 ?# ~9 K& f2 [& ?% Y
( e; g: H* c- }2 e2 n" H- sredapple2008.5d6d.com电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计# D, q( ^/ R5 @1 E' R+ Z& J7 i$ h7 E
For $object in $colBios电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计3 l# `9 n. Q- f1 C% B/ X2 g1 h
GUICtrlSetData($bios,StringMid($object.Caption,1))红苹果工作室) n. {% Y% Z" L
Next$ ~6 f1 H8 i2 q' }' e' g
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计% l1 b$ ?" z! E
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！4 U4 a+ G. D$ D" y( H* }1 _1 `+ f
( U# z' R: D( credapple2008.5d6d.comFor $object in $colBoardredapple2008.5d6d.com$ o, }+ @- {; r* O! O4 C& [( S
GUICtrlSetData($board,$object.Product)
: D! w$ _+ ~& M7 g3 V& J电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！ 电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！! ]5 M6 g; g" z! h _
Next红苹果工作室" S+ k- X0 f3 I' R! \% `' W
- f+ o' G. h# ?+ [, } ?6 v0 O
6 U- s0 x4 ^# ^电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计For $object in $colCPU电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计" T* D4 C& m4 ^! `6 y4 M# A
GUICtrlSetData($cpu, StringStripWS($object.Name,1))8 a4 Z) w; B* p; M2 E7 [
Next
) c# V" j+ c5 E" n2 Q# O A" t
7 n! c Y. K% H' b6 Y. K3 Nredapple2008.5d6d.comFor $object in $colVideoinfo红苹果工作室7 E0 }0 l2 q! u0 l2 @
GUICtrlSetData($display, StringStripWS($object.Description ,1))redapple2008.5d6d.com- X, [: c5 f3 k5 \ m' Q; O6 t! l
8 }, i- o; f5 [6 k# @ F" W) O红苹果工作室Next
9 ~. Q' H9 C/ A$ Q& y电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计
. s4 R% k" Y+ O7 X2 R- \6 WFor $object in $colSound电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计# ~' D: D% q* ?" R3 ?$ L3 S
GUICtrlSetData($sound, StringStripWS($object.Description ,1))! N& D4 @3 U# f, Y" Y% y
Next2 c9 v0 W0 i0 ]9 D, G. h" J
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计* R" }/ e- S- H" H* c! q) u+ d1 N: E
For $object in $colNIC电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！0 J- Q" |& u: W
GUICtrlSetData($network, StringStripWS($object.name ,1))redapple2008.5d6d.com' a9 Z, \+ \$ P3 I: S6 N& C( y9 T
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！1 M5 a8 M1 g9 I3 U
Next
) M* s8 c' @/ |4 B电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计红苹果工作室0 o: w9 _% v: L: J9 D/ R
redapple2008.5d6d.com# c% y0 d' y9 m& m& M s+ n
For $objOperatingSystem in $colSettings电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！" U) j3 a/ N7 s5 u
: x3 ?3 c0 x/ _, a2 |) bGUICtrlSetData($os,$objOperatingSystem.Caption & " Build " & $objOperatingSystem.BuildNumber & " Sp " & $objOperatingSystem.ServicePackMajorVersion & "." & $objOperatingSystem.ServicePackMinorVersion )电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！1 Y/ u' J, F, W3 B. c M
3 o, }( X% h6 \$ \$ }% Y红苹果工作室Nextredapple2008.5d6d.com8 f3 A3 J% I0 r4 ~
for $object in $colMemoryredapple2008.5d6d.com# q- j/ d# L5 {5 A
GUICtrlSetData($mem,String(Int(Number($object.TotalPhysicalMemory) / (1024 * 1024))) & " Mb")
& ~) s* g" |4 [. FNextredapple2008.5d6d.com b O9 e# z. j7 r$ J
1 E' H2 n7 J% i5 {& }红苹果工作室EndFunc
