Testing post

by Ollydbg 29. January 2011 20:47

Test de plug-in código fuente:

#Region "Lectura"
    ''' <summary>
    ''' Leer un fichero de texto plano
    ''' </summary>
    ''' <param name="Fichero">Nombre y ruta del fichero</param>
    ''' <returns>string con los datos del fichero</returns>
    ''' <remarks></remarks>
    Public Function LeerFicheroTexto(ByVal Fichero As String) As String

        Try
            Dim readBytes() As Byte
            Dim oFS As FileStream

            oFS = New FileStream(Fichero, FileMode.Open, FileAccess.Read, FileShare.Read)

            ReDim readBytes(oFS.Length - 1)

            oFS.Read(readBytes, 0, oFS.Length)
            oFS.Close()

            Dim [unicode] As Encoding = Encoding.Default

            Return [unicode].GetChars(readBytes, 0, [unicode].GetCharCount(readBytes))

        Catch ex As System.Exception
            Throw New System.Exception("ModFicherosTexto::LeerFicheroTexto():" & vbCrLf & ex.Message)
        End Try

    End Function
#End Region

 

Cabecera

Lista:

  • uno
  • dos
  • tres

Lista

  1. uno
  2. dos
  3. tres

Video Youtube:

Video Vimeo:

Test Extension MP3 Player:
MP3 "pequeño":

MP3 "Grande":

MediaExtension

Archivo en el hosting:

Tutorial36.zip (11,75 kb)

PingScanner.zip (9,03 kb)

Tutorial37.zip (16,32 kb)

Imagen en el hosting:

Imagen html (hotlinking):

Firefall Logo

End Of Transmision

Tags: , , ,

Pruebas

TextBox

RecentPosts

Calendar

<<  August 2017  >>
MoTuWeThFrSaSu
31123456
78910111213
14151617181920
21222324252627
28293031123
45678910

View posts in large calendar

Month List