Reçevoir des données...

dufour137 Messages postés 45 Date d'inscription dimanche 12 janvier 2003 Statut Membre Dernière intervention 31 octobre 2005 - 16 sept. 2003 à 18:24
kimmelf2 Messages postés 267 Date d'inscription lundi 22 septembre 2003 Statut Membre Dernière intervention 27 novembre 2005 - 25 sept. 2003 à 23:47
j'aimerais récupérer la valeur d'une variable en passant par internet. J'ai pensé que le plus rapide serait d'écrire dans un fichier texte par ftp, j'ai fais ceci:

Ouiounon = Inet1.OpenURL("http://membres.lycos.fr/assdds/asdf.txt")

Open "" & Ouiounon For Append As #1
Print #1,  "Message: " &message
Close #1 


Mais ça ne fonctionne pas et en plus ça ne serait pas très rapide... serait-il possible d'envoyer differemment (Telnet)

Merci

Bonne Journée

5 réponses

cs_neodante Messages postés 2835 Date d'inscription lundi 11 août 2003 Statut Modérateur Dernière intervention 16 décembre 2006 11
16 sept. 2003 à 19:35
8-) Neodante 8-)

As-tu les droits pour écrire dans ton répertoire (authentification) ???
Pour quel type d'application car tout dépend de ton utilisation ? C'est pour un site .... ???
@+
0
dufour137 Messages postés 45 Date d'inscription dimanche 12 janvier 2003 Statut Membre Dernière intervention 31 octobre 2005
16 sept. 2003 à 19:48
Oui, j'ai mis les droits. (chmod 777) c'est une appli toute simple. Lorsque on charge le formulaire principal, j'aimerais reçevoir la variable qui contient l'ip, la date et l'heure. mais pour l'exercice j'aimeras bien que cette variable soit stockée dans un fichier texte sur un compte ftp. Mais si tuc onnais plus rapide, tu me dis.

Merci bien
0
cs_neodante Messages postés 2835 Date d'inscription lundi 11 août 2003 Statut Modérateur Dernière intervention 16 décembre 2006 11
17 sept. 2003 à 18:48
8-) Neodante 8-)

logiquement cela devrait marché, je fais la manip sur mon serveur FTP et cela marche très bien ! Si tu as un fournisseur pour ton serveur cela provient surement de là ! C'est vraiment étrange ???
@+ tiens moi au courant car là je suis un peu étonné (sauf si ton serveur est chez un hébergeur !)
0
cs_neodante Messages postés 2835 Date d'inscription lundi 11 août 2003 Statut Modérateur Dernière intervention 16 décembre 2006 11
17 sept. 2003 à 18:49
8-) Neodante 8-)

Si tu as besoin d'un authentification pour accèder à ton compte (donc avoir les droits d'écriture) te log tu bien ??
@+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
kimmelf2 Messages postés 267 Date d'inscription lundi 22 septembre 2003 Statut Membre Dernière intervention 27 novembre 2005
25 sept. 2003 à 23:47
je te conseillerais plutot de passer par un script PHP place sur ton site

ex :
fichier WriteVar.php

<?
$f = fopen("fichier.txt","w");

fwrite $fp,$variable . "=" . $valeur;

fclose $f;
?>

dans ton prog, tu met un controle WinSock (appele sck) et tu le parametre comme suis :

sck.RemoteHost = "http://membres.lycos.fr/"
sck.RemotePort = 80
sck.LocalPort = 12345 ' cette valeur n'est pas importante, il faut juste utilise un port qui est libre

Pour provoquer l'envoi de ta variable lors d'un clic sur un bouton par exemple

sub Button1_Click()
sck.Connect
end sub

sub sck_Connect()
sck.SendData "GET assdds/WriteVar.php?variable=" & _
NomVariable.text & "&valeur=" & str(ta_variable)" & _
" HTTP/1.0" & vbCrLf & vbCrLf
end sub

sub sck_close()
if sck.state<>sckClosed then
sck.close
endif
end sub

en fait, le socket envoi le nom contenu dans NomVariable.text (par exemple) et la valeur de la variable "ta_variable" a la page PHP. et c'est elle qui se charge d'ecrire les valeurs dans le fichier.
0
Rejoignez-nous