Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: ArkadyDezhnev en 2 Febrero 2012, 17:17 pm



Título: Simulación de pulsaciones de teclado en un Servicio de Windows (VB .Net)
Publicado por: ArkadyDezhnev 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