Het journaal 13u
Roep het journaal van gisteren op als het voor 14u is, anders dat van vandaag.
1) VrtNuHetJournaal13u.bat
REM YESTERDAY
@echo off
set day=-1
echo >"%temp%\%~n0.vbs" s=DateAdd("d",%day%,now) : d=weekday(s)
echo>>"%temp%\%~n0.vbs" WScript.Echo year(s)^& right(100+month(s),2)^& right(100+day(s),2)
for /f %%a in ('cscript /nologo "%temp%\%~n0.vbs"') do set "result=%%a"
del "%temp%\%~n0.vbs"
set "YYYY=%result:~0,4%"
set "MM=%result:~4,2%"
set "DD=%result:~6,2%"
set "TYesterday=%yyyy%%mm%%dd%"
REM TODAY
Set TToday=%date:~6,4%%date:~3,2%%date:~0,2%
set THour=%time:~0,2%
REM YESTERDAY OR TODAY
IF %time:~0,2% lss 14 (
set URL=https://www.vrt.be/vrtnu/a-z/het-journaal/2020/het-journaal-het-journaal-13u-%TYesterday%/
) ELSE (
set URL=https://www.vrt.be/vrtnu/a-z/het-journaal/2020/het-journaal-het-journaal-13u-%TToday%/
)
REM EXECUTE
start %URL%
2) VrtNuHetJournaal13u.vbs
Hide the DOS box by using a .vbs script alongside the .bat file with the same name:
Dim scriptName : scriptName = WScript.ScriptFullName
scriptName = Left(scriptName, Len(scriptName) - 4) & ".bat"
Set WshShell = CreateObject("WScript.Shell" )
WshShell.Run chr(34) & scriptName & Chr(34), 0
Set WshShell = Nothing
3) Pin to start
Source:
https://social.technet.microsoft.com/Forums/en-US/dd2b13ef-2968-4f23-b531-57d1e9d634e3/if-you-guys-have-been-trying-hard-to-pin-vbs-files-to-your-start-menu-in-windows-10-look-no?forum=ITCG&prof=required
If you rightclick the .vbs file, you'll notice there's no 'Pin to Start' option.
There's a simple trick to solve this:
- modify the .vbs extension into .exe
- rightclick the .exe and choose Pin to Start
- rename the .exe back to .vbs
- now go to %AppData%\Microsoft\Windows\Start Menu\Programs
- rightclick the shortcut you've just created and change .exe into .vbs in the Target field
4) Add the right icon
- open the VRT NU site in the Edge browser
- choose … (Settings and more) > Apps > Install this site as an app
- in the dialog that appears, choose the Install button
- click Start, then rightclick the recently added app
- choose More > Open file location
- rightclick > Properties
- click the Change Icon… button and copy what's in the field
- now open the Properties > Change Icon… of the .vbs shortcut (from 3)), in the same location
- paste the copied value here and confirm
Now your .vbs shortcut has the right icon. You can safely delete the site app.