Un calpin pour les numero etc..; part un debutant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 917 fois - Téléchargée 30 fois

Contenu du snippet

Ok, je sais qu'il y en a qui vont me dire "sa sert a rien ton machin c pas..." tatati tatata..; Tanpis. Comme vous le savez je suis un debutant en VB, donc j'experimente quelque truc. Ici c'était l'occasion de experimenter l'ecriture dans un fichier txt. Alors au lieu d'y ecrire n'importe koi, j'ai donc fait quelque chose "d'interessant". Un calpin qui enregistre les numeros de tel et adresses saisient et qui les retranscrit dans un TXT, préalabement crée (car je ne sais pas comment faire pour en crée un par l'intermediare du programme). Bien sur ce Txt a le minimun de mise en page. lol. Donc si vous pouvez me donner des conseil pour ameliorer ce calpin ou pour me faire quelques remarques (pas des "sa sert a rien ta merde.....) Merci d'avance. Ps: je suis sur un Keylogger. A+

Source / Exemple :


'a mettre dans la premiere form

'autorise l'acces au programmateur seulement.
'c'est pas tres poussé mais bon

Private Sub Entrer_Click()
If Text2 = "mot de passe" And Text1 = "login" Then 'on mets sont login entre les guillemets
calpin.Show vbModal                          'et son mot de passe entre les autres guillement
End If
End Sub

Private Sub Sortir_click()
End
End Sub

'a mettre dans un deuxieme form.

'******************************************************************
'*                    Repertoire de chez DJ PSyko                                                   *
'*                           2003-2004 ps chui debutant lol                                        *
'******************************************************************

Private Sub adresse_Click() 'enregistre l'adresse ainsi que le nom.
nomE = Text1
passE = Text3
Open "'Chemin du TXT" For Append As #1 'ouvre le fichier txt préalablement créé.
Print #1, " nom : " & nomE & " Adresse : " & passE 'enregistre le nom et l'adresse
Print #1, "********"                 'enregistre une petite separation pour le fun, ou la mise en forme.
Close #1                        'ferme le TXT

End Sub

Private Sub EXIT_Click()
End
End Sub

Private Sub Numero_Click() 'enregistre le numero ainsi que le nom.
nomE = Text1
passE = Text2
Open "Chemin du TXT" For Append As #1  'ouvre le fichier Txt dans lequel sera enregistrer le nom et numéro
Print #1, " nom : " & nomE & " Numéro : " & passE 'enregistre le nom et le numero
Print #1, "********"
Close #1                        'ferme le fichier Txt
End Sub

Private Sub Form_Load() 'toutes ces actions se réalisent dès l'ouverture de la form2
password.Hide          'Cache la form1
End Sub

Conclusion :


N'oubliez pas de renommer vos commande et Form pour que cela fonctionne. lol et de créé ce Txt.
A+ et merci de postez des commentaires.
Ajouter un commentaire Commentaires
Messages postés
14
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
27 octobre 2003

Salut,

Alors pour le français, c'est ok, mais les cours je ne les prendrais pas auprès de toi : " à " sans accent, " le mérite " et non "la mérite", et un petit dernier, "allez" c'est mieux avec un "r".

à part ça, merci pour le reste !!!
A+ et bonne prog...

Psykopatt
Messages postés
215
Date d'inscription
jeudi 24 octobre 2002
Statut
Membre
Dernière intervention
7 septembre 2007
1
ça sert a rien ta merde

non je déconne ;o)
(par contre j'aprouve Cyril, te lire est fastidieux, n'oublie pas que ce qui fait le cadeau, c'est l'emballage et non le présent en lui meme)
Messages postés
140
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009

Salut,

Je ne critique pas... L'idée n'est pas originale mais ça à la mérite de marcher (à peu près)...

Par contre, essayez de prendre des cours de français avant de poster une source ici ;) Merci !!!

Allez, un petit 6/10 pour l'effort (plus que la moyenne) !

A+
Cyril
Messages postés
14
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
27 octobre 2003

merci de posez vos commentaires a+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.