Beiträge von James

Zitat von .Ma3ter.

Was genau brauche ich, um AutoIT erlernen zu können?

Wahrscheinlich ein anderes Forum. Ich kenne mich damit leider nicht so wirklich aus.
Wenn du aber AutoIt meinst, dann brauchst du eigentlich nur Geduld, Grundkenntnisse in Englisch und logisches Denken (und natürlich einen Computer, auf dem Windows installiert ist).

Zitat von .Ma3ter.

Wird mich die Software etwas kosten?

Ist die Frage ernst gemeint? Wenn ja: Nein.

Zitat von .Ma3ter.

Könnte man die Software ggf. downloaden?

Am linken Rand dieser Seite findest du eine Box, die den passenden Titel "Downloads" trägt. Ansonsten hier.

Zitat von minx

Ist möglich:

Code

inc py

Dann könntest du ja noch folgendes in Parse_Constants_And_Vars einfügen (oder so ähnlich):

$Script = StringRegExpReplace($Script, "(\w+)\+\+", "inc $1")
$Script = StringRegExpReplace($Script, "(\w+)--", "dec $1")

Zitat von Mars

Werden bei GetKeyboardstate nicht Alle Tasten überprüft statt nur einer (wie bei AsyncKeyState) ?
Wenn ja wäre das ein hoher Mehraufwand. (außer die Dll regelt das intern effektiver als 256 Async calls)

Ja, es werden alle Tasten überprüft und ja, ich denke dass Microsoft das besser regelt.
(Zumindest haben das einige Geschwindigkeitstests im Vergleich zu _IsPressed ergeben...)

Zitat von misterspeed

du verwendest in deiner Funktion die den dllcall macht "int" als Datentyp, übergibst aber für $color einen hex-wert.

Hexadezimal ist kein Datentyp.

Zitat von minx

Die Source-Pakete sind ja nun schon eine ganze Weile raus und nicht wenige haben es bereits getestet. Wäre schön, mal eine Rückmeldung zu bekommen

LASM finde ich super, genauso Perseus.
Was mich anfangs etwas gestört hat ist, dass LASM ein Problem mit Dateien hat, die ein Leerzeichen im Namen haben.
Es wäre außerdem cool, wenn LASM mit -h oder /? eine kleine Hilfe anzeigen würde und man mit -o nur den Bytecode erhält,
ohne das ganze PE "Zeug" (z.B. um den Code in ein AutoIt Skript einzubinden).

Meine Lösung:

$String = "ID1 F2 A3"

$SRE = StringRegExp($String, "(?i)((?:ID|F|A)\d+)", 3)
If @error Then Exit

For $i = 0 To UBound($SRE)-1 ; <- sollte eigentlich 2 sein...
; Die Reihenfolge ist dann wie in dem String,
; d.h. bei IDx Ax Fx wäre F in $SRE[2].
; Beim Verarbeiten sollte sich das mit StringLeft aber leicht überprüfen lassen.
ConsoleWrite($SRE[$i] & @CRLF)
Next

Gibt es zwischen den Versionen X1 und X2 im Startpost wirklich einen Unterscheid?
Und wenn ja, woran erkennt man das, wenn beide im Archiv die gleiche Versionsnummer hatten.
Mir ist gerade aufgefallen, dass ich noch 3.3.9.4 installiert hatte und,
dass mein Installer anscheinend 3.3.9.5X2 ist (Changelog mit dem aus X2 im Startpost verglichen).

Außerdem, kann es sein, dass AutoIt um einiges schneller geworden ist?
Früher musste ich immer eine Weile warten, bis das Skript und die Hilfe gestartet ist.
Auch die Skripte selbst scheint jetzt viel schneller zu arbeiten.

Das hilft in der Tat.

Funktioniert folgendes Skript bei dir?

If DeviceExists("USB\\VID_0B97&PID_7772\\7&14677936&0&2") Then
MsgBox(64, "", "Kartenleser ist verbunden.")
Else
MsgBox(64, "", "Kartenleser ist nicht verbunden.")
EndIf

Func DeviceExists($DeviceID, $Computer="localhost")
Local $A, $B
$A = ObjGet("winmgmts:\\" & $Computer & "\")
If @error Then Return SetError(1, 0, False)
$B = $A.ExecQuery('SELECT * FROM Win32_PnPEntity WHERE DeviceID="'&$DeviceID&'"', "WQL", 0x30)
If @error Then Return SetError(2, 0, False)
If (Not IsObj($B)) Then SetError(3, 0, False)
Return True
EndFunc

Zitat von James1337

[autoit]

If DeviceExists("USB\\VID_0B97&PID_7772\\7&14677936&0&2") Then
MsgBox(64, "", "Kartenleser ist verbunden.")
Else
MsgBox(64, "", "Kartenleser ist nicht verbunden.")
EndIf

[/autoit]

Zitat von DevFly

Danke @James1337 für die Mühe aber das hilft nicht wirklich weiter das Gerät ist ja immer vorhanden und es wird bei deiner Abfrage ja nur geprüft ob das Gerät da ist.

Wow, also so viel Dummheit (von meiner Seite, natürlich) habe ich auch schon lange nicht mehr erlebt... :wacko:

Zitat von minx

Dann hast du immernoch etwas verstellt.

Der Screenshot zeigt das Spiel mit aktivierten Zeilenumbrüchen. Mittlerweile sieht es bei mir auch so aus wie bei misterspeed.

Danke. Das Problem war, dass ich Zeilenumbrüche in Notepad aktiviert hatte...

Edit: Und so sieht das dann ungefähr aus:

Da viele so positiv über das Skript von Wambo reden, und sich mir der Sinn auch nach mehreren Starts nicht erschließt, wüsste ich gerne, ob mir das jemand erklären (und vielleicht einen Screenshot posten) könnte. Vielleicht läuft es bei mir ja auch einfach nicht richtig...

Zitat von Make-Grafik

Kann es sein, dass das Script von Mat nicht funktioniert?
Bei mir wird ein Error entgegen geschmissen!

So? Bei mir läuft es aber die meiste Zeit über, bis auf einige kleinere Grafikfehler.

Zitat von minx

Danke für die tollen (aber leider wenigen) Einsendungen!

Hast du eigentlich vor den Wettbewerb trotz der geringen Teilnehmerzahl zu wiederholen?

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Entropy
Beteiligte: James1337
Skript:

Zitat von misterspeed

Theoretisch sollte es so auch machbar sein zur Laufzeit eine au3 Datei einzulesen und dessen Inhalt Zeile für Zeile auszuführen.

Oder dieses Skript einfach an den Interpreter übergeben. (Zum Beispiel so.)

Alles Gute zum Geburtstag!

#20 (Überarbeitet wegen _FileCountLines und der Verwendung von FileReadLine in einer Schleife mit Erhöhung des line Parameters.)

Q(1) = 1
Time: 0.210719445190402
Q(2) = 1
Time: 0.100949315602844
Q(3) = 2
Time: 0.168575556152322
Q(4) = 3
Time: 0.43369002091513
Q(5) = 3
Time: 0.486614904823417
Q(6) = 4
Time: 0.873260584486736
Q(7) = 5
Time: 1.53335149767621
Q(8) = 5
Time: 2.4982505385597
Q(9) = 6
Time: 4.43441920820453
Q(10) = 6
Time: 8.64047734324923
Q(11) = 6
Time: 13.1248811640338
Q(12) = 8
Time: 21.5208259418179
Q(13) = 8
Time: 35.5728726646895
Q(14) = 8
Time: 58.74711118342
Q(15) = 10
Time: 100.003038280373
Q(16) = 9
Time: 165.12367761297
Q(17) = 10
Time: 290.580154736679
Q(18) = 11
Time: 352.634581119146
Q(19) = 11
Time: 359.600573940963
Q(20) = 12
Time: 643.724872931274
Q(21) = 12
Time: 1117.36142011185
Q(22) = 12
Time: 1668.22174350249
Q(23) = 12
Time: 4005.5899458402
Q(24) = 16
Time: 15733.9274968294
Q(25) = 14
Time: 21965.814445357
Q(26) = 14
Time: 16025.8807582764
Q(27) = 16
Time: 23879.8923664676
Q(28) = 16
Time: 36067.0254451081
Q(29) = 16
Time: 58799.7003863517
Q(30) = 16
Time: 91326.1275450499

Das Problem ist, dass bei Q(30) der Rekursionslevel selbst auch so ungefähr bei 30 liegt, also noch sehr niedrig. Daraus folgt, dass man wahrscheinlich mehrere Stunden auf das Ergebnis warten könnte, nur um dann einen Rekursionsfehler zu erhalten...

Einverstanden, dann wird das zwar ein paar Zeilen länger, aber das ist ja eigentlich egal. Wird geändert.