Beiträge von TimBlo

Hi

Ich komme mit dem socket Modul von Python noch nicht klar, und obendrauf weiss ich nicht, womit die Rote linie (Der kommentar) zu ersetzen ist.
Also eins nach dem anderen. Ich habe die Befehle so aneinander gereiht wie sie meiner meinung nach sollten.
Sinn ist es, nach dem Befehl zu senden, zu versuchen eine Verbindung aufzubauen und zwar in der Non-Blocking mode.
Mit der Funktion StatusUpdate() soll dann weiter versucht werden das Request zu senden und die Antwort einzuholen.

In RFC 2616 ist alles genau beschrieben, damit bekomm ichs hin... hätte vorher draufkommen sollen
das HTTP Protokoll enthält 5 regeln zum erkennen der Nachrichtenlänge und somit zum erkennen des endes der nachricht.
ich bin jetzt hoffentlich auf einem guten weg

Beim letzten Versuch in der IDLE habe ich ein Request erstellt und an Google geschickt, nach unendlich StatusUpdate() wars mit RequestState immernoch "Connecting"

Wenn du auf geschwindigkeit setzst, dann nimm nicht RegExp
sry, aber is so
StringInStr()
StringLeft()
StringTrimLeft()
STringRight()
StringTrimRight()
StringMid()
das sind die wichtigsten funktionen um schnell zu informationen zu kommen

Zitat

Kannst mir dies mal bitte als Beispiel mit einem Ordner machen? Ich verstehe nicht ganz, wofür dieses $ary und $mask sein soll

$ary und $ar0 sind nur zwischenspeicher.
$mask filtert das ganze noch. kannste "*" rein packen dann kommt alles raus.

selfmade und schon für tausende daten verwendet worden:

#include <File.au3>
#include-once
;This function uses recursion, but there is no risk.
Func FileCollect($path, $mask)
Global $filecollectar[1]
$filecollectar[0] = 0
$filecollectar = FileCollectFolders($filecollectar, $path, $mask)
Return $filecollectar
EndFunc
Func FileCollectFolders($ary, $path, $mask)
$ar0 = _FileListToArray($path, "*", 2)
If not @error Then
For $c = 1 To $ar0[0]
$ary = FileCollectFolders($ary, $path&"/"&$ar0[$c], $mask)
Next
EndIf
$ar0 = _FileListToArray($path, $mask, 1)
If Not @error Then
ReDim $ary[$ary[0]+$ar0[0]+1]
For $c = 1 To $ar0[0]
$ary[$ary[0]+$c] = $path&"/"&$ar0[$c]
Next
$ary[0] += $ar0[0]
EndIf
Return $ary
EndFunc

die differenz zu dem was du willst ist, das hier gibt ein array, du musst
For $c = 0 To $array[0]
Filewrite("output.txt", $array[$c]&@CRLF)
Next
machen. in etwa

jojo.

der titel sagt alles.
ich weiss nicht was an meinem Code noch alles so falsch ist, aber er empfängt definitivimus nur teilantworten.
ich dachte ich hätte es grad noch gefixt gehabt... ääääh kp was ich genau gemacht hab.
vllt bin ich ein bissel noob, aber kann mir trotzdem einer erklären wies besser funktionieren würde

wenn ich was vergesse kommt das heut mittag oder so, ich geh

hmmm. ich weiss leider auch nicht genau wie AutoIt funktioniert aber ich bin besorgt, weil ich gerade feststelle dass er für die letzten 2 dateien etwa 70 Minuten brauchte.
das wären 171KB oder sowas...
ich weiss nicht recht, aber ich glaube ich geb euch mal meine UDF für das interface und dann stelle ich die source rein.
ich wills aber erst noch ausbessern. der UDF fehlt noch der letzte schliff. am donnerstag werde ich womöglich nochmals tiefer darauf eingehen.

das programm welches ich habe verarbeitet einfach massenweise daten. in meinem fall grade 278MB aber gibt noch mehr daten dieser art.
ich habe einfach alle files in ein array als warteschlange gestellt und lass jede datei durchlaufen...

die funktionen von euch sind aber super als ich meine geschrieben habe, dachte ich, ich bräuchte am ende das array noch. tja. so kanns gehen.

Zitat von AspirinJunkie

Eigentlich klingt das ja eindeutig aber wenn ich deine Funktion mal mit folgendem Array teste:

[autoit]

Global $a_Test[10] = ["a", "v", "c", "x", "v", "c", "h", "c", "a", "a"]

[/autoit]

Kommt als Ergebnis "v" heraus mit der Anzahl 1 (obwohl es ja 2x vorkommt).

Ja, sry
für mich ist es standard dass ich arrays mit indexen erstelle, so kann es nicht passieren dass man mit ReDim plötzlich ein leeres array $ar[0][2] oder sowas erstellt.
du hast mir nen echten schock eingejagt weil ich grad dachte das programm läuft jetzt fehlerhaft
warum es keinen fehler ausgibt wenn man keinen index anbaut ist.... hab ich nich untersucht so gehts doch:

Zitat von AspirinJunkie

So wie ich dich verstanden habe sollte aber entweder "a" oder "c" herauskommen - jeweils mit dem Vorkommen 3 - oder?

Jawohl. Ich sags mal so. Im test funktioniert es. aber scheinbar sagt er mir grad nicht dass noch etwas anderes(-> "c") 3mal vorkommt

die frage gilt aber vorwiegend wirklich der geschwindigkeit. für 1.3 MB braucht er schon einige minuten.
ich kann sonst einmal eine "testumgebung" machen die beide methoden vergleicht.

ich verstehe nicht genau was du meinst.

gerade habe ich z.B 1.3MB 64er Strings in nem array das macht mehr als 43'000 elemente für das Array. allein dadurch wird es langsam. die funktion geht eig noch, nur dass die halt dieselbe menge an daten verarbeiten muss und wenn jeder string anders ist, dann geht das gut ewig.

ich muss jetzt weg. schaue später nochmal. aber danke soweit.

Hi

ich hab mal wieder ein problemlein wo ihr mir womöglich helfen könnt.
es geht darum, dass folgende funktion bei mehr als einem megabyte ziemlich ewig warten lässt.

Func ArrayCountS($array)
Dim $ary[2][2]
$ary[0][0] = 1
$ary[1][0] = $array[1]
$ary[1][1] = 1
$best = $array[1]
$cbest = 1
$dublic = 0
For $c = 2 To $array[0]
For $i = 1 To $ary[0][0]
If $ary[$i][0] = $array[$c] Then
$ary[$i][1] += 1
If $ary[$i][1] > $cbest Then
$dublic = 0
$best = $array[$c]
$cbest = $ary[$i][1]
ElseIf $ary[$i][1] = $cbest Then
$dublic = 1
EndIf
ContinueLoop 2
EndIf
Next
$ary[0][0] += 1
ReDim $ary[$ary[0][0]+1][2]
$ary[$ary[0][0]][0] = $array[$c]
$ary[$ary[0][0]][0] = 1
Next
Return SetError($dublic, $cbest, $best)
EndFunc

Wie der name sagt, soll sie die teile in dem array zählen. rückgabewert ist dann das element im array, welches am oftesten vorkommt. als @extended sagt es, wie oft es vorkam und @error sagt ob ein anderes element genau gleich oft kam.

das problem ist eben einfach die dauer bis es das jeweilige element gefunde hat. kennt dazu jemand eine lösung die möglichst doppelt so schnell ist?
womöglich geht es kaum schneller, aber wäre schon praktisch

EDIT:
Ich habe die geschwindigkeiten eurer Funktionen verglichen
AspirinJunkie's Funktion war im Test mit 512kB Daten die Schnellste. (Test mit 40k Elementen)
Die langsamste Funktion war meine mit beträchtlichem rückstand.
Die Ergebnisse (Ausgabe des UIs von meiner UDF TimBug. Die werd ich wenn möglich mal auf meine webseite posten ^^)

TimBug v1.0 by TimBlo


 INFORMATION  Dieses Programm testet die geschwindigkeit ihrer Funktionen.


 -Funktion 1  Dauer: 21m 47.4s Geschwindigkeit: 0.39kB/s (Original) (2D Array)
 -Funktion 2  Dauer: 2.6s      Geschwindigkeit: 195.83kB/s (by ProgAndy)
 -Funktion 3  Dauer: 0.3s      Geschwindigkeit: 1559.55kB/s (by ProgAndy) (2D Array)
 -Funktion 4  Dauer: 0.3s      Geschwindigkeit: 1883.5kB/s (by AspirinJunkie) (2D Array)


20:03 Testprogramm beendet
20:03 Test Funktion 4 Abgeschlossen. 0.3s   1883.5kB/s
20:03 Test Funktion 3 Abgeschlossen. 0.3s   1559.55kB/s
20:03 Test Funktion 2 Abgeschlossen. 2.6s    195.83kB/s
20:03 Test Funktion 1 Abgeschlossen. 21m 47.4s 0.39kB/s
19:41 Testprogramm eingeleitet
19:41 Testprogramm gestartet


TimBug v1.0 by TimBlo

Ich denke die ergebnisse (erstaunlich) stimmen so. wenn ich was falsch gemacht habe, wirds sich schon bemerkbar machen
Danke an ProgAndy und AspirinJunkie.

okay, wie müsste folgendes aussehen, wenn der Binary Mode nicht verwendet wird? (nicht das du mir das neu schreiben musst, aber wenn du mir iwie ein par tipps hast)

$pattern = "73656C65637400000000[0-9A-F]{2}000000[0-9A-F]{2}00000000000000(?:0000(?:[1-9A-F]{2}|[1-9A-F]0|0[1-9A-F])0\d0000|[0-9A-F][0-9A-F]00736F756E645F6B6579203[0-9](?:[1-9A-F]{2}|[1-9A-F]0|0[1-9A-F])0\d0000)*"
$founds = StringRegExp($FileSource, $pattern, 3)

für die variable $FileSource kannst du inen inhalt einer datei nehmen...
das beispiel soll halt betimmte bytes finden und wenn ich nicht weiss wie man in einem normalen string ein zeichen mit dem null wert findet, dann wärs ma zeit es zu lernen.

für den vorgang brauche ich diese funktionen : StringReplace, StringRegExpReplace und StringRegExp
wenn es mit diesen geht, wirds mit StringLeft usw. auch gehen...

ich glaube jetzt sind wir dem ziel doch näher gekommen

Zitat von Andy

du liest eine Datei falsch aus, und gibst dem Programm die Schuld an deiner Unfähigkeit....

Manche leute sind auch unfähig im lesen oder?
ich habe bereits gesagt, dass es funktioniert, aber da du wohl nichtmal ein par sätze "geschreibsel" richtig interpretierst, kann alles seinen sinn verlieren.

progandy hat längst verstanden worum es geht.
so wie autoit binärdaten verarbeitet ist es langsam!
und sorry dass ich mir nicht die mühe mache shift zu drücken wenn ich auf einer uralten PS2 Tastatur mit scheizer tastaturlayout und deutschem PC schreibe, die tasten sind beinahe schon richtig verklemmt -.-

also es gibt kein BinaryRegExp oder BinaryReplace und damit wäre der fall schon klar. war ja nich so schwer oder?

ich stelle meine fragen in etwa immer so.
seid ihr euch eig gewohnt von mir - was auch immer das für gründe haben mag

ausserdem weiss ich nicht wieviel mehr der Code bringen würde...
es geht nur darum bei StringReplace das vergleichen nur alle 2 zeichen zu machen, da ein byte im binärstring 2 zeichen benötigt
das is jetz eig unkompliziert ausgedrückt

der code, den ich zurzeit bearbeite funktioniert schon, hat eigentlich auch nicht viel mit der frage zu tun...

memememe

das sind normale dateien, keine textdaten
also sind daten die man mitm editor zb. nicht bearbeiten kann

wenn ich auslese habe ich dann ja nen "0x..." string
mache beim lesen&schreiben einfach binarymode. ich habe ja haufenweise nicht druckbare zeichen

auf jeden fall gehts bei autoit ewig, möchte das wenn möglich schneller haben.
da is mir eben aufgefallen dass nur 2 zeichen aus dem hex-string ein byte geben, aber autoit weiss das doch nicht und kombiniert daher eig jedes zweite mal halbe bytes..

Hi

ich habe nur ein kleines problem, aber es ist möglich dass es keine lösung gibt

ich habe einen String wo der inhalt einer datei drin ist, und das halt in Hexzeichen.
also immer 2 zeichen gehören zusammen.
an diesem string will ich herumbasteln, aber das dauert mit AutoIt im bereich von Megabyten schon sehr lange.
normalerweise werden strings bei StringRegExp, StringRegExpReplace und StringReplace immer ein zeichen nach dem anderen verarbeitet.
aber dabei werden ja halbe Bytes überprüft, und das ist, finde ich, schon ein schrecklicher gedanke.
gibt es iirgend nen ausweg?

Der Server lief schon, ich wollte nur die sache demonstrieren!

Ich habe ungefähr viel erfahrung mit bukkit
Auf dem Server sind durchschnittlich 6 Spieler, und ich schlag mich dann immer mit der Konsole rum um alles schön am laufen zu haben.
Vielleicht bin ich nicht der Top von allen Server besitzern, aber erfahrung hab ich sicher und so wies aussieht genügts um einen server "normal" zu hosten.

Die user helfen sich halt selber und so kommt es ständig zu einem durcheinander, ich versuche mit meinen kleinen mühen alles ordentlich zu halten.
--> aufm ersten Bukkit Server hatte ich netmal ein plugin und der machte schon fehler.
Das ist auch nix schwerwiegendes, eher so "exceptions" wie der name schon sagt.

Mit servern allgemein kenn ich mich schon aus, daher war es ein leichtes den server zu erstellen.
und du hast deine aussage beinahe selber gemäht, du hast interresse am projekt (autoit) und sagst hastn Debian Root
willst du etwa mit Wine Spielen? lol

Also ich sage mal, das Makro für den Server bekomm ich locker zum laufen:
-> anzeige einiger Infos wenn ein user einloggt
-> anzeige ob ein user spielabsturz hatte oder disconnected hat.
-> anzeige ob jemand gestorben ist.
-> anzeige wer alles on ist
-> anzeige eines geplanten serverneustarts mit countdown
-> eigende Gruppenmanage funktion. (für das plugin GroupUser)
-> eigene Votemaps
-> automatische aktualisierung der website.
-> funktionen wie spieler zeitweise bannen.

ich denke ich habe mich zusammengefasst

Das problem war nur die konsole, problem gelöst.
ente gut, alles gut

aber danke nochmal

------------------------------ EDIT heute 10.2.11 --------------
Der Server spukt nun keine fehler mehr aus =)
Ich habe nun die 64bit version von Java und kann dem Server mehr als 2 gigs geben.
Daher werde ich mir auch neue Rahm kaufen
also damit ir wisst was mit 2 gigs gemeint ist

Die speicherdatei des Spiels : 20 MB
Die Serverspeicherauslastung: 2+ gig
fail

okay, danke.

Ich geh über die Logfiles, hoffe auf zuverlässigkeit.
und die befehle sollte ich an die konsole schicken können.

ich denke wirklich dass java etwas locker programmiert ist (abgesehen davon dass es noch in Beta ist), denn es spuckt jedes mal wenn ein client die verbindung abbricht nen fehler raus.
Aber so wirds hoffentlich gehen.

eigentlich habe ich genau das programmiert..?
kanns an java liegen?

also der ganze text landet ja in SciTe..

oder wenn ich einfach das win-cmd fenster lesen könnte, also was drin steht, aber ich glaub das geht auch net so gut?

irgendwas mache ich garantiert beim auslesen falsch denn das kommt alles problemlos in die SciTe konsolenanzeige rüber

bei deinem codebeispiel landet das nicht in der konsolenanzeige
und da klappts auch. omg ich hab so kein plan

Also, Ich brauche eig umbedingt diesen STD OUT, und der sollte sich iwie haben können

Am server ist alles Bestens, er ist im inet und läuft sauber und den ganzen tag mit bis zu 10 spielern lagfrei, weiter ist ungetestet.
Zombiemode laggt halt mal.

Klar - Win7 64 bla bla.

Was möglich ist weiss ich ja schon,

aber schaut euch mal im post oben den code zu unterst an, da schickt java weiter ne fehler info die kommt eigentlich nicht.
Ist mir halt nicht aufgefallen weil die normalerweise nicht kommt.
//Edit: das war weil bei opt flaf 0x2 drin hatte sry. das problem muss anders sein.

Die eigentliche frage ist immernoch wie ich an das komme was im Konsolenfenster steht

iwie wird das doch zu schaffen sein.
Omg wenn ich bei Google STD Tutorial Autoit eingeb dann kommt er mit stunden und standard -.-

moin moin

jaja ich bin ein inaktiver user geworden.
aber ich brauch auch mal help und ich hab mich auch schon näher mit Foren angefreundet, anstatt immer Chats zu verwenden...

Bevor ich jetzt also komplett ins gras Beisse frag ich mal euch, denn ich mache alles komplett falsch abgesehen der ersten zeile..
Ich kann einfach den fehler nicht orten, also erkläre ich mal worum es geht

Ick bin glückliker besitzer eines MinecraftServers. Ein Teilnehmer hat mir nun einen neuen Server mit Plugins und solchem zeug zusammen gebastelt, weil ich mit Plugins nur Stress bekomme.
Ich bin aber glücklicher AutoIt bastler und um die Administration zu halten, wollte ich ein makro dazu schreiben, ein Server Interface um genau zu sein.

Dieses Interface soll dinge wie VoteMaps über den Chat hosten können.
Und es soll die User auf die regeln aufmerksam machen und hallo User sagen usw..

Der Server wird mit folgenden Kommandos gestartet:

"%ProgramFiles(x86)%\Java\jre1.6.0_07\bin\java.exe" -Xms1512M -Xmx1512M -jar craftbukkit.jar

Es ist ein bukkit server, daher der name... genaus darüber weiss ich nicht, aber bukkit hab isch schon mal selber zum laufen gebracht.
allerdings war ich so bequem den server von minecraft.net zu nehmen damit die lows nich cheaten.

Dieser server gibet nun solche ConsoleWrite daten zurück.
Ich will den Server über AutoIt starten können und diese Konsolen Infos haben.
Besser wäre noch wenn ich das Makro so OnTheFly am server anbringen könnte.

Die Konsole sieht so aus:

Dies spuckt also auch mal Java Fehler aus, aber ich kann die mit Regex schon erkennen.

Ich müsste dann halt auch Kommandos geben können, sonst kann das makro den usern ja nich hallo sagen.
aber die kann ich notfalls auch mit ControlSend machen glaube ich ...

und ääh ja was muss ich noch sagen?

genau. zum code:

$PID = Run("C:\Program Files (x86)\Java\jre1.6.0_07\bin\java.exe -Xms1512M -Xmx1512M -jar craftbukkit.jar", "D:\Programme(x86)\MINECRAFT\GAMMA SERVER", @SW_MINIMIZE, 0x2)
Sleep(400)
$stream = StdoutRead($PID)
If @error Then
MsgBox(48, "Server Console error", @error&" Server fehler")
Exit
EndIf
While True
$stream &= StdoutRead($PID)
ClipPut($stream)
WEnd

Die erste zeile klappt, dann kommt die ganze konsole sozusagen in SciTe's Konsolenanzeige:

>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "D:\Programme(x86)\MINECRAFT\GAMMA SERVER\ServerControl.au3" /autoit3dir "C:\Program Files (x86)\AutoIt3" /UserParams    
+>13:14:47 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0409  Keyboard:00000407  OS:WIN_7/  CPU:X64 OS:X64)
>Running AU3Check (1.54.19.0)  from:C:\Program Files (x86)\AutoIt3
+>13:14:47 AU3Check ended.rc:0
>Running:(3.3.6.1):C:\Program Files (x86)\AutoIt3\autoit3_x64.exe "D:\Programme(x86)\MINECRAFT\GAMMA SERVER\ServerControl.au3"    
java.io.IOException: Das Handle ist ungültig
	at java.io.FileInputStream.readBytes(Native Method)
	at java.io.FileInputStream.read(Unknown Source)
	at java.io.BufferedInputStream.read1(Unknown Source)
	at java.io.BufferedInputStream.read(Unknown Source)
	at sun.nio.cs.StreamDecoder.readBytes(Unknown Source)
	at sun.nio.cs.StreamDecoder.implRead(Unknown Source)
	at sun.nio.cs.StreamDecoder.read(Unknown Source)
	at java.io.InputStreamReader.read(Unknown Source)
	at java.io.BufferedReader.fill(Unknown Source)
	at java.io.BufferedReader.readLine(Unknown Source)
	at java.io.BufferedReader.readLine(Unknown Source)
	at net.minecraft.server.ThreadCommandReader.run(SourceFile:87)
2011-02-08 13:14:48 [INFO] Starting minecraft server version Beta 1.2_01
2011-02-08 13:14:48 [INFO] Loading properties
2011-02-08 13:14:48 [INFO] Starting Minecraft server on 192.168.1.6:25565
2011-02-08 13:14:48 [WARNING] **** FAILED TO BIND TO PORT!
2011-02-08 13:14:48 [WARNING] The exception was: java.net.BindException: Address already in use: JVM_Bind
2011-02-08 13:14:48 [WARNING] Perhaps a server is already running on that port?
+>13:14:54 AutoIT3.exe ended.rc:0
>Exit code: 0    Time: 6.898

Tja, heute hatte ich langweilig.

Programm 1: WiMa
Mit diesem Progrämmchen könnt ihr überflüssige Fenster einfach ausblenden wenn ihr es aktiviert und Strg & Umschalt & Leer drückt.
Um es wieder hervor zu holen drückt ihr dann Strg & Umschalt & s solange bis es kommt, die fenster werden der Reihe nach angezeigt und gleich aktiviert.
Wenn ihr möchtet dass das fenster beim nächsten Strg & Umschalt & s nichtmehr verschwindet, dann aktiviert ihr das fenster und drückt Strg & Umschalt & d.
Fazit: Für mich ist es wunderbar (iTunes anwerfen und weg damit von der Taskliste :D)

Programm 2: Starter
Um dieses Programm zu nutzen solltet ihr die Sourcen etwas umschreiben. Zurzeit bildet es nur HotKeys zu 3 verschiedenen Ordnern und blendet diese wieder aus wenn sie inaktiv werden.
Fazit: Mein Desktop is leer (UIIII Schöne&Coole Wallpapers )

Programm 5 ääh 3: Transparency
Dieses Programm ist nur dazu da, die Fenster auf eurem Desktop transparent zu machen. Damit man den Inhalt in praktisch allen Fällen noch lesen kann, wird das aktive Fenster mit weniger Transparenz dargestellt.
Ausserdem beinhaltet WiMa eine Funktion, die diesem Programm sagt, welche Fenster nicht Transparent werden dürfen.
Fazit: Ich hab den totalen durchblick (He das Wallpaper kam erst gerade! )