Bug pour obtenir l'Ip

Bonjour tous le monde !

Je voudrais savoir si la fonction IP fonctionne chez vous car chez moi cela me mais :
"L'Hôte est Introuvable"

J'ai crus que ce bug était corrigé dans cette version mais en faite non (pour moi)

Cordialement ,

re,

En effet, c'est toujours le même site mais le sous domaine n'existe plus :
http://automation.whatismyip.com/n09230945.asp

Cordialement,
Le réparateur de PC

re,

Solution temporaire et pas du tout optimisée !!!!! LENTE mais bon

Allez dans le répertoire de SZ, dossier source.
Faites une copie du fichier : VelerSoftware.GeneralPlugin.Obtenir_IP.vb
et enregistrer-le sous le nom : VelerSoftware.GeneralPlugin.Obtenir_IP_OR.vb

Ouvrez le fichier VelerSoftware.GeneralPlugin.Obtenir_IP.vb avec le bloc notte.
Supprimez l'intégralité du code pour y mettre :

Code:


Partial Public Class VelerSoftware_GeneralPlugin

    Shared Function GetIp() As String
        Dim WebBrowser1 As WebBrowser = New WebBrowser
        '[START CONFIG CONTROL]--------------------------------------------------------------------------------------
        '
        'WebBrowser11
        '
        WebBrowser1.Location = New System.Drawing.Point(12, 12)
        WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
        WebBrowser1.Name = "WebBrowser1"
        WebBrowser1.Size = New System.Drawing.Size(35, 27)
        WebBrowser1.TabIndex = 0
        WebBrowser1.Url = New System.Uri("http://www.mon-ip.biz", System.UriKind.Absolute)
        WebBrowser1.Visible = False
        '[END CONFIG CONTROL]--------------------------------------------------------------------------------------

        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
            If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then Exit Do
        Loop
        Return WebBrowser1.Document.GetElementById("textespan").InnerText

    End Function

End Class


Enregistrez et vous pouvez recompiler le projet SANS RIEN CHANGER

La boucle do while attend simplement le chargement complet de la page d'où l'attente ....

La solution fonctionnera tant que le site hôte existe et que la page n'est pas modifiée (changement du nom de l'id).

Le coup de WebBrowser n'est pas très génial mais pour le moment, je n'ai pas trouvé mieux

J'ai aussi passé pas mal de temps pour trouver un site qui utilise les ID dans le codage HTML .....

EDIT: J'ai tenté le WebClient mais le code aurait été beaucoup plus lourd ( recherche manuelle de la ligne contenant le texte de l'id, .......)

Cordialement,
Le réparateur de PC

Re ,

Super ! Je teste cela !

Cordialement ,

Re ,

Cela ne fonctionne pas , cela mais le style par défaut de windows sur ma fenêtre krypton et quand on ferme le logiciel , en faite il reste en processus .

Cordialement ,

re,

Met une capture de ta modification STP. Mon code ne modifie pas l'apparence.

Cordialement,
Le réparateur de PC

Re ,



EDIT : Le label c'est pour mettre l'IP , un test donc
Cordialement ,

re,

Je parlais d'une capture d'écran de ce que tu a modifié dans le dossier source de SZ

N'hésite pas si tu n'a pas compris la modif

Cordialement,
Le réparateur de PC

Re ,



Voila  !

Cordialement ,

re,

Donc ça c'est le code que tu as mis dans le fichier VelerSoftware.GeneralPlugin.Obtenir_IP.vb
en remplacement de tout ce qui se trouvais ?
Ouvre VelerSoftware.GeneralPlugin.Obtenir_IP.vb avec le bloc note Windows, c'est la même chose que dans ton soft ?

Dans SZ, tu a simplement utilisé l'action obtenir ip ?

Fait un projet avec un bouton, l'action IP et un message pour tester

Cordialement,
Le réparateur de PC

Re ,


Oui , j'ai remplacée ce code dans le fichier VelerSoftware.GeneralPlugin.Obtenir_IP.vb .
Dans SZ , j'ai bien utiliser l'action "Obtenir L'Ip"


[size=12.222222328186035]Pour le projet , je le ferais plus tard car la je n'ais pas trop le temps  .[/size]


[size=12.222222328186035]Cordialement ,[/size]

re,

HAAA bizarre ça marche chez moi

Cordialement,
Le réparateur de PC