这很简单 . 首先,您需要一种方法将网页读入字符串,这是一个非常基本的方法:
Private Function GetWebPageText(ByVal url As String) As String
Dim Request As WebRequest = WebRequest.Create(url)
Request.Credentials = CredentialCache.DefaultCredentials
Return New StreamReader(Request.GetResponse().GetResponseStream()).ReadToEnd()
End Function
然后,您需要做的就是使用您想要的用户名调用页面,并将返回值解析为布尔值 . 您可以使用 Boolean.Parse(str) 轻松完成,将它们放在一起:
Private Function PlayerHasPremium(ByVal PlayerName As String) As Boolean
Return Boolean.Parse(GetWebPageText("https://minecraft.net/haspaid.jsp?user=" + PlayerName))
End Function
然后,您可以使用用户名调用该方法,以便在代码中将值作为布尔值获取:
Sub Main()
Dim TechnoShadowHasPremium As Boolean = PlayerHasPremium("xTeCnOxShAdOwZz")
Dim MrLoreHasPremium As Boolean = PlayerHasPremium("MrLore")
System.Console.WriteLine(TechnoShadowHasPremium) ' True
System.Console.WriteLine(MrLoreHasPremium) ' False
End Sub