elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Simulación de pulsaciones de teclado en un Servicio de Windows (VB .Net)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Simulación de pulsaciones de teclado en un Servicio de Windows (VB .Net)  (Leído 1,876 veces)
ArkadyDezhnev

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Simulación de pulsaciones de teclado en un Servicio de Windows (VB .Net)
« en: 2 Febrero 2012, 17:17 pm »

Hola! Como bien dice el largo titulo que le he puesto al thread, he creado un servicio de windows en VB .Net, con Visual Studio 2010. Lo he generado, instalado y ejecutado, pero no realiza su función, que debería ser simular las pulsaciones del teclado según los datos que recibe de un xml en un servidor web. No tengo ninguna experiencia con servicios, no se si es que SendKeys no se puede usar dentro del mismo. El Servicio se ejecuta con permisos de LocalSystem.Alguien podria ayudarme? Copio el codigo que he usado:

Código
  1. Imports System.Xml
  2. Imports System
  3. Imports System.Runtime.InteropServices
  4. Imports System.Windows.Forms
  5.  
  6. Public Class Service1
  7.  
  8.    Protected Overrides Sub OnStart(ByVal args() As String)
  9.  
  10.        EventLog.WriteEntry("Ready for input")
  11.  
  12.    End Sub
  13.  
  14.    Protected Overrides Sub OnStop()
  15.  
  16.    End Sub
  17.  
  18.    Private Sub reloj_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles reloj.Tick
  19.        Dim xmldoc As XElement = New XElement("http://www.loquesea.com//input.xml")
  20.  
  21.        Dim keydown As String = xmldoc.Element("keydown").Value
  22.  
  23.        SendKeys.SendWait(keydown)
  24.        SendKeys.Flush()
  25.  
  26.  
  27.    End Sub
  28. End Class

Editado: Se me olvido añadir que hay un timer que regula el tiempo entre pulsacion y pulsación


« Última modificación: 2 Febrero 2012, 17:49 pm por raul338 » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines