While - Wend

Goldy

[autoit]

while 1
sleep(1)
if $on = 1 Then
magic()
EndIf
WEnd
while 2
sleep(2)
if $on = 2 Then
taste2()
EndIf
WEnd

[/autoit]

Mir wird dort immer ein Fehler angezeigt.

Ist dort was falsch ?

Mahagon

Was machen die Funktionen? Wie lautet die Fehlermeldung? ..Script??
Außerdem nen Sleep(2).. wozu soll das denn dienen ?
CPU Auslastung verringert man mit Sleep(100) o.ä.

Alizame

[autoit]

$on = 1/2 ;halt die zahl die du haben willst^^

[/autoit]

musst du auch am anfang was zuweisen!

Fabian

Zitat von Goldy

Mir wird dort immer ein Fehler angezeigt.

Ist dort was falsch ?

Dein ganzes Skript wäre nötig.
Weil dein Codeschnippsel hat an sich keinen Fehler, aber ergibt keinen Sinn

i2c

unlogischer Aufbau. Die erste While wird nie verlassen, von daher wird $on = 2 nie geprüft werden können.

[autoit]

Global $on
While 1
Sleep(100)
Switch $on
Case 1
magic()
Case 2
taste2()
EndSwitch
WEnd

[/autoit][autoit]

Global $on
While 1
Sleep(100)
If $on = 1 Then
magic()
ElseIf $on = 2 Then
taste2()
EndIf
WEnd

[/autoit]

Goldy

Also dieser fehler kommt wenn ich

[autoit]

Global $on
While 1
Sleep(100)
Switch $on
Case 1
magic()
Case 2
taste2()
EndSwitch
WEnd

[/autoit]

Einsetze.....

Das mein Code :

[autoit]

HotKeySet("{SCROLLLOCK}", "fan")
HotKeySet("{ESC}", "close")

[/autoit][autoit][/autoit][autoit]

global $on = 0

[/autoit][autoit][/autoit][autoit]

Func fan()
if $on = 0 THEN
$on = 1
TrayTip("Programm", "Aktiviert", 50, 1)
Else
$on = 0
TrayTip("Programm", "Deaktiviert", 50, 1)
EndIf
EndFunc

[/autoit][autoit][/autoit][autoit]

Func close()
Exit
EndFunc

[/autoit][autoit][/autoit][autoit]

Func set($var, $var2)
GUICtrlSetData($var, $var2)
EndFunc

[/autoit][autoit][/autoit][autoit]

Func alert($var)
MsgBox(0, "alert", $var)
EndFunc

[/autoit][autoit][/autoit][autoit]

Func get($var)
return GUICtrlRead($var)
EndFunc

[/autoit][autoit][/autoit][autoit]

Func tip($var)
TrayTip("Bot", $var, 50)
EndFunc

[/autoit][autoit][/autoit][autoit]

Global $on
While 1
Sleep(100)
Switch $on
Case 1
magic()
Case 2
taste2()
EndSwitch
WEnd

[/autoit]

Folgener fehler kommt :

Error: Subscript used with non-Array variable.

Line 45

i2c

Da ist kein Array. Die einzige Fehlermeldung die ich da auf Anhieb vermuten würde wäre die über die undefined functions in Zeile 41 und 43.
Ein Global $on reicht btw.

Goldy

Sehe gerade das ich da was vergessen habe ,
das gehört auch noch dazu ;

[autoit]

#include <C:\Users\Benuter\Desktop\NeuesProjekt\standard.au3>

[/autoit][autoit][/autoit][autoit]

Func magic()

[/autoit][autoit][/autoit][autoit]

$left = PixelSearch( 571, 513, 611, 458, 0xfdd932)
If Not @error Then
Send ("1")
EndIf

[/autoit][autoit][/autoit][autoit]

$right = PixelSearch( 840, 306, 1083, 650, 0xFFFFFF)
If Not @error Then
MouseMove($left[0] + random(-5,5), $right[1] + random(-5,5), 0)
EndIf

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

EndFunc

[/autoit][autoit][/autoit][autoit]

Func taste2()

[/autoit][autoit][/autoit][autoit]

$left = PixelSearch( 571, 504, 610, 461, 0xdd4afd)
If Not @error Then
Send ("2")
EndIf

[/autoit][autoit][/autoit][autoit]

$right = PixelSearch( 840, 306, 1083, 650, 0xFFFFFF)
If Not @error Then
MouseMove($left[0] + random(-5,5), $right[1] + random(-5,5), 0)
EndIf

[/autoit][autoit][/autoit][autoit]

EndFunc

[/autoit]

Mahagon

Zitat von Goldy

Also dieser fehler kommt wenn ich

[autoit]
Func tip($var)
TrayTip("Bot", $var, 50)
EndFunc
[/autoit]

und Pixelsearch machen mich ein bisschen misstrauisch.

Aber nen Tipp am Rande

[autoit]

Func set($var, $var2)
GUICtrlSetData($var, $var2)
EndFunc

[/autoit]

Solche Funktionen machen irgendwie gar keinen Sinn

i2c

Mich auch.
Wenn ich das zusammenbaue dann kommt da kein Fehler.
Das Problem wird warscheinlich in deiner include liegen.

Goldy

Ich habe den Code von einem Kumpel bekommen.

Der erste Code ist der include wird.

i2c

Versteh ich nicht. Du inkludierst das Skripk mit der While als standart.au3 in das Skript mit den beiden Funktionen?

Goldy

Muss das umgekehrt sein ?

PenGuin

Jop^^

Goldy

Also so ;

[autoit]

#include <C:\Users\Benutzer\Desktop\NeuesProjektt\magic.au3>

[/autoit][autoit][/autoit][autoit]

HotKeySet("{SCROLLLOCK}", "fan")
HotKeySet("{ESC}", "close")

[/autoit][autoit][/autoit][autoit]

global $on = 0

[/autoit][autoit][/autoit][autoit]

Func fan()
if $on = 0 THEN
$on = 1
TrayTip("Programm", "Aktiviert", 50, 1)
Else
$on = 0
TrayTip("Programm", "Deaktiviert", 50, 1)
EndIf
EndFunc

[/autoit][autoit][/autoit][autoit]

Func close()
Exit
EndFunc

[/autoit][autoit][/autoit][autoit]

Func set($var, $var2)
GUICtrlSetData($var, $var2)
EndFunc

[/autoit][autoit][/autoit][autoit]

Func alert($var)
MsgBox(0, "alert", $var)
EndFunc

[/autoit][autoit][/autoit][autoit]

Func get($var)
return GUICtrlRead($var)
EndFunc

[/autoit][autoit][/autoit][autoit]

Func tip($var)
TrayTip("Bot", $var, 50)
EndFunc

[/autoit][autoit][/autoit][autoit]

Global $on
While 1
Sleep(100)
Switch $on
Case 1
magic()
Case 2
taste2()
EndSwitch
WEnd

[/autoit]

PenGuin

Wenn in dem inkludierten Script nun die Funktion magic und taste 2 steht, ja

Goldy

Ok, dann teste ich das morgen , habe jetzt keine lust mehr,
das hat mich heute schon zu viele nerven gekostet

Wenn ich das nun erweitern möchte,

muss ich das dann so machen :

[autoit]

While 1
Sleep(100)
Switch $on
Case 1
magic()
Case 2
taste2()
Case 3
taste3()
EndSwitch
WEnd

[/autoit]

Also als beispiel