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










Autor


En línea
