需要 VB 从 txt 文件或任何其他文件中读取并执行特定操作

Needing VB to read from a txt file or any other file and do a specific action

所以我正在构建一个拦截器程序供我家人个人使用。

假设我有一个列出这些网站的 txt 文件: www.notarealwebsite.com www.fake.net

我希望它找到包含该信息的 txt 文件,然后提取并使用它,因为我的程序是一个网络浏览器,所以我希望它阻止我定义的那些网站。

我只想阻止我的应用程序中的网站,而不是整个计算机(意思是我不希望它在 Chrome、Firefox 中被阻止、Internet Explorer、Safari 等...)

"blocked.txt": 每行一个站点。

不能直接使用,因为输入"somesite.com/"而不是被屏蔽的"somesite.com".

就可以轻松绕过

但它应该给你想法。

    Dim urlBlocked As Boolean = False ''The ugly way...
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For Each line As String In System.IO.File.ReadAllLines("blocked.txt")
        If TextBox1.Text = line Then
            urlBlocked = True
            MsgBox("Action Blocked!")
        Else
            If Not urlBlocked Then
                WebBrowser1.Navigate(TextBox1.Text)
            End If
        End If
    Next
    urlBlocked = False
End Sub