Discussion :

[Hell_joker]

Bonjour à tous,


Je début en VB.net, ça ne fait que 4 jours que j'ai commencé à vrai dire mais j'ai déjà codé quelque petits programmes.

En ce moment je boss sur un projet qui compte 4 Form.

Ce que j'aimerais mettre en place sur le Form1 c'est en faite un système de reconnaissance de codes définis (par moi ) qui permettra de passer au Form2, bon j'avoue je suis pas très clair sur le coup, vous comprendrez mieux après...


C'est à dire;
Mon Form1 est composé d'un TexteBox et d'un Bouton,
J'ai définis admet-on 4 codes: CODE1 | CODE2 | CODE3 | CODE4

Si l'utilisateur entre CODE1 dans la TexteBox et qu'il clique sur le Bouton il aura accès au Form2 (même chose si il met les CODE2 , 3 ou 4).
Si il entre autre chose il a un message d'erreur...

Voici ce que j'ai codé pour le moment:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = ("CODE1" Or "CODE2" Or "CODE3" Or "CODE4") Then
            Form2.Show()
        Else
            MsgBox("Veuillez entrer une clé valide")
        End If
 
        If TextBox1.Text = "" Then
            MsgBox("Veuillez insérer une clé s'il vous plait")
        End If

Seulement ça ne fonctionne pas, j'aimerais donc simplement protéger l'accès à mon log grâce à 4 clé qui peuvent être aléatoirement utilisées...

Je sèche un peu à vrai dire


Si vous pouviez m'aider ce serait vraiment super
Merci de m'avoir lu.


Cordialement,

[Sankasssss]

Hello,
ce serait plutot :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Veuillez insérer une clé s'il vous plait")
        else
            If TextBox1.Text = "CODE1" _
                  Or TextBox1.Text = "CODE2" _
                  Or TextBox1.Text = "CODE3" _
                  Or TextBox1.Text = "CODE4" Then
                Form2.Show()
            Else
                MsgBox("Veuillez entrer une clé valide")
            End If
        End If

Bien à toi

[Hell_joker]

C'était donc ça, j'en était pas très loin et ça fait pourtant maintenant presque 1 jour que je cherche la solution à mon problème


Merci beaucoup Sankasssss, vraiment, pour cette aide précieuse


Tant que j'y suis je me demandais également comment réduire mon programme dans dans la barre des tâches en bas à droite.


Merci encore c'est super sympa

[Hell_joker]

C'est bon j'ai réussi à minimiser l'application, je fournis le code pour ceux que ça intéresse:

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
 
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
 
      If Me.WindowState = FormWindowState.Minimized Then
 
      Me.Hide()
 
      End If
 
      End Sub
 
      Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
 
      If Me.WindowState = FormWindowState.Minimized Then
 
      Me.Show()
 
      Me.WindowState = FormWindowState.Normal
 
      End If
 
      End Sub

Merci encore

[Sankasssss]

de rien,
si tu commences en vb.net, il y a un très bon cour qui est celui du Dr Philippe Lasserre. Il y a aussi les 101 exemples de Microsoft qu'il est intéressant de regarder.
Bonne programmation

[Flamby38]

Pour info tout de même, il est possible de retrouver le code .net à partir d'une dll ou d'un exe, si ce système doit être utilisé comme mot de passe, il sera contournable par quelqu'un qui s'y connait.