ALLE Listboxeinträge mit senkeys Senden

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Dendem.

    ALLE Listboxeinträge mit senkeys Senden

    Hi, ich habe ein programm geschrieben, das mir erleichtert meine blacklist in nem ame abzulaufen ;) aber ich will, anstatt selbst die Zeilen markieren das wennn ich F12 drücke (hab ich mit asynckeystate gemacht) das es zuerst das erste sendet, dann das zweite dannn das dritte. aber falls Item 4 nciht vorhanden ist soll es 4 auch nicht eintragen, also nur die ausgefülten Zeilen.

    Das hintereinander machst du mit der Schleife durch die ListBox Items.
    Hey man das sind alles Grundlegende Sachen von VB. Wenn du nichtmal weißt wie eine Schleife durch eine Liste machst, dann lies dir mal Galileo OpenBooks durch. Wie gesagt 3 Zeilen Code, simpelster art und deswegen bekommste sicher keine Copy & Paste Code von mir. Wenn du Proggen willst, dann musst du auch bereit sein zu lernen und vorallem auch mal VERSUCHEN Probleme SELBSTSTÄNDIG zu lösen. Da sind Google und MSDN gute anlaufstellen.

    Also dennis, das muss man doch wissen :P ;)

    Ich hab das ganze mal so gelöst:
    Das wird jetzt halt n bisschen Copy and Paste :D

    VB.NET-Quellcode

    1. On Error Resume Next
    3. Dim i As Integer
    5. For i = 0 To ListBox1.Items.Count - 0
    7. ListBox1.SelectedIndex = i
    8. ListBox2.SelectedIndex = i
    9. ProgressBar1.Value = i
    10. ProgressBar2.Value = i
    11. Windows.Forms.Cursor.Position = New Point(ListBox1.SelectedItem, ListBox2.SelectedItem)
    12. If ListBox1.SelectedItem = "klick" Then
    13. mouse_event(mouseclickdown, 1, 23, 23, 23)
    14. mouse_event(mouseclickup, 0, 0, 0, 0)
    15. ElseIf ListBox1.SelectedItem = "a" Then
    16. SendKeys.Send(Keys.A)
    17. ElseIf ListBox1.SelectedItem = "b" Then
    18. SendKeys.Send(Keys.B)
    19. ElseIf ListBox1.SelectedItem = "c" Then
    20. SendKeys.Send(Keys.A)
    21. ElseIf ListBox1.SelectedItem = "d" Then
    22. SendKeys.Send(Keys.A)
    23. ElseIf ListBox1.SelectedItem = "e" Then
    24. SendKeys.Send(Keys.A)
    25. ElseIf ListBox1.SelectedItem = "f" Then
    26. SendKeys.Send(Keys.A)
    27. ElseIf ListBox1.SelectedItem = "g" Then
    28. SendKeys.Send(Keys.A)
    29. ElseIf ListBox1.SelectedItem = "h" Then
    30. SendKeys.Send(Keys.A)
    31. ElseIf ListBox1.SelectedItem = "i" Then
    32. SendKeys.Send(Keys.A)
    33. ElseIf ListBox1.SelectedItem = "j" Then
    34. SendKeys.Send(Keys.A)
    35. ElseIf ListBox1.SelectedItem = "k" Then
    36. SendKeys.Send(Keys.A)
    37. ElseIf ListBox1.SelectedItem = "l" Then
    38. SendKeys.Send(Keys.A)
    39. ElseIf ListBox1.SelectedItem = "m" Then
    40. SendKeys.Send(Keys.A)
    41. ElseIf ListBox1.SelectedItem = "n" Then
    42. SendKeys.Send(Keys.A)
    43. ElseIf ListBox1.SelectedItem = "o" Then
    44. SendKeys.Send(Keys.A)
    45. ElseIf ListBox1.SelectedItem = "p" Then
    46. SendKeys.Send(Keys.A)
    47. ElseIf ListBox1.SelectedItem = "q" Then
    48. SendKeys.Send(Keys.A)
    49. ElseIf ListBox1.SelectedItem = "r" Then
    50. SendKeys.Send(Keys.A)
    51. ElseIf ListBox1.SelectedItem = "s" Then
    52. SendKeys.Send(Keys.A)
    53. ElseIf ListBox1.SelectedItem = "t" Then
    54. SendKeys.Send(Keys.A)
    55. ElseIf ListBox1.SelectedItem = "u" Then
    56. SendKeys.Send(Keys.A)
    57. ElseIf ListBox1.SelectedItem = "v" Then
    58. SendKeys.Send(Keys.A)
    59. ElseIf ListBox1.SelectedItem = "w" Then
    60. SendKeys.Send(Keys.A)
    61. ElseIf ListBox1.SelectedItem = "x" Then
    62. SendKeys.Send(Keys.A)
    63. ElseIf ListBox1.SelectedItem = "y" Then
    64. SendKeys.Send(Keys.A)
    65. ElseIf ListBox1.SelectedItem = "z" Then
    66. SendKeys.Send(Keys.A)
    67. ElseIf ListBox1.SelectedItem = "enter" Then
    68. SendKeys.Send(Keys.Enter)
    69. ElseIf ListBox1.SelectedItem = "alt" Then
    70. SendKeys.Send(Keys.Alt)
    71. End If
    72. Next


    Edit:
    ich weiß jetzt aber nicht, ob ichs richtig verstanden hab...

    also die Schleife:
    For i As Integer = 0 To ListBox1.Items.Count - 1
    If GetAsyncKeyState(Keys.F12) Then SendKeys.Send(ListBox1.Items(i))

    Next
    aber ich will jetzt das er vor jedem Word noch ein /kick macht und nach jedem wort enter senden also erste Zeile:
    /kick Player1 ("{ENTER}")
    /kick player2 ("{ENTER}")
    und so weiter, das bekomme ich leider ncht hin, pls help

    Tja, so nen Code is scheiße, sry.
    Aber du frägst ab (lol) ob das drin steht...
    Und das soll warscheinlich ein spammer werden -.-
    ich hätte das so gelößt xDDD :

    VB.NET-Quellcode

    1. For Each item As String In ListBox1.Items
    2. 'mouseevent ...
    3. SendKeys.Send(item)
    4. Next


    das wärs schon ungefähr -.-

    mfg Tim;)

    Nur mal so, ein EDIT ist nur dann ein EDIT, wenn er in einem bestehenden Post von dir gemacht wird. In diesem Fall dein vorletzter. Edit ist gerade dafür gedacht um jene doppel Posts zu vermeiden die du hier gemacht hast.

    Sollte es "ausversehen" mal passiert sein kannste nochma richtig Editieren und einen Mod bitten den anderen überflüssigne Post zu löschen!

Facebook
Telefonspende