Protection version0

[bernard13]

bonjour , voici un petit que j'avais ecris il ya un moment de ça pour un ami ( sa fille aller souvent sur msn à son insu )

Code : Tout sélectionner

; proctection version 00, ecris par jbernard
Enumeration 
 #Fenetre_principale 
EndEnumeration


Enumeration
  #fichiers
 #text_adresse 
 #String_adresse 
 #text_pass 
 #String_pass
 #text_status 
 #bouton_connexion
 #bouton_annuler 
EndEnumeration






Procedure Main_programme ()
 If OpenWindow(#Fenetre_principale,0,0,240,300,"Msn 8.5 Microsoft-2007",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(#Fenetre_principale))
  TextGadget(#text_adresse, 25, 60, 155, 15, "Adresse de messagerie :")
      StringGadget(#String_adresse, 25, 75, 205, 20, "")
      TextGadget(#text_pass, 25, 95, 135, 15, "Mot de passe :")
      StringGadget(#String_pass, 25, 110, 205, 20, "", #PB_String_Password)
      TextGadget(#text_status, 25, 130, 85, 15, "Status :")
      ButtonGadget(#bouton_connexion,75,170,90,20,"Connexion")
      ButtonGadget(#bouton_annuler,75,200,90,20,"Annuler") 
      SetActiveGadget(#String_adresse)
  
 
  EndIf 
  
 
 
 
 EndIf
 EndProcedure


Main_programme ()
 CreateFile(#fichiers,"c:Alerte.dat") 
 Repeat 
 Select WaitWindowEvent()
  Case #PB_Event_Gadget 
                 Select EventGadget () 
                    Case #bouton_connexion :MessageRequester("Attention ", "Erreur de connexion ", #MB_OK|#MB_ICONERROR)
                    Case #bouton_annuler    
                       Fermer_fenetre0=1 
                       EndSelect   
                        
                        
 
  Case  #PB_Event_CloseWindow
  fermer_fenetre0=1
  EndSelect 
  Until fermer_fenetre0=1
  End

[Ar-S]

Heu ce n'est pas un prog mais une interface..

[bernard13]

et tu en pense quoi?

[Ar-S]

Bien je ne peux pas me prononcer sur une interface vu que ça se fait tout seul avec Pureform..
Une fois qu'il sera fonctionnel (si j'ai bien compris tu veux protéger le lancement d'MSN via mot de passe) ce sera plus facile de juger de son efficacité...

Voilà quelques idées qui pourraient te servir en plus d'un mot de passe.

- Vérifier dans les procéssus si msn tourne, si oui, il le coupe
et/ou
- Fermer/ouvrir les ports utilisés par MSN de telle heure à telle heure

Voilà

[bernard13]

Merci ar-s j'ai crée ce bout de code pour un ami parceque sa fille allait sur msn a son insu et c'etait pour la leuré