Vielen Dank für diese Antwort!
Unsere Entwickler programmieren sonst in Delphi und C++
Aber für mich als "Hobby" war mir das bisher zu viel Aufwand um selbständig zu erlernen...
Ich weiß nicht mal ob es von Delphi einen gratis Compiler gibt.
Veronesi
Bei meinem Notebook dauern die 800'000 Einträge 24.5 Sekunden (Aktuell) und 26.2 Sekunden (Beta)
OK. Die Beta ist langsamer, lassen wir das so stehen.
Aber weshalb habe ich folgenden Effekt:
Bei 100'000 Einträgen dauert es 620ms (aktuell)
Bei 800'000 Einträgen dauert es aber nicht 8x so lange (also 4.96 Sekunden), sondern 24.5 Sekunden!
Hier wäre ich froh, wenn ich eine Lösung fände, damit das Ganze eher Linear zunimmt....
Gruss Veronesi
Ich habe das folgende kurze Script mit der 3.3.7.14 Beta und der aktuellen stabilen Version (3.3.6.1) getestet.
Leider muss ich dabei sagen, dass die Beta eindeutig deutlich langsamer ist 
Kann das jemand bestätigen? Oder an liegt das an was anderem?
$oDictionary = ObjCreate("Scripting.Dictionary")
If @error Or Not IsObj($oDictionary) Then Exit MsgBox(0,"Fehler", "Objekt konnte nicht erstellt werden")
$Timer = TimerInit()
For $i = 0 To 100000
$oDictionary.Add($i, "Teststring")
Next
$End = TimerDiff($Timer)
MsgBox(0,"Dauer", Round($End, 2) & "ms")
Gruss Veronesi
So, ich habe nun wieder mal kurz ein Testprogramm erstellt:
#include "AutoItObject.au3"
$o = ObjCreate("Scripting.Dictionary")
_AutoItObject_Startup()
_AutoItObject_RegisterObject($o, "AutoIt.SourceFiles")
$Timer = TimerInit()
$PID = Run('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & @ScriptDir & '\' & 'test2.au3' & '"', @WorkingDir)
While ProcessExists($PID)
Sleep(10)
WEnd
MsgBox(0, '', TimerDiff($Timer))
$o = 0
_AutoItObject_Shutdown()
$o1 = ObjGet("AutoIt.SourceFiles")
;~ $o1 = ObjCreate("Scripting.Dictionary")
For $i = 1 To 1000
$o1.Add($i, $i)
Next
Exit
Lässt man nun test.au3 laufen, so wird die Endzeit angezeigt.
Danach muss man in test2.au3 die zweite Zeile wieder aktivieren (Kommentar entfernen) und danach nochmals test.au3 ausführen.
Dieses Mal ist es massiv schneller.
Logisch, da nun die Objektoperationen nicht noch durch die AutoItObject DLL müssen.....
Leider ist das für mich so viel zu langsam...
Hi
Ich habe nun mal mit einem kleinen Testprogramm den Geschwindigkeitsvergleich gemacht.
Leider sind die Objektoperationen aber um Faktoren langsamer...
Jetziges Programm: 35ms
Programm mit AutoItObject: 3625ms
Das ist für mich leider zu langsam. Muss ich wohl eine andere Lösung suchen.
PS: Momentan habe ich leider mein Testscript nicht mehr, kann es also nicht posten.
Das werde ich auf jeden Fall mal testen und Geschwindigkeitsvergleiche machen.
Auch wenn die Objektoperationen etwas langsamer werden, ist es u.U. immer noch schneller als wenn ich alles sequentiell ausführe!
Vielen Dank!
Grüße, Veronesi
Die ETH Zürich (Eidgenössische teschnische Fachhochschule)
AutoItObject
Aber ist ja egal, von woher es kommt.
Bei Deinem Beispielscript, funktioniert das auch so, wenn die ersten 6 Zeilen in einem anderen (AutoIt) Programm stehen?
Natürlich muss dann unten das entsprechende Programm aufgerufen werden, klar. Und das Hauptprogramm (unten) muss auch laufen, solange das obere läuft.
Würde das klappen?
Dann könnte ich das wirklich mal testen.
Danke + Beste Grüsse
Veronesi
Hallo Edmann
Das mit der RAM Datenbank habe ich hier Thread schon probiert - leider ohne Erfolg.
Der Tipp von Progandy tönt - wie zu erwarten war - sehr verheißungsvoll.
Leider habe ich mit eurem Projekt AutoItObject (von der Schweizer Fachhochschule??) noch nie etwas gemacht. Obwohl ich früher auch dort in der Schule war 
Zudem bin ich jetzt am A.... der Welt ohne Notebook. Kann es also frühestens in 2-3 Wochen testen.
Eigentlich setze ich sehr ungerne UDF oder Funktionen ein, welche ich nicht selbst geschrieben habe, oder zumindest nicht verstehe...
Aber eine andere Möglichkeit wird's wohl nicht geben?? Ich muss "nur" Objekte zwischen AutoIt Programmen übergeben können. Alle anderen Funktionen Eures Projektes bräuchte ich sowieso nicht.....
Vielen Dank schon mal für den sehr wertvollen Tipp!
Gruß, Veronesi
Hat keiner eine Idee hierzu?
Ich Weile die nächste Zeit in den Ferien, kann also kaum schreiben. Aber vielleicht bekomme ich bis dahin ja eine brauchbare Antwort?
Kleine Korrektur... bitte nochmals laden 
Naja, das kommt davon, wenn man es nicht richtig testet.
Da waren noch einige Fehler drinnen.
Nun die neue Version.
Funktioniert das?????
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global $Info = _GetNetworkInformations()
Global $NumberOfAdapters = @extended
Global $sTitle = "Index "
For $i = 1 To $NumberOfAdapters
$sTitle &= "| Adapter " & $i
Next
_ArrayDisplay($Info, "Network Informations", -1, 0, "", "", $sTitle)
For $Adapter = 0 To UBound($Info, 2) - 2
MsgBox(64, "Beschreibung von Adapter " & $Adapter + 1, $Info[1][$Adapter])
MsgBox(64, "MAC von Adapter " & $Adapter + 1, $Info[2][$Adapter])
MsgBox(64, "DHCP von Adapter " & $Adapter + 1, $Info[3][$Adapter])
MsgBox(64, "IP (DHCP) von Adapter " & $Adapter + 1, $Info[4][$Adapter])
For $i = 5 To $Info[0][$Adapter]
MsgBox(64, "IP " & $i - 4 & " von Adapter " & $Adapter + 1, $Info[$i][$Adapter])
Next
Next
;==================================================================================
; Function: _GetNetworkInformations()
; Description: Returns an array with some informations about all network cards
; Parameter(s): -
;
; Return Value(s): On Success: Return Array
; Column 0 Column 1 Column 2...
; Index 0 : Number of Indexes in this column
; Index 1 : Network Card Description
; Index 2 : MAC Address
; Index 3 : DHCP Enabled?
; Index 4 : IP of DHCP Server
; Index 5 : IP-Address 1
; Index 6 : IP-Address 2
; Index n : IP-Address n
;
; @Extended = Number of Adapters found
;
; On Failure: Sets @ERROR to none zero
; Author(s): Veronesi
; Note(s):
;==================================================================================
#include-once
[/autoit] [autoit][/autoit] [autoit]Func _GetNetworkInformations()
[/autoit] [autoit][/autoit] [autoit]Local $oWMI = ObjGet("Winmgmts:\\.\root\cimv2")
If Not IsObj($oWMI) Or @error Then Return SetError(1, 1, 0)
Local $oInstances = $oWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
Local $aNetworkAdapter[1][1], $aIP, $Row = 1, $Column = 0, $MaxRow = 0
For $oInstance In $oInstances
With $oInstance
$Row = 1
ReDim $aNetworkAdapter[100][$Column + 1]
$aNetworkAdapter[$Row][$Column] = .Description
$Row += 1
ReDim $aNetworkAdapter[100][$Column + 1]
$aNetworkAdapter[$Row][$Column] = .MACAddress
$aNetworkAdapter[$Row + 1][$Column] = .DHCPEnabled
$aNetworkAdapter[$Row + 2][$Column] = .DHCPServer
$Row += 3
$aIP = .IPAddress
For $i = 0 To UBound($aIP) - 1
ReDim $aNetworkAdapter[100][$Column + 1]
$aNetworkAdapter[$Row][$Column] = $aIP[$i]
$Row += 1
Next
If $MaxRow < $Row Then $MaxRow = $Row
$aNetworkAdapter[0][$Column] = $Row - 1
$Column += 1
EndWith
Next
ReDim $aNetworkAdapter[$MaxRow][$Column + 1]
$oInstance = 0
$oInstances = 0
$oWMI = 0
Return SetError(0, $Column, $aNetworkAdapter)
EndFunc ;==>_GetNetworkInformations
Gruss Veronesi
Am Anfang wird ja das Array (mit _ArrayDisplay) angezeigt.
Ändere diese Zeile mal in
_ArrayDisplay($Info)
[/autoit]
Damit sicher keine Zeile bei der Anzeige abgeschnitten wird.
Zeigt er dann dort alle Netzwerkkarten an, oder nicht?
Wenn nicht, dann muss es irgendwo an der Funktion liegen. Aber ich habe keine Ahnung wie man mit WMI die anderen Netzwerkkarten auch noch ansprechen könnte.
Ich meinte, dass er so alle bringen sollte....
Hallo ExBerliner
Also, wenn Du den Task manuell ausführst, dann funktioniert es? Dann ist aber der Monitor und das Bild etc. bestimmt alles eingeschaltet, oder?
Wäre ja nicht gut, wenn es dann schon nicht gehen würde.
Aber die Frage ist: Wie findet denn der Task den PC / Monitor Nachts um 00:01 vor?
Wenn dann der Bildschirm ausgeschaltet ist, (oder der PC im Standby oder gesperrt...) dann wird es nicht funktionieren.
Stelle doch die Zeit des Taskes mal so ein, dass er in den nächsten 5 Minuten startet. Dann wartest Du vor dem laufenden PC / Monitor / ... und achtest darauf, dass der PC/Monitor weder in den Standby, noch sonst was geht.
Wenn es dann funktioniert, musst Du vermutlich wohl oder übel in den Energiesparoptionen gewisse Dinge ausschalten!
Oder vielleicht kannst Du mit deinem Programm - vor dem eigentlichen Ablauf - den PC / Monitor etc. "aufwecken"? Natürlich nur, wenn es wirklich daran liegt!
Gruss Veronesi
Mach mal refresh.... habe es schon korrigiert
Das ist doch ganz einfach!
Ich habe die Funktion nochmals etwas umgeschrieben, damit die IP-Adressen zuletzt im Array erscheinen.
Dies deshalb, weil man nicht weiss, wieviele IP-Adressen vergeben wurden!!
Hier die neue Funktion.
Bei den MsgBox'es am Anfang, kannst Du schön erkennen, wie man die einzelnen Arrayelemente anspricht.
$array[Zeilenummer][Spaltennummer]
[/autoit]Im Kommentar meiner Funktion siehst Du, in welcher Zeilen/Spaltenkombination welche Information steht!
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global $Info = _GetNetworkInformations()
Global $NumberOfAdapters = @extended
Global $sTitle = "Index "
For $i = 1 To $NumberOfAdapters
$sTitle &= "| Adapter " & $i
Next
_ArrayDisplay($Info, "Network Informations", -1, 0, "", "", $sTitle)
For $Adapter = 0 To UBound($Info, 2) - 1
MsgBox(64, "Beschreibung von Adapter " & $Adapter + 1, $Info[0][0])
MsgBox(64, "MAC von Adapter " & $Adapter + 1, $Info[1][0])
MsgBox(64, "DHCP von Adapter " & $Adapter + 1, $Info[2][0])
MsgBox(64, "IP (DHCP) von Adapter " & $Adapter + 1, $Info[3][0])
For $i = 4 To UBound($Info) - 1
MsgBox(64, "IP " & $i -3 & " von Adapter " & $Adapter + 1, $Info[4][0])
Next
Next
;==================================================================================
; Function: _GetNetworkInformations()
; Description: Returns an array with some informations about all network cards
; Parameter(s): -
;
; Return Value(s): On Success: Return Array
; Column 0 Column 1 Column 2...
; Index 0 : Network Card Description
; Index 1 : MAC Address
; Index 2 : DHCP Enabled?
; Index 3 : IP of DHCP Server
; Index 4 : IP-Address 1
; Index 5 : IP-Address 2
; Index n : IP-Address n
;
; @Extended = Number of Adapters found
;
; On Failure: Sets @ERROR to none zero
; Author(s): Veronesi
; Note(s):
;==================================================================================
#include-once
[/autoit] [autoit][/autoit] [autoit]Func _GetNetworkInformations()
[/autoit] [autoit][/autoit] [autoit]Local $oWMI = ObjGet("Winmgmts:\\.\root\cimv2")
If Not IsObj($oWMI) Or @error Then Return SetError(1, 1, 0)
Local $oInstances = $oWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
Local $aNetworkAdapter[1][1], $aIP, $Row = 0, $Column = 0
For $oInstance In $oInstances
With $oInstance
ReDim $aNetworkAdapter[$Row + 1][$Column + 1]
$aNetworkAdapter[$Row][$Column] = .Description
$Row += 1
ReDim $aNetworkAdapter[$Row + 3][$Column + 1]
$aNetworkAdapter[$Row][$Column] = .MACAddress
$aNetworkAdapter[$Row + 1][$Column] = .DHCPEnabled
$aNetworkAdapter[$Row + 2][$Column] = .DHCPServer
$Row += 3
$aIP = .IPAddress
For $i = 0 To UBound($aIP) - 1
ReDim $aNetworkAdapter[$Row + 1][$Column + 1]
$aNetworkAdapter[$Row][$Column] = $aIP[$i]
$Row += 1
Next
$Column += 1
EndWith
Next
$oInstance = 0
$oInstances = 0
$oWMI = 0
Return SetError(0, $Column, $aNetworkAdapter)
EndFunc ;==>_GetNetworkInformations
Gruss Veronesi
Nein,
wenn Du mehr als ein Zweidimensionales Array (also ein Dreidimensionales oder mehr) ansprechen willst, sieht das so aus:
$array[x][y][z]
Und wie funktioniert das?
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global $Info = _GetNetworkInformations()
Global $NumberOfAdapters = @extended
Global $sTitle = "Index "
For $i = 1 To $NumberOfAdapters
$sTitle &= "| Adapter " & $i
Next
_ArrayDisplay($Info, "Network Informations", -1, 0, "", "", $sTitle)
;==================================================================================
; Function: _GetNetworkInformations()
; Description: Returns an array with some informations about all network cards
; Parameter(s): -
;
; Return Value(s): On Success: Return Array
; Column 0 Column 1 Column 2...
; Index 0 : Network Card Description
; Index 1 : IP Address 1
; Index 2 : IP Address 2
; Index 3 : IP Address 3
; Index n : IP Address n
; Index n + 1: MAC Address
; Index n + 2: DHCP Enabled?
; Index n + 3: IP of DHCP Server
;
; @Extended = Number of Adapters found
;
; On Failure: Sets @ERROR to none zero
; Author(s): Veronesi
; Note(s):
;==================================================================================
#include-once
[/autoit] [autoit][/autoit] [autoit]Func _GetNetworkInformations()
[/autoit] [autoit][/autoit] [autoit]Local $oWMI = ObjGet("Winmgmts:\\.\root\cimv2")
If Not IsObj($oWMI) Or @error Then Return SetError(1, 1, 0)
Local $oInstances = $oWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
Local $aNetworkAdapter[1][1], $aIP, $Row = 0, $Column = 0
For $oInstance In $oInstances
With $oInstance
ReDim $aNetworkAdapter[$Row + 1][$Column + 1]
$aNetworkAdapter[$Row][$Column] = .Description
$Row += 1
ReDim $aNetworkAdapter[$Row + 1][$Column + 1]
$aIP = .IPAddress
For $i = 0 To UBound($aIP) - 1
$aNetworkAdapter[$Row][$Column] = $aIP[$i]
$Row += 1
ReDim $aNetworkAdapter[$Row + 1][$Column + 1]
Next
ReDim $aNetworkAdapter[$Row + 3][$Column + 1]
$aNetworkAdapter[$Row][$Column] = .MACAddress
$aNetworkAdapter[$Row + 1][$Column] = .DHCPEnabled
$aNetworkAdapter[$Row + 2][$Column] = .DHCPServer
$Column += 1
EndWith
Next
$oInstance = 0
$oInstances = 0
$oWMI = 0
Return SetError(0, $Column, $aNetworkAdapter)
EndFunc ;==>_GetNetworkInformations
Gruss, Veronesi
Siehe Anhang.
Vielleicht wäre es besser, einen Parameter einzuführen, mit welchem man bestimmen kann, ob man die IP-Adressen, oder die MAC Adressen, oder.... haben möchte!
Dann würde das aber ein Dreidimmensionales Array ergeben.
Oder wie willst Du die Daten dargestellt haben?
Mach doch mal eine Skizze in Excel und poste das mal!
Funktioniert das?
[autoit]#include <Array.au3>
[/autoit][autoit][/autoit][autoit]Global $oWMI = ObjGet("Winmgmts:\\.\root\cimv2")
Global $oInstances = $oWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
Global $aNetworkAdapter[1][7], $aIP, $Row = 0, $Column = 6
For $oInstance In $oInstances
With $oInstance
ReDim $aNetworkAdapter[$Row + 1][$Column + 1]
$aNetworkAdapter[$Row][0] = "Description: " & .Description
$aNetworkAdapter[$Row][1] = "DHCP Enabled: " & .DHCPEnabled
$aNetworkAdapter[$Row][2] = "DHCP Server: " & .DHCPServer
$aNetworkAdapter[$Row][3] = "DNS Domain: " & .DNSDomain
$aNetworkAdapter[$Row][4] = "DNS Hostname: " & .DNSHostName
$aNetworkAdapter[$Row][5] = "MAC Address: " & .MACAddress
$Column = 6
$aIP = .IPAddress
For $i = 0 To UBound($aIP) - 1
$aNetworkAdapter[$Row][$Column] = "IP Address " & $i + 1 & ": " & $aIP[$i]
$Column += 1
ReDim $aNetworkAdapter[$Row + 1][$Column + 1]
Next
$Row += 1
EndWith
Next
$oInstance = 0
$oInstances = 0
$oWMI = 0
_ArrayDisplay($aNetworkAdapter)
[/autoit]Edit: Kleiner Fehler beseitigt, welcher Leerzeilen provozierte!
