1

（私はコーディングに非常に慣れていないので、答えを基本的なものにしてください。）

xbox.com/blahblahblah/gamertag への接続を試行するゲーマータグ チェッカーを作成しています。ゲーマータグのプロファイルが返された場合、使用されていると表示されます。

最初のゲーマータグを入力すると、機能します。しかし、2 番目のものを入力すると、そうではありません。

例: http://imgur.com/cbT7o

Module Module1

Sub Main()
    Console.ForegroundColor = ConsoleColor.Yellow
    Console.WriteLine("DiamondHacks's Gamertag Checker!")
    Console.ForegroundColor = ConsoleColor.Magenta
    Console.WriteLine("Spaced Gamertags do NOT work :(")
    Console.ForegroundColor = ConsoleColor.Blue
    Console.WriteLine("Just type a word, and it will check if it is available! :)")
    Console.ForegroundColor = ConsoleColor.Green
    Console.WriteLine("Good Luck getting some OG Gamertags :)")
    Console.ForegroundColor = ConsoleColor.Cyan
    blahblah()
End Sub

Function blahblah()

    Dim userInput As String = Console.ReadLine
    If Not String.IsNullOrEmpty(userInput) Then
        If checkGamerTag(userInput) = True Then
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine("Sorry, But the Gamertag ""{0}"" is taken!", userInput)
            Console.ForegroundColor = ConsoleColor.Cyan
        Else
            Console.ForegroundColor = ConsoleColor.Green
            Console.WriteLine("The gamertag ""{0}"" is not taken! :D Better get it before I do!", userInput)
            Console.ForegroundColor = ConsoleColor.Cyan
        End If
    End If
    Console.Read()
    blahblah()
    Console.ForegroundColor = ConsoleColor.Cyan
End Function

Private Function checkGamerTag(ByVal gamerTag As String) As Boolean
    If Not String.IsNullOrEmpty(gamerTag) Then
        Try
            Dim callBack As String = New System.Net.WebClient().DownloadString(String.Format("http://live.xbox.com/en-GB/Profile?gamertag={0}", gamerTag))
            If Not String.IsNullOrEmpty(callBack) Then
                If Not callBack.Contains("Ooops! What happened to this page?") Or callBack.Contains(gamerTag) Then Return True
            Else
                Return False
            End If
        Catch : Return False : End Try
    End If
End Function

End Module
4

1 に答える 1

5

への呼び出しのConsole.Read()前の への呼び出しblahblah()は、次の行の最初の文字を噛み砕いています。

于 2012-09-30T03:42:06.820 に答える