Beiträge von Tigger1975

Tigger1975

Na ist doch klar!

das Erzeugte Array ist 0 basierend und ich habe die Berechnung nicht geändert.

Aber da es sich um einen Testaufbau Gehandelt hat in dem die Ergebnisse nicht wirklich eine Rolle Spielen habe ich mich nicht darum gekümmert.

Aber nur für dich @autoBert habe ich das nochmal richtig gebaut.

Spoiler anzeigen

[autoit]

Func _berechnen_3()
$timer1 = TimerInit()
$inhalt = FileRead("geschwindigkeitstest.ini")
Dim $vars[31]
$maximal = StringRegExp($inhalt, '(\[[\w\d\s=\]]*)', 3) ;IniReadSectionNames("geschwindigkeitstest.ini")
For $j = 0 To UBound($maximal) - 1
;$SectionName = StringRegExp($maximal[$j],'\[([\w\d\s=]*)',3) as array base 0
$split = StringRegExp($maximal[$j], '[\w\d]*=([\w\d]*)\s', 3)
For $k = 0 To 29
$vars[$k] = StringTrimLeft($split[$k], StringInStr($split[$k], "="));IniRead("geschwindigkeitstest.ini", $j, $k, 0);
Next
$test1 = $vars[0] * $vars[3]
$test2 = $vars[1] * $vars[4]
$test3 = $vars[2] * $vars[5]
$test4 = $vars[3] * $vars[6]
$test5 = $vars[4] * $vars[3] / $vars[0] * $vars[8]

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

[/autoit]

Jetzt zufrieden?

Tigger1975

Zitat von Linuxfreak

Kann ich das speichern unter mit autoit machen? Wär super wenn du mir das zeigen könntest.

IE.au3 eine Sammlung von Dokumentierten UDFs die bei der Installation von Autoit im Include Ordner vorhanden sind.

Tigger1975

Oder Viel einfacher möglicherweise kann man raus bekommen wo die Daten gespeichert werden und sie einfach am Zielort verändern z.b. Regestry oder INI oder so.

Tigger1975

Wie Fändest du es das dein mühevoll zusammengetragenes wissen was du Gene Veröffentlichen willst plötzlich unter Anderem Namen auftaucht.
im Übrigen ist das Uhrhebelrecht nicht was in Irgendeiner weise Erklärt werden muss.
Es entsteht mit dem ersten Buchstaben / Pinselstriche eines Werkes und ist und unveräußerliches Recht. Lediglich das Nutzungsrecht kann Weitergegeben werden.

Selbst das in Arbeitsverträgen so gern gemachte "Alles in unserem Haus geschaffene Gedanken gut ist unser Eigentum" ist nicht möglich Lediglich das ausschließliche Nutzungsrecht kann dem Arbeitgeber übertragen werden.

Was du machen kannst ist mit Duden zu Sprechen deinen Vorschlag abzugeben und abzuwarten ob Sie dir eine Erlaubnis erteilen.
Zudem: Wenn das Ergebnis deiner Operationen genau das Ergebnis von Duden ist für jeden klar erkennbar das das die Seite von Duden ist die du Lediglich anzeigt und Vielleicht deine Suche eingebaut hat dann wird Duden möglicherweise daran Interessiert sein das du das Programm schreibst.

Versuchen kannst du es ja mal. Aber wenn du es Versucht hast du ein Nein bekommen hast halte dich auch daran ansonsten wird es Richtig Teuer.

Tigger1975

Hallo,

du könntest das mit den Funktionen aus ie.au3.
Schu dir das mal an.
Damit kannst du IE auf die URL schicken der kann dann auch Java Script.

oder mit Firefox und Firebug mal suchen welche JavaScript Funktion dir die richtige URL zusammen baut dann kannst du damit runter laden.

Tigger1975

Zitat von autoBert

Tigger1975, deine Lösung ist zwar die schnellste nur die Ergebnisse stimmen nicht.

Doch stimmen schon allerding Arbeite ich mit Linux, bekanntlich läuft Autoit nicht unter Linux, so habe ich mir eine VirtualBox aufgebaut und deswegen ist das erheblich langsamer.

Tigger1975

Hallo,

das könnte dir helfen:

http://www.autoitscript.com/forum/index.php?autocom=downloads&showfile=66

Tigger1975

Hallo,

ich habe mir auch mal die Mühe gemacht das etwas zu beschleunigen.
Nach meinen Test ist die Lösung die Schnellst (bis jetzt)

200 Sektionen;
Org 7204 7587
1 575 531
2 571 494
3 400 385

2000 Sektionen:
org - -
1 21892 22013
2 12795 11932
3 3981 3564

Änderung der Serstellen Funktion;

Spoiler anzeigen

[autoit]

Func _erstellen()
if FileExists("geschwindigkeitstest.ini") then FileDelete("geschwindigkeitstest.ini")
Local $Outstream = ""
For $j = 1 To 2000
$Outstream &= "[" & $j & "]" & @CRLF
For $k = 1 To 30
$Outstream &= $k & "=" & Random(1, 20000, 1) & @CRLF
Next
Next
FileWrite("geschwindigkeitstest.ini",$Outstream)
EndFunc ;==>_erstellen

[/autoit]

Func _berechnen_3() ist meine.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>

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

$Form1 = GUICreate("Form1", 625, 443, 192, 124)
$button_erstellen = GUICtrlCreateButton("erstellen", 64, 40, 89, 25, $WS_GROUP)
$button_berechnen = GUICtrlCreateButton("berechnen", 328, 40, 105, 25, $WS_GROUP)
$listview_anzeige = GUICtrlCreateListView("1|2|3|4|5|6|7|8|9|10|11|12|13|14|15", 88, 88, 345, 225)
$label_zeit = GUICtrlCreateLabel("Zeit", 100, 350)
Global $tests[4][2]

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button_erstellen
_erstellen()
Case $button_berechnen
$tests[0][0] = _berechnen("_berechnen_org")
$tests[1][0] = _berechnen("_berechnen_1")
$tests[2][0] = _berechnen("_berechnen_2")
$tests[3][0] = _berechnen("_berechnen_3")

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

$tests[0][1] = _berechnen("_berechnen_org", True)
$tests[1][1] = _berechnen("_berechnen_1", True)
$tests[2][1] = _berechnen("_berechnen_2", True)
$tests[3][1] = _berechnen("_berechnen_3", True)
_ArrayDisplay($tests)
EndSwitch
WEnd

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

Func _erstellen()
For $j = 1 To 200
For $k = 1 To 30
IniWrite("geschwindigkeitstest.ini", $j, $k, Random(1, 20000, 1))
Next
Next
EndFunc ;==>_erstellen

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

Func _berechnen($Function, $Refresh = False)
_GUICtrlListView_DeleteAllItems($listview_anzeige)
$timer1 = TimerInit()
If $Refresh Then _GUICtrlListView_BeginUpdate($listview_anzeige)
Call($Function)
If $Refresh Then _GUICtrlListView_EndUpdate($listview_anzeige)
$Timerdiff = TimerDiff($timer1)
GUICtrlSetData($label_zeit, $Timerdiff)
Return $Timerdiff
EndFunc ;==>_berechnen

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

Func _berechnen_org()
Dim $vars[31]
$maximal = IniReadSectionNames("geschwindigkeitstest.ini")
For $j = 0 To $maximal[0]
For $k = 0 To 30
$vars[$k] = IniRead("geschwindigkeitstest.ini", $j, $k, 0)
Next
$test1 = $vars[1] * $vars[4]
$test2 = $vars[2] * $vars[5]
$test3 = $vars[3] * $vars[6]
$test4 = $vars[4] * $vars[7]
$test5 = $vars[5] * $vars[4] / $vars[1] * $vars[9]

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

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

Func _berechnen_1()
_GUICtrlListView_DeleteAllItems($listview_anzeige)
Dim $vars[31]
$maximal = IniReadSectionNames("geschwindigkeitstest.ini")
For $j = 1 To $maximal[0]
$vars = IniReadSection("geschwindigkeitstest.ini", $j)
$test1 = $vars[1][1] * $vars[4][1]
$test2 = $vars[2][1] * $vars[5][1]
$test3 = $vars[3][1] * $vars[6][1]
$test4 = $vars[4][1] * $vars[7][1]
$test5 = $vars[5][1] * $vars[4][1] / $vars[1][1] * $vars[9][1]

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

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

Func _berechnen_2()
$inhalt = FileRead("geschwindigkeitstest.ini")
Dim $vars[31]
StringReplace($inhalt, "]", "]")
$maximal = @extended ;IniReadSectionNames("geschwindigkeitstest.ini")
For $j = 0 To $maximal
$a = StringInStr($inhalt, "]" & @CRLF, 1, $j + 1) ;position ]
$b = StringInStr($inhalt, "[", 1, $j + 2) ;position [
If $b = 0 Then $b = StringLen($inhalt) ;letzte
$str = StringMid($inhalt, $a + 1, $b - $a - 1)
$split = StringSplit($str, @CRLF, 3)
For $k = 1 To 30
$vars[$k] = StringTrimLeft($split[$k], StringInStr($split[$k], "="));IniRead("geschwindigkeitstest.ini", $j, $k, 0);
Next
$test1 = $vars[1] * $vars[4]
$test2 = $vars[2] * $vars[5]
$test3 = $vars[3] * $vars[6]
$test4 = $vars[4] * $vars[7]
$test5 = $vars[5] * $vars[4] / $vars[1] * $vars[9]

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

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

Func _berechnen_3()
$timer1 = TimerInit()
$inhalt = FileRead("geschwindigkeitstest.ini")
Dim $vars[31]
$maximal = StringRegExp($inhalt, '(\[[\w\d\s=\]]*)', 3) ;IniReadSectionNames("geschwindigkeitstest.ini")
For $j = 0 To UBound($maximal) - 1
;$SectionName = StringRegExp($maximal[$j],'\[([\w\d\s=]*)',3) as array base 0
$split = StringRegExp($maximal[$j], '[\w\d]*=([\w\d]*)\s', 3)
For $k = 0 To 29
$vars[$k] = StringTrimLeft($split[$k], StringInStr($split[$k], "="));IniRead("geschwindigkeitstest.ini", $j, $k, 0);
Next
$test1 = $vars[1] * $vars[4]
$test2 = $vars[2] * $vars[5]
$test3 = $vars[3] * $vars[6]
$test4 = $vars[4] * $vars[7]
$test5 = $vars[5] * $vars[4] / $vars[1] * $vars[9]

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

[/autoit]

Tigger1975

Das ist genau das Problem wenn ich das alles erklären könnte bräuchte ich die Fragen wohl nicht stellen.
Ich suche halt jemanden der mit dem Mictosoft SOAP Toolkit 3.0 Erfahrung hat.

Aber soviel weis ich die XML Datei ist die Schnittstellen Deffinition dieeigentlich von
SOAPClient gelesen wird und danach baut er sich selbst Methoden aufgrund der XML Datei auch WDSL genannt. Diese Funktionen kann man dann nutzen um mit dem Webservice zu Sprechen.
Aber in meinem Fall muss ich die Kommunikation immer mit dem Richtigen Port beginnen z.B.
für die Anmeldung muss ich den Port "authenticationPort" verwenden wenn ich aber z.B die instanzen sehen möchte brauche ich den "instances_soapPort".
und genau damit habe ich Problem und ich Suche jemanden der so was ähnliches schon mal gemacht hat.

Unter PHP gibt es einen Toolkit der sich selbst darum kümmert welcher Port verwendet werden muss.

Tigger1975

Hallo,

ich habe ein Problem ich möchte einen Webservice nutzen der mehrere Ports verwendet (http://demo.infra-struktur.de/webservice/wsdl/wsdl.php?ido ).
Alle Beispiele die ich finde Funktionieren mit nur einem Port also leicht.

gibt es eine Möglichkeit das sich der SoapClient selbst den richtigen Port für die Funktion sucht?

Tigger1975

Nochmal Poste mal deine scripte, das für deine Exe (kann auch das script zum testen sein.) und das Batch file.
sonnst kann die hier niemand weiterhelfen.

Tigger1975

Du hast den Parameter Sofort weiter (%4 = 1)
hast du eine Schleife mit der du den vorgang überwachst?
Ich bin mir nicht sicher aber ich glaube wenn das Script beendet wird wird auch der Download abgebrochen.
Oder versuch es doch mit %4 = false) (Defoult)

Tigger1975

Hast du es mal mit dem gegebenen Beispiel verucht?
Kannst du mal dein Script posten so das man sich das anschauen kann. denn eicgentlich müsste es genau so Funktionieren.

Tigger1975

Hi,

wen du die ExeCompilierst setze das häkchen auf Create Gui instad of gui.exe

wenn du dann mit ConsoleWrite() Test auf die Console sendest kommt der in deinem CMD Pompt an

Tigger1975

Hallo danke erstmal,

So den Stream rein und raus habe ich.

es hat sich aber rausgestellt das derm gestramten output file der WAVE Header fehlt. Und em ende zeigte ich der ausgabetext der exe.

Tigger1975

Mir ist noch ein Fehler aufgefallen ich habe beim Run einen Parameter zu weing angegeben.
Jetz bin ich soweit das stdin un out auf mit der exe Verbunden sind.

Aber Daten fliesen dennoch nicht richtig.

Tigger1975

Ich bekomme das speex file als stream von einem FTP server.

deswegen woolte ich es über stdin und stdout laufen lassen was laut docu ja gehen soll. das ist es was in meinen Funktionen umgesetzt werden sollte. Deine lösung ist der letzte ausweg.
Ich würde es immernoch gerne über die IOStreams machen.

Tigger1975

Hallo

ich habe mir ein paar sachen zusammen gesucht um die Fritzbox Anrufbeantworter Files (speex formart ohne Container) in wave zu Convertieren.
Aber so wie Ich das machen wollte geht es nicht.

Converter Funktionen:

Spoiler anzeigen

[autoit]

#include-once
#include <Constants.au3>

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

Global $sSpeexDecBin = @ScriptDir & "\speexdec-fb.exe"
Global $sSpeexEncBin = @ScriptDir & "\speexenc-fb.exe"
Global $bSpeexDec = FileExists($sSpeexDecBin)
Global $bSpeexEnc = FileExists($sSpeexEncBin)

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

FileInstall(@ScriptDir & "\speexdec-fb.exe",@ScriptDir & "\speexdec-fb.exe")
FileInstall(@ScriptDir & "\speexenc-fb.exe",@ScriptDir & "\speexenc-fb.exe")

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

Func _speexDecFB($infile)
;ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $infile = ' & BinaryToString($infile) & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
Local $outfile
if $bSpeexDec Then
$Pid = Run($sSpeexDecBin & " - - ",@ScriptDir,$STDIN_CHILD+$STDOUT_CHILD)
StdinWrite($Pid,$infile)
StdinWrite($Pid)
While True
$outfile &= StdoutRead($Pid)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $outfile = ' & $outfile & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
If @error Then ExitLoop
Sleep(25)
WEnd
return $outfile
Else
Return SetError(1,0,0)
EndIf
EndFunc

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

Func _speexEncFB($infile)
Local $outfile
if $bSpeexEnc Then
$Pid = Run($sSpeexEncBin & " - -",@ScriptDir,$STDIN_CHILD+$STDOUT_CHILD)
StdinWrite($Pid,$infile)
StdinWrite($Pid)
While True
$outfile &= StdoutRead($Pid)
If @error Then ExitLoop
Sleep(25)
WEnd
return $outfile
Else
Return SetError(1,0,0)
EndIf
EndFunc

[/autoit]

Testscript:

Spoiler anzeigen

[autoit]

#include "speex_converter.au3"
$infile = FileOpen(@ScriptDir & "\rec.0.spx")
$RC = FileRead($infile)
$RC = _speexDecFB($RC)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $RC = ' & $RC & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

[/autoit]

Im Anhang befindet sich ein Speex File rec.0.spx welches convertiert werden soll. Es schein aber irgent wie mit dem IOStreem probleme zu geben.

Tigger1975

Hallo,

ich brauche mal Ideen für die Erzeugung eines Lizenzkeys der auf der Programm seit als Plausibel erkannt werden kann und von mir generiert werden kann.

Z.B. Name des Anwenders, Rechnername, ... usw

Super wäre wenn man eine Laufzeit mit einbauen kann.

Tigger1975

Hm nach einigem hin und her kommt diese Fehlermeldung:

Die Nachricht konnte nicht an den SMTP-Server gesendet werden. Der Transportfehlercode lautet 0x800ccc62. Die Serverantwort lautet 500 Line limit exceeded

ich habe auch mal den body rausgenommen sprich eine leere mail versendet. Selbes Ergebins

Beiträge von Tigger1975

ini zu langsam, Alternative zu ini

Daten einer Homepage in Datei kopieren

Fenster reagiert nicht

Rechtsfragen

Daten einer Homepage in Datei kopieren

ini zu langsam, Alternative zu ini

Administartor hinzufügen?

ini zu langsam, Alternative zu ini

hat jemand erfahrung mit MSSOAP.SOAPClient?

hat jemand erfahrung mit MSSOAP.SOAPClient?

Autoit CMD ansprechen.

InetGet

Autoit CMD ansprechen.

Autoit CMD ansprechen.

Fritzbox Speex to wav!?

Fritzbox Speex to wav!?

Fritzbox Speex to wav!?

Fritzbox Speex to wav!?

Lizenz Managemnt für Autoit Porgramme

wer hat mit dieser UDF erfahrung? _INetSmtpMailCom