|
tech
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Kelly at Kelly's Corner or other expertsI have used a few tweaks from your site that work wonderfully. But I installed a tweak that wasn't what I thought it was. Can you "please, please" email me VBS tweak to reverse it. My computer now show .lnk after every desk top icon etc. The name of the tweak was "ShowHiddenexts". My email address is pcar***@bellsouth.net. Could you please email me a vbs to reverse the below PLEASE? Thanks a million. Here is the vbs script. On Error Resume Next Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegDelete "HKCR\lnkfile\NeverShowExt" WshShell.RegDelete "HKCR\DocShortcut\NeverShowExt" WshShell.RegDelete "HKCR\InternetShortcut\NeverShowExt" WshShell.RegDelete "HKCR\piffile\NeverShowExt" WshShell.RegDelete "HKCR\SHCmdFile\NeverShowExt" WshShell.RegDelete "HKCR\ShellScrap\NeverShowExt" Dim MyBox MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", vbOKOnly,"Done") VisitKelly's Korner Sub VisitKelly's Korner If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then wshshell.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm" End If End Sub Was this post helpful to you? Why should I rate a post? On Nov 2, 8:23 pm, Pete Carr <pcar***@bellsouth.net> wrote:
Show quote > Dear Kelly or other experts, Hello,> I have used a few tweaks from your site that work wonderfully. > But I installed a tweak that wasn't what I thought it was. > Can you "please, please" email me VBS tweak to reverse it. > My computer now show .lnk after every desk top icon etc. > The name of the tweak was "ShowHiddenexts". > > My email address is pcar***@bellsouth.net. > Could you please email me a vbs to reverse the below PLEASE? > Thanks a million. > > Here is the vbs script. > > On Error Resume Next > Set WshShell = WScript.CreateObject("WScript.Shell") > WshShell.RegDelete "HKCR\lnkfile\NeverShowExt" > WshShell.RegDelete "HKCR\DocShortcut\NeverShowExt" > WshShell.RegDelete "HKCR\InternetShortcut\NeverShowExt" > WshShell.RegDelete "HKCR\piffile\NeverShowExt" > WshShell.RegDelete "HKCR\SHCmdFile\NeverShowExt" > WshShell.RegDelete "HKCR\ShellScrap\NeverShowExt" > > Dim MyBox > > MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", > vbOKOnly,"Done") > > VisitKelly's Korner > > Sub VisitKelly's Korner > If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & > vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion > + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then > wshshell.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm" > End If > End Sub > Was this post helpful to you? > > Why should I rate a post? If you don't get an answer from Kelly - the ingenious genius of all things Registry. Try this: Copy the text below between the dotted lines, but not the dotted lines themselves. Open Notepad and paste it in. Save the result in a suitable location as extension.reg - making sure that the default .txt extension doesn't appear in the file name (Save as type = All Files). Double-click on the saved .reg file to merge the contents. Restart or Log in/Out ------------------------------------------------------------- Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\DocShortcut] "NeverShowExt"="" [HKEY_CLASSES_ROOT\InternetShortcut] "NeverShowExt"="" [HKEY_CLASSES_ROOT\lnkfile] "NeverShowExt"="" [HKEY_CLASSES_ROOT\piffile] "NeverShowExt"="" [HKEY_CLASSES_ROOT\SHCmdFile] "NeverShowExt"="" [HKEY_CLASSES_ROOT\ShellScrap] "NeverShowExt"="" ------------------------------------------------------------- On Nov 2, 8:54 pm, Claymore <claym***@ontera.net> wrote:
Show quote > On Nov 2, 8:23 pm, Pete Carr <pcar***@bellsouth.net> wrote: I just noticed your problem is multi-posted. Check also the other> > > > > > > Dear Kelly or other experts, > > I have used a few tweaks from your site that work wonderfully. > > But I installed a tweak that wasn't what I thought it was. > > Can you "please, please" email me VBS tweak to reverse it. > > My computer now show .lnk after every desk top icon etc. > > The name of the tweak was "ShowHiddenexts". > > > My email address is pcar***@bellsouth.net. > > Could you please email me a vbs to reverse the below PLEASE? > > Thanks a million. > > > Here is the vbs script. > > > On Error Resume Next > > Set WshShell = WScript.CreateObject("WScript.Shell") > > WshShell.RegDelete "HKCR\lnkfile\NeverShowExt" > > WshShell.RegDelete "HKCR\DocShortcut\NeverShowExt" > > WshShell.RegDelete "HKCR\InternetShortcut\NeverShowExt" > > WshShell.RegDelete "HKCR\piffile\NeverShowExt" > > WshShell.RegDelete "HKCR\SHCmdFile\NeverShowExt" > > WshShell.RegDelete "HKCR\ShellScrap\NeverShowExt" > > > Dim MyBox > > > MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", > > vbOKOnly,"Done") > > > VisitKelly's Korner > > > Sub VisitKelly's Korner > > If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & > > vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion > > + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then > > wshshell.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm" > > End If > > End Sub > > Was this post helpful to you? > > > Why should I rate a post? > > Hello, > > If you don't get an answer from Kelly - the ingenious genius of all > things Registry. > > Try this: > > Copy the text below between the dotted lines, but not the dotted lines > themselves. Open Notepad and paste it in. Save the result in a > suitable location as extension.reg - making sure that the default .txt > extension doesn't appear in the file name (Save as type = All Files). > Double-click on the saved .reg file to merge the contents. > Restart or Log in/Out > > ------------------------------------------------------------- > > Windows Registry Editor Version 5.00 > > [HKEY_CLASSES_ROOT\DocShortcut] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\InternetShortcut] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\lnkfile] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\piffile] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\SHCmdFile] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\ShellScrap] > "NeverShowExt"="" > > -------------------------------------------------------------- Hide quoted text - > > - Show quoted text - suggestions - especially System Restore - if it's available to you. Claymore,
Thanks a million. That did the trick. You are an expert for sure..... Thanks my friend....... Show quote "Claymore" wrote: > On Nov 2, 8:23 pm, Pete Carr <pcar***@bellsouth.net> wrote: > > Dear Kelly or other experts, > > I have used a few tweaks from your site that work wonderfully. > > But I installed a tweak that wasn't what I thought it was. > > Can you "please, please" email me VBS tweak to reverse it. > > My computer now show .lnk after every desk top icon etc. > > The name of the tweak was "ShowHiddenexts". > > > > My email address is pcar***@bellsouth.net. > > Could you please email me a vbs to reverse the below PLEASE? > > Thanks a million. > > > > Here is the vbs script. > > > > On Error Resume Next > > Set WshShell = WScript.CreateObject("WScript.Shell") > > WshShell.RegDelete "HKCR\lnkfile\NeverShowExt" > > WshShell.RegDelete "HKCR\DocShortcut\NeverShowExt" > > WshShell.RegDelete "HKCR\InternetShortcut\NeverShowExt" > > WshShell.RegDelete "HKCR\piffile\NeverShowExt" > > WshShell.RegDelete "HKCR\SHCmdFile\NeverShowExt" > > WshShell.RegDelete "HKCR\ShellScrap\NeverShowExt" > > > > Dim MyBox > > > > MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", > > vbOKOnly,"Done") > > > > VisitKelly's Korner > > > > Sub VisitKelly's Korner > > If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & > > vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion > > + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then > > wshshell.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm" > > End If > > End Sub > > Was this post helpful to you? > > > > Why should I rate a post? > > Hello, > > If you don't get an answer from Kelly - the ingenious genius of all > things Registry. > > Try this: > > Copy the text below between the dotted lines, but not the dotted lines > themselves. Open Notepad and paste it in. Save the result in a > suitable location as extension.reg - making sure that the default .txt > extension doesn't appear in the file name (Save as type = All Files). > Double-click on the saved .reg file to merge the contents. > Restart or Log in/Out > > ------------------------------------------------------------- > > Windows Registry Editor Version 5.00 > > [HKEY_CLASSES_ROOT\DocShortcut] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\InternetShortcut] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\lnkfile] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\piffile] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\SHCmdFile] > "NeverShowExt"="" > > [HKEY_CLASSES_ROOT\ShellScrap] > "NeverShowExt"="" > > ------------------------------------------------------------- > > On Nov 2, 9:22 pm, Pete Carr <pcar***@bellsouth.net> wrote:
Show quote > Claymore, Thanks for that Pete. And thanks for letting the folks know what> Thanks a million. That did the trick. > You are an expert for sure..... > Thanks my friend....... > > > > "Claymore" wrote: > > On Nov 2, 8:23 pm, Pete Carr <pcar***@bellsouth.net> wrote: > > > Dear Kelly or other experts, > > > I have used a few tweaks from your site that work wonderfully. > > > But I installed a tweak that wasn't what I thought it was. > > > Can you "please, please" email me VBS tweak to reverse it. > > > My computer now show .lnk after every desk top icon etc. > > > The name of the tweak was "ShowHiddenexts". > > > > My email address is pcar***@bellsouth.net. > > > Could you please email me a vbs to reverse the below PLEASE? > > > Thanks a million. > > > > Here is the vbs script. > > > > On Error Resume Next > > > Set WshShell = WScript.CreateObject("WScript.Shell") > > > WshShell.RegDelete "HKCR\lnkfile\NeverShowExt" > > > WshShell.RegDelete "HKCR\DocShortcut\NeverShowExt" > > > WshShell.RegDelete "HKCR\InternetShortcut\NeverShowExt" > > > WshShell.RegDelete "HKCR\piffile\NeverShowExt" > > > WshShell.RegDelete "HKCR\SHCmdFile\NeverShowExt" > > > WshShell.RegDelete "HKCR\ShellScrap\NeverShowExt" > > > > Dim MyBox > > > > MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", > > > vbOKOnly,"Done") > > > > VisitKelly's Korner > > > > Sub VisitKelly's Korner > > > If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & > > > vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion > > > + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then > > > wshshell.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm" > > > End If > > > End Sub > > > Was this post helpful to you? > > > > Why should I rate a post? > > > Hello, > > > If you don't get an answer from Kelly - the ingenious genius of all > > things Registry. > > > Try this: > > > Copy the text below between the dotted lines, but not the dotted lines > > themselves. Open Notepad and paste it in. Save the result in a > > suitable location as extension.reg - making sure that the default .txt > > extension doesn't appear in the file name (Save as type = All Files). > > Double-click on the saved .reg file to merge the contents. > > Restart or Log in/Out > > > ------------------------------------------------------------- > > > Windows Registry Editor Version 5.00 > > > [HKEY_CLASSES_ROOT\DocShortcut] > > "NeverShowExt"="" > > > [HKEY_CLASSES_ROOT\InternetShortcut] > > "NeverShowExt"="" > > > [HKEY_CLASSES_ROOT\lnkfile] > > "NeverShowExt"="" > > > [HKEY_CLASSES_ROOT\piffile] > > "NeverShowExt"="" > > > [HKEY_CLASSES_ROOT\SHCmdFile] > > "NeverShowExt"="" > > > [HKEY_CLASSES_ROOT\ShellScrap] > > "NeverShowExt"="" > > > -------------------------------------------------------------- Hide quoted text - > > - Show quoted text - worked. Cheers! |
|||||||||||||||||||||||