Es geht um ein Spiel das im Inventarraster (5*12) Items liegen hat.
Das Spiel selber sieht vor, das die Itemdaten mit Ctrl+C in die Zwischenablage kopierbar ist.
Nun wollte ich eine Routine haben die "mal eben" die 60 Positionen abgeht, die Daten ausliest und das Ergebnis in eine Textbox packt.
Das setzten der CursorPos geht ohne Probleme. Allerdings "verschluckt irgendwer das ganze Zwischenablage gebastelte. In der Ausgabe fehlen die Informationen von manchen Positionen. Leider immer unterschiedlich. Manchmal stimmts. Meist aber nicht. Ich habe die Vermutung das es ein timing Problem, mit dem "Cursor Positionswechsel" dann "in die Zwischenablage reinschreiben" dann "Zwischenablage in eine Variable schreiben", gibt.
Ich hab schon diverse Dinge ausprobiert, komme aber einfach nicht weiter.
Vielleicht hat irgendjemand einen Tip?
Hier mal der roh Code:
[
Code:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ClipText As String
Dim ClipSplit(61) As String
SetForegroundWindow(HWND)
Dim i As Integer = 0
Dim k As Integer = 0
For i = 0 To 11
For k = 1 To 5
ClipText = ""
SetCursorPos(InvX + ((i + 1) * StepX) - (StepX / 2), InvY + (k * StepY) - (StepY / 2))
SendKeys.Send("^c")
ClipText = Clipboard.GetText()
If ClipText <> "" Then
ClipSplit = Clipboard.GetText().Split(vbCrLf)
TextBox62.Text = TextBox62.Text & vbCrLf & (k + (i * 5)).ToString & "- " & ClipSplit(1).Replace(vbLf, "") & " - " & Trim(ClipSplit(3).Replace(vbLf, ""))
If Clipboard.ContainsText Then Clipboard.Clear()
Do While Clipboard.ContainsText
Loop
End If
Next k
Next i
End Sub
Vielleicht mal als Anschauungsobjekte:
Das Inventar:
und "ein" Ergebnis:
Danke schonmal ...
Ferro
