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:
Ou est mon erreur svp.?
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
Merci d'avance de votre aide.
Cordialement
Vazer7070
Partager