09-08-2014، 18:09
بدین منظور:از منوی Start به All Programs و سپس Accessories رفته و بر روی Notepad کلیک کنید.
حال در محیط Notepad کدهای زیر را عینأ Copy و Paste نمایید
حال در محیط Notepad کدهای زیر را عینأ Copy و Paste نمایید
Option Explicit
On Error Resume Next
Dim p1, p2, p3, WshShell, MyBox
p1 ="HKEY_CURRENT_USERSoftwareMicrosoftSearch AssistantACMru5001"
p2 = "HKEY_CURRENT_USERSoftwareMicrosoftSearch AssistantACMru5603"
p3 = "HKEY_CURRENT_USERSoftwareMicrosoftSearch AssistantACMru5604"
Set WshShell = WScript.CreateObject("WScript.Shell")
'www.Tarfandestan.com
WshShell.RegDelete p1
WshShell.RegDelete p2
WshShell.RegDelete p3
Set WshShell = Nothing
MyBox = MsgBox("Search History has been cleared.", 4096, "Finished")
[color][font]On Error Resume Next
Dim p1, p2, p3, WshShell, MyBox
p1 ="HKEY_CURRENT_USERSoftwareMicrosoftSearch AssistantACMru5001"
p2 = "HKEY_CURRENT_USERSoftwareMicrosoftSearch AssistantACMru5603"
p3 = "HKEY_CURRENT_USERSoftwareMicrosoftSearch AssistantACMru5604"
Set WshShell = WScript.CreateObject("WScript.Shell")
'www.Tarfandestan.com
WshShell.RegDelete p1
WshShell.RegDelete p2
WshShell.RegDelete p3
Set WshShell = Nothing
MyBox = MsgBox("Search History has been cleared.", 4096, "Finished")
پس از کپی کدهای فوق، از منوی File بر روی Save as کلیک کنید. سپس فایل را با نام دلخواه و پسوند vbs. ذخیره کنید (به عنوان مثال نام آن را Tarfandestan.vbs قرار دهید).حالا به مسیری که فایل را ذخیره کردهاید مراجعه کنید.[/font][/color]
اکنون بر روی فایل مذکور، دوبار کلیک کنید.خواهید دید که پس از چند ثانیه پیغامی مبنی بر پاک شدن موفقیتآمیز عبارات جستجو شده در محیط Search ویندوز نمایان میشود.شما میتوانید جهت بالا بردن سرعت کار از این فایل یک Shortcut تهیه کرده و سپس آن را در محیطی مثل Quick Lunch ویندوز قرار دهید تا همواره سریعتر به آن دسترسی داشته باشید.