Temporary Internet Files

[AHT]

Kann man auch direkt aufrufen:

'#####################################################################################
'#########                          Code von AHT                             #########
'#########      Gepostet für Startseite - Paules-PC-Forum.de                   #########
'#####################################################################################
Declare WCMD#
CLS
DIM WCMD#, 8
String WCMD#,0 = "8"
EXTERNAL("inetcpl.cpl", "ClearMyTracksByProcessW", 0, 0, WCMD#, 0)
Dispose WCMD#
End

[ts-soft]

Vielleicht sollte Roland "DeleteUrlCacheEntry" als Option in "downloadfile"
einbauen, so das diese nach erfolgreichem Download selbsttätig diese
aus dem Cache entfernt.

PS: Das Gefrickel mit der CPL oder dem Batch würde ich lieber sein lassen,
da ist der andere Vorschlag doch wesentlich besser. Die Frage wäre auch,
ob das Programm auf jedem System die Rechte hat, auf die CPL zuzugreifen.

[AHT]

Natürlich hat es das - ist nicht anders, als bei jeder DLL, die man lädt. Was sich aber fragt ist, ob sich der Aufruf in Zukunft nicht ändert - ist ja nicht dokumentiert.

Ich würde auch DeleteUrlCacheEntry nehmen.

[ts-soft]

Zitat von AHT

Natürlich hat es das - ist nicht anders, als beri jeder DLL, die man lädt.

Der Zugriff zur Systemsteuerung lässt sich aber per Police verbieten, was
auf vielen Firmen-PC auch der Fall ist, ob man dann noch auf die CPL
zugreifen kann? Sollte wohl mal getestet werden, sicher wäre ich mir da nicht.

[AHT]

Die Policies stören da nicht - das geht anders, nicht über die API.

[AHT]

Huch... Hoffentlich habe ich jetzt nicht zu viel verräten...
Bitte nicht in der Firma ausprobieren - es geht wirklich!

[Fraenki]

Zitat von Unregistriert

Ich weeiß nicht aber vielleicht:

EXTERNAL("wininet.dll","DeleteUrlCacheEntryA","http://www.domain.org")

Vielen Dank für die Info. Probiere ich heute noch aus.
Gruß Fränki

[ts-soft]

Zitat von AHT

Huch... Hoffentlich habe ich jetzt nicht zu viel verräten...
Bitte nicht in der Firma ausprobieren - es geht wirklich!

Ich habe ja gehofft, das dieses Sicherheitleck nicht wirklich existiert
danke für das Testen und viel Spaß allen eingeschränkten Nutzern auf
Firmen-PCs, wenn ihr die Arbeitsplatz PCs per Batch lahmlegt

Auf dem Kollegen seinen PC einfach mal die Maustasten tauschen, ist bestimmt lustig

[Fraenki]

GENIAL, funktioniert genauso wie ich es haben möchte. Kann damit gezielt die Daten löschen die ich möchte wie z.B.:
EXTERNAL("wininet.dll","DeleteUrlCacheEntryA","http://www.ftvepro.de/Dateiname.123").

Was es alles so gibt. Nochmals Danke.
Gruß Fränki

[Jonathan]

Das mit dem "gezielt Daten löschen" weiß ich zwar nicht, aber vielleicht brauchst du hiermit den Cache ja gar nicht löschen:

Proc DownLoadToMem
  Parameters Url$, Mem#, Size&
  Declare Bytes&
  Var agent$ = "Mozilla/4.0 (compatible; ST)"
  Var hInet& = InternetOpenA(agent$, 0, 0, 0, 0)
  Var hData& = InternetOpenUrlA(hInet&, Url$, "", 0, $8000000, 0)
  Case hData& : InternetReadFile(hData&, Mem#, Size&, Addr(Bytes&))
  InternetCloseHandle(hInet&)
  InternetCloseHandle(hData&)
  Return Bytes&
EndProc

Der Code ist von ts-soft (danke nochmal! ). Bei mir hat es damit geklappt, ohne den Cache zu löschen.


Gruß
Jonathan

[ts-soft]

Zitat von Jonathan

Der Code ist von ts-soft

Ich glaub, den kenne ich auch

[Fraenki]

Zitat von Jonathan

Das mit dem "gezielt Daten löschen" weiß ich zwar nicht, aber vielleicht brauchst du hiermit den Cache ja gar nicht löschen:

Den Code probiere ich morgen Abend gleich mal aus.
Vielen Dank dafür.

Gruß Fränki

[Fraenki]

Proc DownLoadToMem
  Parameters Url$, Mem#, Size&
  Declare Bytes&
  Var agent$ = "Mozilla/4.0 (compatible; ST)"
  Var hInet& = InternetOpenA(agent$, 0, 0, 0, 0)
  Var hData& = InternetOpenUrlA(hInet&, Url$, "", 0, $8000000, 0)
  Case hData& : InternetReadFile(hData&, Mem#, Size&, Addr(Bytes&))
  InternetCloseHandle(hInet&)
  InternetCloseHandle(hData&)
  Return Bytes&
EndProc

Hab das mal probiert und funktioniert, danke für die Info
Gruß Fränki