Annonces
Avis à tous nos membres
ce forum est appelé a disparaitre pour laisser place à un nouveau forum
vous pouvez vous y rendre à l'adresse suivante https://informaticsclubs.fr
Derniers sujets
» Absence déménagement
par chrisnvidia Mer 29 Jan - 18:15

» TWINUI correspond à quoi ?
par migau Sam 25 Jan - 8:16

» test message auto verrouillé
par jlmic Sam 25 Jan - 7:01

» Booster le forum
par piwis Sam 18 Jan - 9:07

» Votes du mois de Janvier 2020
par piwis Sam 18 Jan - 9:06

» Chaine youtube personnalisée
par chrisnvidia Sam 11 Jan - 11:47

» Nouveau mot de passe pour le forum ?
par jlmic Sam 11 Jan - 11:18

» [A Lire] le règlement du forum
par ssl Ven 10 Jan - 19:51

-50%
Le deal à ne pas rater :
-50% sur les tongs Havaianas Brasil en noir
11 € 22 €
Voir le deal

créer un script

Voir le sujet précédent Voir le sujet suivant Aller en bas

migau
migau

Messages : 5913
Points : 28090
Réputation : 17149
Date d'inscription : 21/10/2016
Localisation : Pays de la Loire
https://www.informaticsclubs.com/

Messagemigau le Mar 20 Aoû - 8:22

Information
les règles.
Pour toute question à propos de ce tutoriel merci  de la poser dans le forum de dépannage.
Poser une question au sujet de ce tutoriel en cliquant ICI

 n'hésitez pas à sauter le pas inscrivez-vous sur le forum, Merci.

je m'inscris


cette petite application me sert à

1) créer le script de désinfection pour Frst,
2) sélectionner et copier le script automatiquement
3) ouvrir automatiquement le site d'hébergement du script.
4) coller le script manuellement pour des raisons de sécurité
5) sauvegarder le fichier si besoin

Code:
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Web
Public Class Form1

    Private Sub BtnQuitter_Click(sender As Object, e As EventArgs) Handles BtnQuitter.Click
        Me.Close()

    End Sub

    Private Sub BtnRecherche_Click(sender As Object, e As EventArgs) Handles BtnRecherche.Click
        Dim sauvegarde As New SaveFileDialog
        sauvegarde.Filter = "du texte | *.txt"

        If TBFichier.Text = "" Then
            MsgBox("vous n'avez tabulé aucun texte" & vbNewLine & " sur votre espace de travail", vbCritical, "Erreur")

        Else
            sauvegarde.ShowDialog()
            TBcheminFichier.Text = sauvegarde.FileName
        End If

    End Sub

    Private Sub BtnSauve_Click(sender As Object, e As EventArgs) Handles BtnSauve.Click

        If TBcheminFichier.Text = "" Then
            MsgBox("Veuillez choisir l'emplacement de la sauvegarde" & vbNewLine & "et donner un nom à votre fichier", vbCritical, "Erreur")
        Else
            IO.File.WriteAllText(TBcheminFichier.Text, TBFichier.Text)
            MsgBox("Fichier sauvegardé", vbExclamation, "Sauvegarde")

            TBcheminFichier.Clear()
            TBFichier.Clear()

        End If
    End Sub

    Private Sub BtnReset_Click(sender As Object, e As EventArgs) Handles BtnReset.Click
        If TBcheminFichier.Text = "" And TBFichier.Text = "" Then
            MsgBox("les textbox sont vides", vbCritical, "Erreur")
        Else
            TBcheminFichier.Clear()
            TBFichier.Clear()

        End If

    End Sub

    Private Sub Button1BtnOuvrir_Click(sender As Object, e As EventArgs) Handles Button1BtnOuvrir.Click

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim sr As New StreamReader(OpenFileDialog1.FileName)
            TBcheminFichier.Text = OpenFileDialog1.FileName
            TBFichier.Text = sr.ReadToEnd
            sr.Close()
        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btncopy.Click

        If TBFichier.Text = Nothing Then

            MsgBox("Ouvrir le fichier à copier ! ", vbCritical, "Erreur de manipulation !")

        Else

            TBFichier.SelectAll()
            TBFichier.Select()
            Clipboard.SetDataObject(TBFichier.SelectedText)

            Process.Start("https://textup.fr/")

        End If

    End Sub
End Class

créer un script JKB6w1V




   

Voir le sujet précédent Voir le sujet suivant Revenir en haut

Créer un compte ou se connecter pour répondre

Vous devez être membre pour répondre.

S'enregistrer

Rejoignez notre communauté ! C'est facile !


S'enregistrer

Connexion

Vous êtes déjà membre ? Aucun soucis, cliquez ici pour vous connecter.


Connexion

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum