Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


Mon logiciel

Partagez
avatar
Back Life
On commence à connaître
On commence à connaître

Masculin Nombre de messages : 133
Age : 19
Date d'inscription : 22/01/2011

Re: Mon logiciel

Message par Back Life le Mer 6 Avr 2011 - 15:19

explique moi par etape stp
avatar
TheJeremy78
Habitué
Habitué

Masculin Nombre de messages : 419
Age : 18
Localisation : Les Mesnuls ( 78 )
Emploi/loisirs : Fou de SoftwareZator
Humeur : Cool
Date d'inscription : 08/06/2010

Re: Mon logiciel

Message par TheJeremy78 le Sam 16 Avr 2011 - 7:00

Bingo ! J'ai retrouver les icones :

http://www.megaupload.com/?d=B67YDS90

Par contre Part1 je ne peut pas t'aider j'ai perdu les sources du programme a cause d'une *BIP* de virus !

Désoler !



Applicat Production
------
Applicat MySystem 3 ! Le logiciel qui permet de faire pratiquement tout ce qu'on fait sur Windows ! Envoyer des mails, écrire des textes et les imprimer, gérer ses rendez-vous et plus encore ! Plus d'information sur notre site !
------
Site web : www.applicat.fr.nf
Page Facebook : http://www.facebook.com/home.php?sk=group_230479220306851
-----


[color=blue][size=18]SOFTWAREZATOR SUR FACEBOOK : http://www.facebook.com/softwarezator
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Mon logiciel

Message par lereparateurdepc le Sam 16 Avr 2011 - 7:38

re ,

Il y as un truc que je ne comprend PAS ! POURQUOIS je n'ai jamais eu des viruses aussi méchant ?
juste des petits du type autorun , keylogger , .... très sympas mais JAMAIS eu de destruction de données !

Mes protèctions : Avast 6.0.1000 , Microsoft Security Essentials 2011 et Super Anti Spyware free ,
le parfeu de Windows7 et celui du routeur ( très puissant ) et Site Advisor ( intégré ou navigateur ) .
Aunsi qu'une connaissance sur le fiching , arnaques .....

Désolé mais j'ai complétement oublié de renvoyer les icônes ! What a Face Sleep drunken

Cordialement ,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Mon logiciel

Message par lereparateurdepc le Sam 16 Avr 2011 - 8:12

rere ,

Alor , pour revinir au sujet , voilà ce que j'ai fait ( bien sûre , il y as plus simple mais là , c'esr la solution complette ) :

Le graphisme :



Le code en image :



Le code en texte :

Code:
 Public Sub but_save(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
var_text = Me.richTextBox1.Text
If var_text = "" Then
msg_sasie_vide_confirm_next =  System.Windows.Forms.MessageBox.Show("La sasie est vide ." & System.Environment.NewLine & "" & System.Environment.NewLine & "Voulez-vous vraiment enregistrer un texte vide ?", "Sasie vide !", MessageBoxButtons.YesNo, MessageBoxIcon.Information).ToString
If msg_sasie_vide_confirm_next = "Yes" Then
GoTo suite
Else
End If
Else
suite:
If Me.saveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then var_save_location = Me.saveFileDialog1.FileName Else var_save_location = Nothing
If var_save_location = "" Then
Else
file_save_exist_avant = My.Computer.FileSystem.FileExists("" & var_save_location & "")
If file_save_exist_avant = "True" Then
 System.Windows.Forms.MessageBox.Show("Le fichier existe déjà !", "Attention !", MessageBoxButtons.OK, MessageBoxIcon.Warning).ToString
Else
My.Computer.FileSystem.WriteAllText("" & var_save_location & "", "" & var_text & "", False)
file_save_exist_apres = My.Computer.FileSystem.FileExists("" & var_save_location & "")
If file_save_exist_apres <> "True" Then
 System.Windows.Forms.MessageBox.Show("Echec lors de la création du fichier :" & System.Environment.NewLine & "" & var_save_location & "", "ECHEC", MessageBoxButtons.OK, MessageBoxIcon.Error).ToString
Else
msg_open_file =  System.Windows.Forms.MessageBox.Show("Réussite de la création du fichier :" & System.Environment.NewLine & "" & var_save_location & "" & System.Environment.NewLine & "" & System.Environment.NewLine & "Voulez-vous ouvrir ce fichier ?", "REUSSITE", MessageBoxButtons.YesNo, MessageBoxIcon.Information).ToString
If msg_open_file = "Yes" Then
System.Diagnostics.Process.Start("" & var_save_location & "")
Else
End If
End If
End If
End If
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SaveFileDialog_avec_extension_txt", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Voilà ! n'hésite pas à me contacter si tu as un problème !

Cordialement ,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
TheJeremy78
Habitué
Habitué

Masculin Nombre de messages : 419
Age : 18
Localisation : Les Mesnuls ( 78 )
Emploi/loisirs : Fou de SoftwareZator
Humeur : Cool
Date d'inscription : 08/06/2010

Re: Mon logiciel

Message par TheJeremy78 le Mar 19 Avr 2011 - 10:15

Il y as un truc que je ne comprend PAS ! POURQUOIS je n'ai jamais eu des viruses aussi méchant ?
juste des petits du type autorun , keylogger , .... très sympas mais JAMAIS eu de destruction de données !

Mes protèctions : Avast 6.0.1000 , Microsoft Security Essentials 2011 et Super Anti Spyware free ,
le parfeu de Windows7 et celui du routeur ( très puissant ) et Site Advisor ( intégré ou navigateur ) .
Aunsi qu'une connaissance sur le fiching , arnaques .....

Après le virus j'en avais MARRRRRRRRRRRRRREEEEEEEEEEEEEE d'XP alors je suis passer a vista quand je me suis rendu compte que BizSpark donnait Windows 7 Intégral !! Depuis : VIVE SEVEN !!!!!!!!!!!! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol!



Applicat Production
------
Applicat MySystem 3 ! Le logiciel qui permet de faire pratiquement tout ce qu'on fait sur Windows ! Envoyer des mails, écrire des textes et les imprimer, gérer ses rendez-vous et plus encore ! Plus d'information sur notre site !
------
Site web : www.applicat.fr.nf
Page Facebook : http://www.facebook.com/home.php?sk=group_230479220306851
-----


[color=blue][size=18]SOFTWAREZATOR SUR FACEBOOK : http://www.facebook.com/softwarezator

Contenu sponsorisé

Re: Mon logiciel

Message par Contenu sponsorisé


    La date/heure actuelle est Ven 22 Sep 2017 - 11:30