Voici mon programme WowPasscode

jbernard13 · Message par **jbernard13** » sam. 07/févr./2009 9:14

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

Ollivier · Message par **Ollivier** » sam. 07/févr./2009 21:13

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

jbernard13 · Message par **jbernard13** » sam. 07/févr./2009 22:29

merci , je viens de changer le nom

venom · Message par **venom** » sam. 07/févr./2009 22:45

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.

@++

jbernard13 · Message par **jbernard13** » dim. 08/févr./2009 8:53

desoler Venom , j'ai pas de serveur ftp

Backup · Message par **Backup** » dim. 08/févr./2009 11:17

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

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"

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

Anonyme · Message par **Anonyme** » dim. 08/févr./2009 11:27

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 ?

Backup · Message par **Backup** » dim. 08/févr./2009 11:36

Cpl.Bator a écrit : Tu es quoi ? un psy ? un prof ? un communiste ?

p'tet ben ouaip !

Ollivier · Message par **Ollivier** » dim. 08/févr./2009 18:50

Pour la plupart de chacun d'eux, les psys, les profs et même les communistes valent mieux que moi...

jbernard13 · Message par **jbernard13** » dim. 08/févr./2009 19:04

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

Anonyme · Message par **Anonyme** » dim. 08/févr./2009 19:11

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.

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

jbernard13 · Message par **jbernard13** » dim. 08/févr./2009 20:39

merci soldat
pour ton cours .