1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Joschy41

Beiträge von Joschy41

  • VLC in Gui

    • Joschy41
    • 28. Februar 2019 um 19:15

    Stichwort war die VLC.au3
    Mit fehlte der Befehl: _GUICtrlVLC_Play($vlc, $Stream)

    Dafür muss man aber erstmal eine Datei zur Playlist hinzufügen: $Stream = _GUICtrlVLC_Add($vlc, $path)

    Nächstes Problem:
    Ich spiele damit einen Stream ab, der abundzu mal abreist.
    Kann ich "checken" ob der Stream noch läuft, und wenn nicht er diesen neu startet?

    Hier mein kurzes funktionierendes Script:

    C
    #include <VLC.au3> ;Findet man im oberen Beitrag
    #include <GUIConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    
    Opt("GUIOnEventMode", 1)
    _VLCErrorHandlerRegister()
    
    
    GUICreate("Stream", 500, 350)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")
    
    
    ;---------VLC Fenster----------Begin
     Local $aPos = WinGetPos("Stream")
    $vlc = _GUICtrlVLC_Create(0, -20, $aPos[2], $aPos[3])
    $path = @ScriptDir & "\stream.m3u" ;Pfad zur Datei (Hier eine *.m3u
    $Stream = _GUICtrlVLC_Add($vlc, $path) ;Fügt die Datei zur VLC Playlist hinzu
    _GUICtrlVLC_Play($vlc, $Stream) ;Spielt die VLC Playlist ab
    ;---------VLC Fenster----------End
    
    
    GUISetState(@SW_SHOW) ;Fenster anzeigen
    
    
    While 1
        Sleep(100)
    WEnd
    
    
    Func CLOSEButton()
       Exit
    EndFunc
    Alles anzeigen
  • Zoom in _IECreateEmbedded

    • Joschy41
    • 27. Februar 2019 um 10:57

    Ich habe so viel bei google gesucht. Aber nicht nach diesen Stichwörtern.
    Wie in meinem Ersten Beitrag immer nach IECreateEmbedded Zoom oder so.

    Aber funktioniert jetzt einwandfrei.
    Dank dir! :)

  • Zoom in _IECreateEmbedded

    • Joschy41
    • 27. Februar 2019 um 10:18

    Moin.
    Ich versuche vergebens einen Zoomfaktor festzulegen für _IECreateEmbedded.

    Ich habe es mittels "$oIE.document.parentwindow.scroll(151, 230)" hinbekommen zur Position zu Scrollen, jedoch wäre es schön wenn man so ähnlich noch den Zoomfaktor festlegen könnte.

    C
    #include <GUIConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <GuiSlider.au3>
    #include <IE.au3>
    
    GUICreate("Google", @DesktopWidth/2, @DesktopHeight/2, 0, 0)
    
    Local $oIE = _IECreateEmbedded(), $msg, $sHtml_File
    GUICtrlCreateObj($oIE, 0, 0,@DesktopWidth/2, @DesktopHeight/2)
    
    GUISetState(@SW_SHOW)
    
    
    While 1
    _IENavigate($oIE, "https://www.google.de", 0) ;Öffnet Google
    Sleep (1000) ;Wartet 1 Sek.
    $oIE.document.parentwindow.scroll(151, 230) ;Positioniert IE Fenster
    Sleep (600000) ;Wartet 10 Min.
    WEnd ;Aktualisiert Google
    Alles anzeigen

    Gruß

  • VLC in Gui

    • Joschy41
    • 26. Februar 2019 um 11:06
    Zitat von alpines

    Ohne die entsprechende UDF können wir dir wohl kaum weiterhelfen.

    Das war der Stichpunkt :D

    Hab es zum laufen bekommen.
    Danke.

  • VLC in Gui

    • Joschy41
    • 26. Februar 2019 um 09:09

    Moin.

    Ich komme nicht weiter.

    Ich möchte mir eine Gui basteln, in der ein Video via VLC Player abgespielt wird. Ich habe bereits eine Gui erstellt und auch der VLC Player wird mir angezeigt. Ich bekomme es jedoch nicht hin, dass beim Öffnen automatisch das Video abgespielt wird. Ich möchte keine extra Datei haben, sondern einfach z.b. VlcPlay("Dateipfad") nutzen.
    Hier mal mein Script.

    C
    #include <GUIConstants.au3>
    #include <VLC.au3>
    #include <SliderConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <GuiSlider.au3>
    
    _VLCErrorHandlerRegister()
    
    Example()
    Func Example()
    
    ; Setup Main GUI
    $main_gui = GUICreate("My VLC Player", 800, 600, -1, -1)
    $vlc1 = _GUICtrlVLC_Create(0, 0, 400, 250)
    
    if $vlc1 = False then
        msgbox(0, "VLC UDF Example",    "_GUICtrlVLC_Create failed." & @CRLF & _
                                        "The most likely cause is that you don't have VLC installed." & @CRLF & _
                                        "Make sure VLC, and the ActiveX component, is installed.")
        Exit
    EndIf
    
    ; Display the GUI.
    GUISetState(@SW_SHOW, $main_gui)
    
        ; Loop until the user exits.
        While 1
           Switch GUIGetMsg()
              Case $GUI_EVENT_CLOSE
                  ExitLoop
    
           EndSwitch
        WEnd
    
        ; Delete the previous GUI and all controls.
        GUIDelete($main_gui)
    EndFunc   ;==>Example
    Alles anzeigen

    Gruß

  • Arrays einzeln ausgeben

    • Joschy41
    • 14. Dezember 2018 um 15:47

    Die Zeit könnte ich mir mal nehmen.
    Bis jetzt immer nur bei Bedarf rumgespielt.

  • Arrays einzeln ausgeben

    • Joschy41
    • 14. Dezember 2018 um 14:32

    Vielen dank.
    Geht voll schnell mit den Antworten :)

  • Arrays einzeln ausgeben

    • Joschy41
    • 14. Dezember 2018 um 14:29

    Kann man eine Variable zurücksetzen?
    Wenn ich eine Schleife drin habe, wird die Variable immer größer :D

  • Arrays einzeln ausgeben

    • Joschy41
    • 14. Dezember 2018 um 13:50

    Geil danke!

  • Arrays einzeln ausgeben

    • Joschy41
    • 14. Dezember 2018 um 13:38

    Steig grade nicht mehr komplett durch.

    Hier mal mein Beispiel:

    Code
    Local $ip = StringRegExp($sFile, "\s+TCP\s+\d+\.\d+\.\d+\.\d+:\d+\s+(\d+\.\d+\.\d+\.\d+):\d+\s+HERGESTELLT", 3)
    ;folgende Arrays sind vorhanden:
    ;$ip[0] = 172.16.1.228
    ;$ip[1] = 172.16.2.45
    ;$ip[2] = 172.16.2.46
    
    Local $count = Ubound($ip) ;$Count sind in dem fall 3
    For $i = 0 to $count -1
    TCPStartup()
    Local $name = _TCPIpToName ($ip[$i],0)
    ;MsgBox (1,"Ausgabe", "Diese sind verbunden: " & $name)
    Next
    Alles anzeigen

    Mit der MsgBox kann ich die 3 Hostname ($name) nacheinander anzeigen lassen.
    Wie kann ich jetzt alle 3 Hostnames in eine Variable bringen um alle in einer MsgBox anzeigen zu lassen?

  • Arrays einzeln ausgeben

    • Joschy41
    • 14. Dezember 2018 um 13:12

    Danke, funktioniert soweit so gut.
    Aber ich muss dann $aArray[0], $aArray[1],$aArray[2], usw in einer Zeile bekommen.  

  • Arrays einzeln ausgeben

    • Joschy41
    • 14. Dezember 2018 um 11:54

    Hallo.
    BugFix , kannst du mir ein Beispiel zeigen?

    autoiter, schau oben ich hab den Befehl schon drin, zum auslesen welche Größe ein Array hat.

  • Arrays einzeln ausgeben

    • Joschy41
    • 14. Dezember 2018 um 10:46

    Moin,

    ich stehe vor einen kleinen Problem.
    Vorweg, ich bin immer noch dabei, ein Hilfetool für eine Fernwartung zu schreiben.
    Dieses soll anzeigen welche Nutzer zur Zeit mit dem Rechner verbunden sind, sodass man aufeinander Rücksicht nehmen kann, da es öfter vorkommt, dass mehrere Nutzer auf den einen Rechner zugreifen.

    Ich habe es so weit, dass ich die IP Adressen auslese, die mit dem Rechner verbunden sind.

    Code
    ;Ports.txt 
    ;TCP    0.0.0.0:1234           0.0.0.0:0              ABH™REN
    ;TCP    172.16.1.225:1234      172.16.1.228:1234     HERGESTELLT
    ;TCP    172.16.1.225:1234      172.16.2.45:1234      HERGESTELLT


    Die IP Adressen sind in ein Array.

    Code
    Local $ip = StringRegExp($sFile, "\s+TCP\s+\d+\.\d+\.\d+\.\d+:\d+\s+(\d+\.\d+\.\d+\.\d+):\d+\s+HERGESTELLT", 3)
       
    ;$ip[0] = 172.16.1.228
    ;$ip[1] = 172.16.2.45

    Jedoch variiert die Anzahl der Arrays. Es könnte also nur $ip[0] geben, oder auch $ip[0] bis $ip[4].

    Zudem löse ich die IP Adressen in Hostname auf und gebe es aus.

    Code
    TCPStartup()
    Local $name0 = _TCPIpToName ($ip[0],0)
    Local $name1 = _TCPIpToName ($ip[1],0)
    
    MsgBox (1,"Ausgabe", "Diese Nutzer sind verbunden: " & $name0 & ", " & $name1)

    Gibt es allerdings jetzt nur noch eine IP, gibt es einen Fehler, dass es ja nur einen Array ($ip[0]) gibt.

    Die Anzahl der Arrays kann man ja auslesen:

    Code
    Local $count = Ubound($ip)
    ;$count = 2

    Jetzt das Problem, dass dieses hier:

    Code
    TCPStartup()
    Local $name0 = _TCPIpToName ($ip[0],0)
    Local $name1 = _TCPIpToName ($ip[1],0)
    MsgBox (1,"Ausgabe", "Diese IP-Adresen sind verbunden: " & $name0 & ", " & $name1)

    abhängig der gezähten Arrays sein muss.

    Entweder es gibt nur eine IP Adresse, dann müsste es so aussehen:

    Code
    TCPStartup()
    Local $name0 = _TCPIpToName ($ip[0],0)
    MsgBox (1,"Ausgabe", "Diese IP-Adresen sind verbunden: " & $name0)

    Oder es gibt 3 und es müsste so aussehen:

    Code
    TCPStartup()
    Local $name0 = _TCPIpToName ($ip[0],0)
    Local $name1 = _TCPIpToName ($ip[1],0)
    Local $name2 = _TCPIpToName ($ip[2],0)
    MsgBox (1,"Ausgabe", "Diese IP-Adresen sind verbunden: " & $name0 & ", " & $name1 & ", " & $name2)

    Ich hoffe ihr könnt mir helfen.

    Mit freundlichen Grüßen

  • Eine von mehreren Zeilen mit bestimmten Wort in in MsgBox ausgeben

    • Joschy41
    • 9. Oktober 2018 um 15:25

    Habe einen Fehler gefunden.

    TCP 0.0.0.0:1234 0.0.0.0:0 ABHOEHREN

    TCP 172.0.0.1:12345 172.0.0.2:1234 WARTEND

    TCP 172.0.0.1:12345 172.0.0.2:1234 WARTEND

    TCP 172.0.0.1:12345 172.0.0.2:1234 HERGESTELLT

    Hier sind es unregelmäßige Leerzeichen...

    Also Wie hier in der ersten Reihe demonstriert. Nur dass es wirkich Leerzeichen sind. Was kann man da machen?

    TCP 0.0.0.0:1234_______0.0.0.0:0 ABHOEHREN

    TCP 172.0.0.1:12345___172.0.0.2:1234 WARTEND

    TCP 172.0.0.1:12345 ___172.0.0.2:1234 WARTEND

    TCP 172.0.0.1:12345 ___172.0.0.2:1234 HERGESTELLT


    Gruß


    Edit: ich denke ich hab den Fehler behoben:

    Code
    Local $aRegEx = StringRegExp($sFile, "\s+TCP\s+\d+\.\d+\.\d+\.\d+:\d+\s+(\d+\.\d+\.\d+\.\d+:\d+)\s+HERGESTELLT", 3)
  • Eine von mehreren Zeilen mit bestimmten Wort in in MsgBox ausgeben

    • Joschy41
    • 9. Oktober 2018 um 14:04

    Also ich habe es jetzt hin bekommen, dass er mir die beiden IP Adressen aus der Zeile mit dem Wort "HERGESTELLT" in einer MsgBox raus gibt.
    Jetzt gucke ich, ob ich es noch bisschen "optimieren" kann.

  • Eine von mehreren Zeilen mit bestimmten Wort in in MsgBox ausgeben

    • Joschy41
    • 9. Oktober 2018 um 13:30
    Zitat von alpines

    oder wenn du die IP-Adressen direkt auslesen möchtest so (die liegen alle hintereinander):

    Code
    #include <Array.au3>
    
    Local $sFile = FileRead("test.txt")
    Local $aRegEx = StringRegExp($sFile, "TCP (\d+\.\d+\.\d+\.\d+:\d+) (\d+\.\d+\.\d+\.\d+:\d+) HERGESTELLT", 3)
    
    _ArrayDisplay($aRegEx)


    Könntest du mir das umbasteln so dass die Zeile mit "HERGESTELLT" in einer MsgBox ausgegeben wird?

  • Eine von mehreren Zeilen mit bestimmten Wort in in MsgBox ausgeben

    • Joschy41
    • 9. Oktober 2018 um 12:18

    Danke,
    aber so bekomme ich das nicht wirklich zum laufen...
    Gibt es denn eine Möglichkeit einfach eine Komplette Zeile in einer Variable zu bekommen, in der der wort "HERGESTELLT" drin steht?

    Dachte an was, was das Wort sucht.
    Dann die Zahlen ausgibt Beispiel: 2 und 5
    sodass man dann mit dem Befehl: FileReadLin (…. ,2) und FileReadLin (…. ,5) arbeiten kann.

  • Eine von mehreren Zeilen mit bestimmten Wort in in MsgBox ausgeben

    • Joschy41
    • 9. Oktober 2018 um 10:32

    Moin,

    ich suche eine Möglichkeit eine von mehreren Zeilen mit einem bestimmten Wort aus einer txt Datei zu ziehen und z.B. mit einer Variable in einer MsgBox auszugeben.
    Mit StringinStr, FileReadLine u.s.w. bin ich denke schonmal auf dem guten Wege.

    Hier mal mein vorhaben:

    Mit einer Batch Datei checke ich einen bestimmten Port, welche Verbindungen bestehen und lasse dieses in einer Text Datei ausgeben:

    TCP 0.0.0.0:1234 0.0.0.0:0 ABHOEHREN

    TCP 172.0.0.1:12345 172.0.0.2:1234 WARTEND

    TCP 172.0.0.1:12345 172.0.0.2:1234 WARTEND

    TCP 172.0.0.1:12345 172.0.0.2:1234 HERGESTELLT

    Nun möchte ich aber nur die Zeile mit dem "HERGESTELLT" in einer Variable bekommen und z.B. in einer MsgBox ausgeben. Die Zeile kann aber immer an einer anderen Stelle stehen und es können mehrere sein.
    Dieses soll dazu dienen, als Info wer mit dem Remote Desktop "connected" ist, damit es keine Komplikationen mit mehreren Nutzern gibt.

    Vielen dank im Vorraus.

  • Remote Port checken wer connected ist?

    • Joschy41
    • 3. August 2018 um 21:06

    Hallo,
    ich nutze das Programm Radmin.
    Ich würde gern mit SplashTextOn eine Nachricht auf dem Bildschirm erscheinen lassen, wenn jemand mit einem "Client" auf dem "Server" zugreift. Da teils mehrere Verbindungen bestehen, sollten die Rücksicht aufeinander nehmen können in dem die Nachricht auf dem Bildschirm ist. Das ganze habe ich mit auslesen einer Log datei bereits realisiert. Doch da die Log andere Sachen mit schreibt wäre das mit einer Verbindungsüberwachung besser.

    MfG

  • Remote Port checken wer connected ist?

    • Joschy41
    • 3. August 2018 um 14:32

    Moin,

    folgende Situation.
    Ich habe ein Remote Desktop Programm.
    Ich kann per Mausklick ein Fenster öffnen, in dem steht wer grade verbunden ist.
    Desweiteren steht dort drin, "Eingehende Verbindungen werden auf Port 4899 angenommen".
    Kann man den Port überprüfen und sobald eine verbindung besteht, soll eine Aktion ausgeführt werden?

    Mit freundlichen Grüßen

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™