[Dúvida]Como colocar Google ADS

[1lokomam 0]

Olá sou novo nessa áre de delphi e estou com uma duvida.

 

Eu gostaria de saber como faço para colocar um anuncio do google ads em java scrip e quando alguem clicar 2 vezes no anuncio aparecer o botao para abrir o hacker e como abrir a outra parte do hacker.

qualquer coisa se nao intendeu muito bem minha pergunta me add no msn: [email protected]

 

[luxfer 0]

Nao sei se esse é o melhor jeito, mas eu faria o seguinte:

 

Colocaria um componente TImage, e nele colocaria as fotos dos ADS, vamos supor que são apenas 2, baixo a imagem dos dois, e coloco no Image1 o primeiro AD, ao clicar nele, o Image1 carrega o 2º AD, e ao clicar no 2º AD, abre o programa.

 

No OnClick do Image voce pode pra abrir a URL do AD.

 

Mas esses programas ai tem muito mais segurança, esse método ai que eu postei é muito facil de burlar para quem tem um pequeno conhecimento em engenharia reversa

 

 

essa é só a ideia, se voce presisa de ajuda pra montar os códigos, avisa ai.

[1lokomam 0]

kara ja que voce tem conhecimento nessa area se voce poderia me passar seu msn por mp, ou add o meu la em cima. pode ficar tranquilo

que nao vou pedir para vc fazer nada pra min, quero aprender a fazer eu mesmo.

 

Haa nun tem como eu colocar o codigo em javascrip do AD nao ? fik mais real, pq o link do AD sempre muda se eu colocasse o codigo ia ficar mais profissional intende.

[luxfer 0]

hm, entendo o que voce quer dizer

 

entao com o componente Image nao irá funcionar, apenas com o WebBrowser msm...

e, infelizmente webbrowser nao tem evento onclick

 

fiz o seguinte aqui:

Coloquei um WebBrowser, criei um script em JS e salvei na memória do meu executavel, mandei meu webbrowser navegar nesse script, voce pode criar uma variavel do tipo TStringList, colocar o seu script nela, e salvar em algum lugar escondido e mandar seu browser navegar nela, esse é um método meio 'xinelo', se eu descobrir um mais discreto e melhor eu te falo, mas so amanha, vo durmi agora xD

depois disso,meu AD ta pronto.

 

Agora fiz uma função num Timer com intervalo 1 que verifica a posição do meu Mouse, e verifica onde foi que eu cliquei.

 

MousePOS:TPoint; {Variável que guardara a posição do mouse}

 

getCursorPos(MousePOS); {Guardando a posicao do mouse}

MousePOS.X := MousePOS.X - Form1.Left; {Quero apenas calcular a posicao dentro do meu form}

MousePOS.y := MousePOS.y - Form1.Top;

 

e com isso verifikei se o MousePOS.x é menor que a posicao left do meu webbrowser

tambem verifikei se o mousepos.x é maior que a posicao left do webbrowser somando com o comprimento do mesmo

 

e fiz o mesmo com a posicao Top

 

se qualquer uma das alternativas acima for verdadeira, significa que eu cliquei fora do webbrowser

 

Clique no botão caso queira ver o meu código

 

 

{Declare essa função abaixo de {$R *.dfm} }

function Clicou(x,y:integer;Browser:TWebBrowser):boolean;

begin

result := true; {inicialmente o resultado é verdadeiro, ou seja,voce clicou em cima}

if (x <= Browser.Left) or (x >= Browser.Left+Browser.Width) {posicao x do mouse é menor que o left browser ou maior que o left + o seu comprimento=FORA DELE}

or (y <= Browser.Top) or (y >= Browser.Top+Browser.Height) then {posicao y do mouse é menor que o top browser ou maior que o top + a sua altura= FORA DELE}

Result := False; {se qualquer uma das alternativas acima for verdadeira, significa que voce clicou FORA DELE}

end;

 

{Evento do timer com intervalo 1}

procedure TForm1.Timer1Timer(Sender: TObject);

var mPos:TPoint;

begin

GetCursorPos(mPos);

mPos.X := mPos.X - Form1.Left;

mPos.y := mPos.y - Form1.Top;

if GetAsyncKeyState(VK_LBUTTON) < 0 then begin {Pega o clique do botao esquerdo}

if Clicou(mPos.x,mPos.y,WebBrowser1) then {Utiliza a função declarada la em cima para saber se eu cliquei no meu webbrowser}

Form1.Caption := 'Clicou encima!' {Aqui muda a caption do form, mude esse codigo para abrir a pagina do teu AD e nao se esqueça de carregar o proximo AD}

else

Form1.Caption := 'Não clicou encima!'; {Aqui no seu caso vc nao faz nada, pq caso a pessoa nao clique no seu AD, nada acontecerá}

end;

end;

 

 

[1lokomam 0]

Acho que isso ta muito avançado pra min, a parte dos codigos me complica muito, acho ki vou ver alguns tutos pra ter um pouco mais de noçao com o delphi