Keskustelu: Ohjelmointikysymykset: VB.NET: VB2008: tarkista löytyykö määriteltyä nettisivua

Tumettaja [06.01.2009 02:50:23]

Tervehdys.

Minulla on yksinkertainen formi, jossa on WebBrowser.
Napin koodi on yksinkertainen:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub
End Class

Nyt olisi kuitenkin tarpeellista tarkistaa napin painamisen jälkeen, onko tekstiboxiin annettu osoite olemassa, ennenkuin annetaan käsky siirtää WebBrowser itse sivulle. Kuinka tämä onnistuisi?

JussiR [08.01.2009 08:54:10]

Itse en keksi tuohon muuta tapaa kuin lisätä Inet-komponentti ja:

Dim response As String
response = Inet.OpenURL(TextBox1.Text)
If Instr(0, response, "404") Or Instr(0, response, "sivua ei löydy") Or Instr(0, response, "error") Then Msgbox "ei löydy"

Mutta tuo on aika tyhmä tapa toteuttaa tämä..

Toinen tapa olisi kai pistää formiin toinen piilotettu webbrowser komponentti joka menee tuohon osoitteeseen. Webbrowser kertoo kyllä jos sivua ei löydy.

Short Php [09.01.2009 18:39:43]

Private Sub WebBrowser_NavigateError(ByVal sender As Object, ByVal e As Kleinma.Controls.WebBrowserNavigateErrorEventArgs) Handles WebBrowser.NavigateError
    WebBrowserEx1.DocumentText = "<h2>Error!</h2>Navigation error has occured! Status code: " & e.StatusCode & "<br>You can try to <a href=""refreshcode"">refresh</a> this page or you can come back here later"
End Sub

Jutain tällaista löyty

JussiR [14.01.2009 10:18:28]

Jep tuota kannattaa kokeilla, tuo on se toinen tapa mitä tarkoitin.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen