csdnmsg.vb

csdn小助手 适合自动登录等功能

Public Class CsdnMsg
    Inherits comm.HttpProc


    'Private _hasNewMsg As Boolean = False
    'Public ReadOnly Property hasNewMsg() As Boolean
    '    Get
    '        Return _hasNewMsg
    '    End Get
    'End Property
    Sub New()
        MyBase.New()
        Me.encoding = System.Text.Encoding.UTF8
    End Sub

    Public Function CheckHasNewMsg() As Boolean
        Me.strUrl = "http://message.csdn.net/newMessage.aspx"
        Me.cookiePost = comm.Comm.CL
        Me.Proc()
        If Me.ResHtml.IndexOf("ShowNewMessagePic();") > -1 Then
            Return True
        End If
        Return False
    End Function

    Public Function GetNewMsg(ByVal strType As msgType) As ArrayList
        Me.strUrl = String.Format("http://message.csdn.net/ListMessage.aspx?type={0}", strType.ToString)
        Me.cookiePost = comm.Comm.CL
        Dim strR As String = "<td rowspan=""2"">编号：(?<ID>\d+)</td>\r\n<td>发送者：(?<FROM>.*?)</td>\r\n<td(?:.*?)>发送时间：(?<TIME>.*?)</td>\r\n<td(?:.*?)>(?:.*?)</td>\r\n</tr>\r\n<tr>\r\n<td>接受者：(?<TO>.*?)</td>\r\n<td(?:.*?)>(?:.*?)</td>\r\n</tr>\r\n<tr>\r\n<td(?:.*?)>(?:.*?)</td>\r\n<td(?:.*?)>(?<CONTENT>.*?)</td>\r\n"
        Dim a As New ArrayList
        Me.Proc()
        For Each m As Match In comm.RegMatch.Matches(strR, Me.ResHtml)
            Dim msg As New Msg
            msg.编号 = m.Result("${ID}")
            msg.发送方 = m.Result("${FROM}")
            msg.接受方 = m.Result("${TO}")
            msg.发送时间 = m.Result("${TIME}")
            msg.内容 = m.Result("${CONTENT}")
            a.Add(msg)
        Next
        Return a
    End Function

    Public Function PostMsg(ByVal strTo As String, ByVal strContent As String) As String

        If Len(strTo) = 0 Or Len(strContent) = 0 Then
            Return "请完整填写表单！"
        End If

        Me.strUrl = String.Format("http://message.csdn.net/SendMessage.aspx")
        Me.strPostdata = String.Format("__VIEWSTATE=dDwxNjAxNjYyNTAzO3Q8O2w8aTwzPjs%2BO2w8dDw7bDxpPDU%2BOz47bDx0PDtsPGk8MT47PjtsPHQ8cDxwPGw8VGV4dDs%2BO2w8Y2NnaGdoZ2o7Pj47Pjs7Pjs%2BPjs%2BPjs%2BPjs%2BHi7GvblTC%2BuduWezGC4uuDFsVBM%3D&tb_ToUserName={0}&tb_Context={1}&btn_Post=%E5%8F%91%E9%80%81%E7%95%99%E8%A8%80", strTo, strContent)
        Me.strRefUrl = strUrl
        Me.Proc()

        If Me.ResHtml.IndexOf("已经成功发送短消息，请关闭页面！") Then
            Return "已经成功发送短消息！"
        End If

        If Me.ResHtml.IndexOf("无法给他发送短消息！") Then
            Return "无法给他发送短消息！"
        End If

        Return Me.ResHtml
    End Function



End Class
Public Enum msgType
    ''' <summary>
    ''' 新信息
    ''' </summary>
    ''' <remarks></remarks>
    newMessage
    ''' <summary>
    ''' 我最近发送出去的信息
    ''' </summary>
    ''' <remarks></remarks>
    MyRecentlyPostMessage
    ''' <summary>
    ''' 我最近接收的信息
    ''' </summary>
    ''' <remarks></remarks>
    noSystemMessage
End Enum