Forums PureBasic - Français
http://forums.purebasic.com/french/
, moi j'aime bien les inutilitaires 
Il fait une capture d'écran du bureau, ensuite il l'affiche en plein écran et la fait bouger, rien de compliquéAr-S a écrit :Tu voudrais bien partager le code ?
Code : Tout sélectionner
Procedure appuie() ;<---- fait un appuie de la touche imprime ecrant ;)
#Desk = #True
If #Desk = #True
keybd_event_(#VK_SNAPSHOT,0,0,0)
EndIf
EndProcedure
Delay(100)
appuie()
If ExamineDesktops()
Ecran_Largeur = DesktopWidth(0)
Ecran_Hauteur = DesktopHeight(0)
ProfondeurCouleur = DesktopDepth(0)
Else
End
EndIf
DC = GetDC_(0)
CreateImage(0, Ecran_Largeur, Ecran_Hauteur)
Dessin = StartDrawing(ImageOutput(0))
BitBlt_(Dessin, 0, 0, Ecran_Largeur, Ecran_Hauteur, DC, 0, 0, #SRCPAINT | $40000000) ;<----on copie l'image qui est dans le dossier temporaire
StopDrawing()
ReleaseDC_(0, DC)
SaveImage(0, "c:/Screenshoot.bmp", #PB_ImagePlugin_BMP) ;<---on la colle ou on veut :)
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;- Window Constant
Enumeration
#Window_0
EndEnumeration
If ExamineDesktops()
L = DesktopWidth(0)
H = DesktopHeight(0)
EndIf
If OpenWindow(#Window_0, 0, 0, L, H, "desktop tremble", #PB_Window_BorderLess);<---et la on crée une fenetre plein ecrant sans bordure puis on n'y colle l'image
StickyWindow(#Window_0, 1)
If CreateGadgetList(WindowID(#Window_0))
If LoadImage(0, "c:/Screenshoot.bmp")
ImageGadget(0, 0, 0, L, H, ImageID(0))
EndIf
;<----la on fait un ResizeWindow pour deplacer la fenetre a l'endroit souhaité
For R = 0 To 100
ResizeWindow(#Window_0, Random(5),Random(5), L, H)
Delay(20)
Next
EndIf
EndIf
Delay(2000)
End
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindowc'est exactement saIl fait une capture d'écran du bureau, ensuite il l'affiche en plein écran et la fait bouger, rien de compliqué
Code : Tout sélectionner
For R = 0 To 100
ResizeWindow(#Window_0, Random(5),Random(5), L, H)
Delay(20)
Next
Allé mon bon KCK, voilà de quoi te rendre moins.... zenKwai chang caine a écrit :En tout cas ça fait un super effet, pour ceux qui ont un ecran tout neuf et qui ne savent pas ce que c'est que de travailler sur un vieux riblon qui tremble naturellement
Dis voir VENOM, tu pourrais pas aussi avec ton super code faire trembler l'avatar de WOLFJEREMY ???
Elle est jolie la copine de WOLF .....
mais wolfjeremy la malhereusement enlever domage 
.
.Lucia, mais je l'enlève parce que je me fait bombarder de message mdrvenom a écrit : ps: dit wolf c'est comment le nom de cette demoiselle tu le sait ???
mais faut dire que ton autre passion c'est une autre passion .Comment tu le sais ? j'ai vérifié l'url de ton avatar, elle viens d'un site de QLucia, mais je l'enlève parce que je me fait bombarder de message mdr
t'a eu quoi comme genre de message ?