tremblement de terre ou quoi ?

[venom]

bonjour,

voila ne sachant pas quoi faire j'ai fait ce petit code sans interet

telecharger ici.

voila sans commentaire


@++

[Ar-S]

Hé hé , moi j'aime bien les inutilitaires
Tu voudrais bien partager le code ?

[wolfjeremy]

Tu voudrais bien partager le code ?

Il fait une capture d'écran du bureau, ensuite il l'affiche en plein écran et la fait bouger, rien de compliqué
Mais c'est vrai que après tout un code en plus sur le forum, ça peut toujours être util.

[venom]

bonjour,

pas de souci voici 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_CloseWindow

Il fait une capture d'écran du bureau, ensuite il l'affiche en plein écran et la fait bouger, rien de compliqué

c'est exactement sa



@++

[Anonyme]

Voici une économie de 352 lignes

Code : Tout sélectionner

For R = 0 To 100
    ResizeWindow(#Window_0, Random(5),Random(5), L, H) 
    Delay(20)
Next

[Ar-S]

Merci Venom, c'est cool. Et merci bien Cp.Bator pour l'economie de lignes

[venom]

arf merci Cpl.Bator je ne savais plus comment faire.
grace a toi je me rappel de la technique merci


@++

[Kwai chang caine]

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 .....

[Ar-S]

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 .....

Allé mon bon KCK, voilà de quoi te rendre moins.... zen
http://www.ruwen.net/webmaster/game_boobs.html

[Kwai chang caine]

Nadine boudin !!!!

Je la veut en avatar

Si les surveillants de la cour de recreation son d'accord (Flype, Dobro, nico, etc ...) on pourrais meme renomer le forum "PureBoobsic"

[venom]

bonjour,

et bien écoute Kwai chang caine sa aurais etais avec plaisir mais wolfjeremy la malhereusement enlever domage .

voila


@++
ps: dit wolf c'est comment le nom de cette demoiselle tu le sait ??? .

[wolfjeremy]

ps: dit wolf c'est comment le nom de cette demoiselle tu le sait ??? .

Lucia, mais je l'enlève parce que je me fait bombarder de message mdr

J'aime autant afficher ma deuxième passion, l'enduro lol

[venom]

ouai c'est vrai c'est bien cool le crosse j'aime assez bien aussi mais faut dire que ton autre passion c'est une autre passion .


@++

[Anonyme]

Lucia, mais je l'enlève parce que je me fait bombarder de message mdr

Comment tu le sais ? j'ai vérifié l'url de ton avatar, elle viens d'un site de Q t'a eu quoi comme genre de message ?

dans se style ? :

Je peut te taper dans la balle ?

ou

Vous risquez de heurté notre sensibilité...

[venom]

aller tien Kwai chang caine rien que pour toi

Telecharger




@++