ElaKiri Community
Downloads
(#1)
Old
tdevinda's Avatar
tdevinda tdevinda is offline
Senior Member
tdevinda is on a distinguished road
 
Posts: 850
Join Date: Nov 2006
Location: Mattegoda
Send a message via MSN to tdevinda
! Windows show no history items - 03-09-2007, 10:57 PM

Hi,
If any of you know the solution to this problem, please respond.
Symptoms:
I cant get the previously types addresses either on the run window, explorer or anywhere.

All the recent documents disappear as I restart the machine

The recently used programs on the start menu is static.!!! No change if I open a new one 1000 times.

This makes me sick.

I've stopped some processes from services.msc. Can't figure out if that is causing the problem.
Its like my com has short term memory loss syndrome!!!!!
Anyone know something useful?????!!!!

Thanks
Reply With Quote
(#2)
Old
SAN_APIIT's Avatar
SAN_APIIT SAN_APIIT is offline
Senior Member
SAN_APIIT is on a distinguished road
 
Posts: 3,120
Join Date: Mar 2007
Location: In a Chip !!!
Up Solution - 03-16-2007, 06:39 AM

Open notepad and copy paste the following text in to it... (don't copy the "==" lines ok, just the text between them)

=======================================

' Disables/Enables Recent Docs History


Option Explicit


Dim WSHShell, n, MyBox, p, p1, p2, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\"
p = p & "NoRecentDocsHistory"
itemtype = "REG_DWORD"
mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Recent Docs History is now "


t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
WSHShell.RegWrite p, 0, itemtype
End If


If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If

==============================

Save as any name.vbs
and run it, i think it will do the job.

--Good luck--
Reply With Quote
(#3)
Old
nukisl's Avatar
nukisl nukisl is offline
Senior Member
nukisl is an unknown quantity at this point
 
Posts: 16,211
Join Date: Sep 2006
03-16-2007, 06:53 AM

lolz
Reply With Quote
Reply

Bookmarks

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Download MADHURA English-Sinhala Dictionary rapa Downloads 542 10-08-2014 05:53 PM
Making Windows XP Start 60% Faster rapa Tips & Tricks 45 05-30-2009 10:42 AM
AutoPatcher Vista May 2007 FULL Anusha Downloads 46 02-17-2008 11:23 AM
History of Microsoft Windows with Screenshots fazaal24 ElaKiri Talk! 18 11-30-2007 04:31 PM
Some Windows XP Tips & Tricks.... gazaly ElaKiri Tabloid 11 11-09-2007 11:05 PM



Copyright © 2006 - 2011 ElaKiri™ Beta2.Evo vBulletin, vBa iBproArcade Subdreamer I-Magic MKv
Optimisation plugin by DBtech

Page generated in 0.06980 seconds with 9 queries