1. #1
    Avatar von ZarneXxX
    Registriert seit
    05.04.2012
    Beiträge
    934
    Thanked 1.291 Times in 258 Posts

    Idee [VB] Klick Bot funktioniert nicht :/

    Hallo zusammen,

    habe eben einen Klick Bot Programmiert mit Visual Basic 2010 jedoch funktioniert er nicht.
    Den Fehler finde ich leider nicht :/
    Deswegen frage ich euch nach Hilfe.

    PS: Der Bot soll sich Stündlich wiederholen und zwar immer um XX:55 Uhr (z.B. 16:55 Uhr; 17:55 Uhr; 18:55 Uhr etc.)

    Hier meine Form:

    Public Class Form1
    Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal _
    dwFlags As Integer, ByVal dx As Integer, _
    ByVal dy As Integer, ByVal cButtons As Integer, ByVal _
    dwExtraInfo As Integer)
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim TheTime As String = Format(TimeOfDay)
    Dim sekunden
    Dim minuten
    Dim stunden
    Dim zeit = Split(TheTime, ":")

    stunden = zeit(0)
    minuten = zeit(1)
    sekunden = zeit(2)
    Label1.Text = minuten
    Label2.Text = sekunden

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    If Label1.Text = "55" Then
    If Label2.Text = "00" Then
    Cursor.Position = New Point(683, 451)
    System.Threading.Thread.Sleep(100)
    Cursor.Position = New Point(683, 451)
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    System.Threading.Thread.Sleep(250)
    Cursor.Position = New Point(520, 381)
    System.Threading.Thread.Sleep(100)
    Cursor.Position = New Point(520, 381)
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    System.Threading.Thread.Sleep(280)
    Cursor.Position = New Point(628, 651)
    System.Threading.Thread.Sleep(80)
    Cursor.Position = New Point(628, 651)
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    System.Threading.Thread.Sleep(200)
    Cursor.Position = New Point(329, 411)
    System.Threading.Thread.Sleep(20)
    Cursor.Position = New Point(329, 411)
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    System.Threading.Thread.Sleep(100)
    Cursor.Position = New Point(832, 166)
    System.Threading.Thread.Sleep(50)
    Cursor.Position = New Point(832, 166)
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    System.Threading.Thread.Sleep(50)
    Cursor.Position = New Point(1100, 597)
    System.Threading.Thread.Sleep(50)
    Cursor.Position = New Point(1100, 597)
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    System.Threading.Thread.Sleep(50)
    Cursor.Position = New Point(763, 356)
    System.Threading.Thread.Sleep(50)
    Cursor.Position = New Point(763, 356)
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    System.Threading.Thread.Sleep(50)
    SendKeys.Send("ZarneXxX")
    Cursor.Position = New Point(809, 460)
    System.Threading.Thread.Sleep(50)
    Cursor.Position = New Point(809, 460)
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    System.Threading.Thread.Sleep(50)
    End If
    End If

    End Sub
    End Class


    Könnt ihr mir da helfen?

    Gruß, ZarneXxX.

  2. #2
    Avatar von John Gotti
    Registriert seit
    16.07.2014
    Beiträge
    114
    Thanked 84 Times in 46 Posts

    Standard AW: [VB] Klick Bot funktioniert nicht :/

    Zitat Zitat von ZarneXxX Beitrag anzeigen
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Timer1.Start()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    ...
    End Sub
    End Class
    Spätestens jetzt sollte dir klar sein, wieso man Dateien, Variablen, und eben auch Controls sinnvolle aussagekräftige Namen gibt. Dann fällt einem so was nämlich wesentlich eher auf wie wenn man ständig überlegen muss, ob das nun Timer 97 oder 98 war.
    Geändert von John Gotti (17.07.2014 um 04:07 Uhr)

  3. The Following User Says Thank You to John Gotti For This Useful Post:

    DMW007 (17.07.2014)

Ähnliche Themen

  1. C# Debuggen funktioniert nicht
    Von Gast78236 im Forum Andere
    Antworten: 5
    Letzter Beitrag: 15.07.2014, 20:16
  2. Zeilenumbruch funktioniert nicht :/
    Von ZarneXxX im Forum PHP
    Antworten: 10
    Letzter Beitrag: 22.06.2013, 20:38
  3. [H] DayZ Mod funktioniert nicht...
    Von ryudragon14 im Forum Sonstige Games
    Antworten: 3
    Letzter Beitrag: 09.08.2012, 14:05
  4. Schwimmtestprogramm funktioniert nicht !
    Von AlexEHM im Forum C++
    Antworten: 1
    Letzter Beitrag: 12.06.2012, 22:28
  5. Bluetooth funktioniert nicht
    Von Diestver im Forum Windows
    Antworten: 1
    Letzter Beitrag: 07.01.2012, 07:10
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.