Bonjour besoin d'aide svp message d'erreurRésolu

Question

Bonjour,
quand je lance mon projet ce message d'erreur surgis merci pour toutes aide.

http://static.ccm2.net/codes-sources.commentcamarche.net/pictures/pmXylRn7dwBe1qfKh4XqdWkW1hh0nXzIPFGPrSvevjZ0rxjvc92oQGWNm3K7LG2q-erreur.png


https://i.imgur.com/DtnOrD5.jpg

Whismeril · Answer

Bonsoir

comment veux tu qu'on réponde à ça?

La seule info que tu nous donnes est un message d'erreur qui dit qu'il ne sait pas de quel type d'erreur il s'agit.
Déjà quand on nous donne le code qui génère l'erreur, un peu de contexte et quand on a de la chance le contenu des variables, on ne trouve pas toujours du premier coup.

Alors commençons par le commencement, quel est le type de ton projet, console, winform, wpf?
As tu essayé de faire du pas à pas depuis le point d'entrée du programme pour voir où ça plante?
Si oui, code, contexte, contenu des variables?

Robert.Franck · Answer

Bonjour,

Oui désole mon projet est un générateur de mot de passe pour une autre application utilisant un login

 j'ai regarder par tout mais je ne vois pas ou serait l'erreur surtout que sa me fait ça sur tout mes projet de puis que je suis passer de de Visual Studio 2015 à 2017 


Voici le code :

Option Strict OffOption Explicit OnImports MySql.Data.MySqlClientImports System.ThreadingImports System.TextFriend Class Form1    Inherits System.Windows.Forms.Form    Dim a As Short    Dim pass As String    Dim charactere(35) As String    Public Function IsConnectionAvailable() As Boolean        Dim objUrl As New System.Uri("http://www.youtube.com")        Dim objWebReq As System.Net.WebRequest        objWebReq = System.Net.WebRequest.Create(objUrl)        Dim objresp As System.Net.WebResponse        Try            objresp = objWebReq.GetResponse            objresp.Close()            objresp = Nothing            Return True        Catch ex As Exception            objresp = Nothing            objWebReq = Nothing            Return False        End Try    End Function    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load        If IsConnectionAvailable() = True Then        Else            MsgBox("Cette application requiert une connexion internet et va fermer")            End        End If        ' genere 2        charactere(0) = "a"        charactere(1) = "b"        charactere(2) = "c"        charactere(3) = "d"        charactere(4) = "e"        charactere(5) = "f"        charactere(6) = "g"        charactere(7) = "h"        charactere(8) = "i"        charactere(9) = "j"        charactere(10) = "k"        charactere(11) = "l"        charactere(12) = "m"        charactere(13) = "n"        charactere(14) = "o"        charactere(15) = "p"        charactere(16) = "q"        charactere(17) = "r"        charactere(18) = "s"        charactere(19) = "t"        charactere(20) = "u"        charactere(21) = "v"        charactere(22) = "w"        charactere(23) = "x"        charactere(24) = "y"        charactere(25) = "z"        charactere(26) = "0"        charactere(27) = "1"        charactere(28) = "2"        charactere(29) = "3"        charactere(30) = "4"        charactere(31) = "5"        charactere(32) = "6"        charactere(33) = "7"        charactere(34) = "8"        charactere(35) = "9"    End Sub    Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles generate.Click        'genere un mot de passe        Randomize()        pass = ""        a = 0        While (a <= 23)            pass = pass & charactere(CShort(Rnd() * 35))            a = a + 1        End While        TextBox1.Text = pass        My.Computer.Clipboard.Clear()        My.Computer.Clipboard.SetText(TextBox1.Text)        Dim UserRec = Me.TextBox2.Text        'connection a base de donne        Dim Mysqlconnection As New MySqlConnection        Mysqlconnection.ConnectionString = "server=ip;Port=3306; User ID=username; password=mot de passe; database=lop_forum"        Dim reader As MySqlDataReader        Dim command As New MySqlCommand        Try            Mysqlconnection.Open()            Dim query As String            query = "SELECT * FROM juju_forum.xf_user  WHERE user_id='" & UserRec & "'"            query = "UPDATE test_forum.xf_user SET credits='" & TextBox1.Text & "'"            command = New MySqlCommand(query, Mysqlconnection)            reader = command.ExecuteReader            MsgBox("La clé a bien été générer")        Catch ex As Exception            MessageBox.Show(ex.Message)        End Try    End Sub    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Try            Clipboard.SetText(TextBox1.Text)            Dim TextCopie As String = Clipboard.GetText()        Catch ex As Exception            MsgBox("Vous devez d'abord générer un MDP !")        End Try    End Sub    'Ferme completement le programme    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing        End    End SubEnd Class

Whismeril · Answer

Si ça fait ça avec tout tes projets, c'est probablement un problème lié à Visual Studio ou à la framework.
As tu essayé de les réinstaller?

Par contre puisque tu as posté ce code, je me permets quelques critiques.

Déjà tu mélanges VB6 et VB.Net, c'est autorisé par Microsoft, la plupart du temps ça marche, mais quand ça buggue, il est très difficile de trouver pourquoi.
Par défaut, il est conseillé de virer l'import de VisualBasic, voir cet article.

Ensuite donne des noms à tes contrôles, Form1 TextBox1 etc... c'est pas pratique à maintenir, quand tu y reviendra dans 1 an, tu ne sauras plus à quoi il servent.
Une pratique courante est de mettre un préfixe (3 ou 4 caratères) qui donne le type du control, par exemple frm pour Form, txb pour TextBox suivi d'un nom clair en CamelCase => frmPrincipale, frmDemarrage, txbMotDePasse etc....

 charactere(CShort(Rnd() * 35)) les index de tableaux sont des entiers sur 32 bits, donc tu fais une première conversion en entier 16 bits et la framework en refait une derrière toi de 16 bits à 32, passer direct en 32 bits serait plus optimisé, (idem pour ta variable a).

Encore mieux, en codant en VB.Net et pas en VB6:

Dim monRandom As new Random()
    Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles generate.Click
         '.... du code à toi avant
         pass = pass & charactere(monRandom.Next(36))'c'est directement un int inférieur ou égal à 36
         '.... du code à toi après


là

While (a <= 23)
            '...
            a = a + 1
        End While

Un for serait plus adapté

For a = 0 to 23
   '...
Next



en 2017, ça c'est tout simplement pas possible

charactere(0) = "a"
        charactere(1) = "b"
        charactere(2) = "c"
        charactere(3) = "d"
        charactere(4) = "e"
        charactere(5) = "f"
        charactere(6) = "g"
        charactere(7) = "h"
        charactere(8) = "i"
        charactere(9) = "j"
        charactere(10) = "k"
        charactere(11) = "l"
        charactere(12) = "m"
        charactere(13) = "n"
        charactere(14) = "o"
        charactere(15) = "p"
        charactere(16) = "q"
        charactere(17) = "r"
        charactere(18) = "s"
        charactere(19) = "t"
        charactere(20) = "u"
        charactere(21) = "v"
        charactere(22) = "w"
        charactere(23) = "x"
        charactere(24) = "y"
        charactere(25) = "z"
        charactere(26) = "0"
        charactere(27) = "1"
        charactere(28) = "2"
        charactere(29) = "3"
        charactere(30) = "4"
        charactere(31) = "5"
        charactere(32) = "6"
        charactere(33) = "7"
        charactere(34) = "8"
        charactere(35) = "9"
D'une part un tableau dont on connait les valeurs à l'intialisation ça s'initialise comme ça
Dim charactere() As Char = { "a"c, "b"c, "c"c, etc.... }
Et puis dans ce cas précis tu pourrais aussi faire un for sur les codes Ascii des lettres (97 à 122) et un second sur le chiffres (48 à 47).
En aparté, un mot de passe avec juste des minuscules et des chiffres c'est pas très sécurisé.


Et d'ailleurs en se servant du code Ascii, y'a même pas besoin de ce tableau

Dim monRandom As new Random()
    Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles generate.Click
            For i As Integer = 0 To 23
                Dim rand As Integer = monRandom.Next(36)
                Dim ascii As Integer = If(rand < 26, rand + 97, rand + 22)
                pass += Convert.ToChar(ascii).ToString()
            Next i
  en respectant le modèle juste des chiffres et des minuscules, sinon il suffit de faire entre les caractères 33 et 126.

Enfin, je suppose que Form1 est ton formulaire de démarrage, alors ceci
    'Ferme completement le programme
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        End
    End Sub ne sert à rien. En effet, dès que Form1 est fermée, le programme est fini.

Robert.Franck · Answer

Clair est précis merci j'ai trouve le problème c'est le débogueur avec ça me mais cette erreur et sans ça fonctionne 

j'ai désinstaller tout je suis en train de réinstaller 


PS.Merci pour ta critique

Robert.Franck · Answer

Voilà désinstaller avec CCleaner gros nettoyage est redémarrage du pc puis réinstaller ça refonctionne merci

Bonjour besoin d'aide svp message d'erreur

5 réponses

Votre réponse