aggiornamento software

Main menu

Links

winPenPack - The Portable Software Collection :: Forums :: Web site support

<< Previous thread | Next thread >>

aggiornamento software

Author

Post

aleflly

Mon 28 Apr 2008 - 15:37

Registered Member #4845

Joined: Fri 25 May 2007 - 11:02
Posts: 10

per aggiornare il mio wpp ho fatto uno scriptino che mi scarica la lista di X-software della sezione latest 50 update, dopodiche copio e incollo la lista su wackget e me li scarico.

la lista di oggi e questa..

....winpenpack.com/main/request.php?724
....winpenpack.com/main/request.php?921
....winpenpack.com/main/request.php?191
....winpenpack.com/main/request.php?941
....winpenpack.com/main/request.php?533
....winpenpack.com/main/request.php?657
....winpenpack.com/main/request.php?884
....winpenpack.com/main/request.php?751
....winpenpack.com/main/request.php?747
....winpenpack.com/main/request.php?888
....winpenpack.com/main/request.php?614
....winpenpack.com/main/request.php?933
....winpenpack.com/main/request.php?846
....winpenpack.com/main/request.php?412
....winpenpack.com/main/request.php?923
....winpenpack.com/main/request.php?18
....winpenpack.com/main/request.php?25
....winpenpack.com/main/request.php?38
....winpenpack.com/main/request.php?717
....winpenpack.com/main/request.php?790
....winpenpack.com/main/request.php?850
....winpenpack.com/main/request.php?731
....winpenpack.com/main/request.php?47

volevo sapere ... esiste (o se non esiste si puo creare) una pagina con questi soli link maggiori di 50.
di modo che se volessi tra un mese aggiornare tutto il software farei copia incolla e sarei apposto...

[ Edited Mon 28 Apr 2008 - 15:41 ]

aleflly

Tue 29 Apr 2008 - 16:50

Registered Member #4845

Joined: Fri 25 May 2007 - 11:02
Posts: 10

ZioZione

Tue 29 Apr 2008 - 17:01

Registered Member #74

Joined: Sun 21 Jan 2007 - 11:31
Location: Tradate (VA)
Posts: 3821

aleflly wrote ...

up

Ciao aleflly,
sei pregato di evitare gli "up". Non siamo sempre disponibili, quindi abbi pazienza.
Riceverai risposta se e quando potremo. Grazie per la collaborazione!
Cordialmente
ZioZione

Danix

Tue 29 Apr 2008 - 20:00

Registered Member #1

Joined: Fri 29 Dec 2006 - 05:38
Location: Sassari
Posts: 12956

esiste (o se non esiste si puo creare) una pagina con questi soli link maggiori di 50.

Fra poco, grazie all'immenso lavoro di grangas e _zulu avremo a disposizione questo ed altro.
Dato che ci sei, puoi allegare il tuo script?

aleflly

Mon 05 May 2008 - 11:53

Registered Member #4845

Joined: Fri 25 May 2007 - 11:02
Posts: 10

ecco, va salvato con estensione vbs (il nome e indifferente) richiede 2 file txt allo stesso livello con nome
log.txt (dove viene salvata la pagina delle news)
testo.txt (dove vengono salvati i link dei download)

ps. non sono riuscito a proxarlo pertanto richiede la connessione diretta ad internet


Set fso = CreateObject("Scripting.FileSystemObject")

Set txtfso = CreateObject("Scripting.FileSystemObject")

set scrivi = txtfso.OpenTextFile("log.txt", 2)

CurrentPath = Left(wscript.ScriptFullName, InStrRev(wscript.ScriptFullName, "\"))





url="http://www.winpenpack.com/main/e107_plugins/list_new/list.php"

Set objHTTP = CreateObject("MSXML2.XMLHTTP")

Call objHTTP.Open("GET", url, FALSE)

objHTTP.Send

scrivi.writeline (objHTTP.ResponseText)

scrivi.close





set f = fso.GetFolder(currentpath)

Set objfso = CreateObject("Scripting.FileSystemObject")

Set objFileR=objFso.OpenTextFile(currentpath & "\log.txt", 1)

set scrivi2 = txtfso.OpenTextFile("testo.txt", 2)





While Not objFileR.AtEndOfStream

R = objFileR.ReadLine

verify=InStr(R, "Latest 50 downloads")

if verify<>0 then

conta=1

end if





if conta=1 then

While InStr(R, "tle='X") <> 0

R=mid(R, InStr(R, "tle='X")-20)

x=InStr(R, "view.")+5

z=Instr(R, "title")-2

W=mid(R,x, (z-x))

scrivi2.writeline "http://www.winpenpack.com/main/request.php?" & W

R=mid(R,InStr(R, "tle='X")+7)

wend

end if

wend

objFileR.Close

scrivi2.close

aleflly

Tue 06 May 2008 - 09:31

Registered Member #4845

Joined: Fri 25 May 2007 - 11:02
Posts: 10

avete presente la maschera di aggiornamento plugin di firefox?
ti si apre una finestra con varie righe, ti propone gli aggiornamenti dei plugin dicedoti la versione ecc.... se fosse simile non sarebbe affatto male

Moderators: Danix, Taf, Rcs, Energy, zandet2, ZioZione, Admin, LordJim60