Tema: Par pitanja
View Single Post
Staro 09.07.2004., 15:32   #10
Costa
Moderator
 
Costa's Avatar
 
Datum registracije: Aug 2003
Lokacija: Zagreb
Postovi: 3,193
Re: Par pitanja

Citiraj:
Originally posted by LightForce1308
3. Kako namjestiti flashget da mi se kada god se spojim na internet provjeri jedan file, ako je updatiran da skine tu verziju ( noviju), a ako nije da neskida. točnije trebam fxsasser-a i stingera da mi provjerava.
Evo ti jedna VBS skripta koja ce ti to raditi. Pokrenes, ona provjeri velicinu filea na netu i usporedi s fileom na hardu i ako ne odgovaraju skida file.

Code:
SF = "c:\screenshot.gif"
SU = "http://costa.wz.cz/screenshot.gif"
Set FS=CreateObject("Scripting.FileSystemObject")
Set oHTTP=CreateObject("msxml2.XMLHTTP")
       oHTTP.open "GET", SU , False
       oHTTP.send
Set oStream = createobject("adodb.stream")
       oStream.Type = 1
       oStream.Open
       oStream.Write oHTTP.responseBody
S = oStream.Size
If (FS.FileExists(SF))=false Then WF
oStream.LoadFromFile SF
C = oStream.Size
IF S = C  Then Wscript.Quit
oStream.Write oHTTP.responseBody
WF
sub WF
  oStream.savetofile SF, 2
  Wscript.Quit
end sub
Copyright Marco Maier

Sejvaj kao nesto.vbs. Pazi i da wscript.exe (Windows Based Script Host) ima slobodan pristup netu.

File koji nastaje skidanjem
SF = "c:\screenshot.gif"

File koji se skida
SU = "http://costa.wz.cz/screenshot.gif"

Zadnje izmijenjeno od: Costa. 09.07.2004. u 16:33.
Costa je offline   Reply With Quote