[VB] Program napisany w VB jest traktowany jak wirus przez Awasta.

Witam,

Na wstępie witam wszystkich.

Mój problem polega na fakcie iż program z kodem poniżej jest notorycznie blokowany przez Avasta oraz AVG...
Traktuje go jak trojana ;/ i nie mam pojęcia czemu. Czy ktoś mógł by spojrzeć na kod? Ewentualnie podać jakieś wskazówki jak poprawić kod żeby był rozpoznawany jako bezpieczny?

Od razu uprzedzam pytanie. Nie jestem zainteresowany odpowiedziami typu :
-wyłącz antywirusa
-avast hahahahah to nie antywirus tylko zamulacz komputera.

To wszystko wiem ale chciał bym poznać przyczynę takiego działania.

Program pobiera linki z popularnych serwisów z obrazkami do listboxa i ładuje je do picturebox :P proste jak budowa cepa... a jednak

Public Class Form1

Private Sub BESTY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BESTY.Click
    ListBox1.Items.Clear()
    ladowanie.Value = 0
    ladowanie.Maximum = My.Settings.besty_ile_stron
    Dim strona As Integer = 1
    Do While strona <= My.Settings.besty_ile_stron

        Dim client As New WebClient()
        Dim kod_strony As String = client.DownloadString("http://www.besty.pl/pages/" & strona)

        For Each match As Match In Regex.Matches(kod_strony, "img.besty.pl/images/\w+/\w+/\w+.jpg")
            ListBox1.Items.Add("http://" + match.Value)
        Next
        ladowanie.Value = ladowanie.Value + 1
        strona = strona + 1
    Loop
    ListBox1.Focus()
    ListBox1.SelectedIndex = 0

    obrazki_dzisiaj.Text = obrazki_dzisiaj.Text + 1
    My.Settings.obrazki_dzisiaj = obrazki_dzisiaj.Text
    wszystkie_obrazki.Text = My.Settings.wszystkie_obrazki + 1
    My.Settings.wszystkie_obrazki = wszystkie_obrazki.Text
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    PictureBox1.ImageLocation = ListBox1.SelectedItem.ToString
    ktory_obrazek_na_stronie.Text = ListBox1.SelectedIndex + 1
End Sub

Private Sub poprzedni_obrazek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles poprzedni_obrazek.Click
    
    If ListBox1.SelectedIndex > 0 Then
        ladowanie.Value = 0
        ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
        obrazki_dzisiaj.Text = obrazki_dzisiaj.Text + 1
        My.Settings.obrazki_dzisiaj = obrazki_dzisiaj.Text
        wszystkie_obrazki.Text = My.Settings.wszystkie_obrazki + 1
        My.Settings.wszystkie_obrazki = wszystkie_obrazki.Text
    End If
    
End Sub

Private Sub nastepny_obrazek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nastepny_obrazek.Click
    
    Dim max As Integer = ListBox1.Items.Count
    If ListBox1.SelectedIndex < max - 1 Then
        ladowanie.Value = 0
        ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
        obrazki_dzisiaj.Text = obrazki_dzisiaj.Text + 1
        My.Settings.obrazki_dzisiaj = obrazki_dzisiaj.Text
        wszystkie_obrazki.Text = My.Settings.wszystkie_obrazki + 1
        My.Settings.wszystkie_obrazki = wszystkie_obrazki.Text
    Else
        PictureBox1.Image = My.Resources.the_end
    End If





End Sub


Private Sub ustawienia_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ustawienia_button.Click
    Dialog1.Show()
End Sub

Private Sub PictureBox1_LoadProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles PictureBox1.LoadProgressChanged
    ladowanie.Maximum = 100
    ladowanie.Value = e.ProgressPercentage
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Text = "Obrazki od orła dla " & My.Settings.imie
    wszystkie_obrazki.Text = My.Settings.wszystkie_obrazki

    If My.Settings.data_dzisiaj = Today.Date Then
        obrazki_dzisiaj.Text = My.Settings.obrazki_dzisiaj
    Else
        obrazki_dzisiaj.Text = 0
        My.Settings.obrazki_dzisiaj = 0
        My.Settings.data_dzisiaj = Today.Date
    End If

End Sub


Private Sub bezuzyteczna_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bezuzyteczna.Click
    ListBox1.Items.Clear()
    ladowanie.Value = 0
    ladowanie.Maximum = My.Settings.bezuzyteczna_ile_stron
    Dim strona As Integer = 1
    Do While strona <= My.Settings.bezuzyteczna_ile_stron

        Dim client As New WebClient()
        Dim kod_strony As String = client.DownloadString("http://bezuzyteczna.pl/page/" & strona)

        For Each match As Match In Regex.Matches(kod_strony, "/static/content/\w+.jpg")
            '/static/content/41078cbda150b7ea815a.jpg
            ListBox1.Items.Add("http://bezuzyteczna.pl" & match.Value)

        Next
        ladowanie.Value = ladowanie.Value + 1
        strona = strona + 1
    Loop
    ListBox1.Focus()
    ListBox1.SelectedIndex = 0

    obrazki_dzisiaj.Text = obrazki_dzisiaj.Text + 1
    My.Settings.obrazki_dzisiaj = obrazki_dzisiaj.Text
    wszystkie_obrazki.Text = My.Settings.wszystkie_obrazki + 1
    My.Settings.wszystkie_obrazki = wszystkie_obrazki.Text
End Sub

Private Sub faktopedia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles faktopedia.Click
    ListBox1.Items.Clear()
    ladowanie.Value = 0
    ladowanie.Maximum = My.Settings.faktopedia_ile_stron
    Dim strona As Integer = 1
    Do While strona <= My.Settings.faktopedia_ile_stron

        Dim client As New WebClient()
        Dim kod_strony As String = client.DownloadString("http://faktopedia.pl/page/" & strona)

        For Each match As Match In Regex.Matches(kod_strony, "/uimages/services/faktopedia/i18n/pl_PL/\w+/\w+.jpg")
            '/uimages/services/faktopedia/i18n/pl_PL/201710/1508655292_by_cenot_500.jpg?1508679602
            ListBox1.Items.Add("http://faktopedia.pl" & match.Value)

        Next
        ladowanie.Value = ladowanie.Value + 1
        strona = strona + 1
    Loop
    ListBox1.Focus()
    ListBox1.SelectedIndex = 0

    obrazki_dzisiaj.Text = obrazki_dzisiaj.Text + 1
    My.Settings.obrazki_dzisiaj = obrazki_dzisiaj.Text
    wszystkie_obrazki.Text = My.Settings.wszystkie_obrazki + 1
    My.Settings.wszystkie_obrazki = wszystkie_obrazki.Text
End Sub

End Class