Home » Tips & Tricks

ทำความสะอาดระบบปฏิบัติการวินโดวส์ด้วยการคลิกเดียว

20 Feb 12 - By l

ก็เป็นรู้กันว่า การใช้วินโดวส์เริ่มแรกจะมีความรวดเร็วหลังจากใช้ได้ไปสักระยะเวลานึ่ง มีการติดตั้งโปรแกรม ถอดโปรแกรม ก็อปปี้ไฟล์ ลบไฟล์ วินโดวส์ของคุณจะเริ่มช้าลง ทำงานไม่สะดวก เนื่องจากไฟล์ขยะและ Temporary files คุณก็ควรจะลบไฟล์ขยะพวกนี้ออกบ้าง เพื่อวินโดวส์จะทำงานได้เร็วขึ้น การลบไฟล์พวกนี้ก็มีอยู่หลายวิธี ในวันนี้จะมาแนะนำวิธีนึ่งได้แก่ การใช้ Script file ลบไฟล์ขยะ เพียงแค่คุณคลิกที่ไฟล์ Script แค่ครั้งเดียว Script จะทำงานโดยตามไปลบไฟล์ต่างๆ ที่ ไม่จำเป็นต่อวินโดวส์ได้จนหมดเกลี้ยง โดยไฟล์ที่ลบจะเป็นไฟล์ของวินโดวส์ตามข้างล่างนี้

Active Setup Temp Folders
Content Indexer Cleaner
Downloaded Program Files
GameNewsFiles
GameStatisticsFiles
GameUpdateFiles
Internet Cache Files
Memory Dump Files
Microsoft Office Temp Files
Offline Pages Files
Old ChkDsk Files
Previous Installations
Recycle Bin
Service Pack Cleanup
Setup Log Files
System error memory dump files
System error minidump files
Temporary Files
Temporary Setup Files
Temporary Sync Files
Thumbnail Cache
Upgrade Discarded Files
Windows Error Reporting Archive Files
Windows Error Reporting Queue Files
Windows Error Reporting System Archive Files

?

วิธีทำสร้างไฟล์ Script

ให้เปิด Notepad ขึ้นมา แล้วก็อปปี้ Script ด้านล่างนี้ แล้วเอาไปปะบน Notepad เซฟเป็นเป็นชื่อ CleanUp.vbs เวลาใช้ก็ดับเบิ้ลคลิกที่ไฟล์นี้

 

Option Explicit

On Error Resume Next

SetRegKeys

DoCleanup

Sub DoCleanup()

Dim WshShell

Set WshShell=CreateObject(?WScript.Shell?)

WshShell.Run ?C:\WINDOWS\SYSTEM32\cleanmgr /sagerun:1?

End Sub

 

Sub SetRegKeys

Dim strKeyPath

Dim strComputer

Dim objReg

Dim arrSubKeys

Dim SubKey

Dim strValueName

Const HKLM=&H80000002

strKeyPath=?SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches?

strComputer=?.?

strValueName=?StateFlags0001?

Set objReg=GetObject(?winmgmts:\\? & strComputer & ?\root\default:StdRegProv?)

objReg.Enumkey HKLM ,strKeyPath,arrSubKeys

 

For Each SubKey In arrSubKeys

objReg.SetDWORDValue HKLM,strKeyPath & ?\? & SubKey,strValueName,2

Next

End Sub

หรือดาวน์โหลดไฟล์สำเร็จรูปได้ที่นี่ ? http://gallery.technet.microsoft.com/Cleanup-Windows-581c1933/file/44603/1/CleanUp.vbs

ที่มา : http://technet.microsoft.com/en-us/ms376608.aspx



© Copyright - Notebookspec.com All Rights