Sprawdzanie czy konto ma premium

[Gość]

Witam

 

Piszę w Autoicie od wczoraj, jednak jest to chyba dwunasty język którego liznąłem, a ósmy którego mam zamiar się dobrze nauczyć, więc idzie mi dość szybko. Napisałem prosty programik który sprawdza czy konto w Minecrafcie ma premium, za pomocą systemu oferowanego przez Mojang. Wysyła żądanie do strony www, i odbiera true lub false. Nie wiem czy coś takiego już było, jeśli tak to przepraszam.

 

 

#include <GUIConstantsEx.au3>
 
Opt("GuiOnEventMode", 1)
 
Func haspaid()
    $nick = GUICtrlRead($input) ;pobieramy nick z inputa
    Dim $obj = ObjCreate ("WinHttp.WinHttpRequest.5.1") ;łączenie ze stroną
    $obj.Open("PUT","http://www.minecraft.net/haspaid.jsp?user=" & $nick, false) 
    $obj.Send(""); ;bez tego nie działa o.0
    
    If $obj.ResponseText=='true' Then ;Konto premium
        $str = 'Gracz ma premium'
    ElseIf $obj.ResponseText=='false' Then ;ni ma premki
        $str = 'Gracz nie ma premium'
    Else ; zwraca true lub false, ale na wszelki wypadek.
        $str = 'Wystąpił błąd.'
    EndIf
    
    GUICtrlSetData($txt,$str) ;Zmieniamy napis
EndFunc
 
Func koniec()
    exit
EndFunc
 
$hGUI = GUICreate("Haspaid", 150 , 100, -1, -1,0x80000000) ;tworzenie GUI
 
$txt = GUICtrlCreateLabel("", 8, 10, 131, 25) ;Napis
$input = GUICtrlCreateInput("", 8, 40, 131, 25) ;Input
$button = GUICtrlCreateButton("Sprawdź", 8, 65, 131, 25) ;Przycisk
 
GUICtrlSetOnEvent($button, "haspaid") ;Przycisk włącza funkcję
GUISetOnEvent($GUI_EVENT_CLOSE, "koniec") ;ESC wyłącza
 
GUISetState(@SW_SHOW)
 
While 1 ;Podtrzymywanie życia
    sleep(10)
WEnd

 

 

Gratisowy exe:

http://kosz.marcin.co/haspaid.exe 

https://www.virustotal.com/pl/file/5c624423a967e1e3ba1af1055424a0f6cfe8e1d2731705a61de0aa20d6c49fb1/analysis/1369148047/

Virustotal twierdzi że są tam wirusy, ale kij mu w oko. Nie chcecie to nie ściągać.

[ziomex231]

Chyba ten co kupil minecrafta wie ze ma premke ;D

[Gość]

Ale może nie mieć pewności co do innych kont. Albo może chce wiedzieć jak zrobić coś takiego w AutoIt

[Phoenix_PL]

Ładne, estetycznie zrobione, podoba mi się. Będzie z ciebie programista

[Gość]

Uczyłem się z Twojego poradnika, ale estetyki nauczyłem się przy innych językach

[Phoenix_PL]

No i bardzo dobrze, ciesze się. Jakbyś miał jakieś problemy z AutoIt, wal do mnie na GG, chętnie pomogę.

[Keniger]

Ciekawe Ale zrobiłbym to na WINHTTP udf ten drugi ? dafuq

 

@Up tez się polecam I jego też :_: w sumie to on mnie nauczył ;c

 

@Top +

[m4rcin93]

Na obiekcie szybciej i prościej się pisze, niż za pomocą UDFa WinHTTP.

[jackraymund]

$obj.Send(""); ;bez tego nie działa o.0

>.<

[KoORNEL]

Kod przydatny

 

Jak go wgrac na serwer jako plugin?

[Gość]

 

$obj.Send(""); ;bez tego nie działa o.0

>.<

Może wytłumaczysz mi jako noobkowi zamiast ,,stroić miny''? :P

Zbłaźniłem się, teraz już na pewno nie przyjmiesz mnie do Coders teamu.

 

 

Ten kod jest napisany w Autoicie, nie w Javie, nie dodasz go do serwera.

[jackraymund]

no Open, otwierasz zapytanie, potem możesz je zmodelować wszelakimi funkcjami, a na koniec wysyłasz (send)

luknij na 2 ostatnie kody na dole

http://msdn.microsoft.com/en-us/library/windows/desktop/aa384045(v=vs.85).aspx

i przejrzyj sobie reference do obj

http://msdn.microsoft.com/en-us/library/windows/desktop/aa384106(v=vs.85).aspx

[Gość]

Aha, czyli kod jest dobry tylko komentarz nieodpowiedni? Myślałem że send wysyła np. post, a całość zrobi się przy open. Dzięki za pomoc

[KamilQPL]

nie rozumiem nq