IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

problème form login


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut problème form login
    bonjour,

    comme d'habitude soyer indulgent avec mes compétence si peu nombreuses.
    ci-dessous vous trouverez le code de mon form login (sécuriter) dont voici les problèmes même si je pense que les connaisseur les remarqueront d'eux-même .
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    Option Explicit On
    Option Strict On
    Public Class Sécuriter
     
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            End
        End Sub
     
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If TextBox1.Text = "id" And TextBox2.Text = "mdp" Then 'id & mdp admin
                MsgBox("Session @dministrateur  Bonjour, Z!T¤ùN£_@nT!C!P-W!n-32", vbExclamation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                Me.Hide()
                Admin.Show()
            Else
                If TextBox2.Text = "anonyme" Then
                    MsgBox("Session Publique  Bonjour, " + TextBox1.Text, vbExclamation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                    Me.Hide()
                    publique.Show()
                End If
            End If
            Dim Id As String
            Dim Autorisation As Boolean
     
            Id = ""
            Autorisation = False
            Id = TextBox1.Text
            Select Case Id
                Case "id", "id", "id", "id", "id" 'mes utilisateur
                    Autorisation = True
            End Select
            Autorisation = False
     
            Dim MotDePasse As String
            Dim Autorisationa As Boolean
     
            MotDePasse = ""
            Autorisationa = False
            MotDePasse = TextBox2.Text
            Select Case MotDePasse
                Case "mdp", "mdp", "mdp", "mdp" 'les mdp attribuer
                    Autorisationa = True
                    MsgBox("Accès autoriser Bonjour, " + TextBox1.Text, vbExclamation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                    Me.Hide()
                    famille.Show()
            End Select
            Autorisationa = False
        End Sub
     
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            MsgBox("Bonjour, afin de vous identifier merci de saisir votre prénom ainsi que le Mot De Passe qui vous a été communiquer. Dans le cas où aucun Mot De Passe vous a été attribuer veuillez indiquer dans celui-ci : anonyme, ", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
        End Sub
    End Class
    donc en faite pour ceux qui ont saisi, malheureusement les ID là serve cas faire beau car seul le respect des MDP fonctionne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Dim Id As String
            Dim Autorisation As Boolean
     
            Id = ""
            Autorisation = False
            Id = TextBox1.Text
            Select Case Id
                Case "id", "id", "id", "id", "id" 'mes utilisateur
                    Autorisation = True
            End Select
            Autorisation = False
     
            Dim MotDePasse As String
            Dim Autorisationa As Boolean
     
            MotDePasse = ""
            Autorisationa = False
            MotDePasse = TextBox2.Text
            Select Case MotDePasse
                Case "mdp", "mdp", "mdp", "mdp" 'les mdp attribuer
                    Autorisationa = True
                    MsgBox("Accès autoriser Bonjour, " + TextBox1.Text, vbExclamation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                    Me.Hide()
                    famille.Show()
            End Select
            Autorisationa = False
        End Sub
    pouvez-vous m'aider ??

  2. #2
    Rédacteur

    Avatar de Jean-Michel Ormes
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Juillet 2007
    Messages
    1 838
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Services à domicile

    Informations forums :
    Inscription : Juillet 2007
    Messages : 1 838
    Par défaut
    Bonjour,

    Je suis pas sur d'avoir bien compris ce que tu voudrais faire (déjà que j'aime pas le vb.net en plus )

    Dans un premier temps, ta façon de valider la connexion d'un utilisateur n'est pas la bonne. Si un jour t'as 100 utilisateurs dans ton appli, je pense bien que tu vas pas t'amuser à mettre 100 conditions dans ton "Select Case".

    Il te faudrait un truc plus costaud pour gérer cela et une base de données pour stocker tes utilisateurs.

  3. #3
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Citation Envoyé par Jean-Michel Ormes Voir le message
    Bonjour,

    Je suis pas sur d'avoir bien compris ce que tu voudrais faire (déjà que j'aime pas le vb.net en plus )

    Dans un premier temps, ta façon de valider la connexion d'un utilisateur n'est pas la bonne. Si un jour t'as 100 utilisateurs dans ton appli, je pense bien que tu vas pas t'amuser à mettre 100 conditions dans ton "Select Case".

    Il te faudrait un truc plus costaud pour gérer cela et une base de données pour stocker tes utilisateurs.
    merci de ta réponse, en faite je note ton conseil mais actuellement cette application va rester principalement familiale avec quelque exception mais en gros 10 utilisateur.

    en faite le problème dans mon script est que peu l'utilisateur peu entrer peu importe l' ID tant que le mdp es bon cela fonctionne donc cela en reviens qu'un utilisateur peu se connecter avec le mdp d(un autre (pas top).

    est-il possible de remédier à ça facilement ?
    et par quel procéder ( y aurai t-il un exemple à me donner )

  4. #4
    Inactif
    Homme Profil pro
    Auteur logiciels et romans
    Inscrit en
    Février 2009
    Messages
    203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Auteur logiciels et romans
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Février 2009
    Messages : 203
    Par défaut
    Citation Envoyé par zitoune31 Voir le message

    peu importe l' ID tant que le mdp es bon cela fonctionne
    Bonjour bis,

    Dans ce cas, si l'id importe peu, tu ne peux pas savoir ce qu'il y a dedans, donc la tester (select case) devient inutile, non ?

    Cordialement.

    Joe.
    .

  5. #5
    Inactif
    Homme Profil pro
    Auteur logiciels et romans
    Inscrit en
    Février 2009
    Messages
    203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Auteur logiciels et romans
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Février 2009
    Messages : 203
    Par défaut
    Bonjour,

    Tes msgbox, déjà pour aérer tu peux utiliser vblf, et l'icône du message (exclamation, information) se met généralement en fin, comme ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    MsgBoc(ligne1 & vllf & ligne2, vbInformation)
    Pour ton Select case, ce n'est pas ce qui est testé "id" qu'il faut restester, mais son contenu, exemple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Select case id
     case "idn°1"
       ' fait ceci ...
     case "idn°2"
       ' fait cela ...
    End Select
    ' en admettant que "id" contienne ce qui est dans cet exemple.
    Idem pour les liaison de texte (text1 + text2), à mon sens mieux vaut mettre -text1 & text2), ceci afin de bien séparer le texte de l'arithmétique.

    Je n'ai pas testé, il y a peut être d'autre choses à modifier...

    Cordialement.

    Joe.
    .

  6. #6
    Membre Expert Avatar de hunteshiva
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Février 2010
    Messages
    1 069
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Chef de projet en SSII
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2010
    Messages : 1 069
    Par défaut
    Ton probléme bien tu fait que à aucun moment tu associe un mot de passe à un utilisateur.
    je pense que des tableaux serraient trés utiles dan ton cas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    'exemple pour 10 Utilisateurs
     
    Dim Id(9) as string
    Dim mdp(9) as string
     
     
    'tu rentre tous utilisateurs et les mot de passe dans les tableaux
    Id(0) = "toto"
    Id(1) = "pascale"
    '....
    mdp(0) = "mot de passe de toto"
    mdp(1) = "mot de passe de pascale"
    et ensuite dans l'événement du bouton_click
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '......................................................  
    '................. ton pré-traitement ..........
    '......................................................
     
     
    ' tu test pour tous les utilisateurs 
         For(ii as integer= 0 to 9)
            ' si le login est bon et si il corespond au mdp
            if ((Id(ii) = TextBox1.Text) & (mdp(ii) = TextBox2.Text)) then
                    Autorisation = True
                    Exit For   'dés que c'est bon tu quitte la boucle
            ' sinon tu n'autorise pas l'accés
            else
                   Autorisation = False
            end if
        Next
     
    '......................................................  
    '................. ton post-traitement ........
    '......................................................
     
    End Sub
    Conseil: "change le nom de tes outils, au début ça va mais aprés 2j de prog tu saura plus qui est qui XD"
    TextBox1 -> txtId
    TextBox2 -> txtMdp
    Boutton1 -> btConnexion ou btLogin

    PS: le code n'a pas été testé, des erreurs sont possible

  7. #7
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Citation Envoyé par hunteshiva Voir le message
    Ton probléme bien tu fait que à aucun moment tu associe un mot de passe à un utilisateur.
    je pense que des tableaux serraient trés utiles dan ton cas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    'exemple pour 10 Utilisateurs
     
    Dim Id(9) as string
    Dim mdp(9) as string
     
     
    'tu rentre tous utilisateurs et les mot de passe dans les tableaux
    Id(0) = "toto"
    Id(1) = "pascale"
    '....
    mdp(0) = "mot de passe de toto"
    mdp(1) = "mot de passe de pascale"
    et ensuite dans l'événement du bouton_click
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '......................................................  
    '................. ton pré-traitement ..........
    '......................................................
     
     
    ' tu test pour tous les utilisateurs 
         For(ii as integer= 0 to 9)
            ' si le login est bon et si il corespond au mdp
            if ((Id(ii) = TextBox1.Text) & (mdp(ii) = TextBox2.Text)) then
                    Autorisation = True
                    Exit For   'dés que c'est bon tu quitte la boucle
            ' sinon tu n'autorise pas l'accés
            else
                   Autorisation = False
            end if
        Next
     
    '......................................................  
    '................. ton post-traitement ........
    '......................................................
     
    End Sub
    Conseil: "change le nom de tes outils, au début ça va mais aprés 2j de prog tu saura plus qui est qui XD"
    TextBox1 -> txtId
    TextBox2 -> txtMdp
    Boutton1 -> btConnexion ou btLogin

    PS: le code n'a pas été testé, des erreurs sont possible

    je reviens après que mon ptit ce soit réveiller, je te remercie pour tout tes bon conseil je vais tester tout ça et reviendrai poster le resultat

  8. #8
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    me revoilà avec certaine modif :
    1/cela a été remédier
    Citation Envoyé par hunteshiva Voir le message
    Conseil: "change le nom de tes outils, au début ça va mais aprés 2j de prog tu saura plus qui est qui XD"
    TextBox1 -> txtId
    TextBox2 -> txtMdp
    Boutton1 -> btConnexion ou btLogin
    Citation Envoyé par hunteshiva Voir le message
    PS: le code n'a pas été testé, des erreurs sont possible
    2/ la il me reste effectivement 1 erreur :
    Erreur 1 Option Strict On interdit les conversions implicites de 'String' en 'Boolean'.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If ((Id(ii) = Textid.Text) & (mdp(ii) = Textmdp.Text)) Then
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    Option Explicit On
    Option Strict On
    Public Class Sécuriter
     
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            End
        End Sub
     
     
        Private Sub Btconexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btconexion.Click
     
            'exemple pour 10 Utilisateurs
     
            Dim Id(9) As String
            Dim mdp(9) As String
            Dim ii As Integer
            Dim Autorisation As Boolean
     
            'tu rentre tous utilisateurs et les mot de passe dans les tableaux
            Id(0) = "toto"
            Id(1) = "pascale"
            '....
            mdp(0) = "mot de passe de toto"
            mdp(1) = "mot de passe de pascale"
     
     
            ' tu test pour tous les utilisateurs 
            For ii = 0 To 9
                ' si le login est bon et si il corespond au mdp
                If ((Id(ii) = Textid.Text) & (mdp(ii) = Textmdp.Text)) Then
                    Autorisation = True
                    Exit For   'dés que c'est bon tu quitte la boucle
                    ' sinon tu n'autorise pas l'accés
                Else
                    Autorisation = False
                End If
            Next
            '......................................................  
            '................. ton post-traitement ........
            '......................................................
     
        End Sub
     
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            MsgBox("Bonjour, afin de vous identifier merci de saisir votre prénom ainsi que le Mot De Passe qui vous a été communiquer. Dans le cas où aucun Mot De Passe vous a été attribuer veuillez indiquer dans celui-ci : anonyme, ", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
        End Sub
     
    End Class

  9. #9
    Membre Expert Avatar de hunteshiva
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Février 2010
    Messages
    1 069
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Chef de projet en SSII
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2010
    Messages : 1 069
    Par défaut
    maybe parceque j'ai dit une bétises,
    la syntaxe est plustôt comme ça:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If ((Id(ii) = Textid.Text) && (mdp(ii) = Textmdp.Text)) Then
    PS: à comfirmer, la jsui sous linux en C *dur*

  10. #10
    Membre Expert Avatar de hunteshiva
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Février 2010
    Messages
    1 069
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Chef de projet en SSII
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2010
    Messages : 1 069
    Par défaut
    Citation Envoyé par zitoune31 Voir le message
    me revoilà avec certaine modif :
    1/cela a été remédier

    Citation:
    Envoyé par hunteshiva
    Conseil: "change le nom de tes outils, au début ça va mais aprés 2j de prog tu saura plus qui est qui XD"
    TextBox1 -> txtId
    TextBox2 -> txtMdp
    Boutton1 -> btConnexion ou btLogin
    je suis pas convaincu ....
    un peut pointilleux mais tu te rend vite compte que c'est utile quand le code grandi *et il grandit vite*

    préfix en minuscule, et une Majuscule au début de chaque mot.
    ex: btConnexionReseau

    quel interet ??
    quand tu tape "bt" dans ta page de code,
    tu a la liste de tous tes boutons *idem pour les textbox, label, etc.*
    voila aprés rien ne t'oblige, juste une astuce

  11. #11
    Membre émérite
    Avatar de Gurdil le nain
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Avril 2009
    Messages
    468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2009
    Messages : 468
    Par défaut
    Ce serait plutôt un 'and' à la place du '&&'

  12. #12
    Inactif
    Homme Profil pro
    Auteur logiciels et romans
    Inscrit en
    Février 2009
    Messages
    203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Auteur logiciels et romans
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Février 2009
    Messages : 203
    Par défaut
    Citation Envoyé par zitoune31 Voir le message
    il me reste effectivement 1 erreur :
    Erreur 1 Option Strict On interdit les conversions implicites de 'String' en 'Boolean'.
    Bonsoir,

    Ben tu peux enlever "option strict"

    Pourquoi tu fais des classes différentes alors qu'il n'y a même pas de procédures dans ta classe (hors les boutons) ? La classe de base aurait suffit.

    Il manque du code ...

    Peux-tu joindre dans ce forum ton répertoire zipé où se trouve le code ?

    Au plaisir, cordialement.

    Joe.
    .

  13. #13
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    voilà je poste le résultat cela fonctionne comme je l'attendais grand merci de l'aide apporter en particulier à hunteshiva & Gurdil le nain
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    Option Explicit On
    Option Strict On
    Public Class FrmSécuriter
     
        Private Sub BtConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtConexion.Click
            'exemple pour 10 Utilisateurs
     
            Dim IdAdmin As String
            Dim MdpAdmin As String
            Dim MdpPlublik As String
            Dim Id(9) As String
            Dim Mdp(9) As String
            Dim ii As Integer
            Dim Autorisation As Boolean
     
     
            'tu rentre tous utilisateurs et les mot de passe dans les tableaux
            IdAdmin = "id"
            'Id FrmFamille
            Id(0) = "id"
            Id(1) = "id"
            Id(2) = "id"
            Id(3) = "id"
            Id(4) = "id"
            Id(5) = "id"
            Id(6) = "id"
            Id(7) = "id"
            Id(8) = "id"
            Id(9) = "id"
            '....
            MdpAdmin = "mdp"
            MdpPlublik = "mdp"
            'Mdp FrmFamille
            Mdp(0) = "mdp"
            Mdp(1) = "mdp"
            Mdp(2) = "mdp"
            Mdp(3) = "mdp"
            Mdp(4) = "mdp"
            Mdp(5) = "mdp"
            Mdp(6) = "mdp"
            Mdp(7) = "mdp"
            Mdp(8) = "mdp"
            Mdp(9) = "mdp"
            ' test pour tous les utilisateurs famille
            For ii = 0 To 9
                ' si le login est bon et si il corespond au mdp
                If ((Id(ii) = TextId.Text) And (Mdp(ii) = TextMdp.Text)) Then
                    Autorisation = True
                    MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                    Me.Hide()
                    FrmFamille.Show()
                    Exit For   'dés que c'est bon sa quitte la boucle
                    ' sinon sa n'autorise pas l'accés
                Else
                    Autorisation = False
                    MsgBox("accès non autoriser" + TextId.Text, vbExclamation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                End If
            Next
            '...................................................... 
            Me.Hide()
            ' test pour utilisateur admin
            If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
                FrmAdmin.Show()
                ' test pour utilisateurs publik
            ElseIf (TextMdp.Text = "anonyme") Then
                MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                FrmPublique.Show()
            End If
     
        End Sub
     
        Private Sub BtAideConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAideConexion.Click
            MsgBox("Bonjour, afin de vous identifier merci de saisir votre prénom ainsi que le Mot De Passe qui vous a été communiquer. Dans le cas où aucun Mot De Passe vous a été attribuer veuillez indiquer dans celui-ci : anonyme, ", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
        End Sub
     
        Private Sub BtQuitSecuriter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuitSecuriter.Click
            End
        End Sub
    End Class
    pour répondre à Ehjoe, effectivement j'aurai pu "Option Strict Off" mais on ma conseiller sur d'autre post à m'habituer justement à Option Explicit On & Option Strict On donc j'essaye même si c'est pas sur toutes les Forms.
    concernant mon répertoire zipper lol mon projet est loin d'être fini à ce jour j'ai créer une Form sur les 3 ( dont sûrement quelque modif encore à effectuer étant donner cas chaque post que je créer j'en apprend d'avantage donc c'est une histoire sans fin.
    pr info voilà la FrmFamille dont je dois appliquer les astuces de hunteshiva
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    Option Explicit On
    Imports WMPLib
    Imports System.IO
    Public Class FrmFamille
        Private Sub WindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsMediaPlayer1.Enter
        End Sub
     
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            MsgBox("les musiques avec comme extension autre que .RAR sont à télécharger avec le logiciel FileZilla", vbInformation, "Z!T¤ùn€")
            Dim shell, audioFTP
            shell = CreateObject("WScript.Shell")
            audioFTP = "@ftp"
            shell.Run(audioFTP, 0, False)
        End Sub
     
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            MsgBox("les films avec comme extension autre que .AVI sont à télécharger avec le logiciel FileZilla", vbInformation, "Z!T¤ùn€")
            Dim shell, videoFTP
            shell = CreateObject("WScript.Shell")
            videoFTP = "@ftp"
            shell.Run(videoFTP, 0, False)
        End Sub
     
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
            MsgBox("lorsque vous avez afficher l'image choisi faite click droit et enregistrer l'image sous pour la télécharger", vbInformation, "Z!T¤ùn€")
            Dim shell, fonecranFTP
            shell = CreateObject("WScript.Shell")
            fonecranFTP = "@ftp"
            shell.Run(fonecranFTP, 0, False)
        End Sub
     
        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
            MsgBox("MERCI de vérifier les compatibilité avant de télécharger des logiciel", vbInformation, "Z!T¤ùn€")
            Dim shell, logicielFTP
            shell = CreateObject("WScript.Shell")
            logicielFTP = "@ftp"
            shell.Run(logicielFTP, 0, False)
        End Sub
     
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim shell, playlisteRAP
            shell = CreateObject("WScript.Shell")
            playlisteRAP = "c:\ftp\playlisteRAP.jpg"
            shell.Run(playlisteRAP, 0, False)
        End Sub
     
        Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
            Dim shell, playlisteRNB
            shell = CreateObject("WScript.Shell")
            playlisteRNB = "c:\ftp\playlisteRNB.jpg"
            shell.Run(playlisteRNB, 0, False)
        End Sub
     
        Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
            Dim shell, playlisteZOUK
            shell = CreateObject("WScript.Shell")
            playlisteZOUK = "c:\ftp\playlisteZOUK.jpg"
            shell.Run(playlisteZOUK, 0, False)
        End Sub
     
        Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
            Dim shell, playlisteREGGEA
            shell = CreateObject("WScript.Shell")
            playlisteREGGEA = "c:\ftp\playlisteREGGEA.jpg"
            shell.Run(playlisteREGGEA, 0, False)
        End Sub
     
        Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
            Dim MotDePasse As String
            Dim Autorisation As Boolean
     
            MotDePasse = ""
            Autorisation = False
     
            MotDePasse = InputBox("Accès sécuriser par Z!T¤ùn€ @NT!C!P_W!N-32, Merci de saisir votre mot de passe", "Z!T¤ùn€ @NT!C!P_W!N-32 requiert MDP")
            Select Case MotDePasse
                Case "mdp", "mdp", "mdp", "mdp"
                    Autorisation = True
                    MsgBox("Accès autoriser", vbInformation, "Z!T¤ùn€")
                    Dim shell, EnzoFTP
                    shell = CreateObject("WScript.Shell")
                    EnzoFTP = "@ftp"
                    shell.Run(EnzoFTP, 0, False)
            End Select
            Autorisation = False
        End Sub
     
        Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
            Dim shell, startRAP
            shell = CreateObject("WScript.Shell")
            startRAP = "c:\ftp\rap.wpl"
            shell.Run(startRAP, 0, False)
        End Sub
     
        Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
            Dim shell, startRNB
            shell = CreateObject("WScript.Shell")
            startRNB = "c:\ftp\rnb.wpl"
            shell.Run(startRNB, 0, False)
        End Sub
     
        Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
            Dim shell, startZOUK
            shell = CreateObject("WScript.Shell")
            startZOUK = "c:\ftp\zouk.wpl"
            shell.Run(startZOUK, 0, False)
        End Sub
     
        Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
            Dim shell, startREGGAE
            shell = CreateObject("WScript.Shell")
            startREGGAE = "c:\ftp\reggae.wpl"
            shell.Run(startREGGAE, 0, False)
        End Sub
     
        Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
            Dim shell, Site
            shell = CreateObject("WScript.Shell")
            Site = "@site"
            shell.Run(Site, 0, False)
     
        End Sub
     
        Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
            FrmTéléchargements.Show()
        End Sub
     
        Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
            FrmUpload.Show()
        End Sub
     
    End Class
    ainsi que FrmTéléchargements
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    Option Explicit On
    Option Strict Off
    Imports System.IO
     
    Public Class FrmTéléchargements
     
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            '******************************************************************************
            '***********boutton pour télécharger un fichier musical sur server ftp*********
            '******************************************************************************
            'déclaration + demande d'aide au démarage
            Dim aide
            aide = MsgBox("lors des premières utilisations une illustration est disponible désirez-vous la voir ?", vbQuestion + vbYesNo, "Z!T¤ùN£ @NT!C!P-W!N-32")
            'si reponse oui
            If aide = vbYes Then
                'ouverture image d'illustration suite à la réponse oui
                Dim WshShell
                WshShell = CreateObject("WScript.Shell")
                WshShell.Run("C:\ftp\image\capture.jpg")
            End If
            '*******************************************
            '** déclaration + utilisation 1er inputbox**
            '*******************************************
            Dim rep, title, defaultValue As String
            rep = "Merci de coller ici UNIQUEMENT l'emplacement du fichier à télécharger le titre vous sera demander après !"
            title = "emplacement du fichier à télécharger ?"
            defaultValue = "cela doit commencer par une LETTRE ou un CHIFFRE et finir par un /"
            rep = InputBox(rep, title, defaultValue)
            '*******************************************
            '** déclaration + utilisation 2èm inputbox**
            '*******************************************
            Dim chx, title0, defaultValue0 As String
            chx = "Merci de coller ici UNIQUEMENT le titre à télécharger"
            title0 = "nom fichier à télécharger"
            defaultValue0 = "générallement se termine par .mp3"
            chx = InputBox(chx, title0, defaultValue0)
            '*******************************************
            '****déclaration + créer fichier choixDL****
            '*******************************************
            Dim FSys
            FSys = CreateObject("Scripting.FileSystemObject")
            Dim Monfic
            Monfic = FSys.CreateTextFile("C:\ftp\script\choixdl.txt")
            'écris le résultat des inputbox dans le fichier choixdDL
            With Monfic
                Monfic.writeLine("@ftp")
                Monfic.writeLine("id")
                Monfic.writeLine("mdp")
                Monfic.writeLine("lcd C:\ftp\Telechargements")
                Monfic.writeLine("cd """ & rep & "")
                Monfic.writeLine("get """ & chx & "")
                Monfic.writeLine("quit")
            End With
            Monfic.close()
            '***********************************************************************************
            '**déclaration + lancement téléchargements ftp & ouverture dossier téléchargements**
            '***********************************************************************************
            Timer1.Start()
            Dim Shell, com, Result, Dl
            Shell = CreateObject("WScript.Shell")
            com = "cmd /c ftp -s:c:\ftp\script\choixdl.txt"
            Result = Shell.Run(com, 0, True)
            Dl = ("C:\ftp\telechargements")
            Shell.Run(Dl)
            '****************************
            '** info pour utilisateur****
            '****************************
            Dim Info As String
            Info = "Votre téléchargements à été enregistrer dans :                              C:\ftp\telechargement\                                                              et voici son résumer :               """ & rep & chx & ""
            Info = MsgBox(Info)
            'Signature
            MsgBox("Creation Z!T¤ùN£_@nT!C!P-W!n-32", vbExclamation, "Signature")
            '*****************************
            '*suppression fichier script**
            '*****************************
            If System.IO.File.Exists("c:\ftp\script\choixdl.txt") Then
                File.Delete("c:\ftp\script\choixdl.txt")
            End If
            Me.Hide()
        End Sub
     
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            If ProgressBar1.Value = ProgressBar1.Maximum Then
                Timer1.Stop()
                ProgressBar1.Value = 0
     
            Else
                ProgressBar1.Value += TextBox3.Text
            End If
        End Sub
     
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Me.Hide()
        End Sub
    End Class
    tout ça pour dire qu'il y a encore du boulot / correction / ....

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème forms 6i
    Par pjcejbpojo dans le forum Forms
    Réponses: 4
    Dernier message: 26/05/2006, 16h55
  2. [sql server 2005 express] problème de login
    Par Blo0d4x3 dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 11/02/2006, 23h26
  3. [Cookies] problème cookie login automatique
    Par t-die dans le forum Langage
    Réponses: 1
    Dernier message: 26/01/2006, 16h48
  4. Problème de login avec mysql
    Par Michaël dans le forum Installation
    Réponses: 4
    Dernier message: 01/11/2005, 18h53
  5. Problème de login avec Postgresql
    Par maddog2032 dans le forum PostgreSQL
    Réponses: 5
    Dernier message: 27/04/2005, 13h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo