Visual Basic Forum

Megalow_ · Verfasst am: 04.07.2007, 18:16

[code]
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim bot As Object
bot = CreateObject("wscript.shell")

For t As Integer = 1 To 150
System.Threading.Thread.Sleep(10)
Next
SendKeys.Send(TextBox4.Text & TextBox1.Text & "{ENTER}")
SendKeys.Send(TextBox3.Text & "{ENTER}")
SendKeys.Send(TextBox4.Text & TextBox2.Text & "{ENTER}")
SendKeys.Send(TextBox3.Text & "{ENTER}")

End Sub
End Class
[/code]

Hab ich mal gemacht, alles schön & gut, aber jetzt wird

[code]
SendKeys.Send(TextBox4.Text & TextBox1.Text & "{ENTER}")
SendKeys.Send(TextBox3.Text & "{ENTER}")
SendKeys.Send(TextBox4.Text & TextBox2.Text & "{ENTER}")
SendKeys.Send(TextBox3.Text & "{ENTER}")
[/code]

zwar nach 3.sek abständne gesendet, aber ich will ja, dass wie oben beschrieben haben.
Die anleitungen von euch sind zwar klasse, aber ich komm damit nicht klar, weiß auch nicht wieso, lieht wahrscheinlich heute an den Stress x'D

Also ich möchte

[code]
SendKeys.Send(TextBox4.Text & TextBox1.Text & "{ENTER}")
<<< 3 sek >>>
SendKeys.Send(TextBox3.Text & "{ENTER}")
<<< 3 sek >>>
SendKeys.Send(TextBox4.Text & TextBox2.Text & "{ENTER}")
<<< 3 sek >>>
SendKeys.Send(TextBox3.Text & "{ENTER}")
[/code]

Jetzt sendet er das aber

[code]
SendKeys.Send(TextBox4.Text & TextBox1.Text & "{ENTER}")
SendKeys.Send(TextBox3.Text & "{ENTER}")
SendKeys.Send(TextBox4.Text & TextBox2.Text & "{ENTER}")
SendKeys.Send(TextBox3.Text & "{ENTER}")
<<< 3 sek >>>
SendKeys.Send(TextBox4.Text & TextBox1.Text & "{ENTER}")
SendKeys.Send(TextBox3.Text & "{ENTER}")
SendKeys.Send(TextBox4.Text & TextBox2.Text & "{ENTER}")
SendKeys.Send(TextBox3.Text & "{ENTER}")
<<< 3 sek >>>

etc.
[/code]

Ich krieg es einfach nicht gebacken & wisst ihr was, mir ist das gerade richtig Peinlich. *schäm*
Weiß einer zufällig, wie man das machen kann ^.^

MFG

Bahamut_ · « Moderator » Anmeldedatum: 12.12.2006 Beiträge: 250

[code]
Public Class Form1

Public counter As Single = 1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Starten"
Timer1.Enabled = False
Timer1.Interval = 3000
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Starten" Then
Timer1.Enabled = True
Button1.Text = "Stoppen"
ElseIf Button1.Text = "Stoppen" Then
Timer1.Enabled = False
Button1.Text = "Starten"
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Select Case counter
Case 1
SendKeys.Send(TextBox4.Text & TextBox1.Text & "{ENTER}")
Case 2
SendKeys.Send(TextBox3.Text & "{ENTER}")
Case 3
SendKeys.Send(TextBox4.Text & TextBox2.Text & "{ENTER}")
Case 4
SendKeys.Send(TextBox3.Text & "{ENTER}")
counter = 0
End Select
counter = counter + 1
End Sub

End Class[/code]
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/

Megalow_ · Verfasst am: 06.07.2007, 18:44

Kay & nun habe ich noch eine Frage.
Kann man eine Combo box nehmen, anstatt die vielen textboxen zu nehmen ?
Also z.B ichs chreibe in einer combobox 100 sachen rein, bzw. texte.
Dann will ich die sendkeys benutzen.
geht das villt auch, also dass man dann nciht so viele Textboxen braucht ?

Versteht ihr eventuell was ich genau meine ?
MFG

Bahamut_ · « Moderator » Anmeldedatum: 12.12.2006 Beiträge: 250

1. Möglichkeit:

Geht alle Indexeinträge durch, gibt halt Fehler wenns weniger wie 4 sind, usw is nur der ganz grobe Code

[code]
Public counter As Single = 0

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Select Case counter
Case 0
SendKeys.Send(ComboBox1.Items.Item(counter) & "{ENTER}")
Case 1
SendKeys.Send(ComboBox1.Items.Item(counter) & "{ENTER}")
Case 2
SendKeys.Send(ComboBox1.Items.Item(counter) & "{ENTER}")
Case 3
SendKeys.Send(ComboBox1.Items.Item(counter) & "{ENTER}")
counter = -1
End Select

counter = counter + 1

End Sub
[/code]

2. Möglichkeit:

Nimmt immer das markierte Element der Combobox, wenn keins markiert ist machts nix.

[code]
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If Not ComboBox1.SelectedItem = "" Then
SendKeys.Send(ComboBox1.SelectedItem & "{ENTER}")
End If

End Sub
[/code]

Mit den beiden Codes sollte alles möglich sein was du brauchst.
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/