Temas

Buenas
Estoy haciendo una aplicación que me retorne el texto que hay dentro de cajas de edicion de aplicaciones externas (cliente de mail, word, excel, msn, etc) a la mia pero solo puedo llegar hasta ver el texto del título de la ventana, la clase, posicion de la ventana, estado, etc., pero no logro resolver el tema de leer el texto que pueda haber dentro de esa ventana.
Lo demás es posible a traves de APIs, pero solo puedo ver captions y textos dentro de mi propia aplicación.
Esto esta orientado a reemplazar un keylogger ya que muchas veces son detectables y requieren de muchos factores para ser realmente invisibles e indetectables.
Les agradeceré si alguien me da una manito con esto.
Saludos

Buenas
Estoy haciendo un mail sender y tengo 2 problemas:

El primero es que no puedo enviar con otro smtp que el del proveedor en el cual este conectado. en mi caso arnet. He probado con infinidad de otros servidores y todos me dicen que no admiten relay, ni siquiera pude hacerlo con localhost usando minirelay y otros servidores locales.
El segundo problema es con el tema de ocultar la ip. He probado varias formas de reemplazar las headers y demas metodos pero no logro ocultarla ni siquiera usando soft externos como hide ip platinium y otros de ese tipo.

Aqui les dejo parte del codigo que estoy usando

Código [Seleccionar] Expandir


            WS.SendData "HELO " & TxDesde.Text & vbCrLf
            EsperarPor "250", msgret, "220"
            If Cancelar Then
               GoTo Fin
            End If
           
            TxLog.Text = TxLog.Text + vbNewLine
            TxLog.Text = TxLog.Text & "Enviando mail #" & i
            TxLog.SelStart = Len(TxLog.Text)
       
            WS.SendData "MAIL FROM: <" & TxDesde.Text & ">" & vbCrLf
            EsperarPor "250", msgret, "220"
            If Cancelar Then
               GoTo Fin
            End If
            Destinatario = "RCPT TO: <" & TxDestino.Text & ">" & vbCrLf
            WS.SendData Destinatario
            EsperarPor "250", msgret, "251"
            If Cancelar Then
               GoTo Fin
            End If
            WS.SendData "DATA" & vbCrLf
            EsperarPor "354", msgret
            If Cancelar Then
               GoTo Fin
            End If
           
            TxLog.Text = TxLog.Text + vbNewLine
            TxLog.Text = TxLog.Text & "conectando..."
            TxLog.SelStart = Len(TxLog.Text)
           
            WS.SendData "From: " & TxDesde.Text & vbCrLf ' El Subject (Titulo)
       
            WS.SendData Asunto & vbCrLf ' El Subject (Titulo)
           
            WS.SendData "To: " & TxDestino.Text & vbCrLf ' El Subject (Titulo)
           
            WS.SendData "cc: " & TxDestino.Text & vbCrLf ' El Subject (Titulo)
   
            WS.SendData texto & vbCrLf



Espero alguien me pueda ayudar, desde ya muchas gracias

Buenas a todos
Quisiera saber si alguien tiene alguna idea de como automatizar funciones de radmin como la transferencia de archivos y la autenticacion de psw desde visual basic.
Por mas que he intentado no he podido decompilar radmin ni he logrado igualar su funcionamiento con ningun codigo.
Agradecere tooooooddaaaaaaa informacion del tema

Saludos

Buenas.
Veo una cantidad enorme de post referidos a como obtener efectos u otras transformaciones en photoshop que realmente a veces tienen soluciones complejas para alguien que esta iniciandose.
Yo sugiero que prueben con herramientas vectoriales como corel o freehand para efectuar sobre todo transformaciones y efectos en las fuentes.
Ademas de hacerse mucho mas rapido tenemos la ventaja de que una vez hecho y guardado el documento siempre podremos modificarlo sin perder calidad en la imagen final ya que justamente para eso son estas herramientas, por mas que acomodemos mil veces cualquier cosa (vectorial, osea creada en este espacio) nunca tendremos pixeles a la vista ni nada de eso, todo lo que creemos en forma vectorial podemos agrandarlo, achicarlo o transformarlo a nuestro gusto con solo un par de clicks.
Para lograr un mejor acabado y en menos tiempo sostengo a muerte el uso de ambas utilidades, photoshop o fireworks y corel o freehand entre otros programas..

Espero haber sido claro y que si puede alguien explicarme por que la restriccion manifiesta de usar solo photoshop.

Saludos

Buenas:
Alguien sabe si esta funcion funciona en win Xp pues en la misma aplicacion corre perfecto sobre 98 pero cuando lo pruebo en xp no me retorna ningun valor
el codigo de la funcion es este

Código [Seleccionar] Expandir


Public Function EnumKey(lPredefinedKey As Long, sKeyName As String, vSubKeys As Variant) As Long
' Descripción:
'   Esta función busca todas las subclaves de una dada y forma una matriz con ellas en
'   el parámetro vSubKeys.
'
'   Si queremos saber las subclaves de una de las principales debemos dejar en blanco
'   el parámetro sKeyName
'
'   Devuelve el número de subclaves o -1 si hubo algún error
'
' Sintaxis:
'   variable = EnumKey (ClaveRaíz, NombreDeClave,SubClaves)
'
'   ClaveRaíz debe ser HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
'   o HKEY_USERS
'
'   NombreDeClave es el nombre de la clave cuyas subclaves queremos obtener,
'   puede incluir subclaves (por ejemplo "Clave1\SubClave1")
'
'   SubClaves es un variant que recogerá la matriz de subclaves obtenida

    Dim lRetVal As Long             'resultado de las funciones del API
    Dim hKey As Long                'handle de la clave abierta
    Dim sSubKeyName As String       'nombre de la subclave
    Dim lSubKeyLen As Long          'tamaño del nombre de la subclave
    Dim lMaxSubKeyLen As Long       'tamaño del nombre de subclave más grande
    Dim lNumSubKeys As Long         'número de subclaves existentes
    Dim ftLastWriteTime As FILETIME 'fecha última modif. de la clave (sólo NT)
    Dim lIndex As Long              'índice de la subclave
    Dim sSubClaves() As String      'matriz para contener las subclaves
   
    EnumKey = -1
    'si tenemos nombre de clave la abrimos
    If sKeyName <> "" Then
        lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
    Else
        hKey = lPredefinedKey
    End If
    'obtenemos el nº de subclaves y el tamaño máximo de sus nombres
    lRetVal = RegQueryInfoKeyEx(hKey, 0&, 0&, 0&, lNumSubKeys, lMaxSubKeyLen, 0&, 0&, 0&, 0&, 0&, ftLastWriteTime)
    If lRetVal = 0 Then
        'si no encontré subclaves
        If lNumSubKeys = 0 Then
            EnumKey = 0
        Else
            EnumKey = lNumSubKeys
            lNumSubKeys = lNumSubKeys - 1       ' va de 0 a n-1
            lMaxSubKeyLen = lMaxSubKeyLen + 1   ' dejar sitio para el 0 de fin de string en c
            'dimensionamos la matriz
            ReDim sSubClaves(lNumSubKeys)
            'recorremos las subclaves (en orden inverso, como dice la ayuda ¿?)
            For lIndex = lNumSubKeys To 0 Step -1
                lSubKeyLen = lMaxSubKeyLen
                sSubKeyName = String(lMaxSubKeyLen, 0)
                lRetVal = RegEnumKeyEx(hKey, lIndex, sSubKeyName, lSubKeyLen, 0&, 0&, 0&, ftLastWriteTime)
                If lRetVal = 0 Then
                    sSubClaves(lIndex) = Left$(sSubKeyName, lSubKeyLen)
                Else
                    EnumKey = -1
                End If
            Next lIndex
        End If
    Else
        EnumKey = -1
    End If
    'devolvemos el resultado
    vSubKeys = sSubClaves()
    'cerramos la clave
    If sKeyName <> "" Then RegCloseKey (hKey)
End Function
gracias desde ya


Buenas a todos
he estado leyendo los post sobre la firma pero en la opcion de mi perfil no me deja agregar una firma como puedo hacer para no tener que poner la etiqueta cada ves que publico un tema como por ejemplo:

asi iria mi firma:



gracias por la ayuda