heyy,
ich hab mir ein kleines programm zusammen gebastelt jedoch habe ich jetzt das problem, dass er beim ausführen das gewünschte ereigniss nur einmal ausführt und leider nur eine zufällige zeile aus meinem text dokument.
bin mit meinem begrenzten latein am ende und hoffe hier kann mir jemand helfen
ich hab mir ein kleines programm zusammen gebastelt jedoch habe ich jetzt das problem, dass er beim ausführen das gewünschte ereigniss nur einmal ausführt und leider nur eine zufällige zeile aus meinem text dokument.
bin mit meinem begrenzten latein am ende und hoffe hier kann mir jemand helfen
VB.NET-Quellcode
- Imports System.Windows.Forms.SendKeys
- Imports System.IO
- Public Class SGG
- Dim Zahlen() As String
- Dim Zeile As String
- Dim Paar1, Paar2, Paar3 As String
- Dim r As New System.Random
- Dim Zufall As New System.Random
- Dim Zahlx As Integer
- Private Sub SGG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Zahlen = IO.File.ReadAllLines("C:\koords.txt")
- End Sub
- Private Sub TeilenBt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
- 'Zeilen zählen
- Dim z As Integer = 0
- For Each Line As String In Zahlen
- z += 1
- Next
- Zeile = Zahlen(r.Next(0, z))
- Zahlx = Zufall.Next(6, 13)
- For b = 0 To Zahlx Step 1
- System.Threading.Thread.Sleep(1000)
- Next b
- Paar1 = Zeile.Substring(0, 2) 'Ab zeichen 0, 2 Zeichen lang
- Paar2 = Zeile.Substring(2, 3) 'Ab zeichen 2, 3 Zeichen lang
- Paar3 = Zeile.Substring(5, 2) 'Ab zeichen 5, 2 Zeichen lang
- txt1.Text = Paar1
- txt2.Text = Paar2
- txt3.Text = Paar3
- Rich1.Text = Paar1 & vbCrLf & Paar2 & vbCrLf & Paar3
- SendKeys.Send("{TAB}")
- SendKeys.Send("{TAB}")
- SendKeys.Send("{TAB}")
- SendKeys.Send(Paar1)
- SendKeys.Send("{TAB}")
- SendKeys.Send(Paar2)
- SendKeys.Send("{TAB}")
- SendKeys.Send(Paar3)
- SendKeys.Send("{TAB}")
- SendKeys.Send("{TAB}")
- SendKeys.Send("2500")
- SendKeys.Send("{TAB}")
- SendKeys.Send("{TAB}")
- SendKeys.Send("{TAB}")
- SendKeys.Send("{TAB}")
- SendKeys.Send("{TAB}")
- SendKeys.Send("{DOWN}")
- SendKeys.Send("{DOWN}")
- SendKeys.Send("{DOWN}")
- SendKeys.Send("{DOWN}")
- SendKeys.Send("{TAB}")
- SendKeys.Send("{ENTER}")
- SendKeys.Send("{F5}")
- End Sub
- End Class