[HOWTo]VB Bot Programmieren

[mrapc]

Hallo Com,

Ich mach mal ein Theard auf wie man mit VB Bots Programmieren kann...
Ich werde vllt hin und wieder andere TuTs dazu edieren
da steht dann immer drunter von wem das ist.

Ich fang auch gleich an:
[HowTo]VB Tasten klicken lassen

 Spoiler

Funktion:
Ihr könn damit beispielsweise einen Chatbot erstellen
aber auch einen Fertigkeiten Bot (kein Autoattack oder pickup)

1.) Erstellt eine neue Form
2.) Ediert am besten
2. Button
1. Textbox
1. Timer dazu
(Bitte nirgens den Namen ändern, nur den Text)
3.) Doppelklick auf deinen der Button und dann folgenden Code eingeben

Timer1.start

4.) Im zweiten Button dann logischerweise

Timer1.stop

5.) Jetzt geht ihr auf den Timer und gebt ein:

My.computer.keyboard.sendkeys ("[COLOR="Lime"]{Enter}[/COLOR]")
My.computer.keyboard.sendkeys [COLOR="Red"](textbox1.text)[/COLOR]
My.computer.keyboard.sendkeys ("[COLOR="Lime"]{Enter}[/COLOR]")

Das {Enter} Bedeutet das er die Taste ENTER so klicken soll ohne die {} Klammern würde er nur den Text "ENTER" schreiben.

das (textbox1.text) bedeutet, dass er den Text der in der Textbox1 steht schreiben soll.

Wenn ihr wollt das der Bot einen bestimmten Text schreibt gehbt ihr ein:

My.computer.keyboard.sendkeys ("bla bla")

Wichtig ist, dass ihr die beiden "" SChreibt


Statt enter geht aber auch:
("{Backspace}") = Löschen
("{F1}) = F1
allerdings nicht ("{A}")

Die Maus bewegen lassen

 Spoiler

Um die Maus bewegen zu lassen müsst ihr FOlgendes Tun
1.) Erstellt mehrer Timer (ich hab 3)
2.) Erstellt einen Button
3.) Geht auf den Button und gebt da folgenden Code ein:

Timer1.start

4.) Jetzt geht ihr auf den Timer1 und gebt ein

Windows.Forms.Cursor.Position = New Point([COLOR="Red"]430[/COLOR], [COLOR="Blue"]297[/COLOR])
        Timer1.Stop()
        Timer2.Start()

5.) Dann geht ihr auf den Timer2 und gebt ein:

Windows.Forms.Cursor.Position = New Point([COLOR="Red"]599[/COLOR], [COLOR="Blue"]350[/COLOR])
        Timer2.Stop()
        Timer3.Start()

6.) Jetzt geht ihr in den 3ten Timer und da hört es bei mir auf...
Ihr könnt natürlich nich mehr Timer machen

Windows.Forms.Cursor.Position = New Point([COLOR="Red"]200[/COLOR], [COLOR="Blue"]100[/COLOR])
        Timer3.Stop()

7.) Jetzt ändert ihr am besten noch das interval
Entweder ihr wählt den Timer und stellt das isnterval auf 1000 = 1 Sekunde
oder ihr gebt diesen code ein im Button1
(Vor dem Timer1.start)

Timer1.Interval = 1000
Timer2.interval = 1000
Timer3.interval = 1000

Ihr könnnt natürlich auch andere POsitionen nehmen
Beim Interval ist 1000 = 1 Sekunde

Mausklick Simmulieren:

 Spoiler

Um einen Mausklick zu erzeugen müsst ihr in der Form1 ein neues API anlegen
das heißt: Unter End Sub Folgenden Code machen:

Private Declare Sub mouse_event Lib "user32" ( _
  ByVal dwFlags As Long, _
  ByVal dx As Long, _
  ByVal dy As Long, _
  ByVal cButtons As Long, _
  ByVal dwExtraInfo As Long)

    Private Const MOUSEEVENTF_ABSOLUTE = &H8000
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4
    Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Private Const MOUSEEVENTF_MIDDLEUP = &H40
    Private Const MOUSEEVENTF_MOVE = &H1
    Private Const MOUSEEVENTF_RIGHTDOWN = &H8
    Private Const MOUSEEVENTF_RIGHTUP = &H10

Jetzt müsst ihr noch um den Mausklick zu SImmulieren
in einem Timer FOlgenden code eingeben:

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

Und natürlich einen Button erstellen
in dem der Code:

Timer1.start

steht

Den Bot auf Knopfdruck aus der Taskbar nehmen

 Spoiler

1.) Ihr erstellt einen Button
2.) IHr macht Doppelklick drauf und weist ihm FOlgenden Code zu:

[COLOR="Blue"]Me[/COLOR].ShowInTaskbar = [COLOR="Blue"]False[/COLOR]

[HowTo] Eine eigende Form erstellen
obere leiste ausblenden:

 Spoiler

Ihr klickt auf Form1 einmal
jetzt habt ihr Rechts einige Funktionen (Bei den Eigenschaften)
Ihr Scrollt runter bis: FormBorderStyle
Da wählt ihr aus: None
Fertig!

Weitere Codes

 Spoiler

Falls ihr wollt das eine Aktion nur gemacht wird wenn EIn Hacken in der Checkbox ist
gebt ihr ein:

If checkbox[COLOR="SeaGreen"]1[/COLOR].checked = true Then
(Aktion)
End If

Kann natürlich auch Checkbox2,3,4... sein

 Spoiler

Me.close

Um die ANwendung zu schließen

[Shadowdead]

Hi

erst einmal super das du Anfängern helfen willst, was das Programmieren in Visual Basic angeht daumen hoch. ^^

Ich weiss ja nicht was du noch alles einfügen wirst, nur mit diesen Kenntnisse wirste keinen vernünftigen Bot coden können. Das sind alles grundliegende Dinge die man eh schon kennen sollte ein Bot ist schon etwas Komplexer nur mit Timern oder sendkeys wird man nicht weit kommen.

MFG

aka Krypton


p.s das ist kein Angriff gegen dich war nur ein kleiner Kritikpunkt also nicht böse sein.

[Kraizy​]

Originally Posted by mrapc

allerdings nicht ("{A}")

Diese Aussage ist falsch.
Und wenn das nicht VB6 ist, dann wird Long zu Integer.
Ich will dich nicht fertig machen, aber ich stimme Shadowdead zu, das sind eher die einfachsten allgemeinen Grundlagen die man wissen sollte, jedoch wirst du damit keinen gescheiten Bot hinbekommen...

[mrapc]

ja natürlich das ist auch erstmal der Anfang das wir immer weiter gemacht ich werde auch andere Beitrage rein Edieren nur ich hatte als ich das geschriben hab zu wenig seit...
... Aber ihr könnt mir gerne Links von Beiträgen senden die Ich rein Edieren soll
Dann wird das eine Art Sammeltheard xD

[grovestreet-myi]

Hey, danke ist echt hilfreich, würde mich über mehr sehr freuen!
_________________
kannst du das mit den mausklicks noch etwas genauer erklären + anstatt sendkeys könntest du vielleicht erklären, wie sendmessage funktioniert?

[mogge1997]

Schlecht

[Jay Niize]

Originally Posted by mogge1997

Schlecht

Gesundheit ^.^

#reported wegen Spam

und wenn du es nicht gut findest, solltest du es auch begründen können.

Es sind halt nur einige Snippets und beis zum Vollautomatischen Bot fehlt es halt noch etwas. Sonst aber gut und Danke für die Mühe (:

[mrapc]

Haha das ist ja schon Jahre alt xD
Werde blad mal ein neues machen, wo das mal richtig erklärt wird, da hab ich ja nur
begonnen.

[coladose]

Hmm...nicht schlecht, fehlt aber viieles.

Verbesserungsvorschlag:

Me.Close durch End zu ersetzen.

[supercracker13]

Gutes tut
Gut erklärt

Wirst damit aber nicht weit kommen
Ich bin mal gespannt

[vilkerath]

hey gut beschrieben ist zwar nix neues für mih aber bekommst trotz aller dem ein thx

[Xris97]

Mich interessiert folgendes:
Wenn ich will, dass eine Nachricht kommt, wenn ich ein Häkchen gesetzt habe und dann einen Button drücke brauche ich ja den Code

If CheckBox1.Checked Then
MsgBox("Hallo")

Wie wäre das, wenn ich will, dass diese nachricht nur kommt, wenn ich CheckBox1 & Checkox2 aktiviert habe?
LG

EDIT: Das ist ja simpel Habe einfach ein and dazwischen gesetzt.