Beiträge von BLinz

  • Farben

    Hier ein Beispiel was dir die Grundfarben als Dezimalwerte ausgibt:

    [autoit]

    Global $Rot, $Gruen, $Blau, $var

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

    $var = PixelGetColor(10, 10)

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

    ; wir machen
    ; - aus dem Dezimalwert einen Hexwert ;0xRRGGBB -> RR = Rot, GG = Grün, BB = Blau
    ; - schneiden den Auseinander - wir wissen ja was an welcher stelle steht
    ; - fügen den Kopf "0x000000" hinzu - damit Int() sauber erkennt das wir ihm da eine Hexzahl präsentieren
    ; - und haben den Dezimalwert

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

    $Rot = Int("0x000000" & StringMid(Hex($var),3,2))
    $Gruen = Int("0x000000" & StringMid(Hex($var),5,2))
    $Blau = Int("0x000000" & StringMid(Hex($var),7,2))

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

    MsgBox(0,"Farbwerte", "Farbwert Hexadezimal: " & Hex($var) & @CRLF & "Rot dezimal: " & $Rot & @CRLF & "Grün dezimal: " & $Gruen & @CRLF & "Blau dezimal: " & $Blau)

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

    hab mir das vor ein paar Tagen für mein ColorEcho ausdenken müssen umd die Standard-Farbwerte auslesen zu können.

    BLinz

  • Endlos Emails abrufen, bei neuer Email Script fortsetzen. WIE?

    Deine Lösung heisst wahrscheinlich Redemption,

    auf dieser deutschen Seite wird darauf eingegangen: http://www.msxfaq.de/code/redemption.htm

    Da geht es zwar um Powershell - aber die Beispiele lassen sich, wie VB auch, leicht auf AutoIt umstellen. Die DLL kannst du hier herunterladen: http://www.dimastr.com/redemption/home.htm
    Die DLL braucht trotzdem ein Installiertes Outlook. Wie du auf der Startseite siehst wird da schon mit dem vollen zugriff auf die Emails und Anhänge geworben.
    Die DLL stellt dir quasi alle Funktionen rund um Outlook zur Verfügung. Die kostenlose Version lässt bei der Registrierung der DLL unter Windows einmalig ein Fenster aufpoppen, ansonsten geht alles wie gehabt. Ich nutze die z.B. um die Regel der Benutzer auszulesen und die Empfänger zu ermitteln.

    Im englischen Forum kannst du auch schon sehen wie andere bereits die DLL in AutoIt nutzen: http://www.autoitscript.com/forum/topic/11…pt-translation/

    Unter Google sah ich da noch viel mehr.

    BLinz

  • Relaiskarte mit AutoIT steuern, aber wie?

    Na komm,

    du hast ja auch schon ähnliche Fragen zum Thema hier im Forum gestellt,
    Wenn deine Karte also mit der Software die dazu gehört funktioniert,
    du dir eine UDF wie z.B. die hier schnappst: http://www.autoitscript.com/forum/topic/12…t-com-port-udf/
    und die aus dem VB Projekt die Strings anschaust die die einzelnen Buttons senden sollte es doch möglich sein.

    Schenk mir eine Karte und ich würde es schreiben :) Nur Theorethisch ist es mir zu hart.

    Du solltest mit einer Mini-Version anfangen die einfach nur einen Ausgang ein und wieder ausschaltet (mit einer Meldung dazwischen) - dann weist du wie es geht. (Ich schreibe fast immer erstmal einen Testkandidaten)

    In dem anderen Thread von dir haben sie dich auf das hier hingewiesen: http://www.autoit.de/index.php?page=Thread&postID=36155
    da wird sogar die MSCOMM.OCX genutzt die du hast - Ja ist schlecht dokumentiert, aber das ganze ist nicht so lang als das man es nicht Zeile für Zeile mal durchgehen könnte. An dem Beispiel kannst du den ersten Abschnitt doch so übernehmen, die Baud-Rate anpassen und dann deinen eigenen Befehl senden.

    Das passt du an deine Baud rate an:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GDIPlus.au3>

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

    Dim $hor, $vert,$hor_old, $vert_old
    dim $smg, $exit_btn, $window1, $window1_handle,$hGraphic,$hPen,$mess_txt
    dim $recieve_data,$recieve_label,$outstr
    $outstr="D"
    $hor = 0
    $vert = 0
    $hor_old = 0
    $vert_old = 0

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

    $MsComm1 = ObjCreate("MSCOMMLib.MsComm.1")
    if not IsObj($MsComm1) then
    FileInstall("MSCOMM32.OCX", EnvGet("SystemRoot") & "\System32\MSCOMM32.OCX")
    Run(@ComSpec & " /c C:\WINDOWS\SYSTEM32\REGSVR32.EXE C:\WINDOWS\SYSTEM32\MSCOMM32.OCX")
    RegWrite("HKEY_CLASSES_ROOT\Licenses\DB4C0D00-400B-101B-A3C9-08002B2F49FB", "", "REG_SZ", "mgkgtgnnmnmninigthkgogggvmkhinjggnvm")
    RegWrite("HKEY_CLASSES_ROOT\Licenses\7BC20EDC-4A42-101B-A3C9-08002B2F49FB", "", "REG_SZ", "gifblihbhiiihbciocfbkifbqcfcdiebbiqh")
    $MsComm1 = ObjCreate("MSCOMMLib.MsComm.1")
    endif

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

    $MsComm1.Settings = "1200,N,7,2"
    $MsComm1.Handshaking = 0
    ;~ $MsComm1.InBufferSize = 20
    ;~ $MsComm1.InputLen = 14
    $MSComm1.DTREnable = True
    $MSComm1.RTSEnable = False
    $MsComm1.CommPort = 2
    $MsComm1.PortOpen = True

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

    Weiter unten in dem Multimeter Beispiel findest du

    [autoit]

    func _Read_mm()
    $recieve_data = ""
    $MsComm1.Output = $outstr
    $recieve_data = $MsComm1.Input

    [/autoit]

    Output ist das senden - also musst du dir nur noch den passenden String zusammenbauen - schau in den VB Code zu Buttons und ansonsten: probieren probieren

    BLinz

  • Mehrere Betriebssytseme

    So, meinen Senf auch noch dazu:

    Ich würde dir empfehlen dich für ein "Trägersystem" zu entscheiden und alle anderen Betriebssysteme dann als VM laufen zu lassen. bei mir ist das mein täglich Brot, ich habe diverse Testsysteme und sogar Domänen, Exchange Mailserver etc. in VM's laufen.

    Nimm als Trägersystem das System mit dem du normalerweise arbeitest, wo also dein Mailprogramm etc drin läuft - bei dir also Windows XP. Wobei - das viele Programme von XP unter Windows 7 Probleme machen stimmt einfach nicht.
    Bis auf ein paar alte DirectX 6.0 Spiele habe ich alles problemlos zum laufen bekommen - und die alten Spiele laufen in meiner VMware Workstation Problemlos. (VMware kann die 3D Funktionen an die VM weiter geben)
    Beruflich (also bei meinen Kunden) betrifft das höchstens mal eine alte Datenbankengine. Und dank Vista ist die Treiberverfügbarkeit sehr gut - für dein aktuelles Notebook sowieso.

    Bei der Auswahl der Virtualisierungssoftware kann ich dir nur wenig helfen - ich nutze eine kommerzielle Version (wie erwähnt VMware Workstation), da bin ich verwöhnt. Der freie Player von VMware sollte dir wahrscheinlich auch reichen (das nötigste kann der auch). Ich kann alle Geräte, also auch USB etc, an die VM durchreichen, durch Einstellungen in der Virtualisierungssoftware teilen sich alle bestimmte Verzeichnisse auf dem Host für den Datenaustausch - wobei ich die Dateien auch per Drag'n Drop zwischen den VM's verschieben kann.

    Zudem musst du auf deiner Festplatte dann nicht Bereiche für die einzelnen Betriebsysteme fest zuteilen - das Hostsystem bekommt alles, die VM's nach Bedarf (und die könne auch einfach "wachsen" wenn sie mehr speicher brauchen)
    Der Vorteil gerade bei den Testsystemen ist, das du jederzeit einen Zustand einfrieren und wieder aufrufen kannst - oder bei Bedarf gleich eine ganze Kopie machst.

    Auch ich habe ein i5 Notebook mit 8GB Ram - und wie schnell die VM's sind ist mehr von der Festplattengeschwindigkeit abhängig. Wenn die VM's einen Moment laufen sind diese nicht langsamer als direkt installiert (ja ja, sie bringen nur so 95% der Original-Leistung - aber wer kann das schon wirklich merken)

    BLinz

  • Relaiskarte mit AutoIT steuern, aber wie?

    Also, die eigentliche Funktion / das VB Script habeich gefunden:

    Spoiler anzeigen

    Netterweise haben die Die Buttons nicht näher beschriftet. Dem PDF von der Conrad Seite entnehme kannst man entnehmen wofür die Buchstabe stehen:
    E: Emergency Stop
    D: Display Adress
    S: set a Relay
    C: Clear Relay
    T: Toggle Relais
    A: Change Adress of Card
    F: Force all Cards to address 1
    B: Send a Byte

    Da scheint auch eine Dos-Komandozeilen exe dabei zu sein. Ich habe die karte nicht und deshalb auch keine Lust die ganze Software zu installieren. Das VB Projekt konnte ich so finden (siehe Spoiler oben), eigentlich müsste man es nur nachbastel (als was an die Com-Ports (Comm im Text) gesendet wird.

    Die rufen die MSCOMM.OCX im VB Projekt auf - die wirst du nicht brauchen, die habe die dabei gepackt weil (wie ich meine) damals (das zeug ist ja schon älter) in den einfachen VB Versionen kein Controll zum ansteuern der COM Ports dabei war.

    BLinz

  • Pfad Problem 32/64 bit

    Also Dietmar,

    wenn du es so nimmts gibt es keine zuverlässige Methode - wir können nur wahrsheinlichkeiten annehmen.
    Im Idealfall setzt die gesuchte Anwendung einen Registry-Schlüssel über Ihren Installationsort, ansonsten müssten wir die Standardpfade absuchen (das macht mein Skriptvorschlag) oder, im nächsten Schritt, gezielt nach der Exe Datei suchen.

    Ich persönlich würde ja

    1. Die beiden Standardpfade abklopfen
    2. wenn beide fehlschlagen einen Dateiöffnen Dialog starten und den Benutzer den Ort der Datei auswählen lassen
    3. Das Ergebnis für den nächsten Start in der Registry abspeichern
    4. In mein programm einbauen das es zuerst in die Registry schaut
    5. bei jeden Start prüfen ob das Pogramm noch da ist und sonst wieder eine Suche straten.

    BLinz

  • Pfad Problem 32/64 bit

    Zitat

    Oder meinst Du ProgramFiles heisst in polnisch Niederlänsdisch oder Franz auch so?

    Also ab Vista heissen die Ordner tatsächlich immer gleich - aber deshalb soll ein Programmierer ja auch die Umgebungsvariablen nutzen damit er das nicht wissen muss.

    BLinz

  • Ordner kopieren NTFS Berechtiungen mitnehmen

    Lieber tobitron,

    ich arbeite beruflich als IT-Consultant und habe deshalb sehr oft mit diesem Problemen zu tun.

    Das erste problem was du hast, und aud dem MCITP hoffentlich lernst, ist ein Design Problem. Bei der Einrichtung einer Umgebung ist auch immer Datensicherung ein Thema - und dazu muss es etwas geben was darauf zugreifen kann.
    Normalerweise stellt man mit wenigen Einstellungen in den Gruppenrichtlinien ein, das zwar jeder Benutzer einen oder mehrer Eigene Ordner auf dem Server bekommt, der Administrator aber trotzdem darauf zugreifen kann.
    Hat man das nicht gemacht steht man spätestens bei einer Migration der Daten - und genau den Fall hast du jetzt - sich Zugriff auf die Daten verschaffen muss.

    Das geht am einfachsten wenn du den Hauptordner nimmst (notfalls das Laufwerk) und dich für alle Dateien und Ordner zum Besitzer machst - der Besitzer darf immer. Jedoch könnten dabei die eigentlichen Rechte der Ordner verloren gehen. Sind es servergespeicherte Profile so gibt es eine Gruppenrichtlinie hierfür, die dafür sorgt das der besitzer der Ornder nicht geprüft wird, dann klappt die Anmeldung trotzdem.

    Meistens lassen ich durch Windows automatisch neue Ordner für die Benutzer erstellen (da setzt Windows dann die Rechte automatisch richtig), übernehme den Besitz der vorhandenen Ordner und kopiere per Skript die Daten in die neuen Orte (Das Netzlaufwerk der Benutzer zeigt dann auch an den neuen Ort).

    Du kannst, wenn du Zeit hast, natürlich schummeln. Mit Komandozeilentools wie xcacls.exe (google) könntest du in ein Anmeldeskript einbauen das der Benutzer dem Administrator wieder Rechte auf den Ordner gibt, müsstest aber abwarten das sich jeder einmal angemeldet hatte.
    Oder du verbindenst im Anmeldeskript beide Standorte, neuen und alten, und kopierst in diesem dann die Daten rüber. Du lässt H: z.B. statt auf den alten nun auf den neuen zeigen und lässt die Daten einmalig (!) rüberkopieren (musst dir eine Art Prüfung einbauen).

    Zum Kopieren mit der Berechtigungsstruktur gibt es DAS Werkzeug, und das heisst ROBOCOPY, das ist die eierlegende Wollmilchsau dafür.

    Wenn es dann zwischen verschiedenen Domänen sein soll kommt der Punkt für den Leute wie ich bezahlt werden - und scheibar willst du ja einer von den werden.

    Also, gleich richtig angelegt am Anfang erpart viele Probleme, wenn ich es dann doch korregieren muss den Fehler bitte nicht wiederholen. Das der Administrator nicht in die Benutzerordner schauen darf "gibt es nicht" - denn es kann nicht verhindert werden das er es doch könnte. Spätestens derjenige der Datensicherung macht kann da reinsehen (in der Regel auch in alle dein Email etc). Der das kann muss halt rechtlich entsprechend "ver - haftet" werden (von Haften) das er nicht alle Mails liest. Die Benutzer müssen darüber aufgeklärt werden das es nicht "privates" geben kann auf den Servern. wenn jemand etwas hat was keiner Lesen darf muss er einen USB-Stick oder ähnliches nehmen.

    BLinz

  • Ordner kopieren NTFS Berechtiungen mitnehmen

    Moin,

    ich nehme an das Ihr eine Domäne habt und du die Laufwerke der Benutzer meinst ide z.B. durch servergespeicherte Profile oder durch Ordnerumleitungen in Gruppenrichtlinien entstehen.
    Das lässt sich daran erkennen das die Benutzer auch Besitzer dieser Ordner sind.

    Schlechte Nachricht für dich: Selbst der Administrator muss sich in diesem Fall erst Zugriff verschaffen (Besitz übernehmen und Rechte neu setzen).
    Deshalb wird in der Regel in Gruppenrichtlinien eingestellt, das der Administrator auf solche Ordner zugreifen kann. Ist der Ordner aber bereits erstellt ist es zu spät.

    Gibt es eventuell einen Backup-Benutzer der alles lesen darf? (Ich hoffe ihr habt eine Datensicherung). Es muss zumindest für das Backup immer einen Benutzer geben der alles lesen darf. Der Administrator kann immer - wenn nicht kann er sich zumindest das Recht dafür holen.

    Solltest du mit Windows Server 2008 / 2008R2 auf die Ordner zugreifen so bietet er dir in der Regel von alleine an die die passenden Rechte zu verschaffen.

    Alternativ: wenn du dein kopieren als Benutzer "SYSTEM" durchführen lässt geht es in der Regel auch - ausser dieser wurde expiziert bei der automatischen Ordnererstellung entfernt. Allerdings kann SYSTEM nicht so ohne weiteres auf das Netzwerk zugreifen.
    Der Trick wäre, den Anmeldebildschirmschoner durch eine Batch zu ersetzen die das kopieren macht.
    Rechte mitkopieren kannst du mit ROBOCOPY.exe - ist ab Vista / 7 / 2008 / 2008R2 ab Werk mit dabei, für die vorherigen Versionen von Windows kann man es herunterladen (suche mal bei google).

    BLinz

  • Com Ports ansteuern?

    Naja ...

    Wenn dein rechner noch einen COM-Port hat - du musst ja hinter den COM Ports etwas haben was die Signale verarbeitet.

    Sonst schau mal bei Conrad Electronic - die haben I/O Boards für die COM und USB Schnittstellen, wie die Programmirt ist in Grundzügen dabei

  • Kompilieren

    Lösungsmöglichkeit: (so würde ich es machen):

    [autoit]

    If FileExists(EnvGet("ProgramFiles(x86)") & "\VideoLAN\VLC\vlc.exe") = 1 Then
    Run(EnvGet("ProgramFiles(x86)") & "\VideoLAN\VLC\vlc.exe" , "", @SW_MAXIMIZE)
    ElseIf FileExists(EnvGet("ProgramFiles") & "\VideoLAN\VLC\vlc.exe") = 1 Then
    Run(EnvGet("ProgramFiles") & "\VideoLAN\VLC\vlc.exe" , "", @SW_MAXIMIZE)
    Else
    MsgBox(4096,"VLC nicht gefunden","Es wurde weder eine 32Bit noch 64Bit Installation von VLC gefunden")
    Exit 1
    EndIf

    [/autoit]

    Mit dem Exit beendest du das Skript sofort - hat ja keinen Sinn weiter zu machen wenn der VLC nicht gefunden wurde

    BLinz

  • Pfadangabe: Datei oder Ordner?

    In Umständlich:

    [autoit]

    Func _DateioderVerzeichnis($Datei_oder_Verzeichnis)
    If FileClose(FileOpen($Datei_oder_Verzeichnis)) = 0 Then
    MsgBox(4096,"Datei oder Verzeichnis",$Datei_oder_Verzeichnis & " ist ein Verzeichnis!")
    Else
    MsgBox(4096,"Datei oder Verzeichnis",$Datei_oder_Verzeichnis & " ist eine Datei")
    EndIf
    EndFunc

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

    _DateioderVerzeichnis(@WindowsDir)
    _DateioderVerzeichnis(@WindowsDir & "\write.exe")

    [/autoit]

    FileOpen klappt nur wenn es eine Datei ist - und nur dann klappt FileClose (Siehe Hilfe zu den Befehlen)

    BLinz

  • In welcher Domain ist der PC?

    Ich programmiere zufällig eh gerade am WMI rum:

    [autoit]


    Global $pc = @ComputerName
    Global $objItem, $objWMI

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

    $objWMI = ObjGet("winmgmts:{impersonationLevel=Impersonate}!\\" & $pc & "\root\CIMV2")
    $objItems = $objWMI.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", 0x10 + 0x20)
    If IsObj($objItems) Then
    For $objItem In $objItems

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

    MsgBox(0,"","Computername laut WMI: " & $objItem.Name & @CRLF & "DNS Domänenname laut WMI: " & $objItem.Domain & @CRLF & "Workgroup laut WMI (leer wenn in Domäne): " & $objItem.Workgroup)

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

    Next
    EndIf

    [/autoit]

    Als PC Namen kannst du auch Netzwerkrechner nehmen. Jedoch fällt das Skript "auf die Schnautze" wenn du dort dann nicht die Rechte hast. Remote auslesen geht praktisch nur in der Domäne, Wenn ein Rechner in der Arbeitsgruppe ist hat er die Remoteports zu und du musst diese zuerst öffnen, WMI zulassen und UAC deaktivieren.

    Man kann sich auch Remote am WMI anmelden - das ist etwas komplizierter und wäre eine Frage für sich.

    Alternativ kannst du Registry-Schlüssel abfragen (ohne Gewähr)

    Code
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Group Policy\History
REG_SZ Maschine Domain

    den gibt es nur wenn der Rechner in einer Active Directory Domäne Mitglied ist

    und

    Code
    HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Tcpip\Parameters
REG_SZ NV Domain


    Den Schlüssel gibt es auch nur wenn der Rechner in einer Domäne ist.

    BLinz

  • Website aufrufen

    Ich habe es bisher so gemacht, öffnet die Webseite im Standard Webbrowser:

    [autoit]


    #include <IE.au3>
    $oBrowser = _IECreate("http://znil.net", 0, 1, 0, 1)

    [/autoit]


    Die Parameter kannst du dir in der Hilfe anschauen, du kannst etwas besser steuern was mit dem Fenster passieren soll