Analyse:
Kein Virus!!!
Ist in VB geschrieben(wie alle Programme vom TE).
Sendet auch nur Tasten an das aktive Fenster also nicht hidden.
Was unnötig ist, ist das die API-Funktion FindWindow eingebunden wurde aber gar nicht gebraucht wird.
Code:
PHP Code:
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
Interaction.AppActivate(Process.GetProcessesByName(("" & Me.TextBox4.Text & ""))(0).Id)
Me.Timer1.Stop
SendKeys.Send("{Enter}")
End Sub
Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub Timer3_Tick(ByVal sender As Object, ByVal e As EventArgs)
Interaction.AppActivate(Process.GetProcessesByName(("" & Me.TextBox4.Text & ""))(0).Id)
Me.Timer3.Stop
SendKeys.Send("{Left}")
SendKeys.Send("{Left}")
SendKeys.Send("{Enter}")
End Sub
Private Sub Timer4_Tick(ByVal sender As Object, ByVal e As EventArgs)
Interaction.AppActivate(Process.GetProcessesByName(("" & Me.TextBox4.Text & ""))(0).Id)
Me.Timer4.Stop
SendKeys.Send("{Left}")
SendKeys.Send("{Left}")
SendKeys.Send("{Left}")
SendKeys.Send("{Enter}")
End Sub
Private Sub Timer5_Tick(ByVal sender As Object, ByVal e As EventArgs)
Interaction.AppActivate(Process.GetProcessesByName(("" & Me.TextBox4.Text & ""))(0).Id)
Me.Timer5.Stop
SendKeys.Send("{Left}")
SendKeys.Send("{Left}")
SendKeys.Send("{Left}")
SendKeys.Send("{Left}")
SendKeys.Send("{Enter}")
End Sub
Private Sub Timer6_Tick(ByVal sender As Object, ByVal e As EventArgs)
Interaction.AppActivate(Process.GetProcessesByName(("" & Me.TextBox4.Text & ""))(0).Id)
Me.Timer6.Stop
SendKeys.Send(Me.TextBox1.Text)
SendKeys.Send("{Enter}")
SendKeys.Send(Me.TextBox2.Text)
SendKeys.Send("{Enter}")
End Sub
Wenn du das mit SendMessage nicht verstehst versuchs doch erstmal mit ControlSend das ist viel einfacher. Und lass mal dieses ständige releasen von Programmen die immer das gleiche machen.