Informatique & Customisation

[Astuces] Top 10 astuces Notepad – Bien plus qu'un éditeur ! | Windows

Ajoutée le 30 juil. 2016

 

 

Vous n'imaginez pas tout ce qu'il est possible de faire avec votre bloc note (notepad) et je vais justement vous montrer quelques astuces à travers cette vidéo ! C'est parti pour le Top 10 astuces notepad !

************************************************************

Si cette vidéo vous a plu, je compte sur vous pour :
Liker ♥
Partager ♥
Vous abonner ♥

Facebook ► https://www.facebook.com/nickywin.officiel/
Twitter ► https://twitter.com/Nickywiin
E-mail : nicky.win@aol.fr

************************************************************

Mon micro (actuel) :
http://amzn.to/2kphjuq

2ème choix micro (ma sélection) :
http://amzn.to/2klX554

************************************************************

1- Créer une fausse erreur Windows : 
X=Msgbox("Ecrivez votre message ici",0+16,"Ecrivez votre titre ici")

2- Ouverture du lecteur CD/DVD :
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next

Fermeture du lecteur CD/DVD :
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next

4- Afficher un message d'erreur en continu :
@ECHO off
:top
START %SystemRoot%system32notepad.exe
GOTO top

5- Faire danser le LED :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

6- Tester l'antivirus :
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDA​RD-ANTIVIRUS-TEST-FILE!$H+H* 

7- Effet matrice :
@echo off
color 02
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
goto start

8- Message en continu (troll) :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Tu es un imbécile."
loop

9- Éteindre son PC :
shutdown.exe -s -t 00

10- Faire parler l'ordinateur :
Dim message, sapi

message=InputBox("Qu'est-ce que tu veux me dire ?","Parle moi")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

  • Aucune note. Soyez le premier à attribuer une note !