Newsgroup: it.comp.lang.visual-basic
Titolo: controllo webbrowser

salve, avrei un problema con un piccolo browser che sto scrivendo in 
vb.
La mia necessità è inserire una string del tipo "?.
xyz.it
" in coda ad 
ogni indirizzo digitato, ad ogni link cliccato, e in ogni pagina web 
che carico ogni link deve terminare con la suddetta stringa, comprese 
eventuali immagini gif o jpg.
vi allego la parte di codice interessata:
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate Text1
End Sub
Text1 è la barra indirizzo.
mi dite come faccio?
Inviato da 
www.mynewsgate.net

Text1 è una textbox...
Ti sconsiglio questo approccio.
fai
dim indirizzo as string
indirizzo = text1 & "?.
xyz.it
"
WebBrowser1.Navigate indirizzo
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

 WebBrowser1.Navigate indirizzo
scusa la pignoleria, ma se non è simpatico che un browser navighi su una
textbox, perché dovrebbe essere possibile concatenare textbox e pezzi di
stringa ?
-- 
Silv;o)

 ha scritto nel messaggio
news:2gf3faF...@uni-berlin.de

La textbox la usi solo per acquisire l'indirizzo.
Basare il tutto su una txtbox non è scorretto, ma se devi apportare delle
modifiche, alla lunga sei vincolato dalla textbox.
Una cosa fondamentale è "non utilizzare mai i controlli come variabili".
Nel tuo caso specifico dovresti accodare una stringa alla textbox. In teoria
puoi farlo senza problemi, ma in pratica possono crearsi situazioni
spiacevoli (hai mai provato ad inserire un indirizzo in IE mentre sta
caricando la pagina di tiscali o libero? Hai notato che te lo cancella?
questo è un approccio errato preso dai programmatori sfaticati della M$).
Spero di aver chiarito almeno in parte i tuoi dubbi.


ragazzi, non ci riesco.
ad esempio vado su 
www.ansa.it
, si carica la pagina, ma se clicco su 
un link presente sulla pagina, si carica la nuova pagina, ma non mi 
aggiunge più la stringa che mi serve.
E se clicco col tasto dx del mouse su di una immagine non mi dà come 
indirizzo la stringa accodata.
vi posto il sorgente:
Private Sub Command1_Click()
On Error Resume Next
Dim indirizzo As String
indirizzo = Text1 & "?.
xyz.it
"
WebBrowser1.Navigate indirizzo
End Sub
Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub
Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.GoHome
End Sub
Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.GoSearch
End Sub
Private Sub Command6_Click()
On Error Resume Next
WebBrowser1.Refresh2 3
End Sub
Private Sub Command7_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub
Private Sub Form_Load()
On Error Resume Next
WebBrowser1.GoHome
Label4.Caption = WebBrowser1.LocationURL
End Sub
Private Sub Timer1_Timer()
Label2.Caption = (Time)
Label3.Caption = (Date)
End Sub
Inviato da 
www.mynewsgate.net

 Spero di aver chiarito almeno in parte i tuoi dubbi.
'nzomma. volevo solo fare lo spiritoso.
-- 
Ciao, Silv:o)

 mi dite come faccio?
Dovresti gestirti gli eventi del browser.
Pensavo che in _BeforeNavigate2 bastasse cambiare il parametro URL per
puntare ad un nuovo URL, ma non credo sia così. Allora puoi abortire la
richiesta e avviarne un'altra con l'URL taroccato, ma così ti alluppi
tentando di accedere al sito
www.loop.com?.xyz.it?.xyz.it?.xyz.it?.xyz.it?.xyz.it?.xyz.it?.xyz.it?.xyz.it
?.
xyz.it
Quindi devi metterci una sorta di antirimbalzo.
Scusa la curiosità, ma che ci fai con un accrocchio del genere ?
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp eccetera..
  If Not Right$(URL, 8) = "?.
xyz.it
" Then
    Cancel = True
    WebBrowser1.Navigate2 URL & "?.
xyz.it
", Flags, TargetFrameName,
PostData, Headers
  End If
End Sub
-- 
Ciao, Silv:o)

 permette piů queste schifezze.
puo' essere, ma non sta concatenando controlli e stringhe, ne' tantomeno sta
passando un controllo al metodo di un altro controllo.
sta concatenando a una stringa la propr di default del controllo, che e' una
stringa. e quella passa al metodo, che infatti si aspetta una stringa.
Private Sub Form_Load()
    MsgBox Text1 & " - " & Label1 & " - " & Caption
End Sub
*e'* una banalissima stringa.
ciao, j.

 *e'* una banalissima stringa.
Infatti facevo notare come fosse in pratica equivalente usare una stringa di
appoggio oppure concatenare al volo le stringhe text1[.text] e "codazzo"
nella chiamata al metodo navigate
-- 
Ciao, Silv:o)

 Che può essere ?
Un Paperino che se un browser modificasse i _suoi_ url senza
permesso s'inca##erebbe come una iena.

 nella chiamata al metodo navigate
posto che nei pc moderni con millemila mb di ram ho l'impressione conti
pochino comunque, di solito se devo semplicemente visualizzare una cosa, o
farci una sola operazione non uso le var di appoggio, e anzi utilizzo pure
le conversioni implicite di vb:
    caption = .recordcount
    !titolo= replace(!titolo, "'", "_")
la temp la uso se ci devo lavorare, e per evitare di riscrivere righe
appesantendo il codice:
    s = lcase(text1 & "*" & text2 ) : !titolo=s
    n = lblValore : do while !valore=n
dato che tanto la portabilita' in net e' bassina, in genere preferisco usare
i default e la concisione che consentono.
ciao, j.

 permesso s'inca##erebbe come una iena.
ieri mi ha chiamato una collega "non funziona internet".
stessa cosa.
in vnc, le ho riscritto a manina l'url e andava beatamente.
imho, un casinetto di ie e/o qualche wupdate ultimo.
d'altra parte la cache di ie/wb e' una strana cosa.
fagli dire caption=url al load e guarda un po'.
se poi lavori offline, a momenti ti da' errore anche se gli dai about:blank.
ciao, j.

 'nzomma. volevo solo fare lo spiritoso.
E ci mancherebbe! :-P


 L'ultimo SP per VB č un BugPack....
se lo installi sulla ps2 o su xp :P

> se lo installi sulla ps2 o su xp :P
VB per PS2... chissà come sarebbe...
Il problema è che non potremmo dire allo sfaticato di turno <<premi F1>>...
bye... pensoso su quale bottone attivi l'help su PS2


 bye... pensoso su quale bottone attivi l'help su PS2
non c'e' neanche male. se chiedi alla maggior parte degli utenti e a molti
programmatori, nebbia anche per l'help in win :)
ciao, j.

 about:blank.
Boh, con qualunque cosa, da offline, mi dice il solito:
"La pagina web non è /blablabla da sconnessi, connettersi/ ?"
Bye, G.

 "La pagina web non è /blablabla da sconnessi, connettersi/ ?"
in effetti ero stato impreciso. sono online, e non ho detto a ie/oe di
andare offline.
pero' quando metti un wb su un form, normalmente da' un 404 anche nell'ide.
ciao, j.

 nell'ide.
Sì, quello è ovvio, perché non dovrebbe ?
Bye, G.

 Sì, quello è ovvio, perché non dovrebbe ?
diciamo che se compro un telefono, quando lo tiro fuori dalla scatola non
suona occupato :)
ciao, j.

 non suona occupato :)
Ieri sera, come dicevo, ero fuso (non che ora stia molto meglio),
e mi era sfuggito il concetto. Tuttora però non capisco in che contesto
ti dia il 404. A me, se metto un wb su un form, non appare niente e stop.
Bye, G.

 ti dia il 404. A me, se metto un wb su un form, non appare niente e stop.
riprovato ora, messo un wb, tutto ok.
riaperto un vbp con un wb *non configurato* se non da codice, ti sta
arrivando la schermata col 404.
ciao, j.

 arrivando la schermata col 404.
Vista. Sono solo di passaggio in ufficio, vedo domani :-).
Bye, G.