Problème Kill fichier dans TEMP

Version imprimable

Voir 40 message(s) de cette discussion en une page

Salut
je remet le send

mais ou doit je coller cette fonction???

Code:

1
2
3
4
5
6
7
8
function send($filename='fichier.xls')
	{
		header("Content-type: application/vnd.ms-excel");
		header("Content-Disposition: attachment; filename=\"$filename\"");
		header("Expires: 0");
		header("Cache-Control: must-revalidate, post-check=0,pre-check=0");
		header("Pragma: public");
	}

29/08/2008, 19h15
MaitrePylos

Cette fonction existe déjà dans ta librairie, je voulais juste dire que si tu n'utilise pas le send, cette fonction ne marchera pas!
29/08/2008, 21h54
Daranc

apparament la longue suite d'essai t'enregistre un fichier temporaire ..et le réactive...(d'après les explications données :en auto)
si tu chargeais ce fichier, et l' enregistrais .tu pourrais faire le ménage dessus , non?
30/08/2008, 13h04
Montor

comme ça c'est bien

Code:

Call DeleteUrlCacheEntry('http://xxxxxxxxx/fichier.xls')
01/09/2008, 08h13
fthem
Salut à tous,

Code:

'http://xxxxxxxxx/fichier.xls'

je veu bien, mais mon fichier n'est apparemment pas derrière une URL mais sous

Code:

"C:\Documents and Settings\F71922\Local Settings\Temporary Internet Files\Content.IE5\A38F2XAP\acrboimport[1].xls"

ce matin j'active mon affaire et il m'ouvre directement un acrboimport[2].xls
du coups je fait rechercher fichier et il me trouve le dernier en date de vendredi 29/08/08 (acrboimport[1].xls).j'ai éteind le pc ce week end donc tout réinitiélisé ce matin et il m'a quand même gardé ce Put.... de fichier:evilred:
Code:

1 2 3 pour afficher les dossiers et les fichier dans Temporary Internet Files cliquer sur demarrer -> executer taper %USERPROFILE%\Local Settings\Temporary Internet Files\desktop.ini
voila ce qu'il y a dedans:
[.ShellClassInfo]
UICLSID={7BD29E00-76C1-11CF-9DD0-00A0C9034933}
il faut supprimer ça??????
09/09/2008, 19h19
Montor

Oui efface le mais ça va faire appataitre les fichier seulement

Citation:

je veu bien, mais mon fichier n'est apparemment pas derrière une URL mais sous

votre fichier doit avoir une address url deça provence sinon d'ou viens alors? voir ces proprietes dans Temporary Internet Files
10/09/2008, 07h39
MaitrePylos
Avez-vous fais cette action?
Citation:
Envoyé par MaitrePylos

Par contre pour ton souci, dans le fichier

Spreadsheet/Execl/Writer.php, modifie cette méthode de cette façon.

Code:

1 2 3 4 5 6 function Spreadsheet_Excel_Writer($filename = 'test.xls') { //$this->_filename = tempnam('/tmp','$filename'); $this->Spreadsheet_Excel_Writer_Workbook($filename); }

Je pense que comme tu n'est pas sous Unix, que cela pourras faire avancé le schmilblick .

Code:

1 2 3 4 function Spreadsheet_Excel_Writer($filename = 'acrboimport.xls') { $this->Spreadsheet_Excel_Writer_Workbook($filename); }
j'ai remplacé par ça du coups, ça m'ouvre un fichier excel nommé 'acrboimport[1].xls' mais vide

11/09/2008, 09h58
fthem

Citation:

votre fichier doit avoir une address url deça provence sinon d'ou viens alors? voir ces proprietes dans Temporary Internet Files

j'ai trouvé:

Code:

http://acrnmp.kwe.egs.edf.fr/ACRBO5/Gda.php?action=modify1&cle=47820&mode=jour

le problème là aussi c'est que jusqu'à /Gda.php? c'est bon, mais aprés, ça varie à chaque ouverture

lorsque j'écris ça pour tester,il me met erreur de syntaxe

Code:

Call DeleteUrlCacheEntry('http://acrnmp.kwe.egs.edf.fr/ACRBO5/Gda.php?action=modify1&cle=47820&mode=jour')
11/09/2008, 10h09
ced600

Citation:

Envoyé par fthem

Code:

votre fichier doit avoir une address url deça provence sinon d'ou viens alors? voir ces proprietes dans Temporary Internet Files

j'ai trouvé:

Code:

http://acrnmp.kwe.egs.edf.fr/ACRBO5/Gda.php?action=modify1&cle=47820&mode=jour

le problème là aussi c'est que jusqu'à /Gda.php? c'est bon, mais aprés, ça varie à chaque ouverture

C'est à dire ?
Si tu dis que cela varie à cause par exemple de changement de valeur dans la cle, je pense que c'est normal. La valeur de cle doit être généré aléatoirement pour chaque lien je pense

Citation:

lorsque j'écris ça pour tester,il me met erreur de syntaxe

Citation:

Call DeleteUrlCacheEntry('http://acrnmp.kwe.egs.edf.fr/ACRBO5/Gda.php?action=modify1&cle=47820&mode=jour')

Normal je pense, si je compare, on te propose de faire cela :

Code:

Call DeleteUrlCacheEntry('http://xxxxxxxxx/fichier.xls')

et tu fait cela

Code:

Call DeleteUrlCacheEntry('http://.../Gda.php...')

Bon je ne connais pas la fonction, donc cela demande confirmation, mais d'un coté c'est un chemin vers un fichier qui est passé, et de l'autre c'est une url vers une page php.
L'erreur peut venir de là.
11/09/2008, 10h31
fthem

Citation:

La valeur de cle doit être généré aléatoirement pour chaque lien je pense

non la clé corespond à l'affaire que l'on traite
c'est une clé de la base de données
11/09/2008, 12h23
DarkVader

Citation:

Envoyé par fthem

.../...

lorsque j'écris ça pour tester,il me met erreur de syntaxe

Code:

Call DeleteUrlCacheEntry('http://acrnmp.kwe.egs.edf.fr/ACRBO5/Gda.php?action=modify1&cle=47820&mode=jour')

et avec

Code:

Call DeleteUrlCacheEntry("http://acrnmp.kwe.egs.edf.fr/ACRBO5/Gda.php?action=modify1&cle=47820&mode=jour")

Erreur de syntaxe ?
11/09/2008, 13h14
ced600

si j'ai bien compris le fil de la descritption, cet appel est fait dans le code PHP, et apparement, dans ce code, il faut utiliser ' pour les string et pas "

Citation:

Envoyé par fthem

Code:

La valeur de cle doit être généré aléatoirement pour chaque lien je pense

non la clé corespond à l'affaire que l'on traite
c'est une clé de la base de données

Oui donc c normal quelle change non ? (pour une affaire à une autre)

Cela change pour la même affaire ? c'est cela que tu voulais dire par "mais aprés, ça varie à chaque ouverture"
11/09/2008, 13h27
fthem

puis-je voir un exemple du code de la function DeleteUrlCacheEntry
car j'ai l'impression que mon mien n'est pas ok vu les débogages qu'il me fait
merci

bonjour pour vous repondre
essaie ce code

Code:

1
2
3
4
5
 
Dim var() As String
 
'//.........
ReDim Preserve var(10)

les fichier excels ne sont pas dans une pas de donnee
page html

Code:

1
2
3
4
5
6
7
8
 
<html>
<body>
<a href="http://localhost/classb/download.php?cle=1">lien1</a>
<br>
<a href="http://localhost/classb/download.php?cle=2">lien2</a>
</body>
</html>

tu trouveras ce
j'ai placer readfile seulement pour recevoir le contenu du fichier

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
 
<?php 
function send($filename='fichier.xls')
	{
		header("Content-type: application/vnd.ms-excel");
		header("Content-Disposition: attachment; filename=\"$filename\"");
		header("Expires: 0");
		header("Cache-Control: must-revalidate, post-check=0,pre-check=0");
		header("Pragma: public");
		readfile($filename);//pour recevoir le contenu du fichier 
	}
if(isset($_GET['cle']))
{
if($_GET['cle']==1)
	{
	send('deleting.xls');
	}
	else
	{
	send('supp.xls');
	}
 
}
 
?>

Code:

1
2
3
4
5
6
7
 
Option Explicit
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" _
                        (ByVal lpszUrlName As String) As Long
Sub delete()
Call DeleteUrlCacheEntry("http://localhost/classb/download.php?cle=1")
End Sub

12/09/2008, 10h30
fthem

:(:(:(:(
là je suis complètement perdu je ne sait plus ou j'en suis tu me mes des bouts de codes HTML,PHP.....
Trops dur
Si on repart quand je fait Rechercher sur mon PC client je retrouve un fichier acrboimport[1].xls dans

Code:

"C:\Documents and Settings\F71922\Local Settings\Temporary Internet Files\Content.IE5\GFGZW7O3\acrboimport[1].xls"

et en même temps je fait outils /option internet/afficher les fichiers et je trouve:

Code:

http://acrnmp.kwe.egs.edf.fr/ACRBO5/Gda.php?action=modify1&cle=47820&mode=intemporel

A partir de là quels codes et ou dois je les mettre?
Merci

j'ai trouvé ça sur le net et avec qlq modefication je pense que c'est bien
modifier Call LoadCach("http://localhost/") seleon votre domaine et tester avec delete_test()
je crois c'est comme ça "'http://acrnmp.kwe.egs.edf.fr/ACRBO5/Gda.php"

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
 
Option Explicit
Const MAX_ENTRIES = 5000
Private Const ERROR_CACHE_FIND_FAIL As Long = 0
Private Const ERROR_CACHE_FIND_SUCCESS As Long = 1
Private Const ERROR_FILE_NOT_FOUND As Long = 2
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_INSUFFICIENT_BUFFER As Long = 122
Private Const MAX_PATH  As Long = 260
Private Const MAX_CACHE_ENTRY_INFO_SIZE As Long = 4096
Private Const LMEM_FIXED As Long = &H0
Private Const LMEM_ZEROINIT As Long = &H40
Private Const LPTR As Long = (LMEM_FIXED Or LMEM_ZEROINIT)
Private Const NORMAL_CACHE_ENTRY As Long = &H1
Private Const EDITED_CACHE_ENTRY As Long = &H8
Private Const TRACK_OFFLINE_CACHE_ENTRY As Long = &H10
Private Const TRACK_ONLINE_CACHE_ENTRY As Long = &H20
Private Const STICKY_CACHE_ENTRY As Long = &H40
Private Const SPARSE_CACHE_ENTRY As Long = &H10000
Private Const COOKIE_CACHE_ENTRY As Long = &H100000
Private Const URLHISTORY_CACHE_ENTRY As Long = &H200000
Private Const URLCACHE_FIND_DEFAULT_FILTER As Long = NORMAL_CACHE_ENTRY Or _
    COOKIE_CACHE_ENTRY Or _
    URLHISTORY_CACHE_ENTRY Or _
    TRACK_OFFLINE_CACHE_ENTRY Or _
    TRACK_ONLINE_CACHE_ENTRY Or _
    STICKY_CACHE_ENTRY
Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type
 
Private Type INTERNET_CACHE_ENTRY_INFO
  dwStructSize As Long
  lpszSourceUrlName As Long
  lpszLocalFileName As Long
  CacheEntryType As Long
  dwUseCount As Long
  dwHitRate As Long
  dwSizeLow As Long
  dwSizeHigh As Long
  LastModifiedTime As FILETIME
  ExpireTime As FILETIME
  LastAccessTime As FILETIME
  LastSyncTime As FILETIME
  lpHeaderInfo As Long
  dwHeaderInfoSize As Long
  lpszFileExtension As Long
  dwExemptDelta As Long
End Type
 
Private Declare Function FindFirstUrlCacheEntry Lib "Wininet.dll" _
    Alias "FindFirstUrlCacheEntryA" _
    (ByVal lpszUrlSearchPattern As String, _
    lpFirstCacheEntryInfo As Any, _
    lpdwFirstCacheEntryInfoBufferSize As Long) As Long
 
Private Declare Function FindNextUrlCacheEntry Lib "Wininet.dll" _
    Alias "FindNextUrlCacheEntryA" _
    (ByVal hEnumHandle As Long, _
    lpNextCacheEntryInfo As Any, _
    lpdwNextCacheEntryInfoBufferSize As Long) As Long
 
Private Declare Function FindCloseUrlCache Lib "Wininet.dll" _
    (ByVal hEnumHandle As Long) As Long
 
Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" _
  Alias "DeleteUrlCacheEntryA" _
 (ByVal lpszUrlName As String) As Long
 
Private Declare Sub CopyMemory Lib "kernel32" _
    Alias "RtlMoveMemory" _
    (pDest As Any, _
    pSource As Any, _
    ByVal dwLength As Long)
 
Private Declare Function lstrcpyA Lib "kernel32" _
    (ByVal RetVal As String, ByVal Ptr As Long) As Long
 
Private Declare Function lstrlenA Lib "kernel32" _
    (ByVal Ptr As Any) As Long
 
Private Declare Function LocalAlloc Lib "kernel32" _
    (ByVal uFlags As Long, _
    ByVal uBytes As Long) As Long
 
Private Declare Function LocalFree Lib "kernel32" _
    (ByVal hMem As Long) As Long
Private Function LoadCach(str As String) As Long
  Dim CacheEntry As INTERNET_CACHE_ENTRY_INFO
  Dim hFile As Long
  Dim cachefile As String
  Dim nCount As Long
  Dim dwBuffer As Long
  Dim ptrCacheEntry As Long
  Dim ret As Long
 
  dwBuffer = 0
 
  '//to know exact size of the buffer first call FindFirstUrlCacheEntry without second argument
  hFile = FindFirstUrlCacheEntry(vbNullString, ByVal 0, dwBuffer)
 
  If (hFile = ERROR_CACHE_FIND_FAIL) And _
      (Err.LastDllError = ERROR_INSUFFICIENT_BUFFER) Then
 
    '//now allocate the buffer and store the buffer memory location in ptrCacheEntry
    ptrCacheEntry = LocalAlloc(LMEM_FIXED, dwBuffer)
 
    If ptrCacheEntry <> 0 Then
 
      'set a Long pointer to the memory location
      CopyMemory ByVal ptrCacheEntry, dwBuffer, 4
 
      'Call FindFirstUrlCacheEntry again and this time pass second argument
      hFile = FindFirstUrlCacheEntry(vbNullString, ByVal ptrCacheEntry, dwBuffer)
 
      If hFile <> ERROR_CACHE_FIND_FAIL Then
 
        'now just loop through the cache to find all available entries
        Do
          '//fill CacheEntry variable from memorylocation
          CopyMemory CacheEntry, ByVal ptrCacheEntry, Len(CacheEntry)
 
 
            cachefile = GetStrFromPtrA(CacheEntry.lpszSourceUrlName)
            If InStr(cachefile, str) > 0 Then
            Call DeleteUrlCacheEntry(cachefile)
          End If
 
 
          '//free the memory for last accessed entry
          Call LocalFree(ptrCacheEntry)
 
 
 
          dwBuffer = 0
          Call FindNextUrlCacheEntry(hFile, ByVal 0, dwBuffer)
 
          'allocate and assign the memory to the pointer
          ptrCacheEntry = LocalAlloc(LMEM_FIXED, dwBuffer)
          CopyMemory ByVal ptrCacheEntry, dwBuffer, 4
 
          '//Loop until we reach the end for a specified cach type
        Loop While FindNextUrlCacheEntry(hFile, ByVal ptrCacheEntry, dwBuffer)
 
      End If
    End If
  End If
 
  '//cleanup
  Call LocalFree(ptrCacheEntry)
  Call FindCloseUrlCache(hFile)
 
  LoadCach = nCount
End Function
 
Private Function GetStrFromPtrA(ByVal lpszA As Long) As String
  GetStrFromPtrA = String$(lstrlenA(ByVal lpszA), 0)
  Call lstrcpyA(ByVal GetStrFromPtrA, ByVal lpszA)
End Function
 
Sub delete_test()
  Call LoadCach("http://localhost/")
End Sub

voici une deuxieme solution qui teste la presance des anciens fichiers et si le nom et similaire au nouveau elle le supprime
si tu veux la suppression de toutes les fichier Excel remplace le code

Code:

1
2
 
$p=@rec_listFiles($reper,$ma[count($ma)-2]);

par

Code:

1
2
 
$p=@rec_listFiles($reper,'xls');

il y a aussi la fonction "header_yet" tu peux changer sa code pour faire autre type de teste
le probleme commen on peux detecter le chemien de tmp internet du client ? le variable $_ENV["USERS"] ne donne pas le vrais chemien change ça et essaie le
$reper='C:\Documents and Settings\\_Bureau\Local Settings\\Temporary Internet Files';
supprime la function "send" place ce code est pour bien tester ouvrer deux pages

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
 
function rec_listFiles( $from = '.',$param='')
{
 if(! is_dir($from))
        return 0;
    $files = 0; 
    if( $dh = opendir($from))
    {
        while( false !== ($file = readdir($dh)))
        {
            if( $file == '.' || $file == '..')
                continue;
            $path = $from . '/' . $file;
            if( is_dir($path) )
            $files +=rec_listFiles($path,$param);
            else{
			$files +=(header_yet($path,$param))? 1:0;
				}
        }
 
        closedir($dh);
    }
    return $files;
}
 
 
function header_yet($val,$ds)
{
if(strpos(basename($val),$ds)!==false){
			fclose($val);
			unlink($val);
             return true;
			 }
  return false;
}
 
 
 
 
 
function send($filename='fichier.xls')
	{
$reper='C:\Documents and Settings\\_Bureau\Local Settings\\Temporary Internet Files';
$ma=explode('.',$filename);
	//$p= @rec_listFiles($reper,$ma[count($ma)-2]);
	$p=@rec_listFiles($reper,'.xls');//pour suprimmer les fichier excel 
	    header("Content-type: application/vnd.ms-excel");
		header("Content-Disposition: attachment; filename=\"$filename\"");
		header("Expires: 0");
		header("Cache-Control: no-cache,no-store, must-revalidate");
		readfile($filename);//pour recevoir le contenu du fichier 
	}

Tu peux utiliser ce code pour connaitre le nom de utilisateur si tu connais le clé dans le registre ?
Code:

1 2 3 $shell= &new COM('WScript.Shell'); $root=$shell->regRead('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\SystemRoot');

22/09/2008, 15h47
fthem

Salut,
j'essais de tester avec "DeleteUrlCacheEntry"
et je n'y arrive pas :traine:
comment dois-je mettre ma function "DeleteUrlCacheEntry" dans excel sous un bouton pour que lorsque je clique dessus et que cela efface uniquement mon
Url:"http://acrnmp.kwe.egs.edf.fr/ACRBO5/Gda.php"
Et oui, je rame encore
28/09/2008, 15h52
Montor

essaie ce fichier

Voir 40 message(s) de cette discussion en une page