Mensajes

Buenas a todos.
Ese es mi problema, ejecutar un vbscript en vb.net al vuelo.

Se puede hacer mediante archivos temporales, pero lo que a mi me interesa es crear una función en vbscript y poder ejecutarla desde mi aplicación, obviamente recuperando el resultado de esa función.

Si alguno me puede ayudar se lo agradecería.

Saludos

Me acabo de resignar a hacer esto. No puedo conseguir el nombre de la clase de este control. (es donde se lee la conversacion de msn)
Obtuve mediante funciones estos dos nombres: DirectUIHWND que creo que es para skins y el IMWindowClass que es donde uno va tipiando el mensaje si no me equivoco. Pero el otro control... ni aparece.
Asi que voy a tener que usar otro metodo porque esta app la tengo que tener mañana :S

Si a alguien le interesa posteo el code de como saque esa informacion.

Bueno... vamos avanzando
Tengo el codigo para obtener el handle de la ventana... ahora mi problema es como a partir de ese handle puedo obtener los controles que tiene esa ventana.
Sigo investigando, si alguien me da una mano, sera aceptada.

Saludos!

Código [Seleccionar] Expandir


    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32


Public Function GetActiveWindowTitle() As String
        Dim MyStr As String
        MyStr = New String(Chr(0), 100)
        GetWindowText(GetForegroundWindow, MyStr, 100)
        MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)

        Return MyStr
    End Function

Dim nWnd As IntPtr
     
'nWnd contiene el handle
nWnd = FindWindow(Nothing, GetActiveWindowTitle)


EDITADO:
Para orientar un poco
http://www.recursosvisualbasic.com.ar/htm/listado-api/195-obtener-texto-de-ventanas-externas.htm

Hola, debes sacar el texto de la ventana, lo podes hacer facil con api's como findwindow y demas...sacando el nombre de clase de la ventana y del control textbox...

saludos.

Entiendo...
y en el caso de que sea un RichTextBox? 
Por ahi lei...dicen... es casi imposible. Tengo mis dudas
no creo que ya tenga que explicar que quiero hacer jaja

Saludos!

Buenasssss
Tengo una duda, estoy haciendo una aplicacion y necesito sacar datos de otra.
Por ejemplo... hay una aplicacion con varios campos de texto... el objetivo es obtener esos datos pedo desde una app echa por mi.
Ejemplo practico:
Abro Inicio - Ejecutar. => Escribo la ruta de un archivo a ejecutar, por ejemplo "notepad.exe" (Todavia no apreto Enter)
Abro mi aplicacion y obtengo lo que hay escrito en el campo de texto del cuadro Ejecutar.... en este caso seria: "notepad.exe"
Me explico?

Si a alguno se le ocurre me seria de ayuda. Mientras tanto voy a seguir buscando y si lo encuentro lo posteo.

Gracias!

Bueno, les comento mi duda.
Necesito imprimir el contenido de un PictureBox, pero... lo que hay dentro no es una imagen. Simplemente uso el PictureBox como contenedor.
Lo que necesito imprimir es lo que dibujo dentro de el.

Con este codigo dibujo el grafico:

Código [Seleccionar] Expandir


  Private Sub Pic_Graf1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Pic_Graf1.Paint
       
        Dim Superficie As Graphics
        Dim Lapiz As Pen
        Dim RectanguloSuperior As Rectangle
        Dim RectanguloInferior As Rectangle
        Dim RectanguloRelleno As Rectangle
        Dim Relleno As SolidBrush
        Dim Fuente As Font

        If ActivateGraph_1 = False Then
            Pic_Graf1.Image = My.Resources._50px_error
            Me.Refresh()
            Exit Sub
        Else
            Pic_Graf1.Image = Nothing
        End If

        Superficie = e.Graphics
        Lapiz = New Pen(Color.Black, 2)

        Relleno = New SolidBrush(Color.Gray)
        Fuente = New Font("Arial", 12, FontStyle.Bold)
        RectanguloSuperior = New Rectangle(5, 5, 100, 50)
        RectanguloInferior = New Rectangle(5, 15, 100, 50)
        RectanguloRelleno = New Rectangle(10, 30, 95, 15)
        Superficie.FillRectangle(Relleno, RectanguloRelleno)
        Superficie.FillEllipse(Relleno, RectanguloInferior)

        Dim Valor1 As Integer = iPorcent_1_1
        Dim Valor2 As Integer = iPorcent_1_2
        Dim Valor3 As Integer = iPorcent_1_3
        Dim Valor4 As Integer = iPorcent_1_4

        Dim Porcent1 As Integer
        Dim Porcent2 As Integer
        Dim Porcent3 As Integer
        Dim Porcent4 As Integer

        Porcent1 = (Valor1 * 360) / 100
        Porcent2 = ((Valor2 * 360) / 100)
        Porcent3 = ((Valor3 * 360) / 100)
        Porcent4 = ((Valor4 * 360) / 100)

        'Rellena las secciones con diferentes colores
        Relleno.Color = pic_ref1.BackColor
        Superficie.FillPie(Relleno, RectanguloSuperior, 0, Porcent1)

        Relleno.Color = pic_ref2.BackColor
        Superficie.FillPie(Relleno, RectanguloSuperior, Porcent1, Porcent2)

        Relleno.Color = pic_ref3.BackColor
        Superficie.FillPie(Relleno, RectanguloSuperior, Porcent1 + Porcent2, Porcent3)

        Relleno.Color = pic_ref4.BackColor
        Superficie.FillPie(Relleno, RectanguloSuperior, Porcent1 + Porcent2 + Porcent3, Porcent4)
    End Sub



Y ahora... lo que yo me pregunto... es como imprimo el grafico resultante?

Saludos.

La verdad me parece una aplicacion muy interesante.
Nunca se esta a salvo de los bats.

Saludos.

Opino lo mismo.
Igualmente, cuando cierran la encuesta?

Muy simple e interesante el codigo

Atte.
Mariano G, Malomo

Tiene razon MANULOMM, tiene que haber algo que lo reciba o encontrar algun agujero de seguridad xD
Con respecto a generar la imagen a partir de su cod binario, podrias  mostrar el code?

Saludos.