Sym98 Posted May 17, 2011 Posted May 17, 2011 Hello everyone, I am creating a simple (?) Bot for a friend of mine, to be used on Darkorbit (an online game). The bot in question, should perform the click of a mouse at any preset time to point the auction of the game during the night (when there is almost no one online). Because, of course, like the other 20 programs that I'm making, I do not work (obviously these 20 I have managed 4 ... Oo), I ask you to help Ah yes, the problem is that at the scheduled time will not do anything ... Full Source: expandcollapse popup#include <GUIConstants.au3> $Form1 = GUICreate("Bot Asta Darkorbit - By Sym98", 537, 446, 234, 131) GUISetBkColor(0x000000) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $Label1 = GUICtrlCreateLabel("Bot Asta", 122, 1, 280, 94) GUICtrlSetFont(-1, 48, 800, 8, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $Group1 = GUICtrlCreateGroup("Coordinate", 11, 91, 510, 134) GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x800000) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $Label2 = GUICtrlCreateLabel("X:", 21, 119, 28, 37) GUICtrlSetFont(-1, 18, 400, 4, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $Label3 = GUICtrlCreateLabel("Y:", 273, 120, 27, 37) GUICtrlSetFont(-1, 18, 400, 4, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $X = GUICtrlCreateInput("", 54, 121, 207, 35) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $Y = GUICtrlCreateInput("", 304, 121, 207, 35) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $Label4 = GUICtrlCreateLabel("Per trovare le cordinate premi F2", 69, 170, 400, 39) GUICtrlSetFont(-1, 18, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x008080) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Crediti", 7, 336, 260, 65) GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x800000) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $C = GUICtrlCreateInput("", 56, 352, 205, 35) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") $Label5 = GUICtrlCreateLabel("C:", 15, 356, 24, 31) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group3 = GUICtrlCreateGroup("Ora", 284, 282, 243, 153) GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x800000) $Label6 = GUICtrlCreateLabel("h:", 293, 304, 23, 31) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) $h = GUICtrlCreateInput("", 316, 299, 205, 35) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") $Label7 = GUICtrlCreateLabel("Min:", 290, 349, 44, 31) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) $Min = GUICtrlCreateInput("", 336, 343, 185, 35) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") $Label8 = GUICtrlCreateLabel("Sec:", 290, 395, 46, 31) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x00FF00) $Sec = GUICtrlCreateInput("", 337, 391, 185, 35) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlCreateGroup("", -99, -99, 1, 1) $Label9 = GUICtrlCreateLabel("Created By Sym98", 7, 401, 251, 42) GUICtrlSetFont(-1, 20, 800, 2, "Comic Sans MS") GUICtrlSetColor(-1, 0x008080) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $Start = GUICtrlCreateButton("Start", 10, 232, 268, 48, 0) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $Background = GUICtrlCreateButton("Background", 287, 232, 239, 48, 0) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) $Stop = GUICtrlCreateButton("Stop", 9, 285, 268, 48, 0) GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ) GUISetState(@SW_SHOW) GUICtrlSetState($Stop, $GUI_Disable) $Started = 0 Func _While() While 1 If $Started = 1 Then If @HOUR = $s_h Then If @MIN = $s_Min Then If @Sec = $s_Sec And $s_Sec <> 0 Then MouseClick("left", $s_X, $s_Y, 1) Sleep(100) Send("{ENTER}") Sleep (6000) MsgBox (0, "Bot Asta - Darkorbit - By Sym98", "Offerta eseguita correttamente!") EndIf EndIf EndIf $Started = 0 GUICtrlSetState($Start, $GUI_Enable) GUICtrlSetState($Stop, $GUI_Disable) EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Background GUIDelete($Form1) Case $Start $s_X = GUICtrlRead($X) $s_Y = GUICtrlRead($Y) $s_C = GUICtrlRead($C) $s_h = GUICtrlRead($h) $s_Min = GUICtrlRead($Min) $s_Sec = GUICtrlRead($Sec) If $s_X = "" Then MsgBox(16, "Errore", "Specifica le coordinate X!") _While() EndIf If $s_Y = "" Then MsgBox(16, "Errore", "Specifica le coordinate Y!") _While() EndIf If $s_C = "" Then MsgBox(16, "Errore", "Specifica i crediti che verranno puntati!") _While() EndIf If $s_h = "" Then MsgBox(16, "Errore", "Specifica le ore!") _While() EndIf If $s_Min = "" Then MsgBox(16, "Errore", "Specifica i minuti!") _While() EndIf If $s_Sec = "" Then $s_Sec = 0 $Continuare= MsgBox(4, "Continuare?", "Alle ore " & $s_h & ":" & $s_Min & " e " & $s_Sec & " secondi verranno puntati " & $s_C & " crediti sull'oggeto che si trova alle cordinate " & _ $s_X & "/" & $s_Y & ". In quel momento la schermata dell'asta di Darkorbit dovrà essere in primo piano, e le cordinate dell'oggeto devono corrispondere a quelle specificate. Continuare?") If $Continuare <> 6 Then _While() $Started = 1 GUICtrlSetState($Start, $GUI_Disable) GUICtrlSetState($Stop, $GUI_Enable) Case $Stop $Started = 0 GUICtrlSetState($Start, $GUI_Enable) GUICtrlSetState($Stop, $GUI_Disable) EndSwitch WEnd EndFunc _While()
Sym98 Posted May 17, 2011 Author Posted May 17, 2011 (edited) Sorry, I did not read Edited May 17, 2011 by Sym98
Recommended Posts