If interested...!

but to be honest with you, I like real alternative

Hi all:

If you are interested in using this application, download it from the main website then run it to download the main application, then browse to C:\My Downloads to get the RealPlayer10-5GOLD.exe,

Install it with /S then use the two attached files which contains enhanced setting for the application performance and make it very lite, the only thing that I did not find a way to do it is the screen appear when you run the application, an empty screen that suppose to ask for register and contact the server, just ignore it and close it, but every thing else is much pretty good.

I test it many times and find it good

Your feed back are much appreciated, and if you can add any thing to make it work better, please go a head and tell, or you can update my file and post a new one.

This is my first try, so if you find errors (100% working) just be mercy on me, Thanks

Mohamed

Save this code as a .cmd file

cmdow @ /HID

del /S /Q "%programfiles%\real\RealPlayer\DataCache\mstore\mstore.ini"
del /S /Q "%programfiles%\real\RealPlayer\DataCache\mstore\mstore.ver"
del /S /Q "%programfiles%\real\RealPlayer\DataCache\mstore\mstorehome.ini"
RD /s /Q "%programFiles%\Real\RealPlayer\DataCache\RollingStone"
xcopy "%ProgramFiles%\Real\RealPlayer\DataCache\prefs\" "%TEMP%\DataCache\prefs\" /s /v
xcopy "%ProgramFiles%\Real\RealPlayer\DataCache\Formats\" "%TEMP%\DataCache\Formats\" /s /v
RD /s /q "%ProgramFiles%\Real\RealPlayer\DataCache"
xcopy "%TEMP%\DataCache\." "%ProgramFiles%\Real\RealPlayer\DataCache\" /s /v
Del /q "%ProgramFiles%\Real\RealPlayer\DataCache\Formats\*.bmp"
RD /s /q "%ProgramFiles%\Real\RealPlayer\Firstrun"
del /q "%ProgramFiles%\Common Files\Real\Update_OB\rnms3270.dll
del /q "%ProgramFiles%\Common Files\Real\Update_OB\RealOneMessageCenter.exe
RD /s /q "%systemdrive%\Documents and Settings\%USERNAME%\Application Data\Real\Msg"
RD /s /q "%systemdrive%\Documents and Settings\%USERNAME%\Application Data\Real\Msg"
RD /s /q "%ProgramFiles%\Real\RealPlayer\Setup"
RD /s /q "%userprofile%\Application Data\Real"  
RD /s /q "%userprofile%\Cookies"
del /S /Q "%programfiles%\real\RealPlayer\subscription.rnx"
del /S /Q "%programfiles%\Common Files\Real\Update_OB\r1puninst.exe"
del /S /Q "%userprofile%\desktop\*.lnk"

EXIT

Save this code as a .reg file

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\RealNetworks\RealPlayer\6.0\Preferences\EulaAcceptedVersion]
@="2"

[HKEY_CURRENT_USER\Software\RealNetworks\RealPlayer\6.0\Preferences\UniversalPlayback]
@="0"

[-HKEY_CURRENT_USER\Software\RealNetworks\Msg]

[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Software\RealNetworks\Msg]

[-HKEY_CLASSES_ROOT\Software\RealNetworks\Update\6.0\Preferences\Components\gds:1.0]

[-HKEY_CLASSES_ROOT\Software\RealNetworks\Update\6.0\Preferences\Components\gtoolbar:6.2]

[-HKEY_CLASSES_ROOT\CLSID\{2B96D5CC-C5B5-49A5-A69D-CC0A30F9028C}]

[-HKEY_CLASSES_ROOT\Software\RealNetworks\Update\6.0\Preferences\Components\weatherbug:2.0]

[-HKEY_CURRENT_USER\Software\Microsoft\Windows Media\WMSDK\General]

[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw\MostRecentApplication]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] 
"TkBellExe"=-

Well, if you can't express yourself with a 100 of different smilies than I don't know how it would help to add additional dozen of smilies..

LOL....LAMO...You really make me laugh...good catch

I know that we have many but:

- This will make the forum looks different.

- Smilies express better.

Thanks

Thanks rick

I think I will add all your add on in my latest DVD now.

Sometimes I'm thinking about which one to choose ... But I think all deserve to be included...

Can these be added to the Clickable Smilies we have here in the forum ?

I mean can any of moderators or admin do something like that...

Thanks

LOL

But I do not need a shrink

Where to get it from?

Thanks

The Da Vinci Code ... Dan Brown

I know that I said thanks and nice work many times in many posts

But English does not have another word

so let's thanks

LOL

What is the use of the scroll on the left side!?

I really do like your work mate...Really save me a lot of time

Thanks for the so many themes add on, and for this one offcourse ...hehehehehehehehehe

Looks very nice

He must have thought about security warning-question before opening of .exe files..

Correct...I mean the security warning-question.

Thanks

Disable

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\exefile]
@="Application"
"EditFlags"=hex:38,07,01,00

Enable

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\exefile]
@="Application"
"EditFlags"=hex:38,07,00,00

Please give it a try

How to Use the SPCheck Tool in Windows XP

Thanks

Save this as a .VBS file

Dim WshShell, bKey, cn, p1, mybox
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKCR\Directory\shell\Windows Explorer\", "Windows Explorer", "REG_SZ"
WshShell.RegWrite "HKCR\Directory\shell\Windows Explorer\command\", "EXPLORER.EXE /e,", "REG_SZ" 

bKey = WshShell.RegRead("HKCR\Directory\shell\Windows Explorer\")

p1 = "HKEY_CLASSES_ROOT\Directory\shell\Windows Explorer\"

n = wshshell.RegRead(p1 & "")
t = "Add Windows Explorer to the Start Button Right Click"
cn = InputBox("Type in what you want listed for the name. It does not have to be the actual name Windows Explorer.", t, n)
If cn <> "" Then
  wshshell.RegWrite p1 & "", cn
End If

bKey = WshShell.RegRead("HKCR\Directory\shell\Windows Explorer\command\")

p1 = "HKEY_CLASSES_ROOT\Directory\shell\Windows Explorer\command\"

n = wshshell.RegRead(p1 & "")
t = "Add Windows Explorer to the Start Button Right Click"
cn = InputBox("To have Windows Explorer open closed, use what it there, to have Windows Explorer open exapanded, type in: %windir%\EXPLORER.EXE /e,c:   Also modify c: if that is not the where Windows is installed.", t, n)
If cn <> "" Then
  wshshell.RegWrite p1 & "", cn
End If


MsgBox "The folder of your choice has been added to the right click.  If you left it set to default, it will open to My Computer. To test, right click the Start Button.",64,"Finished"

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

I really do love this tool

Give it a try Minimize to Tray

Save this as a .reg file

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
"NoClose"=dword:00000001

Save this codes as a .vbs

Dim WshShell, bKey, cn, p1, mybox
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\", "", "REG_SZ"
WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\DefaultIcon\", "", "REG_SZ" 
WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\DefaultIcon\InProcServer32\", "shell32.dll", "REG_SZ" 
WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\DefaultIcon\InProcServer32\ThreadingModel", "Apartment", "REG_SZ" 
WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\Shell\Open My Folder\Command\", "explorer /root,", "REG_SZ"
WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\ShellEx\PropertySheetHandlers\","{e33898de-6302-4756-8f0c-5f6c5218e02e}", "REG_SZ"
WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\ShellFolder\Attributes", "60", "REG_DWORD"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\", "", "REG_SZ"
WshShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\", "", "REG_SZ"

bKey = WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\")
p1 = "HKCR\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\"

n = wshshell.RegRead(p1 & "")
t = "Add a Folder to My Computer and Desktop"
cn = InputBox("Type Folder Name", t, n)
If cn <> "" Then
  wshshell.RegWrite p1 & "", cn
End If

bKey = WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\DefaultIcon\")
p1 = "HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\DefaultIcon\"

n = wshshell.RegRead(p1 & "")
t = "Add a Folder to My Computer and Desktop"
cn = InputBox("Type full path of icon to be used, followed by a ,0 (comma then a zero) with no spaces.", t, n)
If cn <> "" Then
  wshshell.RegWrite p1 & "", cn
End If

bKey = WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\Shell\Open My Folder\Command\")
p1 = "HKEY_CLASSES_ROOT\CLSID\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\Shell\Open My Folder\Command\"

n = wshshell.RegRead(p1 & "")
t = "Add a Folder to My Computer and Desktop"
cn = InputBox("Type full path of Folder after: explorer /root, (example: explorer /root,f:My Stuff).", t, n)
If cn <> "" Then
  wshshell.RegWrite p1 & "", cn
End If

bKey = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\")
p1 = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\"

n = wshshell.RegRead(p1 & "")
t = "Add a Folder to My Computer and Desktop"
cn = InputBox("Type in Folder Name again.  This is needed for NameSpace.", t, n)
If cn <> "" Then
  wshshell.RegWrite p1 & "", cn
End If

bKey = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\")
p1 = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{801eb159-9ede-4dcb-919f-b55376cd4ceb}\"

n = wshshell.RegRead(p1 & "")
t = "Add a Folder to My Computer and Desktop"
cn = InputBox("Type in Folder Name once more.  This is needed for NameSpace.", t, n)
If cn <> "" Then
  wshshell.RegWrite p1 & "", cn
End If

MsgBox "The folder of your choice has been added to My Computer and the Desktop.  Once done, open My Computer, it will be listed as a System Folder under Other.",64,"Finished"

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

Save this codes as a .vbs

Option Explicit

Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim WSHShell, n, MyBox, p, itemtype

p = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
p = p & "LogonPrompt"
itemtype = "REG_SZ"
n = ""

WSHShell.RegWrite p, n, itemtype

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n2, cn 


p1 = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"

n2 = ws.RegRead(p1 & "LogonPrompt")
t = "Personalized Message"
cn = InputBox("Type the New Message to appear above the User Name and Password and click OK", t, n)
If cn <> "" Then
  ws.RegWrite p1 & "LogonPrompt", cn
End If

Save this codes as a .vbs

Decrease:

Option Explicit

Dim WSHShell, n, p, itemtype, MyBox

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\"
p = p & "MinWidth"
itemtype = "REG_SZ"
n = "-285"

WSHShell.RegWrite p, n, itemtype

MyBox = MsgBox("You must reboot for the changes to take effect.", vbOKOnly,"Done")

Undo:

Option Explicit

Dim WSHShell, n, p, itemtype, MyBox

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\"
p = p & "MinWidth"
itemtype = "REG_SZ"
n = "-2310"

WSHShell.RegWrite p, n, itemtype

MyBox = MsgBox("You must reboot for the changes to take effect.", vbOKOnly,"Done")

LOCK

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Internet Explorer\Control Panel]
"HomePage"=dword:00000001

[HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel]
"HomePage"=dword:00000001


[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSaveSettings"=dword:00000000

UNLOCK

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Internet Explorer\Control Panel]
"HomePage"=dword:00000000

[HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel]
"HomePage"=dword:00000000

[-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Policies\Microsoft\Internet Explorer\Control Panel]
"HomePage"=dword:00000001

[-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Policies\Microsoft\Internet Explorer\Control Panel]
"**del.HomePage"=" "

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSaveSettings"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSaveSettings"=dword:00000000

ADD:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers]

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Copy To]
@="{C2FBB630-2971-11D1-A18C-00C04FD75D13}"

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Move To]
@="{C2FBB631-2971-11D1-A18C-00C04FD75D13}"

UNDO:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers]

[-HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Copy To]
@="{C2FBB630-2971-11D1-A18C-00C04FD75D13}"

[-HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Move To]
@="{C2FBB631-2971-11D1-A18C-00C04FD75D13}"

Option Explicit
Dim WSHShell, n, MyBox, p, itemtype, Title


Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Control Panel\Sound\"
p = p & "Beep"
itemtype = "REG_SZ"
n= "No"

WSHShell.RegWrite p, n, itemtype
Title = "System Beeps are now Disabled." & vbCR
Title = Title & "You may need to Log off/Log on" & vbCR
MyBox = MsgBox(Title,4096,"Finished")