Gestion de ressource pour une fontion

Version imprimable

Bonsoir, en rapport avec mon projet de localiser une ville, j'ai fait une fonction servant a trouver l'adresse ip publique (WAN), celle ci marche parfaitement seulement voila, lorsque j'appelle cette fonction la mémoire du processus monte enormement et ne redescend pas apres, alors que cette fonction ne retourne qu'un string.
Et puisque je ne suis pas un expert en libération de ressources je vous sollicite pour m'apprendre a optimiser cette fonction.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
  Function IPwan()
        Dim WebBrowser1 As New WebBrowser
        Dim IP As String
        WebBrowser1.ScriptErrorsSuppressed = True
        Try
a:
            WebBrowser1.Navigate("http://whatsmyip.net/")
            Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
            Loop
            Dim Source As String = WebBrowser1.DocumentText
            IP = Source.Substring(Source.IndexOf(">IP</acronym> Address is <input type=") + 51)
            IP = IP.Substring(0, IP.IndexOf(" /></h1>") - 1)
        Catch
            Try
                WebBrowser1.Navigate("http://www.my-ip-address.net/")
                Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                    Application.DoEvents()
                Loop
                Dim Source As String = WebBrowser1.DocumentText
                IP = Source.Substring(Source.IndexOf("Your IP Address is<br/><span>") + 29)
                IP = IP.Substring(0, IP.IndexOf("</span"))
            Catch
                GoTo a
            End Try
        End Try
        Return IP
    End Function

Je vous remercie, bonne soirée :D

06/04/2014, 15h19
peltiarn

petit up
06/04/2014, 19h23
Pol63
Code:

Dim WebBrowser1 As New WebBrowser

=>
Code:

1 2 3 4 Using WebBrowser1 As New WebBrowser ' ... End Using
sinon ce code est moche :
instancier un controle graphique non affiché est une perte de performance
DoEvents est à éviter (surtout sans thread.sleep)
s'il n'y a pas de connexion internet dispo ce code va boucler à l'infini et bouffer du processeur pour rien
code redondant (2x la même chose écrite)
et en plus il y a des api pour faire ca

Bonsoir peltiarn ,

Comme mentionné supra par Pol63 :

Code:

1
2
3
4
 
        Using wc As New Net.WebClient
            MsgBox(Regex.Match(wc.DownloadString(New Uri("http://services.packetizer.com/ipaddress/?f=text")), "(?<=IP_Address=).*").Value)
        End Using

Code:

1
2
3
4
 
        Using wc As New Net.WebClient
            MsgBox(wc.DownloadString(New Uri("http://dynupdate.no-ip.com/ip.php")))
        End Using

A+

07/04/2014, 17h44
peltiarn

Merci beaucoup à tout les deux, car en plus de m'aider a résoudre mon soucis, vous m'avez clairement expliqué les solutions et j'ai donc appris de nouvelles méthodes :D
Merci 1000 fois