semplice domanda da newubbo circa WebView1

[kicco]

 
Aspetta: Tu vuoi catturare l'immagine che c'è sull'URL ma senza usare un programma grafico? Ho capito bene?
Hai per caso scelto di costruire il tuo programma come  Command-line application?
Buon anno anche a te!
 

[faustf]

scusa il ritardo, in pratica  quello che volevo fare era un webscaraping della  foto di bing  che poi magari con il shell  wget  forse lo avrei fatto , ma alla fine poi ho risolto in perl

Codice: [Seleziona]

#!/usr/bin/perl

#--------------------------------------------------------------
# bing-bong  by Stefano Cerbioni
# script cambia wallpaper in llinux mint mate
# mail: info@e-officecom.com
#web: www.e-officecom.com
#--------------------------------------------------------------
use strict;
use warnings;
use LWP::Simple;


my $content = get('http://www.bing.com') or die 'Unable to get page';
if ( $content =~ m/url/ ) {
     my @matches = $content =~ m{/az/hprichbg/rb/.*?\.jpg}g;
     my $percorso = "http://www.bing.com" . "$matches[0]\n";
     #print $percorso;
     my @matches_1 = $matches[0] =~ m{rb/(.*?\.jpg)}g;
     my $path_salavataggio = '/usr/share/backgrounds/bing/'.$matches_1[0];
     my $status = getstore( $percorso , $path_salavataggio );
     if ( is_success($status) ) {
          print "file downloaded correctly in file:///$path_salavataggio\n";
          `gsettings set org.mate.background picture-filename $path_salavataggio`; 
#		  `gsettings set org.gnome.desktop.background picture-uri "file:///$path_salavataggio"`; 
     }
     else {
         print "error downloading file: $status\n";
     }
}
else {
     print "no match\n";
}
exit 0;

grazie a tutti

[vuott]

...sono sufficienti poche righe di Gambas (bisogna attivare preliminarmente i seguenti Componenti: gb.gui.qt, gb.gui.qt.webkit, gb.net e gb.net.curl).

Codice: [Seleziona]

Private wv As WebView
Private miohttp As New HttpClient As "Miohttp"


Public Sub Button1_Click()

  With wv = New WebView(Me) As "WV"
    .Url = "http://www.bing.com"
  End With

End


Public Sub WV_Load()

  Dim percorso As String
  
   percorso = Scan(wv.HTML, "*\"Image\":*\"Url\":\"*[\\]*")[2]
   
   With miohttp
     If .Status == Net.Inactive Then
       .URL = "www.bing.com" &/ percorso
       .Timeout = 15
' Scarica i dati e ricrea il file immagine nella cartella temporale:'
       .Get(Null, "/tmp" &/ File.Name(percorso))
     Endif
   End With
  
End

Public Sub Miohttp_Finished()  
    
  miohttp.Close 

End

[faustf]

  mito