2016-05-07 1 views
-2

vb.net SendKeys.Send (TextBox1.Text) Schreib langsame Simulation sendenvb.net SendKeys.Send (TextBox1.Text) Schreib langsame Simulation senden

Process.Start("notepad") 

SendKeys.Send(TextBox1.Text) 

ich schreiben, was in TextBox1 ist, zu schreiben, sehr langsam ich möchte simulieren schreiben vereinen man

+0

Bitte geben Sie eine vollständige und klare Erklärung von genau was Sie wollen. Willst du damit sagen, dass du immer nur eine Figur mit einer Verzögerung dazwischen schicken willst? Wenn ja, sag das. Bei der Programmierung geht es darum, präzise zu sein. Code kann nicht vage sein, so dass die Beschreibung dessen, was Code zu tun hat, nicht vage sein kann. – jmcilhinney

+0

Ja. senden Sie einen Charakter zu einer Zeit mit einer Verzögerung dazwischen .... Entschuldigung, ich weiß nicht Englisch –

+0

Also, wie machst du normalerweise etwas mehrmals mit einer Verzögerung dazwischen? Verwenden eines "Timers". Was Sie nach jeder Verzögerung tun, ändert das nicht. – jmcilhinney

Antwort

0
Sub SimulateWriting() ' Call me to start 
    With Timer ' Initialize the timer 
     .BeginInit() 
     .AutoReset = True 
     .Enabled = True 
     .InitializeLifetimeService() 
     .EndInit() 
     .Start() ' Start typing now 
    End With 
    Process.Start("notepad") ' Start Notepad 
End Sub 
WithEvents Timer As New Timers.Timer(1000) ' The timer with its interval set to 1 second (aka 1000 milliseconds) 
Sub Timer_Tick(sender As Object, e As System.Timers.ElapsedEventArgs) Handles Timer.Elapsed ' When one second is elapsed 
    Static Counter As Integer = 0 ' Stores the character position to sendkey 
    SendKeys.Send(Textbox1.Text(Counter)) ' Sends the key 
    Counter += 1 ' Update the counter 
    If Counter >= Textbox1.Text.Length Then ' All characters are sent 
     Counter = 0 ' Reset the counter 
     Timer.Stop() ' No need to send keys again 
    End If 
End Sub