Praca w domu - Dodatkowa Praca - Zarabianie przez Internet
Visual basic problem z aplikacjami. - Wersja do druku

+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: Off-Topic (https://zarabiam.com/Forum-Off-Topic-9)
+--- Dział: Kosz/Spam/Archiwum (https://zarabiam.com/Forum-Kosz-Spam-Archiwum-11)
+--- Wątek: Visual basic problem z aplikacjami. (/Temat-Visual-basic-problem-z-aplikacjami-113743)



Visual basic problem z aplikacjami. - connectov - 09-05-2015

Witam,
odnośnie fake hacków. Zdziwiony tym, że pomimo kilkudziesięciu pobrań dziennie, mam tylko kilka odwiedzin. Spróbowałem pobrać hacka i wszystko stało się jasne:
[Obrazek: s04m09.jpg]
W pierwszej chwili myślałem, że to przez to, że hack po kliknięciu czegokolwiek przenosi na stronę internetową. Ale potem spróbowałem ze zwykła appką, która teoretycznie nie ingeruje w komputer i jest to samo. O ile antywirus nie reaguje, to windows dostaje pier***ca przy próbie uruchomienia.
W czym twki problem? Próbowałem poszukać czegoś na necie, ale nie znalazłem niczego co mogłoby pomóc.

Tak wygląda kod drugiej aplikacji:
[spoiler]Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 5 Then
Label5.Text = "888"
Label5.ForeColor = Color.White
End If
If ProgressBar1.Value = 60 Then
Label5.Text = "888"
Label5.ForeColor = Color.White
End If
If ProgressBar1.Value = 99 Then
Label5.Text = "888"
Label5.ForeColor = Color.LightGreen
Label6.Text = "888"
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Start()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("***", MsgBoxStyle.OkOnly, "***")
Label6.Text = "***"
End Sub
End Class
[/spoiler]