[Tutorial] Clicar nos Anúncios para liberar programa.

[KiritoAndAsuna 1]

Eaew galera.

 

Bom gente vim hoje aqui fazer um simples tutorial de como você faz para por um anuncio, link oque for e quando ele clicar liberar seu programa para o uso.

Isso tem em muitos programas, hacks entre outros, vi muitos pedir e por incrível que pareça é muito simples fazer isso.

 

Bom vamos começar.

Qual os componentes vamos utilizar ?

 

1 WebBrowser

1 Button

1 Timer

 

Bom nas propriedades do button mude enabled para false, assim↓

 

 

Arrume seu formulário como quiser o meu ficou assim↓

 

 

 

Bom galera antes de nós comesar com os codigos, vamos criar 1 novo FORM. Para isso va em File>New>Form - Delphi, depois disso seu segundo form foi criado é aonde você vai programar seu programa ou oque for.

 

Va nas propriedades do form1 em events> OnCreat e coloque o codigo↓

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No button coloque↓

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Va no seu Timer1 e coloque o seguinte codigo↓

 

if WebBrowser1.OleObject.Document.URL = 'https://www.google.com.br/' then
caption:='Click nos anuncios para liberar o programa!'
else
button1.Enabled:=true;

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Assim evitamos que quando fechar o aplicativo ele fica rodando ocultamente :D

 

 

Creditos:

A mim KiritoAndAsuna - Webcheats

---

Bom espero que gostem, duvidas pode postar aqui, se gostou click em Agradecer vai ajudar.

ﾠﾠTroféus e Medalhasﾠﾠ

[GuiMaker 1]

Muito bom,gostei,acho que faz um tempo que eu tinha visto outro tutorial de como fazer isso.Mas,em fim,este está bem melhor!(Consigo entender mais nesse tutorial do que os textos imensos do outro tópico),obrigado,thx

[Sherex 0]

Hmm bom, em vb eu usei de outra forma eu uso webbrowser.documentTitle

em uma if achei bem melhor :)

[Tyo.Anonymous_ 0]

Obrigador Por mesmo isso vai ajuda em Muito.

 

Isso vai ajuda em Muito uns Iniciante.

 

[-Biohazard-Imortal 0]

Valeu amigo quebrou meu galho :)

 

[Neji1.8 0]

faz um tutu desse pra vb

[kr4zler 0]

É um programa relativamente simples e que ajuda muito.

Tópico com cores e tudo mais, reputado. Bom tópico.

[superharry 0]

olha oque aparece aqui quando eu vo compila ele

[KiritoAndAsuna 1]

olha oque aparece aqui quando eu vo compila ele

Pelo que vi no erro você colocou

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

FormCreate do seu form1.

Remove os codigos de form show e hide e teste,

se rodar normal verifique e coloque eles no on click do button.

[superharry 0]

não e isso o problema ocorre quando coloco o codigo :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

no timer

[AugmentedSkillsBR 9]

ola amigo esta dando este erro no codigo.

[cleyton2099 0]

faz um pra vb ai

[KR4T00S 0]

Pelo tópico e explicativo :)

Mas no meu caso, sempre quando vou compilar

o programa ele da o mesmo erro que o do ArgumentedSkillsBR:

[reservabr 0]

Tutorial muito útil, parabéns!:D

[benites 0]

no timer :

Propriedade Enabled = false

 

codigo: procedure Tform1.Timer1Timer(Sender: TObject);

begin

if web.LocationURL = 'https://www.google.com.br/' then

caption:='Click nos anuncios para liberar o programa!'

else

button1.Enabled:=true

end;

 

 

na propriedade ondownloadcomplet coloque:

timer1.enabled:=true;

 

o resto deixa como tá .