Hallo wieder einmal!
Also komme ich gleich zum Punkt!
Ich möchte mich per VB.NET Anwendung bei Minecraft.net authentifizieren, allerdings finde ich nur Methoden die nicht mehr funktionieren!
Zum Beispiel:
Da diese Seite (404) nicht mehr exestiert... Gibt es dafür einfach eine neue Seite oder wie funktioniert das jetzt?
l.G. Mo.
Also komme ich gleich zum Punkt!
Ich möchte mich per VB.NET Anwendung bei Minecraft.net authentifizieren, allerdings finde ich nur Methoden die nicht mehr funktionieren!
Zum Beispiel:
VB.NET-Quellcode
- Imports System.IO, System.Net, System.Text
- Public Class Form1
- Public Function GetAccountStatus(ByVal Username As String, ByVal password As String)
- Dim status As String = "wrong,unknown"
- Dim bContent As Byte() = Encoding.ASCII.GetBytes("user=" & Username & "&password=" & password & "&version=12")
- Dim webReq As HttpWebRequest = HttpWebRequest.Create(New Uri("http://www.minecraft.net/game/getversion.jsp"))
- webReq.ContentType = "application/x-www-form-urlencoded"
- webReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; sl; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13"
- webReq.Method = "POST"
- Dim ReqStream As IO.Stream = webReq.GetRequestStream()
- ReqStream.Write(bContent, 0, bContent.Length)
- ReqStream.Close()
- Dim webRes As HttpWebResponse = webReq.GetResponse()
- Dim ResStream As IO.StreamReader = New IO.StreamReader(webRes.GetResponseStream())
- Dim strResponse As String = ResStream.ReadToEnd()
- 'Web Response Text
- '-------------------------
- 'Wrong User = Bad Login
- 'Wrong Password = Bad Login
- 'No User &/Or Password = Bad Login
- 'Wrong Version(version=) = Wrong Version
- 'Done = NUMBERS(acc index):LOGINNAME:NUMBERS(cookie value):NUMBERS(cookie value)
- If strResponse.Contains("Bad login") Then
- status = "wrong,accountinfo"
- MsgBox("no")
- Return status
- End If
- If strResponse.Contains(":") Then
- status = "works,done"
- MsgBox("yes")
- Return status
- End If
- 'Made by i33z
- 'Dont Remove Creditz Please ^^
- 'fear.v2games.de
- Return status
- End Function
- Private Sub login_BTN_click(sender As Object, e As EventArgs) Handles login_BTN.Click
- GetAccountStatus(name_txt.Text, pw_TXT.Text)
- End Sub
- End Class
Da diese Seite (404) nicht mehr exestiert... Gibt es dafür einfach eine neue Seite oder wie funktioniert das jetzt?
l.G. Mo.