[Suche]Seafight Tool By SeaDoc

Page 2 of 2

01/06/2013 11:09 Havelock_Vetinari#16

Wieso machst du das Kugeln kaufen nicht auch �ber WinHttp?

01/06/2013 11:50 SeaDoc#17

Quote:

Originally Posted by Alex_II

Wieso machst du das Kugeln kaufen nicht auch �ber WinHttp?

Ich habe dies schon mehre mals "angefahren" nur bis jetzt klappt der Login zu Seafight nicht ... ich wei� zwar das ich �ber den Token von den Hohlkugeln gehen kann das hei�t : spieler muss sich einloggen (in seafight bom bot aus) .. und dann auf " hohlkugeln " klicken der bot sendet dann den link bzw den url .. und dann kann man kaufen .. nur leider wei� ich nicht wie ich das mit dem login hinbekommen soll .. wenn du magst helf mir ..

01/06/2013 12:10 Havelock_Vetinari#18

Quote:

Originally Posted by SeaDoc

Ich habe dies schon mehre mals "angefahren" nur bis jetzt klappt der Login zu Seafight nicht ... ich wei� zwar das ich �ber den Token von den Hohlkugeln gehen kann das hei�t : spieler muss sich einloggen (in seafight bom bot aus) .. und dann auf " hohlkugeln " klicken der bot sendet dann den link bzw den url .. und dann kann man kaufen .. nur leider wei� ich nicht wie ich das mit dem login hinbekommen soll .. wenn du magst helf mir ..

Hier mal meine Login Funktion von meinem Bid tool . Habs nicht wirklich optimiert und funktioniert auch nur ohne Sonderzeichen:

Code:

Func _Login($user, $pass)
	Local $bp, $bpl
	$Connect = _WinHttpConnect($Agent, $Host)
	$server_selected = _GUICtrlListView_GetSelectedIndices($listvieweurope, True)
	If IsArray($server_selected) = 1 Then
		If Not $server_selected[0] = 0 Then
			$server_selected = _GUICtrlListView_GetItemText($listvieweurope, $server_selected[1], 1)
			Switch ($server_selected)
				Case "int9", "ru2", "int10"
					$bp = ""
				Case Else
					$bp = ".bigpoint"
			EndSwitch
			FileWrite("Data/logs/index.html", _Easy_WinHttp("GET", "/"))
			FileRead("Data/logs/index.html")
			If @error Then
				_WinHttpCloseHandle($Connect)
				SetError(1)
				Return
			EndIf
			_writeLog($text[30])
			Sleep(Random(1000, 2300, 1))
			$token = _StringBetween(FileRead("Data/logs/index.html"), "token=", '">')
			If $token = 0 Or @error Then
				_WinHttpCloseHandle($Connect)
				SetError(2)
				Return
			EndIf
			If UBound($token) < 2 Then
				_WinHttpCloseHandle($Connect)
				SetError(3)
				Return
			EndIf
			Sleep(Random(300, 900, 1))
			$Connect = _WinHttpConnect($Agent, "auth3.bpsecure.com")
			$LogIn = _Easy_WinHttp("POST", "/Sas/Authentication/Bigpoint?authUser=14&token=" & $token[1], "username=" & $user & "&password=" & $pass)
			FileWrite("Data/logs/login.html", $LogIn & @CRLF & @CRLF & $currentheader)
			If @error Then
				_WinHttpCloseHandle($Connect)
				SetError(4)
				Return
			EndIf
			_writeLog($text[31])
			_WinHttpCloseHandle($Connect)
			$loginserver = _StringBetween($LogIn, '"meta" href="http://', '.seafight.bigpoint.com/sharedpages/icra/labels.php"')

			If IsArray($loginserver) <> 1 Then
				$loginserver = _StringBetween($LogIn, '"meta" href="http://', '.seafight.com/sharedpages/icra/labels.php"')
				If IsArray($loginserver) <> 1 Then
					MsgBox(16, "", "Error")
					Return
				EndIf
			EndIf








			Switch ($loginserver[0])
				Case "int9", "ru2", "int10"
					$bpl = ""
				Case Else
					$bpl = ".bigpoint"
			EndSwitch
			$Connect = _WinHttpConnect($Agent, $loginserver[0] & ".seafight" & $bpl & ".com")
			If $loginserver[0] <> $server_selected Then
				FileWrite("Data/logs/serverchange.txt", _Easy_WinHttp("POST", "/ajax.es", "ajaxAction=getServerSelection"))
				_WinHttpCloseHandle($Connect)
				$req = _StringBetween(FileRead("Data/logs/serverchange.txt"), $server_selected & ".seafight" & $bp & ".com\/GameAPI.php?req=", "';\")
				If $req = 0 Or @error Then
					SetError(5)
					Return
				EndIf
				_writeLog($text[32])
				Sleep(Random(900, 2300, 1))
				$Connect = _WinHttpConnect($Agent, $server_selected & ".seafight" & $bp & ".com")
				FileWrite("Data/logs/serverchanged.html", _Easy_WinHttp("GET", "/GameAPI.php?req=" & $req[0]))
;~ 			_WinHttpCloseHandle($Connect)
				_writeLog($text[33])
			Else
				_writeLog("We dont have to change the server , sir")
			EndIf

		Else
			MsgBox(16, "Error", "Please select one Server to login")



		EndIf
	EndIf






EndFunc   ;==>_Login

Dazu brauchst du noch die _Easy_WinHttp Funktion ( danke an Arcanis von autoitbot)

Code:

Func _Easy_WinHttp($sType = "GET", $sPage = "/", $sPost = "")
	$HTTP_Request = _WinHttpOpenRequest($Connect, $sType, $sPage, "HTTP/1.1", $Host)
	If StringLen($sPost) Then
		_WinHttpSendRequest($HTTP_Request, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
	Else
		_WinHttpSendRequest($HTTP_Request)
	EndIf
	_WinHttpReceiveResponse($HTTP_Request)
	$currentheader = _WinHttpQueryHeaders($HTTP_Request)
	$HTML = ""
	Do
		$HTML &= _WinHttpReadData($HTTP_Request)
	Until @error
	_WinHttpCloseHandle($HTTP_Request)
	Return $HTML
EndFunc   ;==>_Easy_WinHttp

01/06/2013 12:37 SeaDoc#19

Quote:

Originally Posted by Alex_II

Hier mal meine Login Funktion von meinem Bid tool . Habs nicht wirklich optimiert und funktioniert auch nur ohne Sonderzeichen:

Code:

Func _Login($user, $pass)
	Local $bp, $bpl
	$Connect = _WinHttpConnect($Agent, $Host)
	$server_selected = _GUICtrlListView_GetSelectedIndices($listvieweurope, True)
	If IsArray($server_selected) = 1 Then
		If Not $server_selected[0] = 0 Then
			$server_selected = _GUICtrlListView_GetItemText($listvieweurope, $server_selected[1], 1)
			Switch ($server_selected)
				Case "int9", "ru2", "int10"
					$bp = ""
				Case Else
					$bp = ".bigpoint"
			EndSwitch
			FileWrite("Data/logs/index.html", _Easy_WinHttp("GET", "/"))
			FileRead("Data/logs/index.html")
			If @error Then
				_WinHttpCloseHandle($Connect)
				SetError(1)
				Return
			EndIf
			_writeLog($text[30])
			Sleep(Random(1000, 2300, 1))
			$token = _StringBetween(FileRead("Data/logs/index.html"), "token=", '">')
			If $token = 0 Or @error Then
				_WinHttpCloseHandle($Connect)
				SetError(2)
				Return
			EndIf
			If UBound($token) < 2 Then
				_WinHttpCloseHandle($Connect)
				SetError(3)
				Return
			EndIf
			Sleep(Random(300, 900, 1))
			$Connect = _WinHttpConnect($Agent, "auth3.bpsecure.com")
			$LogIn = _Easy_WinHttp("POST", "/Sas/Authentication/Bigpoint?authUser=14&token=" & $token[1], "username=" & $user & "&password=" & $pass)
			FileWrite("Data/logs/login.html", $LogIn & @CRLF & @CRLF & $currentheader)
			If @error Then
				_WinHttpCloseHandle($Connect)
				SetError(4)
				Return
			EndIf
			_writeLog($text[31])
			_WinHttpCloseHandle($Connect)
			$loginserver = _StringBetween($LogIn, '"meta" href="http://', '.seafight.bigpoint.com/sharedpages/icra/labels.php"')

			If IsArray($loginserver) <> 1 Then
				$loginserver = _StringBetween($LogIn, '"meta" href="http://', '.seafight.com/sharedpages/icra/labels.php"')
				If IsArray($loginserver) <> 1 Then
					MsgBox(16, "", "Error")
					Return
				EndIf
			EndIf








			Switch ($loginserver[0])
				Case "int9", "ru2", "int10"
					$bpl = ""
				Case Else
					$bpl = ".bigpoint"
			EndSwitch
			$Connect = _WinHttpConnect($Agent, $loginserver[0] & ".seafight" & $bpl & ".com")
			If $loginserver[0] <> $server_selected Then
				FileWrite("Data/logs/serverchange.txt", _Easy_WinHttp("POST", "/ajax.es", "ajaxAction=getServerSelection"))
				_WinHttpCloseHandle($Connect)
				$req = _StringBetween(FileRead("Data/logs/serverchange.txt"), $server_selected & ".seafight" & $bp & ".com\/GameAPI.php?req=", "';\")
				If $req = 0 Or @error Then
					SetError(5)
					Return
				EndIf
				_writeLog($text[32])
				Sleep(Random(900, 2300, 1))
				$Connect = _WinHttpConnect($Agent, $server_selected & ".seafight" & $bp & ".com")
				FileWrite("Data/logs/serverchanged.html", _Easy_WinHttp("GET", "/GameAPI.php?req=" & $req[0]))
;~ 			_WinHttpCloseHandle($Connect)
				_writeLog($text[33])
			Else
				_writeLog("We dont have to change the server , sir")
			EndIf

		Else
			MsgBox(16, "Error", "Please select one Server to login")



		EndIf
	EndIf






EndFunc   ;==>_Login

Dazu brauchst du noch die _Easy_WinHttp Funktion ( danke an Arcanis von autoitbot)

Code:

Func _Easy_WinHttp($sType = "GET", $sPage = "/", $sPost = "")
	$HTTP_Request = _WinHttpOpenRequest($Connect, $sType, $sPage, "HTTP/1.1", $Host)
	If StringLen($sPost) Then
		_WinHttpSendRequest($HTTP_Request, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
	Else
		_WinHttpSendRequest($HTTP_Request)
	EndIf
	_WinHttpReceiveResponse($HTTP_Request)
	$currentheader = _WinHttpQueryHeaders($HTTP_Request)
	$HTML = ""
	Do
		$HTML &= _WinHttpReadData($HTTP_Request)
	Until @error
	_WinHttpCloseHandle($HTTP_Request)
	Return $HTML
EndFunc   ;==>_Easy_WinHttp

Woow danke .. und damit kann ich jetzt mit Seafight verbinden ?

01/06/2013 12:44 Havelock_Vetinari#20

Quote:

Originally Posted by SeaDoc

Woow danke .. und damit kann ich jetzt mit Seafight verbinden ?

Du musst es halt noch an deine zwecke anpassen , aber ja , damit kannst du dich verbinden

01/06/2013 13:08 SeaDoc#21

Quote:

Originally Posted by Alex_II

Du musst es halt noch an deine zwecke anpassen , aber ja , damit kannst du dich verbinden

ok danke

01/06/2013 15:13 Sinlyu#22

<.< Leute soein Programm schreibt man in 20 Minuten...

01/06/2013 18:18 SeaDoc#23

Quote:

Originally Posted by Sinlyu

<.< Leute soein Programm schreibt man in 20 Minuten...

ich habe nicht :D .. ich brauche wie gesagt etwas l�nger :D .. bin noch ein " anf�nger " :D

01/06/2013 18:21 Sinlyu#24

Fertig :) siehe SFHelper

01/08/2013 06:19 SeaDoc#25

#Push#

-
Wir suchen immer noch Team mitglieder !!

Page 2 of 2