Pesquisar na Comunidade
Mostrando resultados para as tags ''sourcecode''.
Encontrado 1 registro
-
visual basic Ganhando dinheiro com propaganda [GoogleADS]
AugmentedSkillsBR postou um tópico no fórum em Visual Basic
Olá pessoal da WC! Hoje vamos mostra para vocês um código que muitos de vocês estão atras! Então vamos la! O que vocês vão precisar para fazer o sistema! 1 WebBrowser 1 Timer1 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Timer1.Stop() If dc_ads > 2 Then Form2.Show() 'Aqui vai abri o form2 quando a pessoa de 2 clicks no anuncio! Me.Hide() 'Aqui vai esconder o form1 quando abri o form2 RemoveHandler WebBrowser1.Document.MouseUp, AddressOf dc_ads1 End If dc_ads = 1 End Sub Private Sub Publicidades_Load(sender As Object, e As EventArgs) Handles Me.Load WebBrowser1.Navigate("URL da pagina") End Sub Dim dc_ads As Integer Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted If dc_ads = 0 Then AddHandler WebBrowser1.Document.MouseUp, AddressOf dc_ads1 dc_ads = 1 Exit Sub End If End Sub Private Sub dc_ads1(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) dc_ads = dc_ads + 1 If Timer1.Enabled = False Then Timer1.Enabled = True End If End Sub Lembrando a variação do Time e de 250 a 300 para um melhor desempenho do sistema! Créditos: RenildoMarcio, Noob, AugmenteSkillsBR, sRDiego- 2 respostas
-
- 3
-
-
- ganhando dinheiro com propaganda
- googleads
- (e 2 mais)