Tag Archive for 'vbscript'

Desktop Shortcuts for Kids 5.2.1

This is the VBscript for shortcuts on Windows 10 that open in Edge browser.

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

Dim wscript_shell_object
Dim shortcut_working_directory
Dim shortcut_save_location
Dim shortcut_file_object
Dim EXEC
Dim ICON
Dim DESCRIPTION

Set wscript_shell_object = CreateObject("WScript.Shell")
shortcut_working_directory ="C:\Windows"
shortcut_save_location = wscript_shell_object.SpecialFolders("Desktop")
Set shortcut_file_object = wscript_shell_object.CreateShortcut(shortcut_save_location & "\" & DESCRIPTION &

CreateDesktopShortcut "microsoft-edge:https://www.amazon.com/gp/video/storefront/ref=sv_atv_3?ie=UTF8&merchId=primevideokids", _
"https://www.amazon.com/favicon.ico", shortcut_working_directory, "Amazon Kid's Video", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.abcmouse.com", _
"https://www.abcmouse.com/favicon.ico", shortcut_working_directory, "ABC Mouse", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.nickjr.com", _
"http://www.nickjr.com/favicon.ico", shortcut_working_directory, "Nick Jr.", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.cbc.ca/kidscbc2/", _
"http://www.cbc.ca/favicon.ico", shortcut_working_directory, "CBC 2", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.sproutonline.com", _
"http://www.sproutonline.com/sites/sprout/themes/sprout_twig/images/favicon.ico", shortcut_working_directory, "Sprout", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.youtube.com", _
"http://youtube.com/favicon.ico", shortcut_working_directory, "YouTube", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:https://www.youtube.com/user/HobbyKidsTV", _
"http://icons.veryicon.com/ico/Internet%20%26%20Web/Black%20and%20White%20Social/youtube.ico", shortcut_working_directory, "Hobby Kids TV", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:https://www.youtube.com/user/FGTeeV", _
"http://icons.veryicon.com/ico/Internet%20%26%20Web/Elegant%20Social%20Media/youtube.ico", shortcut_working_directory, "FGTeeV", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.starfall.com/", _
"http://www.starfall.com/favicon.ico", shortcut_working_directory, "Starfall", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

sub CreateDesktopShortcut(EXEC, ICON, shortcut_working_directory, DESCRIPTION, wscript_shell_object, shortcut_save_location, shortcut_file_object)
    Set shortcut_file_object = wscript_shell_object.CreateShortcut(shortcut_save_location & "\" & DESCRIPTION & ".lnk")
    shortcut_file_object.Description = DESCRIPTION
    shortcut_file_object.IconLocation = ICON
    shortcut_file_object.TargetPath = EXEC
    shortcut_file_object.WindowStyle = 3
    shortcut_file_object.WorkingDirectory = shortcut_working_directory
    shortcut_file_object.Save
End sub



WScript.Quit


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.

Continue reading ‘Desktop Shortcuts for Kids 5.2.2’