Log inRegister
You are here: Boossy » VrtNuWin

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.
This site is powered by FoswikiCopyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding Foswiki? Send feedback
This page was cached on 20 Apr 2021 - 11:58.