Beiträge von MojoeB

$testmp4 = ''

example($testmp4)

func example($testmp4)
local $vlcsockel = ''
	If _vlc_start_server(true) Then ;True um die Console auszublenden.
		IF _vlc_tcp_connect($vlcsockel) Then 	
		 _add_video($vlcsockel,  $testmp4) 
		 _start_video($vlcsockel,  $testmp4)
		EndIf 
	EndIf	
	Sleep(10000)
	IF _vlc_tcp_disconnect($vlcsockel) Then 	
		Exit 
	EndIf
EndFunc 


Func __isVLCInstalled()
    Local $registryPaths[2] = ["HKLM\SOFTWARE\VideoLAN\VLC", "HKLM\SOFTWARE\WOW6432Node\VideoLAN\VLC"]
    Local $vlcInstallDir = ""
    For $i = 0 To UBound($registryPaths) - 1
        $vlcInstallDir = RegRead($registryPaths[$i], "InstallDir")
        If Not @error And $vlcInstallDir <> "" And FileExists($vlcInstallDir & "\vlc.exe") Then
            Return $vlcInstallDir & "\vlc.exe"
        EndIf
    Next
    Return False
EndFunc
 
func _vlc_start_server($hide = False, $hostip = '' , $port = '' ,$vlcConnectString = '' )
	IF $hostip 			 = '' Then $hostip = 'localhost'		
	IF $port 			 = '' Then $port = '4212'
	IF $vlcConnectString = '' Then 
	   $vlcConnectString = '-I rc --rc-host='&$hostip&':' & $port
		Else  
			$vlcConnectString = $vlcConnectString&'='&$hostip&':'& $port
	EndIf	
	
	Local $vlcpath = __isVLCInstalled()
	If $vlcpath Then 	
		if $hide Then 
			Run($vlcpath & ' ' & $vlcConnectString & ' ' & '', '', @SW_HIDE) 
		ElseIf not $hide Then 
			Run($vlcpath & ' ' & $vlcConnectString & ' ' & '')
		EndIf		
		Return True 		
	Else 
		Return False 	
	EndIf 
EndFunc 

func _vlc_tcp_connect(byref $socket,  $ip = '',  $iport = '')
If $ip   = '' Then $ip   =  '127.0.0.1'
If $iport = '' Then $iport = 	4212
	TCPStartup()
	If @Error Then Return False 
	$socket = TCPConnect($ip, $iport)
	If @error Then Return False 
	Return True  
EndFunc

func _vlc_tcp_disconnect(byref $socket)	
	TCPSend($socket, "quit" & @CRLF)	
	IF @Error Then MsgBox(0,  'VLC SERVERINSTATANZ',  'INSTANZ ist noch Aktiv konnte nicht geschlossen werden.')
	TCPCloseSocket($socket)
	TCPShutdown()	
	If @Error Then Return False 
	Return True  
EndFunc
func _start_video(byref $socket,  $filepath)
	TCPSend($socket, "start "& @CRLF)	
	If @Error Then Return False 	
EndFunc
func _play_video(byref $socket,  $filepath)
	TCPSend($socket, "play " & $filepath & @CRLF)	
	If @Error Then Return False 	
EndFunc
func _add_video(byref $socket,  $filepath)
	TCPSend($socket, "add "&$filepath & @CRLF)	
	If @Error Then Return False 	
EndFunc

Func test()
	local $sTaskListRaw = FileRead('Struckturwerte.csv'), $mTable[]
	MsgBox(0, '', $sTaskListRaw )
	local $mData =  _td_fromCsv($sTaskListRaw, ',', "", False )	
	_td_display($mData, "example 1 - tasklist")

	_td_toPrimaryKeys($mData, 0)
	$mTable = _td_toPrimaryKeys($mData)
	MsgBox(0, "homepage", $mTable.homepage.WERT)

EndFunc 

#include <MsgBoxConstants.au3>

; Setzt MouseCoordMode auf 2, um relative Koordinaten zum Client-Bereich des aktiven Fensters zu nutzen
Opt("MouseCoordMode", 2)

; Öffnet ein Testfenster
$gui = GUICreate("Testfenster", 400, 300,  200, 300)
GUISetState(@SW_SHOW)

; Wartet 2 Sekunden
Sleep(2000)

; Bewegt die Maus zum Punkt (100, 100) im Client-Bereich des Testfensters
MouseMove(100, 100)

; Zeigt eine Nachricht mit den aktuellen Mauskoordinaten an
$x = MouseGetPos(0)
$y = MouseGetPos(1)
MsgBox($MB_SYSTEMMODAL, "Mausposition", "Die Mausposition ist: " & $x & ", " & $y)

; Schließt das GUI-Fenster
GUIDelete($gui)

#RequireAdmin ; muss drin sein wegen BlockInput
; Setze MouseCoordMode auf 2 für Koordinaten relativ zum Client-Bereich des aktiven Fensters
Opt("MouseCoordMode", 2)

example( )
If ProcessExists ( "mspaint.exe" ) Then ProcessClose('mspaint.exe')
example('sizemanipultion', 200 , 800)

func example($function='', $ihigh='', $iWidth='')
; Starte mspaint
Run("mspaint")
; Warte darauf, dass mspaint startet und speichere das Handle
$hpaint=WinWait("Unbenannt - Paint", "", 10)
; Überprüfe, ob das mspaint-Fenster existiert
If WinExists('Unbenannt - Paint' ) Then
   ; Warte darauf, dass mspaint geöffnet wird und aktiviere es

	WinActivate($hpaint, "")
	WinWaitActive($hpaint, "", 10)

	If $function <> '' Then
		Call($function, $hpaint, $ihigh, $iWidth);ändert die fenster größe
		MsgBox(0, 'info', 'Das Fenster wurde auf die höhe : '& $ihigh&'x'& $iWidth &' angepasst.')

	EndIf
	MsgBox(0, 'info', 'Verschiebe das Paint-Fenster an eine neue Position, bestätige die Aktion mit OK und überwache anschließend das Fenster auf Aktioen.')


	; Klicke auf "Datei"
	BlockInput(1)
    MouseMove(32, 22, 10)
	MouseClick('left')
	Sleep(1000)
    ; Klicke auf "Bearbeiten"
   MouseMove(109, 22, 10)
;~    MouseClick('left')
    Sleep(1000)
	; Klicke auf "Ansicht"
   MouseMove(190, 22, 10)
;~    MouseClick('left')
    Sleep(1000)
	BlockInput(0)
Else
    MsgBox(0, "Fehler", "Das Paint-Fenster mit dem angegebenen Handle wurde nicht gefunden.")
EndIf
EndFunc

func sizemanipultion(byref $hwd, $iWidth,$iHeight)
	WinMove($hwd, "", WinGetPos($hwd)[0], WinGetPos($hwd)[1], $iWidth, $iHeight)
EndFunc


;noch ein paint beispiel beachte das es mit diese Methode nur funktioniert wenn sich die Sachen die du erreichen willst statisch in der gui vorhanden sind, ich habe noch eine größenmanipultion mit einbaut falls du sowas benötigen solltest.
;in diesem beispiel werden beide sachen ausgeführt einmal mit und einmal ohne größen manupilation, das heißt aber nicht das das bei jeder app geht aber einigen.

;includes reichen diese vom webdriver udf, wenn du alle anderen au3 udfs korrekt hinterlegt hast, die benötigt werden.
;~ #includes <wd_capabilities.au3>
;~ #includes <wd_helper.au3>
#include <nWebdriver\wd_capabilities.au3>
#include <nWebdriver\wd_helper.au3>

Global $hSession,  $iWebDriver_PID,  $capa = ''
Global $webseite = 'https//www.google.de'	;<- Schritt 1,passe link an.
$hSession = starteEdge()					;<- Schritt 2,starte den webdriver richtig.
_WD_Navigate($hSession, $webseite) 			;<- Schritt 3, Webseite wird aufgerufen
IF @error Then 
	Webdrivererror(@Error,'_WD_Navigate')
	WD_EXIT($hSession, $iWebDriver_PID)
	exit
Else 
$sElement = _WD_FindElement($hSession, 'xpath', "//span[@tabindex='0'][contains(.,'12')]") ;<- Schritt 4, xpath wird gelesen.
	IF @Error Then 
		Webdrivererror(@Error,'_WD_FindElement')
		WD_EXIT($hSession, $iWebDriver_PID)
		Exit 
	Else 
		_WD_ElementAction($hSession, $sElement, 'click') ;<- Schritt 5 klick aufs element.
		If @Error Then 
			Webdrivererror(@Error,'_WD_ElementAction')
			WD_EXIT($hSession, $iWebDriver_PID)
			exit
		EndIf
	EndIf
EndIf  
	
MsgBox(0,  'Info',  'Scirpt wurde komplett ausgeführt glückwunsch, element sollte geklickt sein!');<- Schritt 6 ende.
WD_EXIT($hSession, $iWebDriver_PID)	;<- beende alles wieder.
exit
	

Func starteEdge()
    Local $session
    SetupEdge(1) ;<- STARTE mit PARAMETER 0, 1 oder 2 / 0 ist ohne konsole, die anderen zwei rufen die console auf. 
    If Not $capa Then
        ConsoleWrite('Fehler beim Erstellen, Programm wird beendet.' & @CR)
        WD_EXIT($hSession, $iWebDriver_PID)
        Exit
    Else
        $session = _WD_CreateSession($capa)
        If Not $session Then
            ConsoleWrite('Fehler beim Erstellen _WD_CreateSession, Programm wird beendet.' & @CR)
            WD_EXIT($hSession, $iWebDriver_PID)
            Exit
        Else
            Return $session
        EndIf
    EndIf
EndFunc



Func SetupEdge($opt = 0)
	Local $log = False
	IF $opt = 0 Then 
		$_WD_DEBUG = $_WD_DEBUG_None ;keine console
	ElseIf $opt = 1 Then 	
		$_WD_DEBUG = $_WD_DEBUG_Full ;console mit full debug
		$log = true
	ElseIf $opt = 2 Then 	
		$_WD_DEBUG = $_WD_DEBUG_Info ;console mit info
		$log = true
	EndIf	
		
		_WD_UpdateDriver('msedge', @Tempdir & '\msedge\') ;automatisches runterladen des webdrivers falls nicht vorhanden.
		_WD_Option('Driver', @Tempdir & '\msedge\msedgedriver.exe');setze den Driver.
		_WD_Option('Port', 9515);setze den Port.
	IF $log Then
			_WD_Option('console', @ScriptDir & '\WD_Console.log');ist $log true dann nimm den log auf.
	EndIf
		$iWebDriver_PID = _WD_Startup();starte den webdriver.
		If @error Then Webdrivererror(@Error,'iWebDriver_PID')
		_WD_CapabilitiesStartup()
		_WD_CapabilitiesAdd('alwaysMatch', 'msedge')
		_WD_CapabilitiesAdd('excludeSwitches', 'enable-automation')

;~         _WD_CapabilitiesAdd('args', 'disable-gpu') ; Manchmal notwendig für Headless	
		_WD_CapabilitiesAdd('args', 'guest')
		_WD_CapabilitiesDump(@ScriptLineNumber)
		 $capa = _WD_CapabilitiesGet()
	EndFunc   ;==>SetupEdge

	
func WD_EXIT(ByRef $sSession, ByRef $iWebDriver_PID)
	_WD_DeleteSession($sSession)
	_WD_Shutdown($iWebDriver_PID,Default)
	$sSession = ''
EndFunc 
	
Func Webdrivererror($error, $Element = '', $opt = '')
   Select
       Case $error = $_WD_ERROR_Success
           ConsoleWrite($Element & ' ' & $opt & ' ' & 'DONE' & @CRLF)
       Case $error = $_WD_ERROR_NoMatch
           ConsoleWrite('Fehler beim Finden des Elements.' &$Element & @CRLF)
       Case $error = $_WD_ERROR_SessionNotCreated
           ConsoleWrite('Session konnte nicht erstellt werden.' &$Element  & @CRLF)
       Case $error = $_WD_ERROR_Exception
           ConsoleWrite('Eine Ausnahme ist aufgetreten.' &$Element & @CRLF)
       Case $error = $_WD_ERROR_Timeout
           ConsoleWrite('Zeitüberschreitung bei der Anforderung.' &$Element  & @CRLF)
       Case $error = $_WD_ERROR_InvalidDataType
           ConsoleWrite('Ungültiger Datentyp angegeben.' &$Element  & @CRLF)
       Case $error = $_WD_ERROR_InvalidExpression
           ConsoleWrite('Ungültiger Ausdruck.' &$Element  & @CRLF)
       Case $error = $_WD_ERROR_RetValue
           ConsoleWrite('Ungültiger Rückgabewert.' &$Element  & @CRLF)
       Case $error = $_WD_ERROR_InvalidArgue
           ConsoleWrite('Ungültiges Argument.' &$Element  & @CRLF)
       Case $error = $_WD_ERROR_NoAlert
           ConsoleWrite('Kein Alert vorhanden.' &$Element  & @CRLF)
       Case $error = $_WD_ERROR_GeneralError
           ConsoleWrite('Allgemeiner Fehler.' &$Element  & @CRLF)
       Case $error = $_WD_ERROR_InvalidValue
           ConsoleWrite('Ungültiger Wert.' &$Element  & @CRLF)
       Case $error = $_WD_ERROR_FileIssue
           ConsoleWrite('Problem mit der Datei.' &$Element  & @CRLF)
       Case Else
           ConsoleWrite('Ein unbekannter Fehler ist aufgetreten. Fehlercode: ' & $error & &$Element&  @CRLF)
   EndSelect
EndFunc   ;==>Webdrivererror