PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

Voici mon programme WowPasscode

http://forums.purebasic.com/french/viewtopic.php?t=9010

Page 1 sur 1

Voici mon programme WowPasscode

Publié : sam. 07/févr./2009 9:14
par jbernard13
bonjour
je sais qu'il ya quelques joueurs de World of warcraft ici , alors j'ai pensé à eux j'ai crée un peu programme qui permet sauvegarder le mot de passe
du jeu dans un fichier , ensuite on clique sur un bouton pour qu'il soit memoriser
et ensuite lancer le jeu et un simple Control-V suffit sans devoir le taper ( parcerque il ya beaucoup de comptes qui se font pirater dans ce jeu)
j'utilise la libs de Gnozal : PureColor


Code : Tout sélectionner

;WowPasscode copyright 2009 par Jbernard13
;Constantes 

;Fenetres*****
Enumeration
  #Fenetre_Main
  #Fenetre_edition
EndEnumeration

;Gadgets*****
Enumeration
  #Text_pass
  #String_pass
  #Bouton_envoyer
  #Bouton_edition
  #Text_editer
  #String_editer
  #Bouton_sauver
  #Bouton_Quitter
  #Fichier
EndEnumeration

;Chargement des  fonts****
Global Font01
Font01=LoadFont(Font01,"arial",10,#PB_Font_Bold)


;Procedures *****

; Procedure de sauvegarde et de chargement**** 
;**Sauvegarde**
Procedure sauver()
  CreateFile(#Fichier,"datap")
  pass$ =GetGadgetText(#String_editer)
  WriteStringN(#Fichier,pass$)
  MessageRequester("Infos","Mot de passe sauvegarder",#MB_OK)
   CloseFile(#Fichier)
 EndProcedure
;** Chargement**
Procedure charger()
  StringGadget(#String_pass,10,30,160,15,"",#PB_String_BorderLess|#PB_String_Password|#PB_String_ReadOnly)
  SetGadgetColor(#String_pass,#PB_Gadget_BackColor,RGB(0,0,0))
  SetGadgetColor(#String_pass,#PB_Gadget_FrontColor,RGB($FF,$FF,$0))
  OpenFile(#Fichier,"datap")
  ReadFile(#Fichier,"datap")
  Lire$=ReadString(#Fichier)
  SetGadgetText(#String_pass,Lire$) 
  CloseFile(#Fichier)
EndProcedure
;***Creation de la fenetre principale 
Procedure main()
If OpenWindow(#Fenetre_Main,0,0,180,90,"WowPasscode",#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
  SetWindowColor(#Fenetre_Main,RGB(0,0,0))
  TextGadget(#Text_pass,30,10,120,20,"Password : ",#PB_Text_Center)
  SetGadgetFont(#Text_pass,Font01)
  SetGadgetColor(#Text_pass,#PB_Gadget_BackColor,RGB(0,0,0))
  SetGadgetColor(#Text_pass,#PB_Gadget_FrontColor,RGB($FF,$FF,$0))
  StringGadget(#String_pass,10,30,160,15,"",#PB_String_BorderLess|#PB_String_Password|#PB_String_ReadOnly)
  SetGadgetColor(#String_pass,#PB_Gadget_BackColor,RGB(0,0,0))
  SetGadgetColor(#String_pass,#PB_Gadget_FrontColor,RGB($FF,$FF,$0))
  ButtonGadget(#Bouton_envoyer,10,60,60,20,"Envoyer")
  PureCOLOR_SetButtonColor(#Bouton_envoyer,RGB($FF,$FF,$0),RGB(0,0,0))
  ButtonGadget(#Bouton_edition,110,60,60,20,"Editer")
  PureCOLOR_SetButtonColor(#Bouton_edition,RGB($FF,$FF,$0),RGB(0,0,0))
  EndIf
EndProcedure

;***Creation de la fenetre d'edition 

Procedure Edition()
    If OpenWindow(#Fenetre_edition,0,0,180,90,"Edition",#PB_Window_TitleBar|#PB_Window_ScreenCentered)
      SetWindowColor(#Fenetre_edition,RGB(0,0,0))
      TextGadget(#Text_editer,30,10,120,20,"Editer",#PB_Text_Center)
      SetGadgetFont(#Text_editer,Font01)
      SetGadgetColor(#Text_editer,#PB_Gadget_BackColor,RGB(0,0,0))
      SetGadgetColor(#Text_editer,#PB_Gadget_FrontColor,RGB($FF,$FF,$0))
      StringGadget(#String_editer,10,30,160,15,"",#PB_String_BorderLess)
      ButtonGadget(#Bouton_sauver,10,60,60,20,"Sauver")
      PureCOLOR_SetButtonColor(#Bouton_sauver,RGB($FF,$FF,$0),RGB(0,0,0)) 
      ButtonGadget(#Bouton_Quitter,110,60,60,20,"Quitter")
      PureCOLOR_SetButtonColor(#Bouton_Quitter,RGB($FF,$FF,$0),RGB(0,0,0))
      texte$ =GetGadgetText(#String_pass)
      SetGadgetText(#String_editer,texte$)
   EndIf
   EndProcedure
  
  ;Boucle du programme 
main()
charger()
Repeat 
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Bouton_envoyer
        ;** on copie le code dans le pressepapier
          ClearClipboard()
          code$ = GetGadgetText(#String_pass)
          SetClipboardText(code$)
         CloseWindow(#Fenetre_Main)
          Case #Bouton_edition: Edition()
          HideWindow(#Fenetre_Main,1)
        Case #Bouton_sauver :sauver()
          Case #Bouton_Quitter :main()
          text$ =GetGadgetText(#String_editer)
          SetGadgetText(#String_pass,text$)
            HideWindow(#Fenetre_edition,1)
            EndSelect
      ;**Evenement pour les fenetres
      Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Fenetre_Main
          Quitter= #True
       EndSelect
      
  EndSelect
Until Quitter
End

Publié : sam. 07/févr./2009 21:13
par Ollivier
Salut Bernard13,

Je vois bien que certains usent de moqueries peu judicieuses à ton égard.
Ne leur offre pas la chance de continuer à le faire en faisant une gaffe comme ça.

Il y a un programme différent au tiens qui porte ce nom ("Chronos"). Moi, je trouve que "WowPasscode" serait plus sympa, non?

Ollivier

Publié : sam. 07/févr./2009 22:29
par jbernard13
merci , je viens de changer le nom

Publié : sam. 07/févr./2009 22:45
par venom
mais tu devrai mètre une version exécutable. ou alors adapter ton code car je n'est pas la lib sur moi par exemple. :wink:





@++

Publié : dim. 08/févr./2009 8:53
par jbernard13
desoler Venom , j'ai pas de serveur ftp

Publié : dim. 08/févr./2009 11:17
par Backup
Ollivier a écrit :Salut Bernard13,

Je vois bien que certains usent de moqueries peu judicieuses à ton égard.
toutefois faudrait vraiment être naïf pour croire que c'est le jbernard13 de d'habitude qui a écrit ce programme !!


un code, c'est comme une écriture, une expression, c'est juste en regardant un code, que bien souvent on reconnais une personne , tout comme lorsqu'on regarde la façon de s'exprimer quelqu'un
par exemple KCC qui écrit un romand, pour expliquer un truc qui aurai pu l'être en 2 lignes , ou bien Chris et son petit coté bougon :lol:

bref , personne ici ne me fera croire que c'est b13 qui a écrit ce code !!

lorsque quelqu'un pose une question sur ce que veux dire "Pauvreté"
il n'arrivera pas a me faire croire qu'il écrit "Les Misérables" :lol:


voila , juste pour dire que je sais que derrière le pseudo Jbernard13 , se cache plusieurs personnes au niveau intellectuel bien différent !

maintenant on peu toujours croire au père Noël !! :D

Publié : dim. 08/févr./2009 11:27
par Anonyme
Dobro a écrit :
Ollivier a écrit :Salut Bernard13,

Je vois bien que certains usent de moqueries peu judicieuses à ton égard.
voila , juste pour dire que je sais que derrière le pseudo Jbernard13 , se cache plusieurs personnes au niveau intellectuel bien différent !
Bien d'accord avec toi , tantôt un gars sympa , et tantôt un gros c...
Enfin , si il est l'auteur du code tant mieux , sinon qu'il aille se prendre...

Salut Bernard13,

Je vois bien que certains usent de moqueries peu judicieuses à ton égard.
Ne leur offre pas la chance de continuer à le faire en faisant une gaffe comme ça.
Tu es quoi ? un psy ? un prof ? un communiste ? :D

Publié : dim. 08/févr./2009 11:36
par Backup
Cpl.Bator a écrit : Tu es quoi ? un psy ? un prof ? un communiste ? :D
:lol: :lol:

p'tet ben ouaip ! :lol:

Publié : dim. 08/févr./2009 18:50
par Ollivier
Pour la plupart de chacun d'eux, les psys, les profs et même les communistes valent mieux que moi...

Publié : dim. 08/févr./2009 19:04
par jbernard13
oui c'est moi qui écris le code , je sais faire pleins de choses en pb , j'ai changer ma façon de programmer , apres avoir lu du C , du C++ ,vb et ensuite
les tutos de kayne et la doc complete de PB ...

Voici la premiere version du programme :

Code : Tout sélectionner

**Wowpass 2009**



Enumeration
  #main
EndEnumeration

Enumeration
  #Pass
  #Go
  #cls
EndEnumeration


Procedure copy()
  ClearClipboard()
  code$ = GetGadgetText(#Pass)
  SetClipboardText(code$)
EndProcedure
Procedure Effacer()
  ClearClipboard()
EndProcedure

If OpenWindow(#main,0,0,180,70,"WowPass",#PB_Window_ScreenCentered)
  SetWindowColor(#main,RGB(0,0,0))
  StringGadget(#Pass,60,10,55,20,"Ici  on mets la pass de wow",#PB_String_ReadOnly  SetGadgetColor(#Pass, #PB_Gadget_BackColor, $000000)
  SetGadgetColor(#Pass,#PB_Gadget_FrontColor, $00FFFF)
  ButtonGadget(#Go,10,35,60,20,"Wow")
  ButtonGadget(#cls,110,35,60,20,"Cls")
  
  EndIf
  
Repeat 
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Go :copy()
        Quit = #True
      Case #cls:Effacer() 
        EndSelect
  Case #PB_Event_CloseWindow
      Quit = #True
  EndSelect
Until Quit
End

Publié : dim. 08/févr./2009 19:11
par Anonyme
Ollivier a écrit :Pour la plupart de chacun d'eux, les psys, les profs et même les communistes valent mieux que moi...
Faut pas ce sous-estimé dans la vie , si tu es ici , tu as certaine qualité c'est indéniable.

Publié : dim. 08/févr./2009 20:29
par Le Soldat Inconnu
JBernard,

je corrigre juste un point dans la procedure charger :

Code : Tout sélectionner

Procedure charger() 
  StringGadget(#String_pass,10,30,160,15,"",#PB_String_BorderLess|#PB_String_Password|#PB_String_ReadOnly) 
  SetGadgetColor(#String_pass,#PB_Gadget_BackColor,RGB(0,0,0)) 
  SetGadgetColor(#String_pass,#PB_Gadget_FrontColor,RGB($FF,$FF,$0)) 
  OpenFile(#Fichier,"datap") 
  ReadFile(#Fichier,"datap") 
  Lire$=ReadString(#Fichier) 
  SetGadgetText(#String_pass,Lire$) 
  CloseFile(#Fichier) 
EndProcedure
il ne faut pas faire OpenFile suivi de ReadFile
c'est soit l'un, soit l'autre
ReadFile, c'est juste pour lire
OpenFile permet de lire et d'écrire dans le fichier

ensuite il faut toujours tester si tu as pu lire le fichier, comme ça

Code : Tout sélectionner

If ReadFile(0, Fichier)
  ; Ici on lit les données du fichier
  
  CloseFile(0)
EndIf
C'est pareil pour CreateFile, il faut tester

Code : Tout sélectionner

Procedure sauver() 
  if CreateFile(#Fichier,"datap") 
    pass$ =GetGadgetText(#String_editer) 
    WriteStringN(#Fichier,pass$) 
    MessageRequester("Infos","Mot de passe sauvegarder",#MB_OK) 
   CloseFile(#Fichier) 
  endif
EndProcedure

Publié : dim. 08/févr./2009 20:39
par jbernard13
merci soldat
pour ton cours .
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru