Hwey ich habe lange nachgelesen und habe nun das Gescripted:
mit nem leichteren script geht der bott sammt fenstern dann auf aber weder pause noch ende fuzen dann das wäre dann dieses:Quote:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pott Bot by repins94", 180, 291, 297, 132)
GUISetCursor (0)
GUISetBkColor(0x808080)
$Label1 = GUICtrlCreateLabel("Scripted by Repins94", 16, 256, 151, 25)
GUICtrlSetFont(-1, 11, 800, 4, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Button1 = GUICtrlCreateButton("Start", 24, 24, 137, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Pause", 24, 88, 137, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Ende", 24, 152, 137, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Call ("Start")
Case $Button2
Call ("TogglePause")
Case $Button3
Call ("Ende")
EndSwitch
wend
HotKeySet ( "{F7}" , "Start" )
HotKeySet ( "{F9}" , "Ende" )
HotKeySet("{F8}", "TogglePause)
Func Start ()
While 1
Sleep (1)
Send ( "{1}")
WEnd
EndFunc
Func Ende ()
Exit
EndFunc
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Bot Pausiert',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
Func ShowMessage()
MsgBox(4096,"","This is a message.")
EndFunc
While 1
sleep (1)
WEnd
Quote:
............................BOxen etc ma weg gelassen ..........
Func Start ()
While 1
Sleep (500)
Send ( "{1}")
WEnd
EndFunc
Func Ende ()
Exit
EndFunc
Func Pause()
Sleep(1)
EndFunc
While 1
sleep (1)
WEnd
