Une "Mauvaise" blague

Code:: rem ============================================================================
rem Une "Mauvaise" blague
rem ============================================================================
dim ret%,hDC% ,t$
full_space 0
alpha 10 : top 10,100 : left 10,screen_x/3 : font_bold 10 : font_name 10,"tahoma"
font_size 10,12
t$ = " ATTENTION !!! ACHTUNG !!! WARNING !!!" +chr$(13) +chr$(13)
t$ = t$ + " VOTRE PC EST ACTUELLEMENT HORS SERVICE" + chr$(13)
t$ = t$ + " POUR L'ACTIVER, PRIEZ POUR QUE TOUT FINIRA BIEN ! " + CHR$(13)
t$ = t$ + " SINON UNE TOUCHE OU UN CLICK FERA L'AFFAIRE"
hDC% = handle_canvas(0) : ' Handle du contrôle d'affichage
dll_on "user32.dll"
ret% = dll_call1("PaintDesktop",hDC%): ' Copier l'image du fond du bureau sur le contrôle d'affichage
dll_off
caption 10,t$
2d_pen_width 20 : 2d_pen_color 255,0,0
2d_line 0,0,screen_x,screen_y-50 : 2d_line screen_x,0,0,screen_y-50
repeat
font_color 10 ,200,100,50 : pause 500 : font_color 10,0,0,255 : pause 500
until scancode <> 0
t$ = chr$(13)+ " ... LA MAUVAISE BLAGUE EST TERMINEE ..." + chr$(13)+chr$(13)
t$ = t$ + " EN VALIDANT LE MESSAGE, VOTRE PC SERA DISPONIBLE ... " +chr$(13)
caption 10,t$
message ""
terminate
rem ==========================================================================

Ho! le vilain, il veux faire peur. Very Happy

Ça pourrait, effectivement, servir à faire des mauvaises blagues, celle-ci est gentille, mais ce qui est embêtant c'est le logo Panoramic, c'est pas une bonne pub... Razz

En faisant un border_hide 0 et color 0,0,0,0, et en supprimant le texte, l’angoisse est à son comble et c'est anonyme.

lol!

Bon je ne vais pas tenter la blague .. J'ai perdu près de 4 heures à cause de malwares / virus qui m'avaient polluer ma connexion au point de la rendre totalement inexploitable alors bon ... Je ne suis pas sûr que ce soit le bon jour pour moi pour tester la blague .. Wink

Ma blague n’est pas si mauvaise que ça !
Elle est INOFFENSIVE

En tenant compte de la suggestion de Jean Claude, on accentue l'angoisse.

Code:: rem ============================================================================
rem Une "Mauvaise" blague
rem ============================================================================
dim ret%,hDC% ,t$
full_space 0 : border_hide 0 : color 0,0,0,0
hDC% = handle_canvas(0) : ' Handle du contrôle d'affichage
dll_on "user32.dll"
ret% = dll_call1("PaintDesktop",hDC%): ' Copier l'image du fond du bureau sur le contrôle d'affichage
dll_off
2d_pen_width 20
repeat
   2d_pen_color 255,0,0
   2d_line 0,0,screen_x,screen_y-50 : 2d_line screen_x,0,0,screen_y-50
   pause 1000: 2d_pen_color 0,255,255
   2d_line 0,0,screen_x,screen_y-50 : 2d_line screen_x,0,0,screen_y-50
   pause 1000
until scancode <> 0
terminate
rem ==========================================================================

Cruel va .... Very Happy

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Dans le même style, vous avez le classique :

Code:: rem ' Horreur
dim i$ , j$
dim()
label clic

rem form0
border_hide 0
full_space 0
color 0,255,255,255
pause 2000

rem Attaque
panel 10
left 10,int(screen_x/4)
top 10,int(screen_y/3)
width 10,int(screen_x/2)
font_bold 10
font_size 10,12
color 10,255,0,0
caption 10,i$
go()
hide 10
beep
pause 2000
font_color 10,255,255,255
color 10,0,0,0
caption 10,j$
show 10
clac()
pause 2000
hide 10
color 0,0,0,0
on_click 0,clic

end

sub clac()
midi_on
midi_instrument 127
midi_volume 127
midi_play 64,10
pause 400
midi_off
end_sub

clic:
terminate
return

sub dim()
i$="ATTENTION, l'attaque d'un virus très dangereux est détecté"
j$="La défense a échoué, la mémoire de votre ordinateur est détruite"
end_sub

sub go()
dim_local i%
for i%=1 to 5
hide 10
pause 600-(i%*100)
show 10
pause 600-(i%*100)
next i%
end_sub

Jicehel m’a qualifié de cruel.
Que va-t-il dire du Martien ?

Voici un code plus humain tongue

Code:: rem ============================================================================
rem Une "Mauvaise" blague
rem ============================================================================
dim ret%,hDC% ,t$
full_space 0 : border_hide 0 : color 0,0,0,0
hDC% = handle_canvas(0) : ' Handle du contrôle d'affichage

dll_on "user32.dll"
ret% = dll_call1("PaintDesktop",hDC%): ' Copier l'image du fond du bureau sur le contrôle d'affichage
dll_off
2d_pen_width 20 : 2d_fill_on : 2d_pen_color 255,0,0 : 2d_fill_color 255,0,0
2d_circle screen_x/2,screen_y/2,200
2d_pen_color 255,255,255 : 2d_fill_color 255,255,255
2d_rectangle screen_x/2-180,screen_y/2-10,screen_x/2+180,screen_y/2+10

alpha 10 : top 10, screen_y/2 -100 : left 10, screen_x/2-60 : font_bold 10
font_name 10,"tahoma" : font_size 10,20 : font_color 10,255,255,255 : color 10, 255,0,0
caption 10," H O R S "

alpha 20 : top 20, screen_y/2 +80 : left 20, screen_x/2-80 : font_bold 20
font_name 20,"tahoma" : font_size 20,20 : font_color 20,255,255,255 : color 20, 255,0,0
caption 20," S E R V I C E "
repeat : until scancode <> 0
terminate
rem ============================================================================

» La Blague Du Jour
» Boucle while pour petite blague...