Minecraft Autoit bot HILFE!

10/07/2012 20:50 sezer0012#1
Hallo!

Dies ist mein erster Thread!
Ich habe einen AutoIt Minecraft Bot erstellt funktioniert einwandfrei!

Was für Funktionen?
Also der Bot kann Tag und Nacht machen!
Und habe noch was eingefügt, wenn man Minecraft nicht gestartet hat das
der Bot sich automatisch schließt.
So das soll jetzt keine veröffentlichung zum Bot werden sondern habe einen Problem!

Ich habe ja 3 Forms also 3 Fenster sozusagen Z.B. Button 1 = Form 2
Button 2 = Form 2 . Form bedeutet Fenster. Ich weis wie man durch Button klick eine Form erstellt aber ich will es so machen das wenn ich auf Button 1 klicke öffnet sich ja Form2 aber dann soll sich Form1 schliessen!

[Only registered and activated users can see links. Click Here To Register...]

So ich hoffe mir kann einer helfen :handsdown:

sezer0012
10/07/2012 21:11 Achat#2
Bitte zeig uns deinen Code.

[code]HIER DEIN CODE[/code]

MfG

PS: und Glückwunsch zum ersten Thread.
10/07/2012 21:15 sezer0012#3
Danke, hier ist mein Code.

Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TagNachtScript", 249, 218, 390, 356)
GUISetFont(8, 800, 0, "Rockwell")
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Tag", 8, 96, 233, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Nacht", 8, 128, 233, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Einstellung", 8, 8, 233, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Exit", 8, 184, 233, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Hilfe", 8, 40, 233, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
MsgBox( 0, "WICHTIG", "WICHTIG: Minecraft muss in Vollbildmodus sein, das heist nicht F11 sondern Maximieren." )

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 		 Case $Button1
			MsgBox( 0, "Error", "Wenn Minecraft nicht gestartet ist schliest sich das Programm!")
			If NOT ProcessExists("javaw.exe") Then Exit
			If ProcessExists ("javaw.exe") Then MsgBox (0,"Check","CHECK: Ok, Minecraft ist gestartet.")
			$pos = PixelSearch( 0, 993, 1276, 1021, 7974988,0)
			If isArray($pos) then
                        MouseMove($pos[0],$pos[1],0)
                        MouseClick("Left")
					 EndIf
			Sleep( 500 )
			Send( "{ESC}" )
			Sleep( 500 )
			Send( "b" )
			Sleep( 1000 )
			Send( "time set 0", 10 )
			Send( "{Enter}" )
		 Case $Button2
			MsgBox( 0, "Error", "Wenn Minecraft nicht gestartet ist schliest sich das Programm!")
			If NOT ProcessExists("javaw.exe") Then Exit
			If ProcessExists ("javaw.exe") Then MsgBox (0,"Check","CHECK: Ok, Minecraft ist gestartet.")
			$pos = PixelSearch( 0, 993, 1276, 1021, 7974988,0)
			If isArray($pos) then
                        MouseMove($pos[0],$pos[1],0)
                        MouseClick("Left")
					 EndIf
			   Sleep( 500 )
			Send( "{ESC}" )
			Sleep( 500 )
			Send( "b" )
			Sleep( 1000 )
			Send( "time set 12500", 10 )
			Send( "{Enter}" )
		 Case $Button5
			#include <ButtonConstants.au3>
			#include <GUIConstantsEx.au3>
			#include <StaticConstants.au3>
			#include <WindowsConstants.au3>
			#Region ### START Koda GUI section ### Form=
			$Form2 = GUICreate("Hilfe", 310, 127, 192, 124)
			GUISetBkColor(0x696969)
			$Group1 = GUICtrlCreateGroup("Hilfe", 8, 8, 297, 73)
			$Label1 = GUICtrlCreateLabel("=  Sie müssen Ingame sein um den Script zu benutzen!", 16, 32, 262, 17)
			$Label2 = GUICtrlCreateLabel("=  Sie müssen in Minecraft Cheats an haben!", 16, 56, 215, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###
		 Case $Button4
			Exit
		 Case $Button3
			#include <ButtonConstants.au3>
			#include <GUIConstantsEx.au3>
			#include <StaticConstants.au3>
			#include <WindowsConstants.au3>
			#Region ### START Koda GUI section ### Form=
			$Form1 = GUICreate("Einstellung", 176, 177, 635, 150)
			GUISetBkColor(0x99B4D1)
			$Group1 = GUICtrlCreateGroup("Problem", 8, 8, 161, 65)
			$Label1 = GUICtrlCreateLabel("Bei mir in Minecraft wird es", 16, 32, 129, 17)
			$Label2 = GUICtrlCreateLabel("nicht Tag/Nacht.", 16, 48, 86, 17)
			GUICtrlCreateGroup("", -99, -99, 1, 1)
			$Button1 = GUICtrlCreateButton("Problem lösen!", 8, 80, 163, 89, $WS_GROUP)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###

			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						Exit
				    Case $Button1
						MsgBox( 0, "Error", "Wenn Minecraft nicht gestartet ist schliest sich das Programm!")
						If NOT ProcessExists("javaw.exe") Then Exit
						If ProcessExists ("javaw.exe") Then MsgBox (0,"Check","CHECK: Ok, Minecraft ist gestartet.")
						$pos = PixelSearch( 0, 993, 1276, 1021, 7974988,0)
						If isArray($pos) then
                        MouseMove($pos[0],$pos[1],0)
                        MouseClick("Left")
					 EndIf
						Send( "{ESC}" )
						MouseMove( 488, 533, 6 )
						MouseClick( "left" , 488, 533, 2 , 6 )
						Sleep( 500 )
						MouseMove( 857, 482,6 )
						MouseClick( "left" , 857, 482 , 2 , 6 )
						Sleep( 500 )
						MouseMove( 272, 718, 6 )
						MouseClick( "left" , 272, 718 , 1 , 6 )
						Sleep( 1000 )
						Send( "bb" )
						Sleep( 500 )
						MouseMove( 644, 719, 6 )
						MouseClick( "left" , 644, 719 , 2 , 6 )
						Sleep( 500 )
						MouseMove( 694, 720, 6 )
						MouseClick( "left" , 694, 720 , 2 , 6 )
						Sleep( 500 )
						MouseMove( 642, 318, 6 )
						MouseClick( "left" , 642, 318 , 2 , 6 )
						MsgBox( 0 , "Erledigt!", "So jetzt starte den Script neu dann versuch es nochmal Tag/Nacht zu machen." )
				EndSwitch
			WEnd


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd


			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						Exit

				EndSwitch
			WEnd


			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						Exit
					 Case $Button1
						$Form1 = GUICreate("TagNachtScript", 249, 218, 390, 356)
						GUISetFont(8, 800, 0, "Rockwell")
						GUISetBkColor(0x99B4D1)
						$Button1 = GUICtrlCreateButton("Tag", 8, 96, 233, 25, $WS_GROUP)
						$Button2 = GUICtrlCreateButton("Nacht", 8, 128, 233, 25, $WS_GROUP)
						$Button3 = GUICtrlCreateButton("Einstellung", 8, 8, 233, 25, $WS_GROUP)
						$Button4 = GUICtrlCreateButton("Exit", 8, 184, 233, 25, $WS_GROUP)
						$Button5 = GUICtrlCreateButton("Hilfe", 8, 40, 233, 25, $WS_GROUP)
						GUISetState(@SW_SHOW)
						#EndRegion ### END Koda GUI section ###
						
				EndSwitch
			WEnd

			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						Exit

				EndSwitch
			WEnd

			
	EndSwitch
WEnd
10/07/2012 22:21 Achat#4
Dafuq is this?

Mach mal die ganzen Includes raus, die macht man ein mal ganz am Anfang vom Script rein.
Das ist ja nicht so schön mit den ganzen While Schleifen. Schau dir mal den [Only registered and activated users can see links. Click Here To Register...] an, kannst du dir auch in Koda generieren lassen. Ist viel besser und übersichtlicher, den [Only registered and activated users can see links. Click Here To Register...] zu benutzen.
MfG
10/07/2012 23:01 H@CT0R#5
Quote:
Originally Posted by Achat View Post
Dafuq is this?

Mach mal die ganzen Includes raus, die macht man ein mal ganz am Anfang vom Script rein.
Das ist ja nicht so schön mit den ganzen While Schleifen. Schau dir mal den [Only registered and activated users can see links. Click Here To Register...] an, kannst du dir auch in Koda generieren lassen. Ist viel besser und übersichtlicher, den [Only registered and activated users can see links. Click Here To Register...] zu benutzen.
MfG
Sorry für ot, aber wie kann koda denn automatisch im onevent modus generieren?
10/07/2012 23:15 Achat#6
[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]

MfG
10/08/2012 12:20 sezer0012#7
Danke aber wie kann ich des jetzt machen das wenn ich auf einen button klicke das das fenster sich schliest dann sich Fenster 2 öffnet?

Exit geht nicht
10/08/2012 12:23 Havelock_Vetinari#8
Quote:
Originally Posted by sezer0012 View Post
Danke aber wie kann ich des jetzt machen das wenn ich auf einen button klicke das das fenster sich schliest dann sich Fenster 2 öffnet?

Exit geht nicht
GuiDelete/Guisetstate(@SW_HIDE,$fenster)

...