Vb.NET archivos - Soulsmakers

Validar usuario contra el dominio (active directory)

02/23/202102/23/2021 por Jose Ortiz fernandez

Hola a tod@s, aqui os dejo una funcion que te permite validar un usuario contra el dominio, el valor de retorno es un true o un false

Leer másValidar usuario contra el dominio (active directory)

Fileupload con ftp asp vb.net

02/12/202102/08/2021 por Jose Ortiz fernandez

FileUpload ASPx con Ftp

Para subir ficheros a un ftp puedes usar fileupload.

&lt;asp:FileUpload ID="FileUpload1" runat="server" AllowMultiple="true" />
&lt;asp:Button Text="subir al Ftp" runat="server" OnClick="FTPUpload" />
&lt;hr />
&lt;asp:Label ID="label1" runat="server" />

<asp:FileUpload ID="FileUpload1" runat="server" AllowMultiple="true" />

<asp:Button Text="subir al Ftp" runat="server" OnClick="FTPUpload" />

<hr />

<asp:Label ID="label1" runat="server" />

Si te has fijado bien en este ejemplo marcamos que esta permitido subir multiples ficheros a la web.
si no deseas subir multiples ficheros establece AllowMultiple=”false”

Ahora vamos con la parte del botón muy facilita. lo dejo comentado para que puedas seguirlo

Protected Sub FTPUpload(sender As Object, e As EventArgs)
    'Direccion FTP.
    Dim ftp As String = "ftp://tuftp.com/"
 
    'Directorio donde vas a subir los ficheros.
    Dim ftpFolder As String = "Subidas/"
 
    For Each file As HttpPostedFile In FileUpload1.PostedFiles
        Dim fileBytes As Byte() = Nothing
 
        'Leemos los ficheros y creamos el array de bytes que seran escritos.
        Dim fileName As String = Path.GetFileName(file.FileName)
        Using fileStream As New StreamReader(file.InputStream)
            fileBytes = Encoding.UTF8.GetBytes(fileStream.ReadToEnd())
            fileStream.Close()
        End Using
 
        Try
            'LLamamos as webrequest de nuestro ftp y le indicamos que es subida de ficheros.
            Dim request As FtpWebRequest = DirectCast(WebRequest.Create(ftp &amp; ftpFolder &amp; fileName), FtpWebRequest)
            request.Method = WebRequestMethods.Ftp.UploadFile
 
            'Asignamos las credenciales y el modo passivo o no
            request.Credentials = New NetworkCredential("username", "password")
            request.ContentLength = fileBytes.Length
            request.UsePassive = True
            request.UseBinary = True
            request.ServicePoint.ConnectionLimit = fileBytes.Length
            request.EnableSsl = False
 'Escribimos los datos
            Using requestStream As Stream = request.GetRequestStream()
                requestStream.Write(fileBytes, 0, fileBytes.Length)
                requestStream.Close()
            End Using
 
            Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
 ' y al label le vamos pasando los ficheros almacenados
            lblMessage.Text &amp;= fileName &amp; " subido.&lt;br />"
            response.Close()
        Catch ex As WebException
            Throw New Exception(TryCast(ex.Response, FtpWebResponse).StatusDescription)
        End Try
    Next
End Sub

Protected Sub FTPUpload(sender As Object, e As EventArgs)

'Direccion FTP.

Dim ftp As String = "ftp://tuftp.com/"

'Directorio donde vas a subir los ficheros.

Dim ftpFolder As String = "Subidas/"

For Each file As HttpPostedFile In FileUpload1.PostedFiles

Dim fileBytes As Byte() = Nothing

'Leemos los ficheros y creamos el array de bytes que seran escritos.

Dim fileName As String = Path.GetFileName(file.FileName)

Using fileStream As New StreamReader(file.InputStream)

fileBytes = Encoding.UTF8.GetBytes(fileStream.ReadToEnd())

fileStream.Close()

End Using

Try

'LLamamos as webrequest de nuestro ftp y le indicamos que es subida de ficheros.

Dim request As FtpWebRequest = DirectCast(WebRequest.Create(ftp & ftpFolder & fileName), FtpWebRequest)

request.Method = WebRequestMethods.Ftp.UploadFile

'Asignamos las credenciales y el modo passivo o no

request.Credentials = New NetworkCredential("username", "password")

request.ContentLength = fileBytes.Length

request.UsePassive = True

request.UseBinary = True

request.ServicePoint.ConnectionLimit = fileBytes.Length

request.EnableSsl = False

'Escribimos los datos

Using requestStream As Stream = request.GetRequestStream()

requestStream.Write(fileBytes, 0, fileBytes.Length)

requestStream.Close()

End Using

Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)

' y al label le vamos pasando los ficheros almacenados

lblMessage.Text &= fileName & " subido.<br />"

response.Close()

Catch ex As WebException

Throw New Exception(TryCast(ex.Response, FtpWebResponse).StatusDescription)

End Try

End Sub

Ya ves que facil.

seguramente te haga falta incorporar los imports siguientes

Imports System.IO
Imports System.Net
Imports System.Text

Imports System.IO

Imports System.Net

Imports System.Text

Espero que te sirva. un Saludo

GENERAR SHA512

02/12/202102/03/2021 por Jose Ortiz fernandez

Generar SHA512

Hola aqui te dejo la funcion para generar el codificado en SHA512 en vb.net

Function generarSHA512(ByVal sCadena As String) As String
  ' Objeto de codificación
  Dim ueCodigo As New UnicodeEncoding()
  ' Objeto para instanciar las codificación
  Dim SHA As New SHA512Managed&lt;/code>

  ' Calcula el valor hash de la cadena recibida
  Dim bHash() As Byte = SHA.ComputeHash(ueCodigo.GetBytes(sCadena))

  ' Convierte el valor anterior en cadena y lo devuelve
  Return Convert.ToBase64String(bHash)
End Function

Function generarSHA512(ByVal sCadena As String) As String

' Objeto de codificación

Dim ueCodigo As New UnicodeEncoding()

' Objeto para instanciar las codificación

Dim SHA As New SHA512Managed</code>

' Calcula el valor hash de la cadena recibida

Dim bHash() As Byte = SHA.ComputeHash(ueCodigo.GetBytes(sCadena))

' Convierte el valor anterior en cadena y lo devuelve

Return Convert.ToBase64String(bHash)

End Function

Espero que te sirva un Saludo

Generar MD5 vb.net

02/12/202102/01/2021 por Jose Ortiz fernandez

GENERAR MD5

Hola aquí os dejo la función para generar un md5 vb.net

Espero que os sirva , Un Saludo

Imports System.Text
Imports System.Security.Cryptography

Function generarMD5(ByVal sCadena As String) As String
  
  Dim ueCodigo As New UnicodeEncoding()
 
  Dim Md5 As New MD5CryptoServiceProvider()

  Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena))

  Return Convert.ToBase64String(bHash)
End Function

Imports System.Text

Imports System.Security.Cryptography

Function generarMD5(ByVal sCadena As String) As String

Dim ueCodigo As New UnicodeEncoding()

Dim Md5 As New MD5CryptoServiceProvider()

Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena))

Return Convert.ToBase64String(bHash)

End Function

Ejemplo de DateDiff en vb.net

03/04/202003/04/2020 por Jose Ortiz fernandez

Hola a todos, vamos a ver un ejemplo de DateDiff, para ello lo que vamos a realizar es una comparación de un calendario a la fecha actual. Para sacar la diferencia entre 2 fechas.

Leer másEjemplo de DateDiff en vb.net

Crear Thumbnail desde Imagen Vb.net

02/26/202002/25/2020 por Jose Ortiz fernandez

Buenas a todos, en este post vamos a ver como Crear Thumbnail desde Imagen,

Leer másCrear Thumbnail desde Imagen Vb.net

Ocultar / mostrar Panel con Javascript asp.net Vb.net

02/10/202002/10/2020 por Jose Ortiz fernandez

Buenas a todos, en este ejemplo vamos a ver como ocultar y mostrar un panel con javascript.

Leer másOcultar / mostrar Panel con Javascript asp.net Vb.net

Como exportar datagridview a excel VB.net

02/04/202002/04/2020 por Jose Ortiz fernandez

Hola a todos qué tal aquí os dejo en este post cómo exportar DataGridView a Excel. Ya veréis qué es muy fácil y muy sencillo no tiene ninguna complicación ,así que os dejo todo el código a continuación.

No os olvidéis de añadir la referencia de interop. Excel para que esto funcione.

Si no lo encontráis dentro de las referencias de visual studio.NET , en Google seguramente encontrareis donde la podéis encontrar

Dim exApp As New Microsoft.Office.Interop.Excel.Application
Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet

exLibro = exApp.Workbooks.Add
exHoja = exLibro.Worksheets.Add()

Dim NCol As Integer = ElGrid.ColumnCount
Dim NRow As Integer = ElGrid.RowCount
For i As Integer = 1 To NCol
exHoja.Cells.Item(1, i) = ElGrid.Columns(i – 1).Name.ToString
‘exHoja.Cells.Item(1, i).HorizontalAlignment = 3
Next

For Fila As Integer = 0 To NRow – 1
For Col As Integer = 0 To NCol – 1
exHoja.Cells.Item(Fila + 2, Col + 1) = ElGrid.Rows(Fila).Cells(Col).Value
Next
Next

exHoja.Rows.Item(1).Font.Bold = 1
exHoja.Rows.Item(1).HorizontalAlignment = 3
exHoja.Columns.AutoFit()

exApp.Application.Visible = True

exHoja = Nothing
exLibro = Nothing
exApp = Nothing

Espero que os sirva un saludo a todos

Añadir propiedades a controles de winforms

12/26/2018 por Jose Ortiz fernandez

Añadir propiedades a controles de winforms

Hola a todos, algunas veces hachemos en falta algún automatismo o propiedad en los controles si este es tu caso , aquí puedes ver como realizarlo en unos pasos muy simples.

Leer másAñadir propiedades a controles de winforms