MGadAllah

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" EXITSave 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"=-

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

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")