Ingresar texto en aplicación activa en Visual Basic
Buen día expertos de Visual Basic, tengo una duda, ¿Como puedo mandar cadenas de texto a la aplicación activa?. Estoy intentado hacer algo así como los lectores de códigos de barras, que envían lo que hayan leído a cualquier aplicación activa a donde esté el cursor y ahí lo escriben.
¿Me podrían ayudar con eso? Por favor.
De antemano muchas gracias. Saludos.
Nota: tengo en Visual Basic 2013.
1 respuesta
Imports System. Threading
Public Class Form1
Dim a As New Process
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim App As Process() = Process.GetProcessesByName("notepad")
If App.Length > 0 Then
AppActivate(App(0).Id)
End If
' Thread.Sleep(1000)
SendKeys.SendWait("Hola")
Thread.Sleep(1000)
End Sub
End ClassEste código trae al frente un Notepad que ya tengas abierto (tendrías que sustituir el nombre por el de tu aplicación) y luego controlar tu aplicación con los comandos que admite SendKeys.
https://msdn.microsoft.com/en-us/library/aa266279%28v=vs.60%29.aspx
Si no te funciona bien, tienes alternativas como AutoIT que podrían serte más prácticas que programar todo ese follón desde casi cero.
https://www.autoitscript.com/site/
Suerte.
