comm.vb

CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN

Imports System.Text.RegularExpressions
Imports System.IO

Namespace comm

    Public Class Comm

        Public Shared CL As Net.CookieCollection

        ''' <summary>
        ''' 新版本地址
        ''' </summary>
        ''' <remarks></remarks>
        Public Const newVerUrl As String = "http://blog.csdn.net/Qqwwee_Com/archive/2005/11/05/523395.aspx"

        ''' <summary>
        ''' 主导航节点地址
        ''' </summary>
        ''' <remarks></remarks>
        Public Const CSDN_COMINITY_TREENODEDATA_URL As String = "http://community.csdn.net/tree/TreeNodeData/"


        ''' <summary>
        ''' CSDN根地址
        ''' </summary>
        ''' <remarks></remarks>
        Public Const CSDN_COMINITY_URL As String = "http://community.csdn.net"

        ''' <summary>
        ''' 登陆地址
        ''' </summary>
        ''' <remarks></remarks>
        Public Const CSDN_COMINITY_LOGIN_URL As String = "http://passport.csdn.net/UserLogin.aspx"

        ''' <summary>
        ''' CSDN论坛导航上的地址
        ''' </summary>
        ''' <remarks>用来检查当前cookie是否有效</remarks>
        Public Const CSDN_COMINITY_CHECK_LOGIN_URL As String = "http://community.csdn.net/logo/logo.aspx"


        Public Const CSDN_COMINITY_Forum_URL As String = "http://community.csdn.net/Expert/ForumList.asp?typenum=1&"

        ''' <summary>
        ''' 新版本下载地址
        ''' </summary>
        ''' <remarks></remarks>
        Public Const NEW_URL_DOWN_URL As String = "http://www.szlawbook.com/CSDNV2/"

        ''' <summary>
        ''' 验证码地址
        ''' </summary>
        ''' <remarks></remarks>
        Public Const CSDN_COMINITY_IMG_URL As String = "http://passport.csdn.net/ShowExPwd.aspx"

        ''' <summary>
        ''' 将用户设置为默认用户
        ''' </summary>
        ''' <param name="ett"></param>
        ''' <remarks></remarks>
        Public Shared Sub SetDefuser(ByVal ett As entity_TB_LoginUser)

            Dim CLs As New Net.CookieCollection
            CLs.Add(New System.Net.Cookie("ABCDEF", ett.ABCDEF, "/", "csdn"))
            CLs.Add(New System.Net.Cookie("QWERTOP", ett.QWERTOP, "/", "csdn"))
            CLs.Add(New System.Net.Cookie("userid", ett.Userid, "/", "csdn"))
            CL = CLs
        End Sub

        Public Shared Function encode(ByVal str As String) As String
            Return System.Web.HttpUtility.UrlEncode(str, System.Text.Encoding.GetEncoding("gb2312"))
        End Function

        Public Shared Function decode(ByVal str As String) As String
            Return System.Web.HttpUtility.UrlDecode(str, System.Text.Encoding.GetEncoding("gb2312"))
        End Function
        Public Shared Function html(ByVal str As String) As String
            Return System.Web.HttpUtility.HtmlEncode(str)
        End Function
    End Class


    ''' <summary>
    ''' 文件读写类
    ''' </summary>
    ''' <remarks></remarks>
    Public Class FileStream
        ''' <summary>
        ''' 保存文件
        ''' </summary>
        ''' <param name="filename">文件名</param>
        ''' <param name="content">内容</param>
        ''' <remarks>这个特色在于：自动创建文件所在的目录</remarks>
        Public Shared Sub SaveFile(ByVal filename As String, ByVal content As String)
            Dim sr As StreamWriter = Nothing
            Dim strDir As String = ""
            strDir = filename.Substring(0, (filename.LastIndexOf("\") + 1))
            If Not Directory.Exists(strDir) Then
                Directory.CreateDirectory(strDir)
            End If
            Try
                sr = New StreamWriter(filename, False, System.Text.Encoding.Default)
                sr.Write(content)
            Catch exception1 As Exception
                'Console.WriteLine(exception1.Message)
                Return
            Finally
                If (Not sr Is Nothing) Then
                    sr.Close()
                End If
            End Try
        End Sub

    End Class

    Public Class RegMatch

        ''' <summary>
        ''' 使用正则表达式来提取需要的内容
        ''' </summary>
        ''' <param name="StrR">正则表达式</param>
        ''' <param name="strContent">用来匹配的源数据</param>
        ''' <param name="Key">正则中的组名，该名在StrR中定义</param>
        ''' <returns>返回提取的内容</returns>
        ''' <remarks></remarks>
        Public Shared Function Match(ByVal StrR As String, ByVal strContent As String, ByVal Key As String) As String
            Dim r As Regex
            Dim m As Match
            Dim str As String = Nothing
            Try
                r = New Regex(StrR)
                m = r.Match(strContent)
                If m.Success Then
                    str = m.Result("${" & Key & "}")
                End If
            Catch ex As Exception

            End Try
            Return str
        End Function


        Public Shared Function GetInputValue(ByVal Key As String, ByVal strContent As String) As String
            Dim r As Regex
            Dim m As Match = Nothing
            Dim Str As String = ""
            Try
                r = New Regex("<input(.*?)name=""" & Key & """(.*?)value=""(?<value>.*?)""(.*?)>", RegexOptions.IgnoreCase)
                m = r.Match(strContent)
                If m.Success Then
                    Str = m.Result("${value}")
                End If
            Catch ex As Exception

            End Try
            Return Str
        End Function

        Public Shared Function Match(ByVal StrR As String, ByVal strContent As String) As Boolean
            Dim r As Regex
            Dim m As Match
            Dim str As String = Nothing
            Try
                r = New Regex(StrR)
                m = r.Match(strContent)
                Return m.Success
            Catch ex As Exception

            End Try
            Return str
        End Function


        ''' <summary>
        ''' 匹配多个结果
        ''' </summary>
        ''' <param name="StrR">正则表达式</param>
        ''' <param name="strContent">用来匹配的源数据</param>
        ''' <returns>提取的集合</returns>
        ''' <remarks></remarks>
        Public Shared Function Matches(ByVal StrR As String, ByVal strContent As String) As MatchCollection
            Dim r As Regex
            Dim mc As MatchCollection = Nothing
            Try
                r = New Regex(StrR)
                mc = r.Matches(strContent)
            Catch ex As Exception
            End Try
            Return mc
        End Function
    End Class

End Namespace