C# 我正在做一个skypebot,我的解析器无法工作

C# 我正在做一个skypebot,我的解析器无法工作,c#,vb.net,skype,C#,Vb.net,Skype,我正在使用Skype4COMLib制作一个skype机器人,但我无法让我的解析器工作 Private Sub oSkype_MessageStatus(pMessage As ChatMessage, Status As TChatMessageStatus) Handles oSkype.MessageStatus If Status = TChatMessageStatus.cmsReceived Or Status = TChatMessageStatus.cmsSent Then

我正在使用Skype4COMLib制作一个skype机器人,但我无法让我的解析器工作

Private Sub oSkype_MessageStatus(pMessage As ChatMessage, Status As TChatMessageStatus) Handles oSkype.MessageStatus
    If Status = TChatMessageStatus.cmsReceived Or Status = TChatMessageStatus.cmsSent Then
        Dim Msg As String = pMessage.Body
        Dim c As Chat = pMessage.Chat
        If Msg.StartsWith("~~~~~~~~~ SDMbae ~~~~~~~~~" + vbNewLine + "SDMbae: Resolving user ") Then
            Try

                Dim request As HttpWebRequest = HttpWebRequest.Create("My API key is here" + Msg.Split(" ")(5))
                Dim response As HttpWebResponse = request.GetResponse
                Dim source As String = New IO.StreamReader(response.GetResponseStream).ReadToEnd
                pMessage.Body = "~~~~~~~~~ SDMbae ~~~~~~~~~" + vbNewLine + "SDMbae: IP for " + Msg.Split(" ")(5) + " is: " + source.Split(",")(0) + vbNewLine + "SDMbae: Other IPs are " + source.Remove(0, source.Split(",")(0).Length + 1).Split("|")(0).Replace(",", " and ") + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~"
            Catch ex As Exception
                pMessage.Body = "~~~~~~~~~ SDMbae ~~~~~~~~~" + vbNewLine + "SDMbae: Error resolving user " + Msg.Split(" ")(5) + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~"
            End Try
        End If

有人能帮我吗?

有人帮忙吗?我真的需要帮助!你有错误吗?你到底想让这段代码做什么?请把你的问题说清楚。Maybee尝试设置一个断点,看看会发生什么。