Suche tool zum einloggen in eine Webapp + emailbestätigung

[Xcrooz]

Hallo suche jemanden der mir nen kleines tool schreibt wo ne verification nötig ist.

Acc / pw einloggen in webapp -> zur fakemail gustr.com -> email namen eintippen - warten auf Verif Code -> in die Webapp veri eingeben -> eine bestimmte anzeige aus der Webapp auslesen.

Fifa webapp

wer mir das realisieren kann bitte melden mit preisvorstellung =) danke

[meak1]

Func _getit2()
	$url2 = "https://live.xbox.com/de-DE/Subscriptions?SubscriptionTier=Gold"
	$IE = _IECreate($url2, 0, 1)
	Sleep(5000)

	Sleep(5000)
	$oform = _IEGetObjById($IE, "frmVerifyProof")
	$oInput = _IEFormElementGetObjByName($oform, "iProofOptions")
	Sleep(100)
	_IELinkClickByIndex($IE, 6)
EndFunc   ;==>_getit2

mit _IELinkClickByIndex($IE, 6) <- hatte ich das Email prüfen gebrückt(bzw die Code eingabe), weiß nicht obs noch geht ;o


das hier hatte ich damals mal geprocct ->

 Spoiler

#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScrollBarConstants.au3>
#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <string.au3>
#include <WinHTTP.au3>
#include <GUIConstants.au3>

Global $WinHttpOpen = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0")
$IE = _IECreateEmbedded()
#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Xbox-Live Account Creat0R - by Meak1", 500, 900, 192, 153); GUICreate("BETAPL0X", 500,340, 192, 153)
$Button1 = GUICtrlCreateButton("Start", 150, 825, 91, 49)
$Button2 = GUICtrlCreateButton("Skip", 252, 825, 91, 49)
;$Button3 = GUICtrlCreateButton("Reconnect", 352, 825, 91, 49)

$Input1 = GUICtrlCreateInput("Password", 8, 840, 120, 21)
$Browser = GUICtrlCreateObj($IE, 0, 0, 500, 800)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Global $peng = 0
Global $reademail
Global $buttonxd = 0
Global $lol = 0
Global $i = 1
Global $found = 0
Global $StreamFile_Log = "\AccountLog.ini"
Global $icounter = 0


While 1

	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Button2
			MsgBox(0, "lol", "rofl")
		Case $Button1
			$PW_ = GUICtrlRead($Input1)
			$buttonxd = 1
			_Create()

		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch

WEnd


Func _ExitFunc()
	Exit
EndFunc   ;==>_ExitFunc

Func _getit3()
	$oform = _IEGetObjById($IE, "SignUpForm")
	_IEFormSubmit($oform, 0)
EndFunc   ;==>_getit3

Func _getit2()
	$url2 = "https://live.xbox.com/de-DE/Subscriptions?SubscriptionTier=Gold"
	$IE = _IECreate($url2, 0, 1)
	Sleep(5000)

	Sleep(5000)
	$oform = _IEGetObjById($IE, "frmVerifyProof")
	$oInput = _IEFormElementGetObjByName($oform, "iProofOptions")

	Sleep(100)
	_IELinkClickByIndex($IE, 6)
EndFunc   ;==>_getit2

Global $RegyCode

Func _getit()
	$boam = StringReplace($reademail[$lol], '@arcor.de', '')
	$WinHttpConnect = _WinHttpConnect($WinHttpOpen, "www.arcor.de")
	_WinHttpGo2($WinHttpConnect, "/login/login.jsp", "user_name=" & $boam & "&info=Online-Passwort&password=" & $PW_)
	$getEmail = _WinHttpGo2($WinHttpConnect, "/ums/ums_ordner.jsp?ordnername=Posteingang")
	$blubb = _StringBetween($getEmail, 'Microsoft account team</td>', '</a></td>')
	If IsArray($blubb) Then
		$http = _StringBetween($blubb[0], '<a href="http://www.arcor.de', '" title')
		If IsArray($http) Then
			$getthis = _WinHttpGo2($WinHttpConnect, $http[0])
			$code = _StringBetween($getthis, 'Here is your code: ', '<br/>')
			If IsArray($code) Then
				$RegyCode = $code[0]
				MsgBox(0, "lol", $RegyCode)
			EndIf
		EndIf
	EndIf

EndFunc   ;==>_getit

Func _Create()
Opt("GUIOnEventMode", 1)
	GUISetOnEvent(-3, "_ExitFunc")

	If $peng = 0 Then
		$peng = FileRead(@ScriptDir & "\Emails.txt")
		$reademail = _StringBetween($peng, '{', '}', 1)
		$max = UBound($reademail) - 1
	EndIf
	;MsgBox(0,"lol",UBound($reademail))
$icounter += 1
if $icounter = 4 Then
$icounter = 0
MsgBox(0,"Counted 3!", "Click OK to Reconnect!")
  _Create()
EndIf

	$url = "https://signup.live.com/signup.aspx?wa=wsignin1.0&rpsnv=11&ct=1379462436&rver=6.2.6289.0&wp=MBI_SSL&wreply=https:%2F%2Flive.xbox.com:443%2Fxweb%2Flive%2Fpassport%2FsetCookies.ashx%3Frru%3Dhttps%253a%252f%252flive.xbox.com%252fde-DE%252fSubscriptions%253fSubscriptionTier%253dGold&id=66262&cbcxt=0&bk=1379462543&cru=https://login.live.com/login.srf%3fwa%3dwsignin1.0%26rpsnv%3d11%26rver%3d6.2.6289.0%26wp%3dMBI_SSL%26wreply%3dhttps:%252F%252Flive.xbox.com:443%252Fxweb%252Flive%252Fpassport%252FsetCookies.ashx%253Frru%253Dhttps%25253a%25252f%25252flive.xbox.com%25252fde-DE%25252fSubscriptions%25253fSubscriptionTier%25253dGold%26lc%3d1031%26id%3d66262%26cbcxt%3d0&mkt=DE-DE&lc=1031&sl=1&lic=1"
	_IENavigate($IE, $url)

	$oform = _IEGetObjById($IE, "SignUpForm")
	$oInput = _IEFormElementGetObjByName($oform, "iFirstName")
	_IEFormElementSetValue($oInput, _Random())


	$oInput2 = _IEFormElementGetObjByName($oform, "iLastName")
	_IEFormElementSetValue($oInput2, _Random())

	$oInput3 = _IEFormElementGetObjByName($oform, "iBirthDay")
	_IEFormElementSetValue($oInput3, Random(1, 30, 1))

	$oInput4 = _IEFormElementGetObjByName($oform, "iBirthMonth")
	_IEFormElementOptionSelect($oInput4, Random(1, 12, 1))

	$oInput4 = _IEFormElementGetObjByName($oform, "iBirthYear")
	_IEFormElementSetValue($oInput4, Random(1970, 1994, 1))

	$oInput4 = _IEFormElementGetObjByName($oform, "iGender")
	_IEFormElementOptionSelect($oInput4, _RandomGender())

	$oInput4 = _IEFormElementGetObjByName($oform, "imembernameeasi")
	_IEFormElementSetValue($oInput4, $reademail[$lol])
	_IELinkClickByIndex($IE, 8)


	$oInput4 = _IEFormElementGetObjByName($oform, "iPwd")
	_IEFormElementSetValue($oInput4, $PW_)

	$oInput4 = _IEFormElementGetObjByName($oform, "iRetypePwd")
	_IEFormElementSetValue($oInput4, $PW_)

	$oInput4 = _IEFormElementGetObjByName($oform, "iPhone")
	_IEFormElementSetValue($oInput4, _RandomNumb())

	$oInput4 = _IEFormElementGetObjByName($oform, "iAltEmail")
	_IEFormElementSetValue($oInput4, _random() & "@arcor.de")

	$oInput4 = _IEFormElementGetObjByName($oform, "iZipCode")
	_IEFormElementSetValue($oInput4, _RandomNumb2())

	;_IEFormSubmit($oform, 0)
	;_IELoadWait($IE)

ControlSend("Xbox-Live Account Creat0R - by Meak1", "", 0, "{END}")
ControlClick("Xbox-Live Account Creat0R - by Meak1", "",0, "left", 1,83, 542)
	Do
		_IELoadWait($IE)
		$lo1l = _IEBodyReadHTML($IE)
		$st = GUIGetCursorInfo()
		if IsArray($st) Then
        if  $st[4] = $Button2 And $st[2] = "1" Then
			$lol += 1
          _Create()
	  EndIf

		EndIf
	Until Not StringInStr($lo1l, 'iBirthDateError', 1)
	;MsgBox(0, "next", "NÄCHSTE PAGE")
	Do
		_IELoadWait($IE)
		$lo2l = _IEBodyReadHTML($IE)

		If StringInStr($lo2l, 'Ich bin einverstanden') Then
			;	MsgBox(0,"lol","EINVERSTANDEN!")
			$oform2 = _IEGetObjById($IE, "aspnetForm")
			$oInput = _IEFormElementGetObjByName($oform2, "ctl00$ctl00$ctl00$MainContent$MainContent$Content$Accept")
			_IEAction($oInput, "click")
		EndIf

			If StringInStr($lo2l, 'bervorsichtig nennen...', 1) Then
			;MsgBox(0,"SEND","SEND CODE VERIFY!")
			$oform = _IEGetObjById($IE, "frmVerifyProof")
			$oInput = _IEFormElementGetObjByName($oform, "iProofOptions")

			_IELinkClickByIndex($IE, 6)
		EndIf

		If StringInStr($lo2l, 'Sie sind bereits angemeldet.') Then
			_IELinkClickByIndex($IE, 0)
		EndIf

		If StringInStr($lo2l, 'Wir haben Ihnen den Gamertag') Then
			$lolxd = _StringBetween($lo2l, 'Wir haben Ihnen den Gamertag ', ' gegeben.', 1)
			If IsArray($lolxd) Then
				FileWrite(@ScriptDir & $StreamFile_Log, @CRLF & $reademail[$lol] & ";" & $PW_ & ";" & $lolxd[0])
				;$WinHttpConnect = _WinHttpConnect($WinHttpOpen, "live.xbox.com")
				;_WinHttpGo2($WinHttpConnect, "/Account/Signout")
				;MsgBox(0,"lol","GAMERTAG FOUND!: " & $lolxd[0])
				If $max <> $lol Then
					$lol += 1
				Else
					MsgBox(0, "End!", "All Emails Registered!", 0)
					Exit
				EndIf
				$found = 1
			EndIf
		EndIf


	Until $found = 1
	$found = 0
	_Create()
EndFunc   ;==>_Create

Func _WinHttpGo2($hConnect, $sSite, $sPost = "")
	Local $sHTML = "", $sMethod = "", $sContent = ""
	If $sPost = "" Then
		$sMethod = "GET"
		$sContent = "Content-Type: application/x-www-form-urlencoded"
	Else
		$sMethod = "POST"
		$sContent = "Content-Type: application/x-www-form-urlencoded" & @CRLF
	EndIf
	Local $WinHttpOpenRequest = _WinHttpOpenRequest($hConnect, $sMethod, $sSite, "HTTP/1.1")
	If $sPost = "" Then
		_WinHttpSendRequest($WinHttpOpenRequest, $sContent)
	Else
		_WinHttpSendRequest($WinHttpOpenRequest, $sContent, $sPost)
	EndIf
	_WinHttpReceiveResponse($WinHttpOpenRequest)
	Do
		$sHTML &= _WinHttpReadData($WinHttpOpenRequest, 0, 50000)
	Until @error

	_WinHttpCloseHandle($WinHttpOpenRequest)
	Return $sHTML
EndFunc   ;==>_WinHttpGo2

Func _Random()
	Local $retry = ""
	For $iCount5 = 0 To 7
		$retry &= Chr(Random(Asc("a"), Asc("z"), 1))
	Next
	Return $retry
EndFunc   ;==>_Random

Func _RandomNumb2()
	Local $retry = ""
	For $iCount5 = 0 To 4
		$retry &= Random(1, 9, 1)
	Next
	Return $retry
EndFunc   ;==>_RandomNumb2

Func _RandomNumb()
	Local $retry = ""
	For $iCount5 = 0 To 10
		$retry &= Random(1, 9, 1)
	Next
	Return $retry
EndFunc   ;==>_RandomNumb

Func _RandomGender()
	Local $retry = ""
	For $iCount5 = 0 To 9
		Local $randomfunc = Random(1, 2, 1)
		If $randomfunc = 1 Then
			$retry = 'm'
		EndIf
		If $randomfunc = 2 Then
			$retry = 'f'
		EndIf

	Next
	Return $retry
EndFunc   ;==>_RandomGender

[djmussik]

skype: alex03036 oder schreib mir pn

[Xcrooz]

djmussik schreib mir nicht jedesmal, deine preise sind übertrieben - da gibt es 10x billigere