[Aly El-Haddad]

PHP كود :

Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim txtFilePath As String = desktopPath & "\Readme.txt"
        Dim wantedSites As New List(Of String)({"www.vb4arb.com", "www.stackoverflow.com"})
        Dim visitedSites As New List(Of String)
        Dim lines As String() = IO.File.ReadAllLines(txtFilePath)
        For x As Integer = 0 To lines.Length - 1
            For xx As Integer = 0 To wantedSites.Count - 1
                If lines(x).Contains(wantedSites(xx)) Then
                    If Not visitedSites.Contains(wantedSites(xx)) Then
                        Process.Start(wantedSites(xx))
                        visitedSites.Add(wantedSites(xx))
                    End If
                End If
            Next
        Next