Discussion :

[vazer7070]

Bonjour à tous.

Je cherche à faire une solution d'inscription en php via un logiciel en vb.net.
Cela fonctionne, l'inscription et connexion s'effectue mais si je ferme et re-ouvre le logiciel, mon "try...catch" m'envoie un 404, or la page php est pourtant trouvable lors de la première connexion et bien présente dans le répertoire ftp (les droits y sont puisque ça fonctionne dans le premier temps), donc je ne comprend pas pourquoi ça fonctionne une fois mais pas 2 alors que c'est exactement la même procédure.

Voilà le code de connexion:

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
Try
            If FlatTextBox1.Text = "" Or FlatTextBox2.Text = "" Then
                MsgBox("Veuillez renseigner les informations de connexion.!" & vbNewLine & "Pour vous inscrire, cliquez sur le lien 'inscription'", MsgBoxStyle.Information, "Informations incorrectes")
            Else
                Dim webrequest As WebRequest = WebRequest.Create("http://chein.fr/account/" & Form4.FlatTextBox1.Text & "_account.php?username=" & Form4.FlatTextBox1.Text & "&password=" & Form4.FlatTextBox2.Text)
                Dim webresponse As Net.WebResponse = webrequest.GetResponse
                Dim readuser As StreamReader = New StreamReader(webresponse.GetResponseStream)
                Dim okuser As String = readuser.ReadToEnd
 
                If okuser = "connectednono" Or okuser = "connectednoyes" Or okuser = "connectedyesyes" Or okuser = "connectedyesno" Then
                    MsgBox("Connexion réussie " & Form4.FlatTextBox1.Text, MsgBoxStyle.Information, "Accès au logiciel")
                    Form1.Show()
                    Me.Close()
                Else
                    If okuser = "disconnectednono" Or okuser = "disconnectednoyes" Or okuser = "disconnectedyesyes" Or okuser = "disconnectedyesno" Then
                        MsgBox("Identifiants incorrects.!" & vbNewLine & "Veuillez vérifier vos informations ou vous inscrire.", MsgBoxStyle.Critical, "Erreur d'accès au logiciel")
                    End If
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
            'MsgBox("Échec de connexion.!" & vbNewLine & "Utilisateur inconnu ou connexion internet défaillante.", MsgBoxStyle.Critical, "ERREUR")
        End Try

Ou est mon erreur svp.?

Merci d'avance de votre aide.
Cordialement
Vazer7070

[vazer7070]

j'ai trouvé qu'il faut que je mette un user-agent ans ce code, comment l'y intégrer svp c'est important

[DotNetMatt]

La propriete UserAgent n'existe pas sur le type de base WebRequest. Il faut que tu le castes en HttpWebRequest :

Code C# :

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

1
2
var request = (HttpWebRequest)WebRequest.Create(url);
request.UserAgent = "ton user agent ici";

[vazer7070]

Je te remercie, ça fonctionne^^