程序自动发送，我需要的是代码

[ 本帖最后由 sq19880308 于 2009-8-7 09:21 编辑 ]

    Public Function ImageTo64String(ByVal Image As System.Drawing.Image) As String
        Dim S As String = ""
        If Not Image Is Nothing Then
            Dim M As New
            Image.Save(M, System.Drawing.Imaging.ImageFormat.Jpeg)
            S = Convert.ToBase64String(M.ToArray)
            M.Dispose()
        End If
        Return S
    End Function

    Public Function ImageFrom64String(ByVal [String] As String) As System.Drawing.Image
        Dim IMG As System.Drawing.Image = Nothing
        Dim BTS As Byte() = Convert.FromBase64String([String]), M As New (BTS)
        IMG = System.Drawing.Bitmap.FromStream(M)
        If Not M Is Nothing Then M.Dispose()
        BTS = Nothing
        Return IMG
    End Function