Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged ListBox1.Items.Add(TextBox3.Text) If TextBox3.Text.Contains("sex") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("hardsextube") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("tube8") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("keandra") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("redtube") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("youjizz") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("spankwire") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("pornhub") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("fakku") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("xhamster") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("xvideos") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("asian sex") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Asian sex") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("asian xxx") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Asian xxx") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("anal") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Anal") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("abuse") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Abuse") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Blonde") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("blonde") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Blowjob") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("blowjob") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Bukkake") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("bukkake") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("brunete") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Brunete") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("creampie") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Creampie") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("cumshot") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Cumshot") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("gangbang") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Gangbang") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Gang Bang") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("gang bang") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Gay") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("gay") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("hentai") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("interracial") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Intterracial") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("japanese sex") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("japan sex") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Japanese sex") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("Japan sex") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("seks") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("porn") Then Tobat.ShowDialog() killer() ElseIf TextBox3.Text.Contains("teen xxx") Then Tobat.ShowDialog() killer() End If End Sub
Dim lines As String() = File.ReadAllLines(pathToFile) Dim x = textBox3.Text.Split(" "C).Intersect(lines) If x.Count() > 0 Then Tobat.ShowDialog() Killer() End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)