Discussion :

[hemipsy]

Bonjour,
Après moultes péripéties , me voilà arrivé au moment où l'application doit se connecter à Internet pour vérifier si elle a été correctement activée et s'il existe une mise à jour disponible.

Je ne sais pas par où commencer... quelle est la meilleur méthode selon vous ?


Merci.

[hemipsy]

Voilà, je répond moi même à ma question, ça peut toujours aider quelqu'un

Utiliser un connecteur MySQL en VB est délicat car la plus part des bases MySQL refusent une connection extérieure (sauf si vous avez votre propre serveur et que vous pouvez paramétrer vous même la sécurité du serveur). Donc cette solution n'est pas bonne. J'ai mis un peu de temps à le comprendre ça.

L'autre solution consiste à utiliser le même principe qu'en Flash c'est à dire envoyer une WebRequest en passant un paramètre à un script PHP et récupérer la réponse tout simplement. D'ailleurs MSDN donne le code suivant :
où cmd peut être "test.php?login="lklklkklk" par exemple.
My.Settings.hote = www.mondomaine.com/remoting/

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
Function ReturnActivation(ByVal cmd As String) As String
        Dim MyWebRequest As String = My.Settings.hote & cmd
        Dim Request As WebRequest = WebRequest.Create(MyWebRequest)
        Request.Credentials = CredentialCache.DefaultCredentials
        Dim response As HttpWebResponse = CType(Request.GetResponse, HttpWebResponse)
        ' Display the status.
        Console.WriteLine(response.StatusDescription)
        ' Get the stream containing content returned by the server.
        Dim dataStream As Stream = response.GetResponseStream()
        ' Open the stream using a StreamReader for easy access.
        Dim reader As New StreamReader(dataStream)
        ' Read the content.
        Dim responseFromServer As String = reader.ReadToEnd()
        ' Display the content.
        Console.WriteLine(responseFromServer)
        ' Cleanup the streams and the response.
        reader.Close()
        dataStream.Close()
        response.Close()
        Return responseFromServer
    End Function

et voilà.