Pedro Fernandes djprmf

## falar.vbs
Dim message, sapi
message=InputBox("O que vou dizer hoje?")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

## segredo.bat
cls
@ECHO OFF
title Pasta Privada
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Privada goto MDLOCKER
:CONFIRM
echo Pretende bloquear a pasta (S/N)
set/p "cho=>"
if %cho%==S goto LOCK
if %cho%==s goto LOCK

## EICAR-tugatech
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*

## Verificar de ativação do Windows - TugaTech
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do

## gist:7e746349595d44e710d40b18eec183d6
&l - Alinha o conteúdo seguinte à esquerda
&c - Alinha o conteúdo seguinte ao centro
&r - Alinha o conteúdo seguinte à direita
&d - Coloca a data atual
&t - Coloca a hora atual
&f - Coloca o nome do documento
&p - Coloca o número da página

## Modo avançado da Limpeza do Disco no Windows 10 - TugaTech
%SystemRoot%\System32\Cmd.exe /c Cleanmgr /sageset:65535 & Cleanmgr /sagerun:65535

## gist:814e3a7c1b4f56d1a2b537acfebb8267
(rg_conf
  (dev
    (br0
      (type(bridge))
      (logical_network(2))
      (is_sync(1))
      (enabled(1))
      (enslaved
        (eth0
          (stp(1))

## YouTube
document.cookie="VISITOR_INFO1_LIVE=Qa1hUZu3gtk;path=/;domain=.youtube.com";

## Remover restrições
net user UTILIZADOR /times: all

## Limitação da conta com múltiplos períodos
net user UTILIZADOR /time: segunda-sexta,08:00-17:00;sabado,10:20-11:20
	Dim message, sapi
	message=InputBox("O que vou dizer hoje?")
	Set sapi=CreateObject("sapi.spvoice")
	sapi.Speak message
	cls
	@ECHO OFF
	title Pasta Privada
	if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
	if NOT EXIST Privada goto MDLOCKER
	:CONFIRM
	echo Pretende bloquear a pasta (S/N)
	set/p "cho=>"
	if %cho%==S goto LOCK
	if %cho%==s goto LOCK
	Set WshShell = CreateObject("WScript.Shell")
	MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
	Function ConvertToKey(Key)
	Const KeyOffset = 52
	i = 28
	Chars = "BCDFGHJKMPQRTVWXY2346789"
	Do
	Cur = 0
	x = 14
	Do
	&l - Alinha o conteúdo seguinte à esquerda
	&c - Alinha o conteúdo seguinte ao centro
	&r - Alinha o conteúdo seguinte à direita
	&d - Coloca a data atual
	&t - Coloca a hora atual
	&f - Coloca o nome do documento
	&p - Coloca o número da página
	(rg_conf
	(dev
	(br0
	(type(bridge))
	(logical_network(2))
	(is_sync(1))
	(enabled(1))
	(enslaved
	(eth0
	(stp(1))