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
Imports System.Net
Imports System.Text.RegularExpressions
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