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

Commenter

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.

A voir également

S'inscrire maintenant

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.

Du même auteur (psykopatt)