Beiträge von Andy

  • Koordinatensuche "zusammfassbar"?

    Hallo,
    wenn du in deinem Koordinatensystem immer unterschiedliche Zustände hast (zum Beispiel bei verschiedenen farbigen Bildern), dann bleibt dir nichts anderes übrig als die von dir angesprochene Methode, jede Koordinate einzeln abzufragen (Bildervergleich)

    Allerdings könntest du auch beschleunigen, wenn (wie in einem Labyrinth) bestimmte Koordinaten schon vordefiniert sind.
    Beispiel: du bist an Position @ und fragst die nähere Umgebung ab (x=freie fläche, O=Wand), dann könntest du jeden Punkt einzeln abfragen, oder
    xxxxOxxxxxxxxxxxxxxxxxx
    xxxxOOOOOOOOOOxxxxxx
    xxxxxxxxxxxxxxxxOxxxxxx
    xxxxxxxxxx@xxxxOxxxxxx
    xxxxxxxxxxxxxxxxOxxxxxx
    xxxxOOOOOOOOOOxxxxxx
    direkt alle 3 blauen Felder oder alle roten mit einem Vergleich.

    Bei solchen Suchen kommt es auf die Anwendung an, oder ist diese Anwendung "geheim"? 8)

  • GUICtrlCreatePic erstellt seltsame Artefakte/Bildfehler

    Zitat

    ich garkeine Texte auf die Bilder mache (siehe screenshot)


    Hmmm, ich habe deine "day.jpg" mehrfach in eine Gui eingesetzt, jedesmal ohne diese Artefakte. WIN XP.
    Aber ehrlich gesagt verstehe ich das Scriptstück sowieso nicht richtig, da wie schon angesprochen das Pic ja 41x auf dieselbe Stelle gezeichnet wird.
    Was mir auch aufgefallen ist, mach mal Sicherheitshalber Integer aus $w und $h in der LOCAL-Zeile, kann sein daß bei der Berechnung (Rundung) Fehler auftreten

  • Adress Daten in Array einlesen und formatieren

    Antwort (wie immer) viel zu langsam, aberScript läuft^^

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <Array.au3>
    dim $filearray
    _FileReadToArray("adress.dat",$filearray) ;adressen einlesen
    _arraydisplay($filearray)
    Stringreplace($filearray[1],";",";") ;anzahl der spalten herausfinden
    dim $adressen[$filearray[0]][@extended+1] ;array dimensionieren (Tabelle)
    for $zeile=1 to ubound($filearray)-1 ;jede adresszeile
    $aspalte=stringsplit($filearray[$zeile],";",3) ;aufteilen in spalten
    for $spalte=0 to ubound($aspalte)-1 ;jede spalte in das array eintragen
    $adressen[$zeile-1][$spalte]=stringreplace($aspalte[$spalte],'"',"") ;hochkommas löschen
    next
    next
    _arraydisplay($adressen)

    [/autoit]

  • UDF-Database v0.1.1

    boahhhh, super Sache!
    Ist die Datenbank lokal oder auf deinem Server?
    Ggf solltest du eine Upload-funktion einbauen (oder Vorschlagsfunktion), bei der neue UDF´s erst nach deiner oder der Kontrolle eines "Admins" in die Datenbank geschrieben werden können. Vielleicht würde auch nur eine Linkliste als Update reichen...
    :thumbup::thumbup::thumbup:

  • Pixelfunktionen eines Hidden/Minimized Fensters

    Zitat

    Ich werde mich so denn mal an das englischsprachige Forum richten

    ...made my day^^ :rofl:
    Dort habe ich alleine in dieser Woche 3 Threads zu diesem Thema gelesen, die Antwort ist trotzdem dieselbe. Bevordu dich auch dort blamierst, solltest du wenigstens die Suche benutzen und auf die dort gefundenen Threads verweisen...

  • Datenpakete-Skript

    Hallo,
    die WMI ist dein Freund. Ein viel besserer Freund ist das AutoIt Script_O_Matic, das erstellt dir sogar mit 2-3 Mausklicks komplette Scripte.

    Spoiler anzeigen
    [autoit]

    $colItems = ""
    $strComputer = "localhost"

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

    $Output=""
    $Output &= "Computer: " & $strComputer & @CRLF
    $Output &= "==========================================" & @CRLF
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_NetworkInterface", "WQL", _
    $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

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

    If IsObj($colItems) then
    For $objItem In $colItems
    $Output &= "BytesReceivedPersec: " & $objItem.BytesReceivedPersec & @CRLF
    $Output &= "BytesSentPersec: " & $objItem.BytesSentPersec & @CRLF
    $Output &= "BytesTotalPersec: " & $objItem.BytesTotalPersec & @CRLF
    $Output &= "Caption: " & $objItem.Caption & @CRLF
    $Output &= "CurrentBandwidth: " & $objItem.CurrentBandwidth & @CRLF
    $Output &= "Description: " & $objItem.Description & @CRLF
    $Output &= "Frequency_Object: " & $objItem.Frequency_Object & @CRLF
    $Output &= "Frequency_PerfTime: " & $objItem.Frequency_PerfTime & @CRLF
    $Output &= "Frequency_Sys100NS: " & $objItem.Frequency_Sys100NS & @CRLF
    $Output &= "Name: " & $objItem.Name & @CRLF
    $Output &= "OutputQueueLength: " & $objItem.OutputQueueLength & @CRLF
    $Output &= "PacketsOutboundDiscarded: " & $objItem.PacketsOutboundDiscarded & @CRLF
    $Output &= "PacketsOutboundErrors: " & $objItem.PacketsOutboundErrors & @CRLF
    $Output &= "PacketsPersec: " & $objItem.PacketsPersec & @CRLF
    $Output &= "PacketsReceivedDiscarded: " & $objItem.PacketsReceivedDiscarded & @CRLF
    $Output &= "PacketsReceivedErrors: " & $objItem.PacketsReceivedErrors & @CRLF
    $Output &= "PacketsReceivedNonUnicastPersec: " & $objItem.PacketsReceivedNonUnicastPersec & @CRLF
    $Output &= "PacketsReceivedPersec: " & $objItem.PacketsReceivedPersec & @CRLF
    $Output &= "PacketsReceivedUnicastPersec: " & $objItem.PacketsReceivedUnicastPersec & @CRLF
    $Output &= "PacketsReceivedUnknown: " & $objItem.PacketsReceivedUnknown & @CRLF
    $Output &= "PacketsSentNonUnicastPersec: " & $objItem.PacketsSentNonUnicastPersec & @CRLF
    $Output &= "PacketsSentPersec: " & $objItem.PacketsSentPersec & @CRLF
    $Output &= "PacketsSentUnicastPersec: " & $objItem.PacketsSentUnicastPersec & @CRLF
    $Output &= "Timestamp_Object: " & $objItem.Timestamp_Object & @CRLF
    $Output &= "Timestamp_PerfTime: " & $objItem.Timestamp_PerfTime & @CRLF
    $Output &= "Timestamp_Sys100NS: " & $objItem.Timestamp_Sys100NS & @CRLF
    if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
    $Output=""
    Next
    Else
    Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_PerfRawData_Tcpip_NetworkInterface" )
    Endif

    [/autoit]

    oder info bzgl alle Netzwerkadapter

    Spoiler anzeigen
    [autoit]

    ; Generated by AutoIt Scriptomatic December 05, 2009

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

    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = "localhost"

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

    $Output=""
    $Output &= "Computer: " & $strComputer & @CRLF
    $Output &= "==========================================" & @CRLF
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", _
    $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

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

    If IsObj($colItems) then
    For $objItem In $colItems
    $Output &= "AdapterType: " & $objItem.AdapterType & @CRLF
    $Output &= "AdapterTypeId: " & $objItem.AdapterTypeId & @CRLF
    $Output &= "AutoSense: " & $objItem.AutoSense & @CRLF
    $Output &= "Availability: " & $objItem.Availability & @CRLF
    $Output &= "Caption: " & $objItem.Caption & @CRLF
    $Output &= "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF
    $Output &= "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF
    $Output &= "CreationClassName: " & $objItem.CreationClassName & @CRLF
    $Output &= "Description: " & $objItem.Description & @CRLF
    $Output &= "DeviceID: " & $objItem.DeviceID & @CRLF
    $Output &= "ErrorCleared: " & $objItem.ErrorCleared & @CRLF
    $Output &= "ErrorDescription: " & $objItem.ErrorDescription & @CRLF
    $Output &= "Index: " & $objItem.Index & @CRLF
    $Output &= "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
    $Output &= "Installed: " & $objItem.Installed & @CRLF
    $Output &= "LastErrorCode: " & $objItem.LastErrorCode & @CRLF
    $Output &= "MACAddress: " & $objItem.MACAddress & @CRLF
    $Output &= "Manufacturer: " & $objItem.Manufacturer & @CRLF
    $Output &= "MaxNumberControlled: " & $objItem.MaxNumberControlled & @CRLF
    $Output &= "MaxSpeed: " & $objItem.MaxSpeed & @CRLF
    $Output &= "Name: " & $objItem.Name & @CRLF
    $Output &= "NetConnectionID: " & $objItem.NetConnectionID & @CRLF
    $Output &= "NetConnectionStatus: " & $objItem.NetConnectionStatus & @CRLF
    $strNetworkAddresses = $objItem.NetworkAddresses(0)
    $Output &= "NetworkAddresses: " & $strNetworkAddresses & @CRLF
    $Output &= "PermanentAddress: " & $objItem.PermanentAddress & @CRLF
    $Output &= "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF
    $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)
    $Output &= "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
    $Output &= "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
    $Output &= "ProductName: " & $objItem.ProductName & @CRLF
    $Output &= "ServiceName: " & $objItem.ServiceName & @CRLF
    $Output &= "Speed: " & $objItem.Speed & @CRLF
    $Output &= "Status: " & $objItem.Status & @CRLF
    $Output &= "StatusInfo: " & $objItem.StatusInfo & @CRLF
    $Output &= "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
    $Output &= "SystemName: " & $objItem.SystemName & @CRLF
    $Output &= "TimeOfLastReset: " & WMIDateStringToDate($objItem.TimeOfLastReset) & @CRLF
    if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
    $Output=""
    Next
    Else
    Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_NetworkAdapter" )
    Endif

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

    Func WMIDateStringToDate($dtmDate)

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

    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
    EndFunc

    [/autoit]

  • Icons mit GDI+ zeichnen...

    Hi,
    zu Bild 2, das ist relativ einfach, du zeichnest mit einer Farbe einen Rahmen und wandelst das Bild in z.B. ein komprimiertes JPG. Dann "glättet" dir der Komprimierungsalgorithmus das Bild automatisch, Antialiasing ist da meist kostenlos :thumbup: inbegriffen.

    Für Icons gibts eigene AutoIt-Befehle, such mal in der Hilfe nach _GuiImageList_XXXX, XXXX sind dann AddIcon, GetIcon usw. Damit ist das Iconhandling in Listen relativ geschmeidig zu managen.
    Weiterhin gibts noch die _WinAPI_XXXX, XXXX für DrawIcon usw.
    GuiCtrlCreateIcon uswusf :D

    Jede Menge Möglichkeiten, sogar mit Beispielscripten!

  • Pixelfunktionen eines Hidden/Minimized Fensters

    Zitat

    Achso, also wären die kompletten Control Funktion genauso dumm...Buttons klicken und Text lesen in einem nicht angezeigten Fenster... stimmt du hast recht, das ja ist völlig bekloppt.

    Wenn du wenigstens in der Lage wärest, das was man dir schreibt und du nicht verstehtst nachzufragen, dann könnte man noch davon ausgehen, daß du nicht vollkommen lernresistent bist....aber so?
    Ein Button ist ein Control, genau wie ein Label (Text), das ist z.B. an ein Fenster gebunden. In welcher Form dieses Fenster grafisch vorliegt, ob der Button eine Größe von 0,0 hat oder ob das Fenster minimiert ist, das ist sowohl dem Button, Windows und allen die mit diesem Button interagieren wollen vollkommen schnurz. Es braucht auch keine Maus um eine Nachricht an diesen Button zu senden. Schreib in die Messagequeue eine Nachricht an diesen Button und wenn Windows mal bissl Zeit hat dann wird diese Nachricht gesendet und der Button kann darauf reagieren.
    Ein PIXEL ist ein Bildpunkt auf dem Monitor. Ich habe 2 Rechner im Keller stehen, die laufen 24/7/365. Ohne Monitor....und einer auch ohne Grafikkarte....komisch, nirgendwo in einem diesem Rechner existiert ein PIXEL, aber haufenweise Programme laufen trotzdem....ohne Tastatur und ohne Maus....Wahrscheinlich sind das garkeine richtigen Computer?!

  • Mausbewegung beschleunigt Programmausführung?!

    Hallo zusammen,
    ich weiß, das etwas ähnliches schon einmal gepostet wurde, allerdings kann ich den Thread nicht mehr finden (Oscar war dort auch involviert, mehr weiß ich nicht mehr^^)
    Wenn ich das folgende Script starte, dann bewegen sich die Buttons in einer bestimmten Geschwindigkeit. Wird nun die Maus bewegt, dann bewegen sich die Buttons auch schneller und die Prozessorlast steigt um das 3-fache! Wieso das? Oder "wecke" ich mit der Mausbewegung ggf (interrupt) den Prozessor (AMD 4850e) aus irgendeinem Sleepmodus/Stromsparmodus?

    Spoiler anzeigen
    [autoit]

    #include <WinAPI.au3>

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

    $anz=10

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

    global $button[$anz+1],$x[$anz+1],$y[$anz+1]
    $gui=guicreate("Test",600,600)
    for $i=1 to $anz
    $button[$i]= guictrlcreatebutton($i,10+random(20,500,1),10+random(20,500,1),20,20)
    next

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

    $Msgbox=Guicreate("Eigene Messagebox",300,80,50,50)
    $label=guictrlcreatelabel("Die Variablen werden im Fenstertitel angezeigt!",10,10,280,20)
    $msb1=GUICtrlCreateButton("Button1",20,35)
    $msb2=GUICtrlCreateButton("Button2",180,35)
    guisetstate(@sw_show,$gui)
    guisetstate(@sw_show,$msgbox)
    $variable=0
    adlibenable("_move",1000)

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

    while 1
    $msg=GUIGetMsg(1) ;array mit Daten
    switch $msg[1] ;welches fenster löst das Ereignis aus?
    case $msgbox ;die msgbox wars...
    if $msg[0]=$msb1 then $variable=1 ;den Buttons variablen zuweisen
    if $msg[0]=$msb2 then $variable=2 ;den Buttons variablen zuweisen
    if $msg[0]=-3 then guisetstate(@sw_hide,$msgbox) ;msgbox schließen
    if $msg[0]=$msb1 or $msg[0]=$msb2 then winsettitle($Msgbox,"","Die Variable ist: "&$variable)
    ;hier könnte man nun die messagebox "deaktivieren"
    case $gui ;die hauptgui bekam die Nachricht
    if $msg[0]=-3 then Exit ;prog beenden beenden
    endswitch

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

    for $i=1 to $anz
    $a=controlgetpos($gui,"Test",$button[$i])
    if $a[0]<10 then $x[$i]=-$x[$i]
    if $a[1]<10 then $y[$i]=-$y[$i]
    if $a[0]>490 then $x[$i]=-$x[$i]
    if $a[1]>490 then $y[$i]=-$y[$i]
    controlmove("Test","",$button[$i],$a[0]+$x[$i],$a[1]+$y[$i],$a[0]/10,$a[0]/10)
    next
    wend
    exit
    func _move()
    for $i=1 to $anz
    $x[$i]=random(-2,+2,1)
    $y[$i]=random(-2,+2,1)
    next
    _WinAPI_RedrawWindow($gui)
    endfunc

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

  • Cover in MP3 Datei schreiben

    hmmm, da vermute ich mal, daß schon die "normalen" Metadaten nicht richtig bzw vollständig sind. Gerade I-Tunes hat da relativ gute Möglichkeiten, aus dem letzten bisschen Info auch ein ansprechendes Ergebnis rauszuholen. Aber wenn nur Müll in den Metadaten steht, wer soll da bitteschön ein passendes Cover finden?

  • Cover in MP3 Datei schreiben

    Zitat

    aber es wundert mich nur, dass wenn ich mit einem MP3 Tag Editor zb ein Cover in die MP3 speichere die mp3 nem freund gebe, der die zb mit iTunes öffnet, dass dann auch das Bild drinne ist...das würde ja schlecht gehen, wenns extra gespeichert ist

    Mich wundert das nicht, da es Programme gibt, welche diese Tags ohne Probleme lesen können. Das ist was völlig anderes, als dann diese Datei auf einem Mp3-Player (z.B. Autoradio) abzuspielen....

  • Pixelfunktionen eines Hidden/Minimized Fensters

    Eins noch, daß es Programme gibt, welche die Darstellung ihres Fensterinhalts in einer Art Backbuffer vorhalten und dann auf dem Schirm einblenden will ich garnicht bezweifeln. Daß man bei diesen speziellen Programmen den "unsichtbaren Fensterinhalt" auslesen bzw bearbeiten kann , auch nicht! Aber daß mir jemand eine E-Mail von offizieller Seite vorlegt in der vom Hersteller dieses Programmes die Bearbeitung dieses "Fensterinhaltes" problemlos genehmigt wird, auf solch eine Mail warte ich schon seit Jahren^^

  • Cover in MP3 Datei schreiben

    Nach meiner Info werden die Cover(s) extra gespeichert, und nur ein Verweis "Cover existiert Ja/nein" in der MP3-Datei getaggd. Das kommt einzig und allein auf den Player an, wie und wo der die Albumcover zu den MP3-Dateien zuordnet. IN eine MP3 wird da kein Cover gespeichert, jedenfalls nicht bei ID3-Tags. Und beim Abspielen von Dateien mit anderen Metadaten-Formate gibts dann reihenweise Player die aussteigen.

    Das heisst, dass jeder Player für sich eine Referenzliste zu den Covern erstellt, welche dann zum abgespielten Lied aus einer Datenbank gefisch werden. Ändere bei einem deiner Lieder welches mit Cover abgespielt wird die Metadaten und den Namen und spiel es nochmal ab....es wird kein Cover gefunden werden....

  • Pixelfunktionen eines Hidden/Minimized Fensters

    Zitat

    Pixelfunktionen eines Hidden/Minimized Fensters

    allein schon die Frage zeigt, daß du dich in keinster Weise mit dem Thema beschäftigt hast! In jeder Antwort auf diese Frage in diesem und auch IN ALLEN ANDEREN FOREN WELTWEIT steht: "Geht nicht!", weil ein "Fenster" als dargestelltes Bild NUR auf dem Monitor in Pixel unterteilt ist. Nirgendwo anders im System existiert dieses "Bild" von einem Fenster. Wozu auch?
    Ein "Window" besteht aus einer Ansammlung von Bauteilen die mit dem Betriebssystem interagieren, z.b. Controls wie Buttons oder Listen. Reagiert wird auf Nachrichten die vom System oder anderen Prozessen kommen. Da braucht absolut nichts und niemand ein "Pixel" ausser bei der schon angesprochene Darstellung auf dem Monitor. Wenn man so will, ist ein "minimiertes" Fenster einfach ein Fenster ohne grafische Darstellung auf dem Bildschirm. Es existieren die Eigenschaften und Controls, aber kein vom System auf den Bildschirm "gemaltes" Fensterchen.