Minecraft Nick Premium

[krystiandj]

<---- Reklama

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Z nudów napisałem taki programik można w nim sprawdzić czy nick ma premium lub pobrać skina jakiegoś gracza z premium może komuś się przyda :

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Minecraft Nick Premium", 435, 458, -1, -1)
$Tab1 = GUICtrlCreateTab(255, 0, 180, 20)
;===========================================================
$TabSheet1 = GUICtrlCreateTabItem("Lista nicków")
;===========================================================
$Progress1 = GUICtrlCreateProgress(5, 437, 425, 17)
$Edit1 = GUICtrlCreateEdit("", 0, 24, 305, 409)
$Button1 = GUICtrlCreateButton("Wczytaj liste", 320, 32, 99, 25)
$Button2 = GUICtrlCreateButton("Sprawdzaj", 320, 72, 99, 25)
$Button3 = GUICtrlCreateButton("Wyjscie {END}", 320, 392, 99, 25)
$Label1 = GUICtrlCreateLabel("Nicki Premium:", 0, 0, 117, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("", 320, 280, 137, 44)
$Label3 = GUICtrlCreateLabel("", 320, 320, 137, 44)
$Button4 = GUICtrlCreateButton("Zapisz", 320, 112, 99, 25)
;===========================================================
$TabSheet2 = GUICtrlCreateTabItem("Pojedyńczy nick")
;===========================================================
$Button3 = GUICtrlCreateButton("Wyjscie {END}", 320, 422, 99, 25)
$Label4 = GUICtrlCreateLabel("Pojedyńczy nick", 0, 0, 157, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Sprawdź", 152, 48, 75, 25)
$Button11 = GUICtrlCreateButton("Pobierz skin", 252, 48, 75, 25)
$Input1 = GUICtrlCreateInput("Nick", 8, 48, 121, 21)
$Labe5 = GUICtrlCreateLabel("Wpisz nick:", 8, 24, 59, 17)

$Button6 = GUICtrlCreateButton("Sprawdź", 152, 112, 75, 25)
$Button12 = GUICtrlCreateButton("Pobierz skin", 252, 112, 75, 25)
$Input2 = GUICtrlCreateInput("Nick", 8, 112, 121, 21)
$Label6  = GUICtrlCreateLabel("Wpisz nick:", 8, 88, 59, 17)

$Button7 = GUICtrlCreateButton("Sprawdź", 152, 176, 75, 25)
$Button13 = GUICtrlCreateButton("Pobierz skin", 252, 176, 75, 25)
$Input3 = GUICtrlCreateInput("Nick", 8, 176, 121, 21)
$Label7 = GUICtrlCreateLabel("Wpisz nick:", 8, 152, 59, 17)

$Button8 = GUICtrlCreateButton("Sprawdź", 152, 240, 75, 25)
$Button14 = GUICtrlCreateButton("Pobierz skin", 252, 240, 75, 25)
$Input4 = GUICtrlCreateInput("Nick", 8, 240, 121, 21)
$Label8 = GUICtrlCreateLabel("Wpisz nick:", 8, 216, 59, 17)

$Button9 = GUICtrlCreateButton("Sprawdź", 152, 304, 75, 25)
$Button15 = GUICtrlCreateButton("Pobierz skin", 252, 304, 75, 25)
$Input5 = GUICtrlCreateInput("Nick", 8, 304, 121, 21)
$Label9 = GUICtrlCreateLabel("Wpisz nick:", 8, 280, 59, 17)

$Button10 = GUICtrlCreateButton("Sprawdź", 152, 368, 75, 25)
$Button16 = GUICtrlCreateButton("Pobierz skin", 252, 368, 75, 25)
$Input6 = GUICtrlCreateInput("Nick", 8, 368, 121, 21)
$Label10 = GUICtrlCreateLabel("Wpisz nick:", 8, 344, 59, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{END}","_ex")
Global $plik= ""
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			_ex()
		Case $Button2
			if $plik == "" Then
				MsgBox("","Minecraft Nick Premium","Wczytaj liste nicków")
			Else
			sprawdz()
			EndIf
		Case $Button1
			$plik=FileOpenDialog("Wybierz plik tekstowy","","(*.*)")
			$linie=StringSplit(FileRead($plik), @CRLF, 1)
			GUICtrlSetData($Label3,"Ilosc linii " & $linie[0])

		Case $Button4
			if GUICtrlRead($Edit1) = "" Then
				MsgBox("","Minecraft Nick Premium","Nie co zapisać")
			Else
				$gdziezapis = FileSaveDialog("Wybiez gdzie zapisać","","(*.txt)")
				FileWrite($gdziezapis&".txt", GUICtrlRead($Edit1))
				FileWrite($gdziezapis&".txt", @CRLF)
			        Exit
			EndIf
		Case $Button3
			_ex()
		Case $Button5
			sprawdz1(GUICtrlRead($Input1))
		Case $Button6
			sprawdz1(GUICtrlRead($Input2))
		Case $Button7
			sprawdz1(GUICtrlRead($Input3))
		Case $Button8
			sprawdz1(GUICtrlRead($Input4))
		Case $Button9
			sprawdz1(GUICtrlRead($Input5))
		Case $Button10
			sprawdz1(GUICtrlRead($Input6))
		Case $Button11
			skin(GUICtrlRead($Input1))
		Case $Button12
			skin(GUICtrlRead($Input2))
		Case $Button13
			skin(GUICtrlRead($Input3))
		Case $Button4
			skin(GUICtrlRead($Input4))
		Case $Button15
			skin(GUICtrlRead($Input5))
		Case $Button16
			skin(GUICtrlRead($Input6))
	EndSwitch
WEnd

Func sprawdz()
	$handle=FileOpen($plik,0)
	local $ileprogrss = 0
	For $x = 1 to $linie[0]
		$ileprogrss +=100/$linie[0]
		GUICtrlSetData($Progress1,$ileprogrss)
		Local $nick =FileReadLine($plik,$x)
		Dim $obj = ObjCreate ("WinHttp.WinHttpRequest.5.1")
		$obj.Open("PUT","http://www.minecraft.net/haspaid.jsp?user=" & $nick, false)
		if @error Then
			MsgBox("","Minecraft Nick Premium","Error")
		EndIf
		$obj.Send("")
		If $obj.ResponseText=='true' Then ;Premium
			GUICtrlSetData($Label2,"Jest Premium!")
			GUICtrlSetData($Edit1,$nick&@CRLF,1)
		ElseIf $obj.ResponseText=='false' Then ;no premium
			GUICtrlSetData($Label2,"No premium ;/"&@CRLF&"Nick: "&$nick)
		Else
			GUICtrlSetData($Label2,"Error")
		EndIf
	Next
	GUICtrlSetData($Progress1,100)
	MsgBox("","Minecraft Nick Premium","koniec")
	FileClose($handle)
EndFunc

Func _ex()
	if GUICtrlRead($Edit1) = "" Then
		Exit
	Else
		$msgbox1 = MsgBox(36,"Minecraft Nick Premium","Czy chcesz zapisać sprawdzone nicki ?")
		Select
		Case $msgbox1 = 6 ;Tak
			$gdziezapis = FileSaveDialog("Wybiez gdzie zapisać","l","(*.txt)")
			FileWrite($gdziezapis&".txt", GUICtrlRead($Edit1))
			FileWrite($gdziezapis&".txt", @CRLF)
			Exit
		Case $msgbox1 = 7 ;Nie
			Exit
	EndSelect

EndIf
EndFunc

func sprawdz1($n)
		$nick = $n
		Dim $obj = ObjCreate ("WinHttp.WinHttpRequest.5.1")
		$obj.Open("PUT","http://www.minecraft.net/haspaid.jsp?user=" & $nick, false)
		if @error Then
			MsgBox("","Minecraft Nick Premium","Error")
		EndIf
		$obj.Send("")
		If $obj.ResponseText=='true' Then ;Premium
			MsgBox("","Minecraft Nick Premium","Premium!")
		ElseIf $obj.ResponseText=='false' Then ;no premium
			MsgBox("","Minecraft Nick Premium","No premium ;/")
		Else
			MsgBox("","Minecraft Nick Premium","Error")
		EndIf

EndFunc

Func skin($n)
	Local $gdziezapis = FileSaveDialog("Wybiez gdzie zapisać","","(*.png)","",$n)
	if $gdziezapis = "" Then
		Return 0
	Else
		ProgressOn("Download", "Downloading...", "0%")
		$url= "http://s3.amazonaws.com/MinecraftSkins/"&$n&".png"
		$hInet = InetGet($url, $gdziezapis&".png", 1, 1)
		$FileSize = InetGetSize($url)
		While Not InetGetInfo($hInet, 2)
			Sleep(500)
			$BytesReceived = InetGetInfo($hInet, 0)
			$Pct = Int($BytesReceived / $FileSize * 100)
			ProgressSet($Pct, $Pct & "%")
		WEnd
		ProgressOff()
	EndIf
EndFunc

 

A tak powinna wyglądać przykładowa lista nick pod nickiem:

aawood
zekdude
HardFi
iFirez
Antor
Ctop37
Gekonody
xScozzieDJS
Dykam
ricardopb
jivjov
TurBeau
mikeymoo321
sasurai
Naborr
deceptious
NaoTakeshi
Robosprog
EternalPNut
Justwan
akasaru4u
AcerBandit
Muffintray
euroyak
philjo

[Gość]

A, hm... Co to robi?

[krystiandj]

Sprawdza czy nick jest premium i można też pobrać skina jakiegoś gracza z premium

[lexox]

A, hm... Co to robi?

Wpisujesz nick gracza a program sprawdza czy dany gracz ma premium.

@edit

Up szybszy

[Oberu]

Thx kiedyś czegoś takiego szukałem ! Like poleci jak limit zniknie

[qpower]

DZIĘKI

 

/CL

[Piiootrek__]

Aha.

 

[jackraymund]

zastanawia mnie jedno po co użyłeś inet i winhttp zamiast użyć jednej metody?

[krystiandj]

Bo mogę. Nie czepiaj się

[Qentes]

Jak to pobrać ??
(proszę nie dawać OSTRZEŻENIA)

[aleklejawa]

@up Tego się nie pobiera, krystiandj podał kod bez downloadu

[KapitanMapka]

Piękne