elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Mensajes
Páginas: [1] 2
1  Comunicaciones / Mensajería / Perdí mi contraseña hotmail de una cuenta antigua en: 11 Junio 2013, 10:53 am
Hola foro. Lamento si esta zona del foro no es la indicada para realizar esta pregunta, o si la propia pregunta no es "aceptable".

Verán, desde que estoy en lo de los foros manejo varios correos electrónicos (hotmail, el de outlook, el de facebook, el tuenti, el yahoo .....), y claro, para cada cosa (sobretodo para juegos online) me hice dos hotmail.
Uno es el k uso normalmente (para todos los foros en los que estoy, ademas del trabajo) y otro para los juegos y mensajes privados.

He perdido (vamos, que no me acuerdo de qué conraseña le puse) la clave de la cuenta hotmail que uso para los asuntos privados. Siii, lo se, ya se que fue una tonteria separar todo mi correro en dos cuentas distintas, pero es que por aquella epoca no era muy espabilado...

En fin, que al crear la segunda cuenta hotmail (la privada) puse que si había algun problema me enviasen un mensaje a mi otra cuenta (la del trabajo), de modo que en cuerto sentido estan conectadas.

Tengo uns pregunta de seguridad que tampoco ecuerdo y eso....

Bueno, ¿alguien sabe como puedo recuperar mi cuenta?

Y lo pero de todo es que cuando le doy a recuperar contraseña me sale un formulario larguísimo (me piden que les diga mensajes que envié, y solo he enviado 2 en toda mi vida con esa cuenta), y no recuerdo mucha informacion de ella.

Ya se que es casi imposible recuperarla (me veo provando contraseñas los dos proximos años, jaja).

Agradeceria cualquier ayuda.

PD: la cuenta si es mia, no la quiero robar a un vecino ni a alguien que le tenga mania, la cuenta es mia y solo mia. Yo la creé y la utilicé. Lo digo por que es normal que penseis esto, yo lo pensaria.

Agradecería cualquier ayuda con este tema.

Repito, no se si este es el sitio apropiado para esta pregunta, asi que pido disculpas por adelantado.
2  Programación / .NET (C#, VB.NET, ASP) / Re: Como pasar el contenido de dos datagridview a un tercer datagridview en: 10 Junio 2013, 20:15 pm
Nop, te has liado, jajaja.

Me explico:

-DGV1: 9 columnas. 176 filas.
-DGV2: 12 columnas. 300 filas

-DGV3: 9 columnas
    -Al inicio: solamente una fila, que es el encabezado de las columnas.

Por cierto, ya solucione el asunto, jaja, pero te explico esto para que no te de dolor de cabeza como a mí.

Al pulsar el boton:

Al DGV3 se le añaden las 176 filas del DGV1, y se le añaden las 300 filas del DGV2.

Bueno, luego limpio un poco el codigo y te lo paso por el foro, jaja.

Gracias por interesarte.
3  Programación / .NET (C#, VB.NET, ASP) / Como pasar el contenido de dos datagridview a un tercer datagridview en: 7 Junio 2013, 19:31 pm
Hola foroooooooo, que tal?

Pues les venia con esta dudilla.

Tengo una aplicacion en vb.net 2010 con formulario, en el cual tengo 3 datagridview (me referire a ellos como DGV para abreviar) llamados DGV1, DGV2 y DGV3 (como podeis ver no me rompo la cabeza poniendo nombres, jaja).

El DGV1 tiene 9 columnas, el DGV2 12 columnas y el DGV3 9 columnas.

El DGV1 y 2 tienen muchos datos (estos DGV muestran una hoja excel), pero el DGV 3 solo tiene el nombre de cabecera de cada columna.
De este modo, al pulsar un boton, el contenido de DGV1 se "copiara" en DGV3, y despues (de forma automatica, tras realizar esta primera transaccion) paso los datos (de solo 9 de las 12 columnas (tendre que predefinir que columnas pasar)) de DGV2 a DGV3, justo debajo de los anteriores.

¿Alguna sugerencia?

¿Que codigo deberia usar para realizar estas opreaciones?

¿Debo cambiar el numero de columnas de DGV2 a 9 para que coincida con los otros?

PD:gracias de antemano
4  Programación / .NET (C#, VB.NET, ASP) / Re: no puedo borrar pdf recien creado en vb.net en: 6 Junio 2013, 10:16 am
Hey, muchas gracias. Lamento contestar a estas alturas, pero es que como casi todo lo que subo al foro es en el foro de visualBasic (despues de todo uso visualBasic.net) mo me di cuenta de que me movieron el post a este foro, y no he podido revisarlo hasta ahora, jaja.

Ya lo solucione hace unos días, y era precisamente lo que decíais, tenia un reader abierto (más bien dos reader, ya que estaban en un for). En fin, de todad maneras yo adjunto el codigo, que seguro que a alguien le va a venir bien.

Lo dicho, disteis en el clavo, gracias.

El codigo: unir dos pdf.


Código:
Imports System.IO
Imports System.IO.FileStream
Imports iTextSharp
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports iTextSharp.text.Image



Public Class UnirBorrarPdf

    Public nombredelArchivo As String


    'Esto no deberia estar aqui, lo puse para hacerlo global, pero el original es local
    Dim oPdfReader1 As iTextSharp.text.pdf.PdfReader
    Dim oPdfReader2 As iTextSharp.text.pdf.PdfReader

    Function GetPageCount(ByVal sFolderPath As String) As Integer
        Dim iRet As Integer = 0
        Dim oFiles As String() = Directory.GetFiles(sFolderPath)

        For i As Integer = 0 To oFiles.Length - 1
            Dim sFromFilePath As String = oFiles(i)
            Dim oFileInfo As New FileInfo(sFromFilePath)
            Dim sExt As String = UCase(oFileInfo.Extension).Substring(1, 3)
            If sExt = "PDF" Then
                iRet += 1
            End If
        Next

        Return iRet

    End Function

    Sub ProccessFolder(ByVal sFolderPath As String)



        Dim bOutputfileAlreadyExists As Boolean = False
        Dim oFolderInfo As New System.IO.DirectoryInfo(sFolderPath)
        Dim sOutFilePath As String = sFolderPath + nombredelArchivo + ".pdf"
        'Dim sOutFilePath As String = sFolderPath + "\" + oFolderInfo.Name + ".pdf"
        If System.IO.File.Exists(sOutFilePath) Then
            Try
                MessageBox.Show("Ya existe el archivo")
            Catch ex As Exception
                MessageBox.Show("Se supone que fue eliminado el archivo, pero yo no lo hice, jaja")
            End Try
        End If

        Dim iPageCount As Integer = GetPageCount(sFolderPath)
        If iPageCount > 0 And bOutputfileAlreadyExists = False Then


            Dim oFiles As String() = Directory.GetFiles(sFolderPath)

            Dim oPdfDoc As New iTextSharp.text.Document()
            Dim oPdfWriter As PdfWriter = PdfWriter.GetInstance(oPdfDoc, New FileStream(sOutFilePath, FileMode.Create))
            oPdfDoc.Open()

            'LA MODIFICACION DEL FOR
            'Elemento1
            Dim sFromFilePath1 As String = oFiles(0)
            Dim oFileInfo1 As New FileInfo(sFromFilePath1)
            Dim sExt1 As String = UCase(oFileInfo1.Extension).Substring(1, 3)
            'Elemento2
            Dim sFromFilePath2 As String = oFiles(1)
            Dim oFileInfo2 As New FileInfo(sFromFilePath2)
            Dim sExt2 As String = UCase(oFileInfo2.Extension).Substring(1, 3)
            Try
                If sExt1 = "PDF" Then 'Elemento1
                    AddPdf1(sFromFilePath1, oPdfDoc, oPdfWriter)
                End If
                If sExt2 = "PDF" Then 'Elemento2
                    AddPdf2(sFromFilePath2, oPdfDoc, oPdfWriter)
                End If
            Catch ex As Exception
                MessageBox.Show("Ummm, algo fallo")
            End Try
            'FIN FOR MODIFICADO


            Try

                Try 'mio
                    oPdfDoc.Close()
                Catch ex As Exception 'mio
                    MessageBox.Show("No se cierra el documento") 'mio
                End Try 'mio
                Try 'mio
                    oPdfWriter.Close()
                Catch ex As Exception 'mio
                    MessageBox.Show("No se cierra la escritura") 'mio
                End Try 'mio

            Catch ex As Exception
                Try
                    System.IO.File.Delete(sOutFilePath)
                Catch ex2 As Exception
                    MessageBox.Show("No va tio, supuestamente esto borraba el solito, pero NO LO HACEEEEEEE")
                End Try
            End Try

            oPdfDoc.Close() 'mio
            If (oPdfDoc.IsOpen()) Then 'mio
                MessageBox.Show("Esto no se cierra ni a la de tres") 'mio
            End If 'mio
            oPdfWriter.Close() 'mio
        End If 'mio


        Dim oFolders As String() = Directory.GetDirectories(sFolderPath)
        For i As Integer = 0 To oFolders.Length - 1
            Dim sChildFolder As String = oFolders(i)
            Dim iPos As Integer = sChildFolder.LastIndexOf("\")
            Dim sFolderName As String = sChildFolder.Substring(iPos + 1)

            ProccessFolder(sChildFolder)

        Next

    End Sub

    Sub AddPdf1(ByVal sInFilePath As String, ByRef oPdfDoc As iTextSharp.text.Document, ByVal oPdfWriter As PdfWriter)

        Dim oDirectContent As iTextSharp.text.pdf.PdfContentByte = oPdfWriter.DirectContent
        'Dim oPdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sInFilePath)
        'Se avisa al programador de que esta linea fue comentada para convertir la variable en global y asi poder pararla mas tarde
        'supusta correccion
        oPdfReader1 = New iTextSharp.text.pdf.PdfReader(sInFilePath)
        Dim iNumberOfPages As Integer = oPdfReader1.NumberOfPages
        Dim iPage As Integer = 0

        Do While (iPage < iNumberOfPages)
            iPage += 1
            oPdfDoc.SetPageSize(oPdfReader1.GetPageSizeWithRotation(iPage))
            oPdfDoc.NewPage()

            Dim oPdfImportedPage As iTextSharp.text.pdf.PdfImportedPage = _
                oPdfWriter.GetImportedPage(oPdfReader1, iPage)
            Dim iRotation As Integer = oPdfReader1.GetPageRotation(iPage)
            If (iRotation = 90) Or (iRotation = 270) Then
                oDirectContent.AddTemplate(oPdfImportedPage, 0, -1.0F, 1.0F, 0, 0, oPdfReader1.GetPageSizeWithRotation(iPage).Height)
            Else
                oDirectContent.AddTemplate(oPdfImportedPage, 1.0F, 0, 0, 1.0F, 0, 0)
            End If
        Loop
        'mio
        'oPdfReader.Close()
    End Sub



    Sub AddPdf2(ByVal sInFilePath As String, ByRef oPdfDoc As iTextSharp.text.Document, ByVal oPdfWriter As PdfWriter)

        Dim oDirectContent As iTextSharp.text.pdf.PdfContentByte = oPdfWriter.DirectContent
        'Dim oPdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sInFilePath)
        'Se avisa al programador de que esta linea fue comentada para convertir la variable en global y asi poder pararla mas tarde
        'supusta correccion
        oPdfReader2 = New iTextSharp.text.pdf.PdfReader(sInFilePath)
        Dim iNumberOfPages As Integer = oPdfReader2.NumberOfPages
        Dim iPage As Integer = 0

        Do While (iPage < iNumberOfPages)
            iPage += 1
            oPdfDoc.SetPageSize(oPdfReader2.GetPageSizeWithRotation(iPage))
            oPdfDoc.NewPage()

            Dim oPdfImportedPage As iTextSharp.text.pdf.PdfImportedPage = _
                oPdfWriter.GetImportedPage(oPdfReader2, iPage)
            Dim iRotation As Integer = oPdfReader2.GetPageRotation(iPage)
            If (iRotation = 90) Or (iRotation = 270) Then
                oDirectContent.AddTemplate(oPdfImportedPage, 0, -1.0F, 1.0F, 0, 0, oPdfReader2.GetPageSizeWithRotation(iPage).Height)
            Else
                oDirectContent.AddTemplate(oPdfImportedPage, 1.0F, 0, 0, 1.0F, 0, 0)
            End If
        Loop
        'mio
        'oPdfReader.Close()
    End Sub

    Public Sub btnProcess(ByVal sFromPath)
        If Not Directory.Exists(sFromPath) Then
            MsgBox("Folder does not exist")
            Exit Sub
        End If
        ProccessFolder(sFromPath)
        MessageBox.Show("Proceso terminado, asegurese de que la plicacion ha dado el resultado esperado (y compruebe que no se han borrado ni modificado documentos de por ahi)")
        oPdfReader1.Close()
        oPdfReader2.Close()
    End Sub



    Public Sub moverPdf(ByVal ruta1, ByVal ruta2, ByVal ruta3)

        FileCopy(ruta1, ruta2)

        System.IO.Directory.Delete(ruta3, True)
        MessageBox.Show("Proceso terminado completamente")
    End Sub
 
End Class

Disfrutadlo, nos vemos en el foro, adioooooooooooooooooooooooos
5  Programación / .NET (C#, VB.NET, ASP) / no puedo borrar pdf recien creado en vb.net en: 31 Mayo 2013, 19:10 pm
Pues eso señores.

Tengo una clase vb.net que le pasan rutas (en las cuales crearemos, moveremos y borraremos los archivos pdf).

Detalles: tengo dos pdf, Archivo1.pdf y Archivo2.pdf. En la carpeta NewCarpeta los tengo bien guardados. Hasta ahora bien.
Empezamos con el lio. Creo otro pdf al que llamo ArchivoUnido.pdf, el cual tiene dos paginas (la pagina 1 es Archivo1.pdf, y la pagina 2 es Archivo2.pdf (solo el contenido)), asi que en la carpeta NewCarpeta tengo 3 pdf (Archivo1 y 2 y ArchivoUnido).

Una vez he realizado esta operacion de unir los pdf, lo que hago es copiar ArchivoUnido en otra ruta (Ahora tengo 4 pdf, ArchivoUnido en una ruta y ArchivoUnido,Archivo1,Archivo2 en otra ruta).
En ese momento quiero borrar la carpeta donde estan Archivo1 y Archivo2, ya que no me hacen falta.

Peo al intentar borrar esa carpeta me salta un error diciendo que Archivo1 y 2 estan siendo utilizados por otro.

No se quien estara usandolos si ya ha terminado el metodo de union de pdf.

¿Podria alguien decirme como puedo borrar esa carpeta?
¿o como hacer que nadie este usando los pdf?
¿o cualquier otra sugerencia?
¿uso otra forma para unir pdf menos liosa?
¿que debo hacer?

De antemano, gracias
6  Sistemas Operativos / Windows / Como borrar carpeta que requiere permisos de system en: 28 Mayo 2013, 12:37 pm
Hola foro.

El otro dia apagando el ordenador me salio que estaba instalando actualizaciones de wondows (el mio es W7), pero tenia prisa (una urgencia de eso mayor (llegaba tarde al trabajo)) y tuve que apagar el ordenador dandole el tiron cable (ya que en el trabajo uso ese mismo portatil) y claro se interrumpio la instalacion.

Al dia siguiente lo deje actualizar y todo el rollo (me va fenimela el portatil), pero desde ese dia tengo en C: una carpeta de esas que te sale cuando interrumpes la instalacion de actualizaciones (las que son del tipo 89a23d548d871245a) y quiero borrarla, pero me dice que necesito tener permisos system, o que system me de permisos o algo asi.

Intento cambiar los permisos (propiedades->seguidad->permisos etc, todo el proceso normal para cambiar permisos) pero no me permite modificarlos.

¿Alguna sugerencia?
7  Programación / Programación Visual Basic / Re: Problemas con dll EZTW32.dll en: 23 Mayo 2013, 10:21 am
Mil millones de gracias.

Me pondre a ello en cuanto antes.

Te debo la vida.

Si necesitas lo que sea, buscame por el foro
8  Programación / Programación Visual Basic / Re: Como importar datos de una hoja de calculo excel a una BD sql en: 22 Mayo 2013, 12:56 pm
Buenas noticias (y malas). La sintaxis de antes solucionada (no era nada) pero ha surgido un problemon....

Resulta que no puedo realizar select into cuando se trata de control de BD en vb.net.

Tengo que usar ado.net para pasar datos excel a access.

¿Pero, como hago eso?

Hay que tener en cuenta que el excel es de varias paginas.

De antemano, gracias
9  Programación / Programación Visual Basic / Re: Problemas con dll EZTW32.dll en: 22 Mayo 2013, 10:29 am
Gracias por la aclaracion.

¿Podrias decirme como me descargo eso, el ImagineMan.net Twain?

Es que en los links que me has dado no encuentro para descargar la dll o lo que sea.

Gracias de antemano
10  Programación / Programación Visual Basic / Re: Problemas con dll EZTW32.dll en: 21 Mayo 2013, 13:17 pm
Esos enlaces me llevan al enlace que yo puse anteriormente, el que daba error
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines