Código
Imports System.Xml Imports System Imports System.Runtime.InteropServices Imports System.Windows.Forms Public Class Service1 Protected Overrides Sub OnStart(ByVal args() As String) EventLog.WriteEntry("Ready for input") End Sub Protected Overrides Sub OnStop() End Sub Private Sub reloj_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles reloj.Tick Dim xmldoc As XElement = New XElement("http://www.loquesea.com//input.xml") Dim keydown As String = xmldoc.Element("keydown").Value SendKeys.SendWait(keydown) SendKeys.Flush() End Sub End Class
Editado: Se me olvido añadir que hay un timer que regula el tiempo entre pulsacion y pulsación