AdlibEnable Proplem

~~repins94~~ · 05/15/2010, 12:06

Hallu

es geht um den teil des scriptes wenn ich beim ganzen ausführen drücke kommt dieses:

C:\Users\user\Desktop\Alles\Farmbot\Farmbott.au3(1 94,28) : ERROR: AdlibEnable(): undefined function.
AdlibEnable( "_aura", 60000)
~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\user\Desktop\Alles\Farmbot\Farmbott.au3(2 24,14) : ERROR: AdlibDisable(): undefined function.
AdlibDisable()

Code:

Func _Start3()
	$start3 = 1
AdlibEnable( "_aura", 60000)



EndFunc

func _aura()
Send ("^h")
Sleep(100)
Send ("1")
Sleep(100)
Send ("^h")
sleep(1000)
Send ("1h")
Sleep(100)
Send ("1")
Sleep(100)
Send ("^h")
EndFunc

und zum unteren um diesen teil:

Code:

Func _pause()
Sleep(1)
$start = 0
$start2 = 0
$start3 = 0
AdlibDisable()

meine frage was ist da falsch ? hier das komplette [fast xD]

Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Security.au3>
#include <UDFGlobalID.au3>
#include <GuiSlider.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$gui = GUICreate("Farmbot © by repins94 ", 163, 421, 192, 124)
GUISetIcon("C:\Users\user\Desktop\Alles\Bilder\Aut oIT icon\logo16x16.ico")
GUISetFont(10, 400, 0, "Comic Sans MS")
GUISetBkColor(0xA0A0A0)
$Button1 = GUICtrlCreateButton("Start|Go", 8, 8, 145, 41, $WS_GROUP)
GUICtrlSetColor(-1, 0x800000)
$Button2 = GUICtrlCreateButton("Pause|Break", 8, 56, 145, 41, $WS_GROUP)
GUICtrlSetColor(-1, 0x800000)
$Button3 = GUICtrlCreateButton("Ende|Finish", 8, 104, 145, 41, $WS_GROUP)
GUICtrlSetColor(-1, 0x800000)
$Button4 = GUICtrlCreateButton("Potten", 8, 152, 145, 41, $WS_GROUP)
GUICtrlSetColor(-1, 0x800000)
$Button5 = GUICtrlCreateButton("Sk | Aura", 8, 200, 145, 41, $WS_GROUP)
GUICtrlSetColor(-1, 0x800000)
$Pic1 = GUICtrlCreatePic("C:\Users\user\Desktop\Farmbot\av atar1105624_2.gif.jpg", 8, 256, 145, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button6 = GUICtrlCreateButton("Instrucion", 0, 376, 73, 25, $WS_GROUP)
GUICtrlSetColor(-1, 0x800000)
$Button7 = GUICtrlCreateButton("Copyright", 88, 376, 73, 25, $WS_GROUP)
GUICtrlSetColor(-1, 0x800000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $start = 0
Global $start2 = 0
Global $start3 = 0
Global $pause = 0


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


Case $Button6
MsgBox(1, "Anleitung", "Drückt Start um zu Schlagen,Picupen und Aura/Sk anzumach und Potten um Blaue|Rote pots zu schlucken.Dazu müssen Aura F1 und Blaue|Rote pots 1und 2 sein", 1000)
Case $Button7
MsgBox(1,"Credits","© repins94 - Alle Rechte vorbehalten, insbesondere das Recht auf Vervielfältigung und Verbreitung. Kein Teil dieses Source-Codes darf in irgendeiner Form ohne ausdrückliche Genehmigung von repins94 (mit Screenshot) für öffentliche Zwecke verändert, vervielfältigt oder verbreitet werden.Das gewerbliche verbreiten des Bots oder des Source-Codes ist strikt zu unterlassen, solange der Urheber (repins94) es nicht ausdrücklich nach der Annahme des möglicherweise veränderten Scriptes eingewilligt hat(mit Screenshot).Für mögliche Hardwareprobleme, Softwareprobleme oder gar Hardware- und/oder Softwareschäden wird nicht gehaftet.Die Programmbenutzung und die damit verbundenen möglichen Konsequenzen (z.B. Accountban, Itemverlust) werden mit dem Download einer der angehängten Dateien in Rücksicht genommen und gehaftet.Jegliche Regeländerungen sind ab dem Zeitpunkt des Edits zu beachten und ggbf. zu befolgen.",1000)
Case $Button1
GUICtrlSetBkColor($Button1, 0x00FF00)
GUICtrlSetBkColor($Button2, Default)
GUICtrlSetBkColor($Button3, Default)
GUICtrlSetBkColor($Button4, Default)
GUICtrlSetBkColor($Button5, Default)
GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button3, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON)
_Start()
Case $Button2
GUICtrlSetBkColor($Button2, Default)
GUICtrlSetBkColor($Button3, 0xFFFF00)
GUICtrlSetBkColor($Button4, Default)
GUICtrlSetBkColor($Button5, Default)
GUICtrlSetBkColor($Button6, Default)
GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button6, $GUI_SS_DEFAULT_BUTTON)
_pause()
Case $Button3
GUICtrlSetBkColor($Button1, Default)
GUICtrlSetBkColor($Button2, Default)
GUICtrlSetBkColor($Button3, 0xFF0000)
GUICtrlSetBkColor($Button4, Default)
GUICtrlSetBkColor($Button5, Default)
GUICtrlSetStyle($Button1, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON)
_Ende()
Case $Button4
NeuesGUI()
GUICtrlSetBkColor($Button1, Default)
GUICtrlSetBkColor($Button2, Default)
GUICtrlSetBkColor($Button3, Default)
GUICtrlSetBkColor($Button4, 0x00FF00)
GUICtrlSetBkColor($Button5, Default)
GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button3, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON)
_Start2()
Case $Button5
GUICtrlSetBkColor($Button1, Default)
GUICtrlSetBkColor($Button2, Default)
GUICtrlSetBkColor($Button3, Default)
GUICtrlSetBkColor($Button4, Default)
GUICtrlSetBkColor($Button5, 0x00FF00)
GUICtrlSetStyle($Button3, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button4, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button2, $GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($Button5, $GUI_SS_DEFAULT_BUTTON)
_Start3()


EndSwitch


If $start = 1 Then
Send(" ")
Send("y")
EndIf

If $start2 = 1 Then
Send("1")
Send("2")
EndIf

WEnd

*********
*********
*********

Func _Start()
$start = 1
EndFunc

Func _Start2()
$start2 = 1
EndFunc

Func _Start3()
	$start3 = 1
AdlibEnable( "_aura", 60000)



EndFunc

func _aura()
Send ("^h")
Sleep(100)
Send ("1")
Sleep(100)
Send ("^h")
sleep(1000)
Send ("1h")
Sleep(100)
Send ("1")
Sleep(100)
Send ("^h")
EndFunc

Func _Ende()
MsgBox(0, "© by repins 94", "Scripted by repins94 and Bassbanane 4 E*pvpers", 10000)
Exit
EndFunc

Func _pause()
Sleep(1)
$start = 0
$start2 = 0
$start3 = 0
AdlibDisable()

EndFunc

Func Close()
Exit
EndFunc

.nAno · 05/15/2010, 12:19

Probier anstelle von AdlibEnable mal AdLibRegister bzw. anstatt AdlibDisable AdlibUnregister

Wenn du es dir zutraust solltest du dein Script aber leiber so umbauen, dass du auf AdLibs verzichten kannst, da sie teilweise ziemlich nervig für das restliche Programm sein können...

~~repins94~~ · 05/15/2010, 12:22

[quote=.nAno;5244949]Probier anstelle von AdlibEnable mal AdLibRegister bzw. anstatt AdlibDisable AdlibUnregister

geil xD das gibt en thx

Ohh gibt doch ein paar propleme

die knöpfe sind bisi verbuggt die flackern (denke das leigt am tasten egspamme) aber wenn ich ne neue gui öfne dann kann ich dir nur shcließen indem ich ein anderes fenster aus dem bot in dne vordergrund hohle und dnan so das hinetre schleiße und zu der _Aura func die soll strg+h dann f1 udn wieder strg+h drücken und das alle 60sec was aber jetz nichtmehr der fall ist :>

~~Mattthias~~ · 05/17/2010, 15:01

Du kannst nicht nur AdlibDisable() machen sondern musst dann

AdlibDisable("_aura")

Al Kappaccino · 05/17/2010, 19:40

Wenn schon AdlibUnregister...
AdlibDisable gibbet schon lange nicht mehr^^

~~kknb~~ · 05/18/2010, 16:46

kommt drauf an welche autoit version man nutzt.