canal visual basic .net

Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

Usuarios activos:  45

Foros de programación, recursos, tutoriales, sistemas operativos...

Bienvenido a la zona de foros. Participa en alguno de nuestros foros: Foros de visual basic, foros de visual basic.net foros de Crystal reports, programas gratis, foros de C++ - C# , foros de Java, foros de PHP, foros de ASP.net. Seguro que hay un foro que te servirá de gran utilidad y si no lo encuentras avísanos y crearemos uno nuevo.
Resultados 1 al 2 de 2
  1. #1
    Onelio está desconectado Junior Member Iniciad@
    Fecha de ingreso
    30 ago, 12
    Mensajes
    2

    Question Intentando trabajar con una dll

    Hola gente , soy un poco novato en VB y tengo 3 Problemas


    A ver quiero inyectar una dll en una aplicación ,
    al ser inyectado siempre se abre una ventana con sus cosas (entre ellas 3 botones y 1 cada de texto)

    Pues bien aquí mis dudas :
    -Como puedo escribir en el textbox desde mi aplicación de VB
    -Como puedo pulsar un boton desde mi aplicación de VB
    -Y como Inyectar una DLL(Este no es necesario)



    Por favor ayuda he buscado por todas partes y no me sirve nada.

  2. #2
    Onelio está desconectado Junior Member Iniciad@
    Fecha de ingreso
    30 ago, 12
    Mensajes
    2

    Predeterminado

    Perdon por doble post pero no se editar aquí..xd

    Bueno que el 3 ya no hace falta gracias y el primero lo estoy logrando pero lo envia creo que codificado o mal...

    Código:
    Public Class Form1
        Private Declare Function findwindow Lib "user32.dll" Alias "FindWindowA" (ByVal ipclassname As String, ByVal ipwindowname As String) As IntPtr
        Private Declare Function findwindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
        Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As String) As Integer
        Private Const WM_SETTEXT = &HC
        Private hwnd As IntPtr
        Private f As IntPtr
    
        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
            hwnd = findwindow(vbNullString, TextBox1.Text)
            f = findwindowEx(hwnd, 0, "Edit", vbNullString)
            SendMessage(f, WM_SETTEXT, 0, TextBox2.Text)
        End Sub
    End Class

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •  
Visual Studio .VisualBasic.net .ADO.NET .ASP.NET .Framework .Crystal report
[Visual Basic .NET · Información legal · Condiciones de uso · Publicidad · Contacto · RSS novedades Foro · Inicio]
Un sitio web de Internelia (Ontecnia) © Copyright 2013 canalvisualbasic.net. Todos los derechos reservados