Hey Freunde,
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=E:\AeriaGames\S4League\s4leag ue_install.ico
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#include <Crypt.au3>
#include <StaticConstants.au3>
#include <IE.au3>
Dim $s_html
_IEErrorHandlerRegister ()
$ie = _IECreateEmbedded ()
Global $advert = GUICreate("Advert", 619, 289, 192, 124)
GUISetBkColor(0x262221)
Global $inter = GUICtrlCreateObj($ie,8, 8, 457, 257)
Global $SinkObject=ObjEvent($ie,"IEEvent_","DWebBrowserEv ents")
Global $next = GUICtrlCreateButton("Continue ", 472, 0, 139, 273)
GUICtrlSetState(-1,$GUI_DISABLE)
GUISetState()
_IENavigate ($ie, "http://*******/vkpE7") ; -> Add your adfly link here
$state = 0
Do
$url = _IEPropertyGet($ie, "locationurl")
If $url = "http://*******/vkpE7" and $state = 0 Then ; -> Add herre the link where your adfly link redirects
GUICtrlSetState($next,$GUI_ENABLE)
$state = 1
EndIf
$msg = GUIGetMsg()
If $msg = $next then ExitLoop
If $msg = $GUI_EVENT_CLOSE then Exit
Sleep(10)
Until $msg = $next
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
Exit
Case $next
$admsg = MsgBox(4096,"Advert", "Successfully Skipped Ads")
Sleep(100)
GUIDelete($advert)
;Your Script <---------------------------------------------------------------------
EndSwitch
WEnd
Die Frage geht nun NUR an das Script, nicht an die Aktion.
Bild:
Ich bin eigentlich bereits sehr in AutoIT eingeweiht, jedoch finde ich einfach den Fehler nicht. Ich weiß nicht ob ich total bekloppt bin, aber des muss doch so klappten oder nicht? Des ist ein Example, und ich habe nichts verändert(im Bild). Ich habe einfach mehr "#includes" reingehauen, aber nun...? Ihr müsstet ja anhand des Scripts sehen, was es macht.
Falls es verboten ist, über so ein Script zu fragen, dann bitte ich drum, es mir Privat zu schreiben(die lösung)
MFG
