DMW007 (17.07.2014)
-
17.07.2014, 02:54 #1
[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.
-
17.07.2014, 04:06 #2
AW: [VB] Klick Bot funktioniert nicht :/
Geändert von John Gotti (17.07.2014 um 04:07 Uhr)
-
The Following User Says Thank You to John Gotti For This Useful Post:
Ähnliche Themen
-
C# Debuggen funktioniert nicht
Von Gast78236 im Forum AndereAntworten: 5Letzter Beitrag: 15.07.2014, 20:16 -
Zeilenumbruch funktioniert nicht :/
Von ZarneXxX im Forum PHPAntworten: 10Letzter Beitrag: 22.06.2013, 20:38 -
[H] DayZ Mod funktioniert nicht...
Von ryudragon14 im Forum Sonstige GamesAntworten: 3Letzter Beitrag: 09.08.2012, 14:05 -
Schwimmtestprogramm funktioniert nicht !
Von AlexEHM im Forum C++Antworten: 1Letzter Beitrag: 12.06.2012, 22:28 -
Bluetooth funktioniert nicht
Von Diestver im Forum WindowsAntworten: 1Letzter Beitrag: 07.01.2012, 07:10
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.