Postado Qui Set 11, 2014 10:50 pm
Bom, esse programa é bem simples, ele confirma se a pessoa clicou em "fechar propaganda" do adf.ly e depois redireciona pra outra página e libera o botão "continuar"
Print:
Código:
Download source: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Scan(source): [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Scan(.exe): [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Print:
Código:
- Código:
#Region Includes
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#EndRegion
Opt('GUIOnEventMode', 1)
$Browser = _IECreateEmbedded()
#Region GUI
$Form1 = GUICreate("Confirmar ADF.LY", 402, 122, @DesktopWidth -870, @DesktopHeight -550) ; Nome da sua gui
$Obj1 = GUICtrlCreateObj($Browser, 0, 0, 401, 73)
$Button1 = GUICtrlCreateButton("Continuar", 312, 88, 81, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
_IENavigate ($Browser, "http://adf.ly/ryyHH") ; Coloque aqui o link da sua página adf.ly (01)
GUISetOnEvent($GUI_EVENT_CLOSE, "Beenden")
GUICtrlSetOnEvent($Button1, "Con")
#EndRegion
#Region While
While 1
$url = $Browser.document.url
If $url = "http://www.webcheats.com.br/forum/outras-linguagens/" Then ; troque pelo link que você colocou no adf.ly acima ^ (01)
GUICtrlSetState($Button1, $GUI_ENABLE)
_IENavigate ($Browser, "http://darkcheats.playogame.com/forum") ; troque pelo que vai ser direcionado depois de fechar a propaganda
Sleep(1000)
EndIf
WEnd
#EndRegion
#Region Functions
Func Beenden()
Exit
EndFunc
Func Con()
GUISetState(@SW_HIDE)
MsgBox(64,"ADF", 'Obrigado por ajudar!') ; Mensagem apos clicar em continuar
Exit
EndFunc
#EndRegion
;----------------------------------------------;
; Criado por fofdouglas2009 ;
; http://darkcheats.playogame.com ;
; http://youtube.com/fofdouglas2009 ;
;----------------------------------------------;
Download source: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Scan(source): [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Scan(.exe): [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]