Télécharger une page web

DIM url$, fr$
url$ = "http://panoramic-language.pagesperso-orange.fr/French/LIST_alpha.htm"
fr$ = "C:\TEMP\Pano_List.htm"
WIDTH 0,1200: HEIGHT 0,SCREEN_Y
HVIEWER 1: FULL_SPACE 1
WebFile(url$,fr$)
FILE_LOAD 1,fr$
END
' ==============================================================================
SUB WebFile(url$,fr$)
' Télécharger dans fr$ la page web (fichier html) à l'adresse web url$
EXECUTE_WAIT "Powershell (New-Object System.Net.WebClient).DownloadFile('"+url$+"'"+",'"+fr$+"')"
END_SUB
' ==============================================================================

DIM url$, fr$, pr$
url$ = "http://panoramic-language.pagesperso-orange.fr/French/LIST_alpha.htm"
fr$ = "C:\TEMP\Pano_List.htm"

if file_exists(fr$)=1 then file_delete fr$
WebFile_discret(url$,fr$)
WIDTH 0,1200: HEIGHT 0,SCREEN_Y
HVIEWER 1: FULL_SPACE 1
FILE_LOAD 1,fr$
END

SUB WebFile_discret(url$,fr$)
  ' Télécharger dans fr$ la page web (fichier html) à l'adresse web url$ (méthode discrète)
  DIM_LOCAL pr$,vb$,q$: vb$ = "C:\Temp\Vb.vbs": q$ = CHR$(34)
  pr$="Powershell.exe (New-Object System.Net.WebClient).DownloadFile('"+url$+"'"+",'"+fr$+"')"
  FILE_OPEN_WRITE 9, vb$: ' ===== Création du script .vbs =====
    FILE_WRITELN 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+pr$+q$+",0,True"
  FILE_CLOSE 9
  EXECUTE_WAIT "WSCRIPT.exe "+vb$: ' ===== Exécution du script =====
  FILE_DELETE vb$
END_SUB