Erreur connexion php/vb.net
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:
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
