Beiträge von Goldy

Ich arbeite mit Koda weils schneller geht , nicht weil ich es nicht kann xD

Nerft nur , weil ich halt alles neu machen muss -.-'

Hallo Leute

Ich habe mein PC neu aufgesetzt und vergessen meine Designer datein also die Koda macht zu speichern.

Ich habe aber noch meinen Code.
Kann ich den Code bei Koda einfügen und Koda erstellt dann anhand des Codes das Design ?

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

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]

Muss das umgekehrt sein ?

Ich habe den Code von einem Kumpel bekommen.

Der erste Code ist der include wird.

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]

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

[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 ?

Danke , werde mir das mal anschauen.

Wie macht man es das man einen Key braucht so wie z.B. bei Computergames ?
Womit man das Programm Aktivieren bzw. Regestrieren kann.?

MfG

Goldy94

Ok , mache das heute abend , fahre nun erstmal zu ner freundin

Ich möchte doch nur die Funktionen von AutoIt lernen -.-'

Hallo

Nach langer Zeit melde ich mich mal wieder

Und zwar will ich mal wieder was lernen

Ich habe folgenen Code von einem Kumpel bekommen :

Spoiler anzeigen

[autoit]

#include <../standard.au3>

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

Func magic()

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

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

EndFunc

[/autoit]

und

Spoiler anzeigen

[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("Bot", "Aktiviert", 50, 1)
Else
$on = 0
TrayTip("Bot", "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]

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

[/autoit]

Ich möchte nun z.B. das wenn auf einer bestimmten stelle z.B. die Farbe Rot ist
eine Taste gedrückt wird.

Das macht man ja mit Pixel Search.

Aber woher bekomme ich die genaue position ?

Also woher weis ich welche Pixel das sind ?

Und woher bekomme ich die genauen Farbcode her ?
Gibt es da auch ein Programm für ?

MfG

Goldy

Kein Problem :

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

ShellExecute('cmd.exe')
WinWait("[Class:ConsoleWindowClass]")
Send("ipconfig {Enter}")

[/autoit]

Ich habe nun das Problem das er Enter nicht macht und dann seltsamer weise immer wieder neue COnsonlen aufmacht.

Cool danke , habe ich was gelernt

Werde ich mir merken

Nochmals Vielen dank

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

Shellexecute ('cmd.exe')
Send("{I 1}")
Send("{P 1}")
Send("{C 1}")
Send("{O 1}")
Send("{N 1}")
Send("{F 1}")
Send("{I 1}")
Send("{G 1}")
Send("{ENTER 1}")

[/autoit]

So sieht im Moment mein Quell code aus.

Nur habe ich das Problem das irgentwie der erste befehl immer wieder gemacht wird und der letzte befehl garnicht.

WAs kann ich da machen ?

MfG

Goldy

Das kann man auch alles bestimmt mit einem normalen Taschenrechner machen

Vielen dank Jonathan,
jeder fängt mal klein an

Das schwerste war eigentlich die Formeln zu machen