tptipslist.vb

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

Public Class tpTipsList
    Inherits tpBase

    Public Sub New()

    End Sub

    ''' <summary>
    ''' 关闭当前
    ''' </summary>
    ''' <remarks></remarks>
    Public Overrides Sub Close()
        web.Dispose()
        Me.Dispose()
    End Sub

  
    ''' <summary>
    ''' 启动加载线程序
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub StartLoadingThreading()
        Me.web.Url = New Uri(Me.url)
    End Sub
 
    ''' <summary>
    ''' 设置当前标题。。
    ''' </summary>
    ''' <param name="str"></param>
    ''' <remarks></remarks>
    Private Sub SubSetText(ByVal str As String)
        If Me.InvokeRequired Then
            Dim cb As New SetText(AddressOf SubSetText)
            Me.Invoke(cb, New Object() {str})
        Else
            Me.Text = str
        End If
    End Sub


    ''' <summary>
    ''' 显示帖子主题列表
    ''' </summary>
    ''' <param name="url">地址</param>
    ''' <param name="TC">帖子显示的TabControl</param>
    ''' <remarks></remarks>
    Public Shared Sub ShowTP(ByVal url As String, ByVal TC As TabControl)

        If TC Is Nothing Then
            Return
        End If
        If Len(url) = 0 Then
            Return
        End If

        Dim TpTemp As tpTipsList = Nothing

        '查找有相同地址的主题列表
        For Each tp As TabPage In TC.TabPages
            If TypeOf tp Is tpTipsList Then
                Dim temp As tpTipsList = tp
                If temp.url.ToLower = url.ToLower Then
                    TpTemp = temp
                End If
            End If
        Next

        If TpTemp Is Nothing Then
            TpTemp = New tpTipsList
            TpTemp.url = url
            TC.TabPages.Add(TpTemp)
        End If
        '选中的。
        TC.SelectedTab = TpTemp
        TpTemp.StartLoadingThreading()

    End Sub


    Private Sub web_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles web.Navigating
        Dim f As FrmMain = Me.FindForm
        Dim u As String = e.Url.PathAndQuery.ToLower
        If e.Url.ToString = Me.url.ToString Then
            Return
        End If

        If u.StartsWith("/expert/topicview1.asp") Then
            If My.Settings.LayOut = "11" Then
                tpTip.ShowTP(e.Url.ToString, f.tc)
            Else
                tpTip.ShowTP(e.Url.ToString, f.tc2)
            End If
            e.Cancel = True
        End If


        If u.StartsWith("/expert/member/myforum.asp") Then
            tpTipsList.ShowTP(e.Url.ToString, f.tc)
            e.Cancel = True
        End If

    End Sub

End Class


''提取ID和TITLE的正则
'Dim r As String = "<a href=[""|']/Expert/TopicView(\d*).asp\?id=(?<ID>\d+)[""|'] target=[""|']_blank[""|']>(?<TITLE>.*?)</a>"

''下面这个是提取标题、时间、发表。。
''<a href=[""|']/Expert/TopicView[\d*].asp\?id=(?<ID>\d+)[""|'] target=[""|']_blank[""|']>(?<TITLE>.*?)</a>\r\n</td>\r\n<td align="right">(?<AUTHOR>.*?)</td>\r\n<td width="30" align="right">(?<MARK>\d+)</td>\r\n<td width="30" align="right">(?<REVIEWCOUNT>\d+)</td>\r\n<td width="80" align="right">(?<TIME>[\d+\-\d+ \r\n  \d+:\r\n  \d+]+)</td>


''提取分页的正则
'        r = "<a href='(?<URL>.*?)(?<PAGE>\d+)'>\2</a>"

''提取当前页的正则
'        r = "<font color=red>(?<ID>\d+)</font>"

''小版块的版区名
'        r = "<tr bgcolor=""#ffffff""><td colspan=""2"">&nbsp;&nbsp;<font size=3 color=red><b>(?<TITLE>.*?)</b></font>&nbsp;\((?<TYPE>.*?)\)</td></tr>"

''大版块的版区名
'        r = "<tr bgcolor=""#ffffff"" ><td colspan=""2"">&nbsp;&nbsp;<font color=""red"" size=""3"">(?<TITLE>.*?)</font></td></tr>"

''我的问题　参与的问题　得分的问题
'        r = "<tr bgcolor=""#ffffff"" ><td>&nbsp;&nbsp;<b>(?<TITLE>.*?)</b>.*?</td></tr>"

''提取斑竹:新版本
'        r = "<a href=""http://message.csdn.net/SendMessage\.aspx\?To=(?<BBSADMIN>.*?)"">\1</a>"

''提取斑竹:老版
'        r = "<a href=""/Message_Board/Send.asp\?sendto=(?<BBSADMIN>.*?)"">\1</a>"