Récupéré un paramètre d'une url

[DarkTanner]

Bonjour, je cherche a récupéré un paramètre d'une url du type

http://s*.gladiatus.fr/game/index.ph...w&login=1&sh=*

je veut récupéré la valeur de "sh" et ainsi la retranscrire dans un text

après m'être logger comme ceci j'ai des soucis a naviger sur le site a cause du session id . (sh)

Code :

1
2
3
4
5
6
7
8
9
Dim strPost         As String
WebBrowser1.Navigate ("http://s*.gladiatus.fr/game/")
    DoEvents
While WebBrowser1.Busy = True
    DoEvents
    Wend
WebBrowser1.Document.All("login_username").value = (Text2.Text)
WebBrowser1.Document.All("login_password").value = (Text3.Text)
WebBrowser1.Document.All("loginsubmit").Click

Merci pour votre aide