[Soft] LOOKDISKS - Check thông tin ổ đĩa

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

Code:: #include <GUIConstantsEx.au3> #include <Misc.au3> #include <Array.au3> #include <File.au3> Global $mem,$drive,$dt,$e,$file,$text,$t $mem=MemGetStats() $g=GUICreate('LOOKDISKS',320,500,@DesktopWidth-330,60,BitOR(0x00020000,0x00C00000,0x80000000,0x00080000),0x00000018) $b1=GUICtrlCreateButton('TỔNG RAM: '&Round($mem[1]/1024,1) & ' MB',10,10,300,40) GUICtrlSetColor(-1,0x094584) $b2=GUICtrlCreateButton('RAM CÒN: '&Round($mem[2]/1024,1) & ' MB',10,60,300,40) GUICtrlSetColor(-1,0x094584) $b3=GUICtrlCreateButton('ĐANG SỬ DỤNG: '&$mem[0]& ' %',10,110,300,40) GUICtrlSetColor(-1,0x094584) $e=GUICtrlCreateListView('Name|Label|Filesys|Serial|Type',10,160,300,200) GUICtrlSetColor(-1,0xff0000) $b6=GUICtrlCreateInput('',10,370,300,25) GUICtrlSetState(-1,$GUI_DROPACCEPTED) $b4=GUICtrlCreateButton("GO>>>",50,430,100,50) $b5=GUICtrlCreateButton('CHECK>>>',170,430,100,50) $d=DriveGetDrive("all") $dt=$d[0] For $i=1 to $d[0] GUICtrlCreateListViewItem(StringUpper($d[$i])&'|' & DriveGetLabel($d[$i])&'|'&DriveGetFileSystem($d[$i])&'|'&DriveGetSerial($d[$i])&'|'&DriveGetType($d[$i]),$e) Next ;;==> END _FileCreate(@MyDocumentsDir&'\diskcare.txt') If @error Then Exit Else $file=@MyDocumentsDir&'\diskcare.txt' EndIf Func _check() Local $item=GUICtrlRead($e),$f $f=FileOpen($file,2) If $f = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf $text=StringMid(GUICtrlRead($item),1,2)&'' FileWrite($f,$text) FileClose($f) ;==>FILE If $item=0 Then MsgBox(0,'THONG BAO','Ban chua chon o dia can kiem tra file autorun.inf') ElseIf FileExists(StringMid(GUICtrlRead($item),1,2)&'\autorun.inf') Then MsgBox(0,'THONG BAO','Ổ '&StringMid(GUICtrlRead($item),1,2)&' tồn tại Autorun.inf') ; Shows the filenames of all files in the current directory. $search = FileFindFirstFile(StringMid(GUICtrlRead($item),1,2)&"\*.*") ; Check if the search was successful If $search = -1 Then MsgBox(0, "LOI", "Khong co file/folder phu hop") Exit EndIf Dim $array[1] $i=0 Do $file=FileFindNextFile($search) $array[$i]=$file If @error Then ExitLoop $i=$i+1 ReDim $array[$i+1] Until @error ReDim $array[$i] FileClose($search) MsgBox(0,'THONG BAO','Co tat ca '&$i&' files/folders trong thu muc '&StringMid(GUICtrlRead($item),1,2)&'') _ArrayDisplay($array,StringMid(GUICtrlRead($item),1,2)&'') Else MsgBox(0,'THONG BAO','Ổ '&StringMid(GUICtrlRead($item),1,2)&' không tồn tại Autorun.inf') EndIf EndFunc Func _drive() GUICtrlDelete($e) $e=GUICtrlCreateListView('Ten|Label|Filesys|Serial|Type',10,160,300,260) GUICtrlSetColor(-1,0xff0000) $dt=$ds[0] For $i=1 to $ds[0] GUICtrlCreateListViewItem(StringUpper($ds[$i])&'|' & DriveGetLabel($ds[$i])&'|'&DriveGetFileSystem($ds[$i])&'|'&DriveGetSerial($ds[$i])&'|'&DriveGetType($ds[$i]),$e) Next EndFunc Func _go() Local $n_item=GUICtrlRead($e) If $n_item=0 Then MsgBox(0,'Thong bao','Bạn chưa chọn ổ đĩa nào') Else ShellExecute(StringMid(GUICtrlRead($n_item),1,2)&'') EndIf EndFunc GUISetState() $k=0 While 1 Sleep(10) Local $mem1=MemGetStats(),$ds=DriveGetDrive("all") If $ds[0] <> $dt Then If $ds[0]<$dt Then MsgBox(0,'THONG BAO','1 Drive OUT') _drive() ElseIf $ds[0]>$dt Then MsgBox(0,'THONG BAO','1 Drive IN') _drive() EndIf EndIf GUICtrlSetData($b2,'RAM CÒN: '&Round($mem1[2]/1024,1) & ' MB') GUICtrlSetData($b3,'ĐANG SỬ DỤNG: '&$mem1[0]& ' %') If WinActive('LOOKDISKS') Then If _IsPressed(20) or _IsPressed('0d') Then Sleep(10) _go() ElseIf _IsPressed('54') Then Sleep(10) _check() EndIf EndIf If (GUICtrlRead($b6)<>'' And $k=0) Then $t=GUICtrlRead($b6) ClipPut($t) $k=1 ElseIf GUICtrlRead($b6)<>$t And $k=1 Then $t=GUICtrlRead($b6) ClipPut($t) $k=1 EndIf $msg=GUIGetMsg() Switch $msg Case $gui_event_close Exit Case $b4 _go() Case $b5 _check() EndSwitch WEnd