Desktop Shortcuts for Kids 5.2.2

Desktop Shortcuts for Kids has been updated to a new version.  It now works on any Windows version and launches the Chrome browser.  The Windows 10 edition (5.1) opens the sites in Edge browser.  This one adds Ryan ToysReview and HoneyheartsC channels on YouTube.  It also adds Starfall, Kinder Site, Chateau Meddybemps, and Scholastic’s Clifford the Big Red Dog.

Edit: Windows Defender on Windows 10 may treat this file badly, depending upon whether or not cloud features are enabled.  Because of this, the source code is posted here.  Save this to a file with extension.vbs and double click that to run it.

' Desktop Shortcuts for Kids
' Robert Knight
' bobby@rdknight.net
' version 5 - July 2017
' ----------------------------------------------------------'
Option Explicit

Dim WshShell
Dim strDesktop
Dim oShellLink

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Amazon Kids' Video.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=https://www.amazon.com/gp/video/storefront/ref=sv_atv_3?ie=UTF8&merchId=primevideokids"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+A"
oShellLink.IconLocation = "https://www.amazon.com/favicon.ico"
oShellLink.Description = "Amazon Kids' Video"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\ABC Mouse.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=http://www.abcmouse.com"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "https://www.abcmouse.com/favicon.ico"
oShellLink.Description = "ABC Mouse"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\Nick Jr..lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=http://www.nickjr.com"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "http://www.nickjr.com/favicon.ico"
oShellLink.Description = "Nick Jr."
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\CBC 2.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=http://www.cbc.ca/kidscbc2/"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "http://www.cbc.ca/favicon.ico"
oShellLink.Description = "CBC 2"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\Sprout.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=http://www.sproutonline.com"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "http://www.sproutonline.com/sites/sprout/themes/sprout_twig/images/favicon.ico"
oShellLink.Description = "Sprout"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\YouTube.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=http://www.youtube.com"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "http://youtube.com/favicon.ico"
oShellLink.Description = "YouTube"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\HobbyKidsTV.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app https://www.youtube.com/user/HobbyKidsTV"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "C:\Windows\System32\pifmgr.dll, 1"
oShellLink.Description = "Hobby Kids TV"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\HoneyheartsC.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=https://www.youtube.com/user/honeyhearts27"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "C:\Windows\System32\pifmgr.dll, 7"
oShellLink.Description = "HoneyheartsC"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\FGTeeV.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=https://www.youtube.com/user/FGTeeV"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "C:\Windows\System32\mmres.dll, 6"
oShellLink.Description = "Family Gaming Team"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\Starfall.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=http://www.starfall.com/"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "http://www.starfall.com/favicon.ico"
oShellLink.Description = "Starfall"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\Clifford the Big Red Dog.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=http://www.scholastic.com/clifford"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "http://www.scholastic.com/favicon.ico"
oShellLink.Description = "Starfall"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\Kinder Site.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=http://www.kindersite.org/Directory/DirectoryFrame.htm"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "C:\Windows\System32\pifmgr.dll, 2"
oShellLink.Description = "Kinder Site"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\Chateau Meddybemps.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=http://www.kindersite.org/Directory/DirectoryFrame.htm"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "C:\Windows\System32\gameux.dll, 13"
oShellLink.Description = "Chateau Meddybemps"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

set oShellLink = WshShell.CreateShortcut(strDesktop & "\Ryan ToysReview.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
oShellLink.Arguments = "--app=https://www.youtube.com/channel/UChGJGhZ9SOOHvBB0Y4DOO_w"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""
oShellLink.IconLocation = "C:\Windows\System32\sensorscpl.dll, 7"
oShellLink.Description = "Ryan ToysReview"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
Set oShellLink = Nothing

 

Leave a Reply