Keskustelu: Ohjelmointikysymykset: VB6: Nettisivujen estäminen (WebBrowser)

eli haluaisin tehdä sillaisen eston tuohon "omaan" selaimeeni, joka käyttää sitä webbrowser1 objektia, että jos tiedostossa esto.001 lukee vaikka www.sivu.com niin, kun käyttäjä menee mille tahansa sivulle, jossa on osoite www.sivu.com osana koko osoitetta niin se ei menisikään sinne vaan johonkin omaan selaimessa säädettyyn.

Tällä hetkellä minulla on tälläinen source siinä sivun estokohdassa:

Private Sub web1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Form1.Caption = web1.LocationName
Combo1.AddItem web1.LocationURL
Combo1.Text = web1.LocationURL
Open App.Path & "\nav.001" For Append As #1
Print #1, Combo1.Text
Close #1
Open App.Path & "\esto.001" For Input As #1
 Do
  Input #1, sivuu$
   If Combo1.Text = sivuu$ Then web1.Navigate App.Path & "\0.htm"
 Loop Until EOF(1)
Close #1
End Sub

Onko kenelläkään mitään tietoa kuinka saada tuo toimimaan? Itse yritin tälläist:

if instr(combo1.text, sivuu$) = true then web1.navigate app.path & "\0.htm"

Mutta se ei toiminut. Yksi tapa varmaan olisi jotekenkin

if mid(combo1.text, 1,*) = sivuu$ then web1.navigate app.path & "\0.htm"

mutta kuinka tuo * saadaan sitten niin, että kun ohjelma ei tiedä sen sivun osoitteen pituutta.
Niin ja visual basic 5 on siis käytössä.

EDIT: Vastaus löydetty... piti tuohon tähden tilalle laittaa val(sivuu$) niin se toimii.

Ootkonä tehny selaimen? Voiko sitä ladata mistään?

Latska kirjoitti:

Ootkonä tehny selaimen? Voiko sitä ladata mistään?

Muistaakseni (luin kai jostain aikaisemmasta keskustelusta?) tuo webbrowser-kontrolli käyttää samoja rutiineja kuin IE, eli kaiketi samat tietoturva-aukot ym?

WebBrowser komponentti = IE