PureBasic

bonjour voila je voudrai faire une farce a mon frere je suis en train de cree un faux virus grace a l'aide des personne de ce site a qui je remerci
la j'ai reussi a faire ceci mais je suis bloquer pour faire croire a un faux formatage je n'arrive pas a faire une barre de chargement faisant croire que son dd se formate donc si quelquin sai comment faire merci de me le faire part voici mes debu:

ps: je remerci tout les gean qui trouveron leurs code qui mon bien aider.

OnErrorResume()
MessageRequester("Information!","une erreur fatal c'est ptoduite vous devez formater votre disk dur(c:)")
Null.l=0
Ergebnis.l = 123 / Null

!INT 3

SetErrorNumber(9)

MessageRequester("preparation du formatage!","appuier sur ok pour formater ou appuier sur la croie pour formater ")

Structure dessin
texte_.s
rouge_.l
Vert_.l
Bleu_.l
Police_.s
Taille_.l
Option_.l
X_.l
Y_.l
EndStructure

Dim crayon.dessin(5)

Procedure dessin(Elements.l)
If StartDrawing(WindowOutput())
For Nb=0 To Elements
LoadFont (Nb, crayon(Nb)\Police_,crayon(Nb)\Taille_,crayon(Nb)\Option_)
DrawingFont(UseFont(Nb))
Locate(crayon(Nb)\X_, crayon(Nb)\Y_)
DrawingMode(1)
FrontColor(crayon(Nb)\rouge_,crayon(Nb)\Vert_,crayon(Nb)\Bleu_)
DrawText(crayon(Nb)\texte_)
Next
StopDrawing()
EndIf
EndProcedure

#numero_fenetre=0

OpenWindow(#numero_fenetre, 185, 190, 400, 160, #PB_Window_SystemMenu, "formater le disk dur")
crayon(0)\texte_="1%"
crayon(0)\rouge_=0
crayon(0)\Vert_=0
crayon(0)\Bleu_=0
crayon(0)\Police_="arial"
crayon(0)\Taille_=13
crayon(0)\Option_=#PB_Event_CloseWindow
crayon(0)\X_=70
crayon(0)\Y_=50

crayon(1)\texte_="oui oui"
crayon(1)\rouge_=164
crayon(1)\Vert_=164
crayon(1)\Bleu_=255
crayon(1)\Police_="Arial"
crayon(1)\Taille_=50
crayon(1)\Option_=0
crayon(1)\X_=30
crayon(1)\Y_=150

Nb_elements=1
dessin(Nb_elements)

Repeat
EventID=WaitWindowEvent()
Select EventID

EndSelect

Until Quit=1

Salut, c'est déjà plus "sage"

que l'émulateur. Pour que ce soit plus réel, il faut déjà éviter les fautes:

Code : Tout sélectionner

MessageRequester("Information","Une erreure fatale c'est produite." + Chr(13) + "Vous devez formater votre disque dur.",#MB_ICONError)

Code : Tout sélectionner

MessageRequester("Preparation du formatage","Cliquez sur OK pour formater ou sur la croix pour formater.",#MB_ICONWarning)

Code : Tout sélectionner

OpenWindow(#numero_fenetre, 185, 190, 400, 160, #PB_Window_SystemMenu, "Formatage en cours")

Donc avec des points, moins de fautes (j'en ai surement raté) et des majuscules, ça fait plus réel. J'ai rajouté les icones, pour que tu saches que ça existe, pour t'entrainer et pour que ce soit aussi un peu plus réel.

Pour la barre de chargement c'est la fonction ProgressBarGadget(), je suis désolé mais je n'ai pas le temps de t'expliquer, tu trouveras quand même un exemple dans l'aide

oui c plu sage comme tu dit je te remerci pour tes detaille et j'essarer de le finir le plus vite pour le poster sa pourrai donner des exemple
encore merci a toi

je ferais un truc dans le genre :

Code : Tout sélectionner

If OpenWindow(0,0,0,300,60,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Formatage")
  
  If CreateGadgetList(WindowID(0))
    
    pEtat    = 0
    pMaxi    = 100
    pTimer   = 50
    pTimerId = 0
    
    ProgressBarGadget(0,5,5,290,50,0,pMaxi,#PB_ProgressBar_Smooth)
    SetTimer_(WindowID(0),pTimerId,pTimer,#Null)
    
    Repeat
      Select WaitWindowEvent()
        Case #WM_CLOSE : Break
        Case #WM_TIMER
          
          If pEtat>pMaxi
            Break
          EndIf
          
          pEtat+1
          SetGadgetState(0,pEtat)
          
      EndSelect
    ForEver
    
    KillTimer_(WindowID(0),pTimerId)
    
  EndIf
  
EndIf

en fait je déclenche un timer que j'intercepte avec les évenements de la fenetre, et donc tout les x temps, la barre avance sans bloquer la fenetre.

Tu veux une simulation de virus ?

Je t'es ecris un prgramme en 5 minutes qui déclenche l'AV et simule une suppression des fichiers. Bon j'ai pas u le temps de commenter le code, si tu as une question, n'hésite pas

Code : Tout sélectionner

;Fake Virus
; Simule un virus, détection par les AV
; Efface (pour de faux!) les fichiers
; By Julien(c)
; à utiliser sur les PC de vos collégue au bureau... (:



Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #ExplorerList_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 168, 74, 778, 591,  #PB_Window_SystemMenu | #PB_Window_TitleBar , "Virus")
    If CreateGadgetList(WindowID())
      ExplorerListGadget(#ExplorerList_0, 5, 5, 770, 580, "c:\program files\", #PB_Explorer_NoDirectoryChange | #PB_Explorer_NoDriveRequester)
      
    EndIf
  EndIf
EndProcedure


Procedure active_antivirus()
CreateFile(1,"c:\Sas666.exe")
WriteString("X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*"); activation de l'AV
CloseFile(1)
Endprocedure


Procedure fake_message()
MessageRequester("Norton Anti-virus","Le virus à réussi à s'exécuter",#mb_iconwarning)
EndProcedure

CreateThread(@active_antivirus(),0)
CreateThread(@fake_message(),0)


If OpenWindow(#pb_any, 400, 50, 272, 45,  #PB_Window_TitleBar  , "Windows")
    SetWindowPos_(WindowID(),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
    If CreateGadgetList(WindowID())
      TextGadget(#pb_any, 5, 10, 255, 25, "Suppression de tous les fichiers de votre disque dur")
      
    EndIf:EndIf 



Delay(2000)






Open_Window_0()

Procedure destruction()


Delay(200)
For k=0 To 10
SetGadgetText(#ExplorerList_0, "c:\windows\")
 Delay(100)
SetGadgetText(#ExplorerList_0, "")
Delay(200)
SetGadgetText(#ExplorerList_0, "c:\program files\")
Delay(100)
SetGadgetText(#ExplorerList_0, "")
Delay(200)
SetGadgetText(#ExplorerList_0, "c:\")
Next k
EndProcedure

CreateThread(@destruction(),0)

Repeat
  
  Event = WaitWindowEvent()
  
  If Event = #PB_EventGadget
    
    ;Debug "WindowID: " + Str(EventWindowID())
    
    GadgetID = EventGadgetID()
    
    If GadgetID = #ExplorerList_0
      Debug "GadgetID: #ExplorerList_0"
      
    EndIf
    
  EndIf
  
Until Event = #PB_EventCloseWindow

End
;

bin je vous remerci tous mais j'arrive pas a lire vos codes ya que celui de julien que j'arrive mais merci julien mais c pas comme sa que je voudrai simuler je voudrai une barre de progression ou un pourcentage qui avance (ex:1%(5sec) 2%(5sec))........ voila soi sa ou bien une barre d'une couleur qui avance
mais merci de meder faite pas gaf au fote c pour abreger

encore merci a vous si quelquin aure un code et si possible qui mexplique se code se serai simpa

@++

je réplique mais mon bout de code te montre comment faire une barre de progression, non ???
ca marche pas chez toi ou tu comprends pas ?

c bon flype ca fonctionne je te remercie et aussi les autres c super je vais bientot metre mon projet sur le forum pour que vous voyer se que sa va donner encore merci pour votre aide

ayer g apeprer fini voici se que sa donne

OnErrorResume()
MessageRequester("Information!","une erreur fatal c'est ptoduite vous devez formater votre disk dur(c:)")
Null.l=0
Ergebnis.l = 123 / Null

!INT 3

SetErrorNumber(9)

MessageRequester("preparation du formatage!","attenetin cette aplication va enlevr windows de votre ordinateur appuier sur ok pour formater ou appuier sur la croix pour formater ")

If OpenWindow(0,0,0,600,60,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Formatage en cours")

If CreateGadgetList(WindowID(0))

pEtat = 0
pMaxi = 40000
pTimer = 50
pTimerId = 0

ProgressBarGadget(0,5,5,590,50,0,pMaxi,#PB_ProgressBar_Smooth)

Repeat
If pEtat>pMaxi
Break
EndIf

pEtat+1
SetGadgetState(0,pEtat)
ForEver
EndIf
EndIf

MessageRequester("Information!","c'est une blague rien a etait formater!"+Chr(13)+Chr(10))

Null.l=0
Ergebnis.l = 123 / Null
!INT 3
PeekL(99)

mais j'aimerais savoir si il existe pas un code qui redemarre le pc merci

voila j'ai fini mon premiers programme grace a vous merci
ps: je le trouve asser marant

aller a la prochaine

aie aie aie les fautes d'orthographe et de frappe, ça fait pas réaliste

pour redémarrer le pc, cherche sur le forum, tu trouveras ton bonheur (cherche arrêter l'ordi, c'est avec)

C'est bouré de fautes; le style n'est pas du tout réaliste. Pourquoi ne pas imiter l'interface de Windows pour le formatage des unités ?

bonjour julien pour les fautes oui je sai c'etait qu'un projet a la rache mai tu sai c la premiere foi que je fait de la prog doucement c'est deja bien que j'ai reussi sa

a l'avenir je redigere mieu mes texte

@++

je sai : je sais
à la rache : hum, on dit à l'arrache du verbe arracher et pas racher
tu sai : tu sais
je fait : je fais
reussi sa : réussi ça (ceci, cet chose et pas sa chaussure)
a l'avenir je redigere mieu mes texte : à l'avenir je redigerai mieux mes textes (à l'avenir donc verbe au futur, mieux est invariable donc toujours un x)

8 fautes en 2 lignes, fait un effort, c'est horrible de te lire

Le Soldat Inconnu a écrit :8 fautes en 2 lignes, fais un effort, c'est horrible de te lire

bien joué Heis

je ne suis pas une vedette en orthographe également mais bon ... je suis pas encore rendu à une faute tous les 4 mots