Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Wan

Wan

21 réponses
Avatar
Pierre
Bonjour,

Je cherche à connaîter l'adresse IPWan d'un poste. Manuellement, j'irai par
exemple sur www.ipeee.com
mais je voudrai le faire par une API.

Je ne désire pas utiliser l'OCX msinet.ocx car il ne focntionne pas sur tous
les postes ni l'API URLDownloadToFile qui me génère un fichier mais une
commande comme
IP = principale.Inet1.OpenURL("http://testip.free.fr/ip.php")

mais sans utiliser msinet.ocx. Quelqu'un a t'il une solution?


--
D'avance merci
Meilleures salutations
Pierre
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
jean-marc
"Jacques93" wrote in message
news:
Bonjour jean-marc,
jean-marc a écrit :
[...]
C'est précisément ce que Jacques veut dire :
en HTML pur, ca ne marche pas partout.




ENFIN !!! quelqu'un qui me comprend :-D

J'avais fait des efforts pour être clair pourtant, non ?
Je vais poster le code de la page en réponse à tking, à tout hasard ...



Ici, ils parlent (à mots couverts) de cette restriction:
http://www.styma.org/REMOTE_ADDR.html

Mais c'est vrai que je ne trouve pas grand chose de mieux...

--
jean-marc
Avatar
Jacques93
Bonjour tking,
tking a écrit :

rm2 marche pas.



Ben oui justement, voici le source de la page :

-----------------------------------------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">

<script type="text/javascript" language="javascript">
<!--
var ip = '<!--#echo var="REMOTE_ADDR"-->';
function getInfo()
{
document.getElementById("ip").innerHTML = ip;
}

</script>

</head>

<body onLoad="getInfo()">

<hr size="2">
<table width="630" border="0">
<tr>
<td width="90"><div align="right">Adresse IP : </div></td>
<td width="530" id="ip"></td>
</tr>
</table>
</body>
</html>
-----------------------------------------------------------------

Ce source est strictement le même dans les page rm1 et rm2. Il y a deux
différences :

dans rm1 il s'appelle caption.shtml et ça fonctionne
dans rm2 il s'appelle caption.html et ça ne fonctionne pas

et évidemment la page par défaut, index.html le nomme de manière
appropriée (shtml ou html)

Je suis certain d'avoir vu de la documentation à ce sujet il y a 2 ans
et demi environ, mais pour l'instant, impossible de la retrouver.

--
Cordialement,

Jacques.
Avatar
jean-marc
"Jacques93" wrote in message
news:
Bonjour jean-marc,
jean-marc a écrit :
[...]
C'est précisément ce que Jacques veut dire :
en HTML pur, ca ne marche pas partout.




ENFIN !!! quelqu'un qui me comprend :-D



J'ai trouvé:
http://www.the-eggman.com/seminars/server_vars.shtml

Ca dit tout!

--
jean-marc
Avatar
Jacques93
jean-marc a écrit :
"Jacques93" wrote in message
news:
Bonjour jean-marc,
jean-marc a écrit :
[...]
C'est précisément ce que Jacques veut dire :
en HTML pur, ca ne marche pas partout.



ENFIN !!! quelqu'un qui me comprend :-D

J'avais fait des efforts pour être clair pourtant, non ?
Je vais poster le code de la page en réponse à tking, à tout hasard ...



Ici, ils parlent (à mots couverts) de cette restriction:
http://www.styma.org/REMOTE_ADDR.html

Mais c'est vrai que je ne trouve pas grand chose de mieux...




Oui, on trouve quelques sites qui précisent la nécessité du SHTML, mais
pour l'explication, bernique. Un autre :

<http://www.toulouse-renaissance.net/c_outils/c_blocage_ip.shtml>

--
Cordialement,

Jacques.
Avatar
Jacques93
jean-marc a écrit :
"Jacques93" wrote in message
news:
Bonjour jean-marc,
jean-marc a écrit :
[...]
C'est précisément ce que Jacques veut dire :
en HTML pur, ca ne marche pas partout.



ENFIN !!! quelqu'un qui me comprend :-D



J'ai trouvé:
http://www.the-eggman.com/seminars/server_vars.shtml

Ca dit tout!




Merci :-)
J'étais sur la piste :

http://cern91.tuxfamily.org/linux/indexnet.php?page=ssi

mais pas au bout de la route ;-)

--
Cordialement,

Jacques.
Avatar
tking
Jacques93 a exposé le 21/06/2007 :


dans rm1 il s'appelle caption.shtml et ça fonctionne
dans rm2 il s'appelle caption.html et ça ne fonctionne pas



Donc c'est la faute au serveur, no ?
Avatar
Jacques93
Bonjour tking,
tking a écrit :
Jacques93 a exposé le 21/06/2007 :


dans rm1 il s'appelle caption.shtml et ça fonctionne
dans rm2 il s'appelle caption.html et ça ne fonctionne pas



Donc c'est la faute au serveur, no ?





Oui... et non. Remontes le fil entre jean-marc et moi. C'est lié aux SSI
(Server Side Information), donc au serveur, mais c'est pas sa faute
(responsable, mais pas coupable ...)

Extrait de :

<http://cern91.tuxfamily.org/linux/indexnet.php?page=ssi>

<Citation>
Utilisation :

Dans une page HTML, un commentaire est inséré par <!-- description des
instructions -->. Les instructions SSI s'insèrent dans un document
(*.shtml) avec la ligne : <!--#include file="fichier.html"-->
La grande différence est le signe " # " qui va permettre d'utiliser le
"Server-parsed HTML" pour peu que votre document ait l'extension
shtml.
</Citation>

Cela semble indiquer que le Server-parsed HTML, comme
'<!--#echo var="REMOTE_ADDR"-->', ne serait interprété que s'il y a une
extension SHTML. Il existe manifestement des exceptions. Mais pour
assurer ...

Il serait peut être judicieux de demander des précisions sur un forum
dédié, parce que du HTML + un lien vers un site Linux, je suis quelque
peu HS, et je vais me faire taper sur les doigts :-x

Enfin, tant que c'est pas la tête ;-)

--
Cordialement,

Jacques.
Avatar
tking
Le 21/06/2007, Jacques93 a supposé :

Il serait peut être judicieux de demander des précisions sur un forum dédié,
parce que du HTML + un lien vers un site Linux, je suis quelque peu HS, et je
vais me faire taper sur les doigts :-x

Enfin, tant que c'est pas la tête ;-)



En tout cas merci pour les explications.
Avatar
Pierre
Et ben, j'en ai appris des choses. Encore merci.

J'ai encore une question, étant un nul en HTML, comment puis-je connaitre la
commande GET de l'entête qu'un site veut recevoir.

Par exemple, j'ai du mettre
"GET " & URLPageWeb & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf &
"Accept: text/html" & vbCrLf & vbCrLf
pour que ca fonctionne (j'ai trouvé ca sur internet) mais ca ne marche pas
partout.


Dim CommandeHTTP As String
Dim URLPageWeb As String
URLPageWeb = "http://www.ipeee.com"
'URLPageWeb = "http://www.the-eggman.com:80/seminars/server_vars.shtml"
'URLPageWeb = "/"
CommandeHTTP = "GET " & URLPageWeb & " HTTP/1.0" & vbCrLf & "Accept:
*/*" & vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf
winsock1.SendData CommandeHTTP

PS : pour l'instant j'ai testé avec l'OCX mais bon, l'API ne doit pas être
bien différente.
--
D'avance merci
Meilleures salutations
Pierre
"Pierre" a écrit dans le message de news:

Merci de toutes vos bonnes solutions

Je vais opter pour winsock

--
D'avance merci
Meilleures salutations
Pierre
"Pierre" a écrit dans le message de news:

Bonjour,

Je cherche à connaîter l'adresse IPWan d'un poste. Manuellement, j'irai
par exemple sur www.ipeee.com
mais je voudrai le faire par une API.

Je ne désire pas utiliser l'OCX msinet.ocx car il ne focntionne pas sur
tous les postes ni l'API URLDownloadToFile qui me génère un fichier mais
une commande comme
IP = principale.Inet1.OpenURL("http://testip.free.fr/ip.php")

mais sans utiliser msinet.ocx. Quelqu'un a t'il une solution?


--
D'avance merci
Meilleures salutations
Pierre







Avatar
tking
Pierre a émis l'idée suivante :
Et ben, j'en ai appris des choses. Encore merci.

J'ai encore une question, étant un nul en HTML, comment puis-je connaitre la
commande GET de l'entête qu'un site veut recevoir.

Par exemple, j'ai du mettre
"GET " & URLPageWeb & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf &
"Accept: text/html" & vbCrLf & vbCrLf
pour que ca fonctionne (j'ai trouvé ca sur internet) mais ca ne marche pas
partout.


Dim CommandeHTTP As String
Dim URLPageWeb As String
URLPageWeb = "http://www.ipeee.com"
'URLPageWeb = "http://www.the-eggman.com:80/seminars/server_vars.shtml"
'URLPageWeb = "/"
CommandeHTTP = "GET " & URLPageWeb & " HTTP/1.0" & vbCrLf & "Accept: */*"
& vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf
winsock1.SendData CommandeHTTP

PS : pour l'instant j'ai testé avec l'OCX mais bon, l'API ne doit pas être
bien différente.







' marche avec
' http://www.bliao.com:2000/ip.phtml
'
'
' mettre un bouton command1 et un text1.text sur la feuille
' ajoutez winsock


Private Sub Command1_Click()

Winsock1.Close
Winsock1.Connect "www.bliao.com", 2000

End Sub



Private Sub winsock1_connect()

Winsock1.SendData "GET http://" & Winsock1.RemoteHost & "/ip.phtml" &
" HTTP/1.0" & vbCrLf
Winsock1.SendData "Accept: */*" & vbCrLf
Winsock1.SendData "Accept-Language: en-us" & vbCrLf
Winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5;
Windows 95)" & vbCrLf

Winsock1.SendData vbCrLf


End Sub



Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)

Dim webData As String
Winsock1.GetData webData, vbString

Text1.Text = webData

End Sub


' gere la fin de connexion
'
Private Sub winsock1_close()

'
'
'

end sub



au final tu reçois ça, sans les "===="

==============================
HTTP/1.1 200 OK
Date: Fri, 22 Jun 2007 11:06:44 GMT
Server: Apache/1.3.32 (Unix) PHP/4.3.11
X-Powered-By: PHP/4.3.11
Connection: close
Content-Type: text/html

90.32.167.63

================================
1 2 3