ATTENTION: You are viewing a page formatted for mobile devices; to view the full web page, click HERE.

DonationCoder.com Software > Coding Snacks

A script for a black screen

(1/4) > >>

Contro:
I would like a script I can launch from an icon in the desltop for :

a) decrease the brightess of the monitor to the minimum
b) put a black or blank screen in the desktop
c) Reactivate the monitor only with the space bar.

 :P :P :-*

Contro:
I am trying to find a script in web for changing the wallpaper or background, but nothing seems go well for me.
 :-* :P

dim shell dim user

Set shell = WScript.CreateObject("WScript.Shell") user = shell.ExpandEnvironmentStrings("%USERNAME%")

Set fso = CreateObject("Scripting.FileSystemObject")

windowsDir = fso.GetSpecialFolder(0) wallpaper = "c:\wallpaper.jpg"

shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper

shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True


--------------------------------------


@echo off
reg add "HKCU\control panel\desktop" /v wallpaper /t REG_SZ /d "" /f
reg add "HKCU\control panel\desktop" /v wallpaper /t REG_SZ /d "C:\[LOCATION OF WALLPAPER HERE]" /f
reg delete "HKCU\Software\Microsoft\Internet Explorer\Desktop\General" /v WallpaperStyle /f
reg add "HKCU\control panel\desktop" /v WallpaperStyle /t REG_SZ /d 2 /f
RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters
exit


---------------------------

Contro:
proposed for nanny 2021 !!!!!!!!!!


 :-* :P

Ath:
You still need to develop your google skills :(
Tools like this exist since the beginning of Windows (well, since around the Windows 3.x releases)
Just an example:

https://www.bleepingcomputer.com/news/microsoft/windows-10-gets-the-mac-hot-corners-feature-with-new-app/

Contro:
You still need to develop your google skills :(
Tools like this exist since the beginning of Windows (well, since around the Windows 3.x releases)
Just an example:

https://www.bleepingcomputer.com/news/microsoft/windows-10-gets-the-mac-hot-corners-feature-with-new-app/
-Ath (November 06, 2020, 12:36 AM)
--- End quote ---
I'll try and comment Ath.
Best Regards

Navigation

[0] Message Index

[#] Next page

Go to full version