Permalink
Cannot retrieve contributors at this time
Join GitHub today
GitHub is home to over 28 million developers working together to host and review code, manage projects, and build software together.
Sign up
Fetching contributors…
Cannot retrieve contributors at this time
| ' FIREFOX:DICT Downloader 0.1 | |
| ' GSolone (dict.noads.it) - Ultima modifica: 5/2/18 | |
| ' Script originale di Rob van der Woude (http://www.robvanderwoude.com), basato su codice disponibile su Thai Visa forum (http://www.thaivisa.com/forum/index.php?showtopic=21832) | |
| ' fonte: https://stackoverflow.com/questions/2973136/download-a-file-with-vbs | |
| ' --------------------------------------------------------------------------------------------------------------------------------------- | |
| ' Lo script scarica la lista filtri più aggiornata disponibile su GitHub e la modifica per renderla integrabile all'interno di una lista filtri standard per Adblock Plus e compatibili, a prescindere dal browser utilizzato. | |
| ' --------------------------------------------------------------------------------------------------------------------------------------- | |
| ' STORICO MODIFICHE | |
| ' 0.1- prima versione dello script. | |
| ' --------------------------------------------------------------------------------------------------------------------------------------- | |
| ' MODIFICA ESCLUSIVAMENTE LA CARTELLA DEL PROFILO (lascia invariato l'indirizzo di GitHub) | |
| HTTPDownload "https://raw.githubusercontent.com/gioxx/firefox-dict/master/persdict.dat", "C:\Users\TUONOME\AppData\Roaming\Mozilla\Firefox\Profiles\TUACARTELLAPROFILO\persdict.dat" | |
| ' Non toccare nulla oltre questa riga! | |
| ' DO NOT touch anything below this line! | |
| Sub HTTPDownload( myURL, myPath ) | |
| ' myURL must always end with a file name | |
| ' myPath may be a directory or a file name; in either case the directory must exist | |
| ' Standard housekeeping | |
| Dim i, objFile, objFSO, objHTTP, strFile, strMsg | |
| Const ForReading = 1, ForWriting = 2, ForAppending = 8 | |
| ' Create a File System Object | |
| Set objFSO = CreateObject( "Scripting.FileSystemObject" ) | |
| ' Check if the specified target file or folder exists, | |
| ' and build the fully qualified path of the target file | |
| If objFSO.FolderExists( myPath ) Then | |
| strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) ) | |
| ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then | |
| strFile = myPath | |
| Else | |
| MsgBox "Non ho trovato la cartella del profilo. Correggi il percorso nello script e rilancialo!",16,"FIREFOX:DICT Downloader" | |
| Exit Sub | |
| End If | |
| ' Create or open the target file | |
| Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True ) | |
| ' Create an HTTP object | |
| Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" ) | |
| ' Connection through proxy (remove comment in the line below) | |
| 'objHTTP.setProxy 2, "proxy.contoso.com:8080", "" | |
| ' Download the specified URL | |
| objHTTP.Open "GET", myURL, False | |
| objHTTP.Send | |
| ' Write the downloaded byte stream to the target file | |
| For i = 1 To LenB( objHTTP.ResponseBody ) | |
| objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) ) | |
| Next | |
| ' Close the target file | |
| objFile.Close( ) | |
| MsgBox "Copia terminata con successo.",64,"FIREFOX:DICT Downloader" | |
| End Sub |