AdFly Programm

[sezer0012]

Hallo, ich habe ein Programm geschrieben, womit man sein Programm verbinden kann. Man muss auf Werbung überspringen drücken, damit man z.B. weiter zu dein Hack gehen kann.

Ich bin nicht so gut im erklären, wie ich es gemacht habe. Aber ich denke das erklärt sich schon selbst wenn man die unbekannten Befehle in der UDF nach schlägt.

Epvp macht meinen AdFly link mit ****. Deswegen müsst ihr euch selber einen Link machen. Dann fügt ihr es zur Variable hinzu, und den Ausgangs Link natürlich auch, ich habe z.B. gemacht, wenn man auf Werbung überspringen drückt, das es zu Google geht, deswegen habe ich den Link bei
$Ausgangs_Link gemacht.

Source:

 Spoiler

#RequireAdmin
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>

Global $oIE = _IECreateEmbedded()
Global $AdFly_Link = "http://*******/IANEo" ; Beispiel: "http://*******/IANEo"
Global $Ausgangs_Link = "http://google.de/" ; Beispiel "http://google.de/"
Global $Fertig_Link = "http://users.skynet.be/fa101313/da/thanks.jpg" ; Ein Link wo Danke steht, wenn er weiter gedrückt hat, von google z.b.
Global $HatGeklickt = False
Global $NotAgain = False

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Laden", 277, 87, 192, 124)
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Ladet", 0, 0, 275, 84)
GUICtrlSetFont(-1, 50, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("AdFly", 489, 145, 192, 124)
GUISetBkColor(0xFFFFFF)
$Obj = GUICtrlCreateObj($oIE, 8, 8, 472, 64)
$Button1 = GUICtrlCreateButton("Weiter", 8, 80, 147, 49)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("Beenden", 336, 80, 147, 49)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

_IENavigate($oIE, $Ausgangs_Link)
_IELoadWait($oIE)
$Property = _IEPropertyGet($oIE, "locationurl")
$Ausgangs_Link = $Property

_IENavigate($oIE, $AdFly_Link)
_IELoadWait($oIE)
GUISetState(@SW_SHOW, $Form2)
GUISetState(@SW_HIDE, $Form1)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			MsgBox(0, "Dein Programm", "Hier kommt dein Programm Source hin.")

		Case $Button2
			Exit

	EndSwitch

	If $NotAgain = False Then
		If $HatGeklickt = False Then
			$Property = _IEPropertyGet($oIE, "locationurl")
			If $Property = $Ausgangs_Link Then
				$HatGeklickt = True
			EndIf
		Else
			_IENavigate($oIE, $Fertig_Link)
			_IELoadWait($oIE)

			GUICtrlSetState($Button1, $GUI_ENABLE)
			$NotAgain = True
		EndIf
	EndIf
WEnd

Bild:

 Spoiler

[alpines]

Ich würde den Source vom eigenen Programm nicht in den Case schreiben wollen.
Du musst nämlich Funktionen dort rausnehmen und weiter unten im Script platzieren.

Aber ich würde ein Programm wo man jedes mal den AdFly Link bestätigen muss überhaupt nicht verwenden.

[sezer0012]

Ja hab ich mir auch schon gedacht, man könnte aber mit Run ( .... ) und den anderen Programm schreiben was dann abfrägt ob es gemacht wurde mit einer ini im temp oder so.