Kód: Vybrať všetko

Public Class Form1
    Dim read As StreamReader
    Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(TextBox1.Text)
    Dim response As System.Net.HttpWebResponse = request.GetResponse()

    Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
    Dim where
    Dim sourcecode As String = sr.ReadToEnd()

    Dim dangerous
    Dim dang
    Dim reader As StreamReader
    Dim reader2 As StreamReader

    Dim subor As System.IO.StreamReader = New System.IO.StreamReader(My.Resources.Dangerlist)
    Dim i As Integer
    Dim responsee As MsgBoxResult
    Dim style As MsgBoxStyle
    Dim vysledoksource
    Dim request2 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://markview.6f.sk/server/index.html")
    Dim response2 As System.Net.HttpWebResponse = request2.GetResponse()
    Dim sr2 As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
    Dim sourcecode2 As String = sr2.ReadToEnd()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate(TextBox1.Text)
        vysledoksource = InStr(sourcecode2, "neune")
        If vysledoksource Then
            My.Computer.Network.DownloadFile("http://markview.6f.sk/server/data.txt", My.Resources.Dangerlist)
        End If


    End Sub

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            WebBrowser1.Navigate(TextBox1.Text)
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


        reader = New StreamReader(My.Resources.Dangerlist)
        TextBox2.Text = sourcecode
        dang = reader.ReadLine()
        
        Do While (subor.Peek > 0)
            subor.ReadLine()
            i = i + 1
        Loop
        subor.Close()
        For ah As Integer = 0 To i
            dangerous = reader.ReadLine()
            where = InStr(TextBox2.Text, dangerous)
        Next
        If where Then
            Try
                
                style = MsgBoxStyle.YesNo
                MsgBox("This page is dangerous")
                If responsee = MsgBoxResult.Yes Then
                    WebBrowser1.Navigate(TextBox1.Text)
                    read.Close()
                    
                Else
                    WebBrowser1.GoBack()
                End If
            Catch ex As Exception
            End Try
        Else
            WebBrowser1.Navigate(TextBox1.Text)
        End If

       

    End Sub


    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted


    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Form2.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim request As Net.WebRequest = Net.WebRequest.Create("http://markview.6f.sk/server/post.php?w=" & TextBox1.Text)
    End Sub
End Class