Hallo Dietmar 74,
offen gestanden habe ich dein Problem auch nicht ganz nachvollziehen können.
Dennoch hier ein Code, der beim Start den Editor (als Beispielprogramm öffnet) und dort „Dies ist ein Test“ reinschreibt.
Wenn es also nur dein Problem ist, in ein bestimmtes Eingabefeld einen Anmeldecode einzugeben, please feel free to modify the code:
Public
Class Form1
' Get a handle to an application window.
Declare Auto
Function FindWindow Lib
"USER32.DLL" ( _
ByVal lpClassName
As String, _
ByVal lpWindowName
As String) As IntPtr
' Activate an application window.
Declare Auto
Function SetForegroundWindow
Lib "USER32.DLL" _
(ByVal hWnd As IntPtr)
As Boolean
Private Sub Button1_Click(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
'Anwendung
muss bereits gestartet sein !!! Nicht erst hier starten
'//Fenster suchen
Dim myHandle As IntPtr = FindWindow("Notepad",
"Unbenannt - Editor")
'//Hier mit dem beliebiegen Fenstername austauschen
' Verify that Calculator is a running process.
If myHandle = IntPtr.Zero
Then
MsgBox("Notepad nicht gestartet")
Return
End
If
' Setzt die Anwendung in den Vordergrund und gibt die Werte ein
SetForegroundWindow(myHandle)
SendKeys.SendWait("111")
SendKeys.SendWait("*")
SendKeys.SendWait("11")
SendKeys.SendWait("=")
End Sub
Private Sub Button2_Click(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles Button2.Click
SetForegroundWindow(RichTextBox1.TextLength)
RichTextBox1.Focus()
SendKeys.SendWait("111")
SendKeys.SendWait("*")
SendKeys.SendWait("11")
SendKeys.SendWait("=")
SendKeys.Send("A")
'SendKeys.Send("^{x}")
SendKeys.Send("{ENTER}")
SendKeys.Send("{ENTER}")
SendKeys.Send("Ende")
End
Sub
Private Sub Button3_Click(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles Button3.Click
SendKeys.SendWait("%{D}")
End Sub
Private Sub Button4_Click(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles Button4.Click
SendKeys.SendWait("%{P}")
End Sub
Private Sub Form1_Load(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles
MyBase.Load
Process.Start("C:\WINDOWS\notepad.exe")
Timer1.Enabled = True
End Sub
Private Sub Button5_Click(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles Button5.Click
Process.Start("C:\WINDOWS\notepad.exe")
End Sub
Private Sub Timer1_Tick(ByVal sender
As System.Object, ByVal e
As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = 200
Timer1.Enabled = True
Dim myHandle As IntPtr = FindWindow("Notepad",
"Unbenannt - Editor")
'//Hier mit dem beliebiegen Fenstername austauschen
'SendKeys.Send("^{x}")
SendKeys.SendWait("D")
SendKeys.SendWait("A")
SendKeys.SendWait("S")
SendKeys.Send(" ")
SendKeys.SendWait("I")
SendKeys.SendWait("S")
SendKeys.SendWait("T")
SendKeys.Send("{ENTER}")
SendKeys.SendWait("ein")
SendKeys.Send(" ")
SendKeys.Send("Test")
SendKeys.Send("{ENTER}")
SendKeys.Send("Ende")
End Sub
Private Sub Form1_FormClosing(ByVal sender
As System.Object, ByVal e
As System.Windows.Forms.FormClosingEventArgs)
Handles MyBase.FormClosing
End
Sub
End
Class
Liebe Grüße Stefan
