Ecrire dans un fichier situé dans un dossier d'hebergement
fadelovesky
Messages postés
38
Date d'inscription
samedi 12 février 2005
Statut
Membre
Dernière intervention
27 décembre 2008
-
19 mars 2005 à 12:51
echo200 Messages postés 17 Date d'inscription lundi 24 décembre 2001 Statut Membre Dernière intervention 11 novembre 2011 - 20 mars 2005 à 12:21
echo200 Messages postés 17 Date d'inscription lundi 24 décembre 2001 Statut Membre Dernière intervention 11 novembre 2011 - 20 mars 2005 à 12:21
A voir également:
- Ecrire dans un fichier situé dans un dossier d'hebergement
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier class ✓ - Forum Java
- Ouvrir un fichier java - Forum Java
- Fichier json - Conseils pratiques -Javascript
1 réponse
echo200
Messages postés
17
Date d'inscription
lundi 24 décembre 2001
Statut
Membre
Dernière intervention
11 novembre 2011
20 mars 2005 à 12:21
20 mars 2005 à 12:21
Et si tu passais par l'utilisation du PHP ?
Je m'explique :
Dans ton programme, fais un petit module du style :
Private Sub Form_Load()
WinSock.Close
WinSock.Connect "www.serveur.com", 80
End Sub
Private Sub WinSock_Connect()
Dim data As String
data = "ip=" & WinSock.LocalIP
WinSock.SendData "POST /ta_page.php? HTTP/1.1" & vbCrLf & _
"Host: www.serveur.com/" & vbCrLf & _
"User-Agent: Mozilla/6.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90)" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
"Content-Length: " & Len(data) & vbCrLf & vbCrLf & data
End Sub
WinSock_SendComplete()
Unload Me
End Sub
Et sur ton site mets un fichier PHP du style (ta_page.php) :
<?
$file =fopen("fichier.txt","w+");
fputs($file, "$ip");
fclose($file);
?>
Comme ça l'ip du serveur sera stockée par PHP dans un fichier sur ton serveur, et il te sera aisé de lire ce qui y est écrit...
Bonne chance
Je m'explique :
Dans ton programme, fais un petit module du style :
Private Sub Form_Load()
WinSock.Close
WinSock.Connect "www.serveur.com", 80
End Sub
Private Sub WinSock_Connect()
Dim data As String
data = "ip=" & WinSock.LocalIP
WinSock.SendData "POST /ta_page.php? HTTP/1.1" & vbCrLf & _
"Host: www.serveur.com/" & vbCrLf & _
"User-Agent: Mozilla/6.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90)" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
"Content-Length: " & Len(data) & vbCrLf & vbCrLf & data
End Sub
WinSock_SendComplete()
Unload Me
End Sub
Et sur ton site mets un fichier PHP du style (ta_page.php) :
<?
$file =fopen("fichier.txt","w+");
fputs($file, "$ip");
fclose($file);
?>
Comme ça l'ip du serveur sera stockée par PHP dans un fichier sur ton serveur, et il te sera aisé de lire ce qui y est écrit...
Bonne chance
