[Code] Xem thông tin HDD

by **Admin** Mon Dec 17, 2012 3:24 am

Code:: #include <GUIConstants.au3> #include <GUIComboBox.au3> #include <Constants.au3> #include <array.au3> $From1 = GUICreate("Mini Info Drive", 352, 356, 319, 205) GUISetFont(8.5, 400, 0, "Tahoma") $Group1 = GUICtrlCreateGroup("Thông tin ổ đĩa", 8, 136, 337, 209) $Label3 = GUICtrlCreateLabel("Định dạng", 25, 161, 51, 17) $Label4 = GUICtrlCreateLabel("Nhãn đĩa", 25, 185, 45, 17) $Label5 = GUICtrlCreateLabel("Số Serial", 25, 209, 43, 17) $Label6 = GUICtrlCreateLabel("Loại đĩa", 25, 233, 37, 17) $Label7 = GUICtrlCreateLabel("Còn trống (MB)", 25, 257, 75, 17) $Label8 = GUICtrlCreateLabel("Tổng dung lượng", 25, 281, 86, 17) $Label9 = GUICtrlCreateLabel("Trạng thái", 25, 305, 51, 17) $dinhdang = GUICtrlCreateLabel("", 152, 160, 184, 24) $nhandia = GUICtrlCreateLabel("", 152, 184, 186, 17) $soserial = GUICtrlCreateLabel("", 152, 208, 184, 17) $tongdungluong = GUICtrlCreateLabel("", 152, 280, 188, 17) $trangthai = GUICtrlCreateLabel("", 152, 304, 184, 17) $controng = GUICtrlCreateLabel("", 152, 256, 183, 17) $loaidia = GUICtrlCreateLabel("", 152, 232, 186, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Công cụ và thiết lập", 8, 8, 337, 121) $Label1 = GUICtrlCreateLabel("Trạng thái:", 20, 34, 55, 17) $trangthai_txt = GUICtrlCreateLabel("trangthai_txt", 84, 34, 252, 17) $capnhat = GUICtrlCreateButton("Xem", 20, 58, 76, 30) $doinhan = GUICtrlCreateButton("Đổi nhãn", 100, 58, 84, 30 ) $tacgia = GUICtrlCreateButton("Tác giả", 188, 58, 76, 30) $thoat = GUICtrlCreateButton("Thoát", 268, 58, 68, 30) $odia = GUICtrlCreateCombo("", 40, 96, 265, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) main() Func main() GUICtrlSetData($odia,"") $var = DriveGetDrive( "all" ) GUICtrlSetData($trangthai_txt,"Phát hiện thấy có " & $var[0] & " ổ đĩa trong máy tính bạn") _GUICtrlComboBox_AddDir($odia, "",$DDL_DRIVES, False) EndFunc While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $capnhat if guictrlread($odia) = "" then msgbox(64,"Thông báo","Chưa chọn ổ đĩa") else $drive = guictrlread($odia) & "" GUICtrlSetData($dinhdang,DriveGetFileSystem ($drive)) GUICtrlSetData($nhandia,DriveGetLabel ($drive)) GUICtrlSetData($soserial,DriveGetSerial ($drive)) GUICtrlSetData($tongdungluong,DriveSpaceTotal ($drive)) GUICtrlSetData($loaidia,DriveGetType ($drive)) GUICtrlSetData($controng,driveSpaceFree($drive)) GUICtrlSetData($trangthai ,DriveStatus ($drive)) endif case $doinhan if guictrlread($odia) = "" then msgbox(64,"Thông báo","Chưa chọn ổ đĩa") Else $drive1 = StringUpper(guictrlread($odia) & "") $nhanmoi = InputBox("Đổi nhãn cho ổ đĩa " & $drive1,"Nhập nhãn mới cho ổ đĩa " & $drive1) If $nhanmoi = "" Then DriveSetLabel($drive1,DriveGetLabel ($drive1)) else DriveSetLabel($drive1,$nhanmoi) endif endif case $thoat Exit case $tacgia msgbox (64,"Tác giả","Nguyễn Đức Hải - xmenduchai@yahoo.com " & @CRLF & " Ngôn ngữ lập trình: AutoIT") EndSwitch WEnd