[R] Rendre l'écran antierement noir.

[Simoes03]

Bonjour tout le monde, voila, je suis en train de faire un programme mais je rencontre un petit problème!

Le but de mon programme serai de rendre l'écran noir (sans aucune bordure de fenêtre) en appuyant sur une touche donné.
J'avais pensé à utiliser KODA, mais il y a toujours des bordure qui s'affiche

Donc j'implore votre aide !

Merci.

[pop45]

SplashImageOn
cherche de se coter la
Va dans l'aide de autoit
J'ai jamais utiliser cette fonction donc je sait pas si tu prend une image de 25*25 pixel si sa va l'étendre entièrement ou combler le vide en gris
donc si c'est le cas tu devra faire une image noir de la taille de ton écran (sa devrait pas être compliquer avec ton photoshop cs4 craqué)

[Simoes03]

L'image est déjà faite, je l'avais utilisé avec KODA mais, comme je viens de l'expliquer précédemment, on voie les bordures

Merci du conseil je vais essayer de-suite

[Simoes03]

Problème RÉSOLUT! Merci pop45

[Sh4dows]

Tu aurais au moins pu montrer le code Final ayant permis la résolution de ton problème !

Code : Tout sélectionner

SplashImageOn("Black Screen", @ScriptDir&"\monimage.bmp", @DesktopWidth, @DesktopHeight, 0, 0)
 

Cordialement sh4dows

[Iste]

Perso j'aurai plus vu un truc du genre

Code : Tout sélectionner

GUICreate("",@DesktopWidth,@DesktopHeight,0,0,0x80000000)
GUICtrlCreateLabel("",0,0,@DesktopWidth,@DesktopHeight)
GUISetBkColor(0)
GUISetState()

Sleep(10000)
 

Sinon, si le but est d'éteindre l'ecran, ce code sera plus efficace
http://www.autoitscript.fr/forum/viewto ... 75&start=0

[Habibsbib]

+1 pour Iste, c'est aussi la première chose qui m'est venue à l'esprit.
C'est d'ailleurs plus pratique que d'exploiter une image.

[Tlem]

Sinon, il est possible de faire ceci :

Code : Tout sélectionner

ShellExecute(@SystemDir & "\scrnsave.scr")

[berthozero]

J'ai un peu amélioré ton progamme en empéchant de pouvoir quitter l'écran noir et en masquant la souris, se désactive avec un CTRL+ALT+SUPPR :

Code : Tout sélectionner

#Include <WinAPI.au3>

$GUI = GUICreate("",@DesktopWidth,@DesktopHeight,0,0,0x80000000)
GUICtrlCreateLabel("",0,0,@DesktopWidth,@DesktopHeight)
GUISetBkColor(0)
GUISetState()

AdlibRegister("FirstPlan", 100)

_WinAPI_ShowCursor(0)

Sleep(10000)

Func FirstPlan()
    WinSetOnTop($GUI, "", 1)
EndFunc