Beiträge von gmmg

#include "wd_helper.au3"
#include "wd_core.au3"

Local $file

$GoogleChrome64bit = "C:\Program Files\Google\Chrome\Application\chrome.exe"
$GoogleChrome32bit = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

If FileExists($GoogleChrome64bit) Then $file = $GoogleChrome64bit
If FileExists($GoogleChrome32bit) Then $file = $GoogleChrome32bit

If FileExists($file) Then

	$google_chrome_version = FileGetVersion($file)
	$google_chrome_version_array = StringSplit($google_chrome_version,".")

	$webdriver = "chromedriver_" & $google_chrome_version_array[1] & ".exe"

	If Not FileExists(@ScriptDir & '\data\'& $webdriver) Then
		MsgBox(0,"Info","Google Chromedriver nicht vorhanden." & @CRLF & $webdriver)
		Exit
	EndIf
Else
	MsgBox(0,"Info","Google Chrome in folgenden Pfad nicht vorhanden." & @CRLF & @CRLF & $file)
	Exit
EndIf

$user = ""
$pass = ""

$_WD_DEBUG = $_WD_DEBUG_None  ;set to $_WD_DEBUG_None before compiling.

;Global $_WD_DRIVER
Local $sDesiredCapabilities
Local $iIndex

$url = "https://autoit.de/wcf/login/?url=https%3A%2F%2Fautoit.de%2F"

SetupChrome()

_WD_Startup()
$sSession = _WD_CreateSession($sDesiredCapabilities)
_WD_Window($sSession, "Maximize", "{}")
_WD_Navigate($sSession, $url)
_WD_LoadWait($sSession, 1500)

;WinSetState ("","",@SW_MAXIMIZE)

_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='username']")
;ConsoleWrite("+ @error = " & @error & @CRLF)
$sElement_user = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='username']")

_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='password']")
;ConsoleWrite("+ @error = " & @error & @CRLF)
$sElement_pass = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='password']")

If @error = $_WD_ERROR_Success Then
   _WD_ElementAction($sSession, $sElement_user, 'value',$user)
EndIf
If @error = $_WD_ERROR_Success Then
   _WD_ElementAction($sSession, $sElement_pass, 'value',$pass)
EndIf

Sleep(1000)
;Send("{ENTER}")

$sElement = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "/html/body/div[1]/section/div/div/div[1]/form/section[1]/div/input[1]")
;_WD_HighlightElement($sSession, $sElement, 3)

If @error = $_WD_ERROR_Success Then
	_WD_ElementAction($sSession, $sElement, 'click')
Sleep(500)
EndIf

_WD_Shutdown()
_WD_DeleteSession($sSession)

Exit

Func SetupChrome()

	;_WD_Option('Driver', 'chromedriver.exe')
	_WD_Option('Driver', 'data\'& $webdriver)
	_WD_Option('Port', 9515)
	_WD_Option('DriverParams', '--log-path="' & @UserProfileDir & '\chrome.log"')
	_WD_Option('DriverParams')

	$sDesiredCapabilities = '{"capabilities": {"alwaysMatch": {"unhandledPromptBehavior": "ignore", ' & _
    '"goog:chromeOptions": {"w3c": true, "excludeSwitches": ["enable-automation"], "useAutomationExtension": false, ' & _
    '"prefs": {"credentials_enable_service": false},' & _
	'"args": ["--disable-search-engine-choice-screen"] }}}}'

EndFunc

_AD_Open()

; Globale Variable für Computer
Global $aComputers
;$sOU = $strDNSDomain
$sOU = "OU=OU1234,DC=Domain,DC=int" ;muss angepasst werden

; AD-Abfrage, um nur Computer zu holen, deren Name mit "A" oder "N" beginnt
$aComputers = _AD_GetObjectsInOU($sOU, "(&(objectclass=computer)(|(name=F*)(name=N*)))", 2, "name,operatingSystem,description")

; Ausgabe der gefundenen Computer
_ArrayDisplay($aComputers)

_AD_Close()

#include <D:\scripte\AD_1.6.2.0_Functions\AD.au3> ;AD.au3 von Water -> Pfad muss angepasst werden
#include <Array.au3>


local $serverArray [1]
local $clientsArray [1][2] ;2D Array

_AD_Open()

$sOU = "OU=eureOU,DC=domain,DC=int" ;muss angepasst werden

$aObjects = _AD_GetObjectsInOU($sOU, "(objectclass=computer)", 2, "name,operatingSystem")

_ArrayDisplay($aObjects) ; alle Computer

If @error > 0 Then
    MsgBox(64, "", "Nichts gefunden")
Else

	For $i = 1 To $aObjects[0][0]
		$fill = ""
		;MsgBox(0,"", $aObjects[$i][1])
		$server = StringLeft ($aObjects[$i][1],14)
		$clients = StringLeft ($aObjects[$i][1],10)
		;MsgBox(0,"",$server)
       IF $server = "Windows Server" Then
		   ;MsgBox(0,"",$aObjects[$i][0])
			_ArrayAdd($serverArray, $aObjects[$i][0])
	   EndIf

	   IF $clients = "Windows 10" Or $clients = "Windows 11" Then
		   $description = _AD_GetObjectAttribute($aObjects[$i][0] & "$", "description")
		   ;MsgBox(0,$aObjects[$i][0],$description)
		   $fill = $aObjects[$i][0] & "|" & $description
			_ArrayAdd($clientsArray, $fill)
	   EndIf

    Next
	_ArrayDisplay($serverArray) ; Server Array
	_ArrayDisplay($clientsArray) ; Clients Array

EndIf

_AD_Close()

#AutoIt3Wrapper_Au3Check_Parameters=-d -w- 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

#AutoIt3Wrapper_UseX64=y

Opt( "MustDeclareVars", 1 )

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPICom.au3>
#include <WinAPI.au3>

#include "D:\Scripte\WebView2\Includes\WV2Interfaces.au3"  ; Pfad muss muss an die 7Z Ressouren angepasst werden

Global $hGui

Global $url = "https://autoit.de/wcf/"

WebView2()

Func WebView2()

   EnvSet( "WEBVIEW2_DEFAULT_BACKGROUND_COLOR", "FF000000" )
   EnvSet ("WEBVIEW2_USER_DATA_FOLDER", @AppDataDir & "\WebView2")
   EnvSet( "WEBVIEW2_ADDITIONAL_BROWSER_ARGUMENTS", "--disable-web-security" )

  $hGui = GUICreate( "WebView2 Sample", 1200, 900, -1, -1, $WS_OVERLAPPEDWINDOW )

  _WinAPI_CoInitialize( $COINIT_APARTMENTTHREADED )

  CoreWebView2CreateCoreWebView2EnvironmentCompletedHandlerCreate()
  ConsoleWrite( "$pCoreWebView2CreateCoreWebView2EnvironmentCompletedHandler = " & $pCoreWebView2CreateCoreWebView2EnvironmentCompletedHandler & @CRLF & @CRLF )

  CoreWebView2CreateCoreWebView2ControllerCompletedHandlerCreate()
  ConsoleWrite( "$pCoreWebView2CreateCoreWebView2ControllerCompletedHandler = " & $pCoreWebView2CreateCoreWebView2ControllerCompletedHandler & @CRLF & @CRLF )

  Local $hWebView2Loader = DllOpen( @AutoItX64 ? "WebView2Loader-x64.dll" : "WebView2Loader-x86.dll" )
  Local $aRet = DllCall( $hWebView2Loader, "long", "CreateCoreWebView2EnvironmentWithOptions", "wstr", "", "wstr", "", _
                         "ptr", NULL, "ptr", $pCoreWebView2CreateCoreWebView2EnvironmentCompletedHandler )
  If @error Or $aRet[0] Then Return ConsoleWrite( "CreateCoreWebView2EnvironmentWithOptions ERR" & @CRLF )
  ConsoleWrite( "CreateCoreWebView2EnvironmentWithOptions OK" & @CRLF & @CRLF )

  GUISetState(@SW_SHOW)

  While 1
    Switch GUIGetMsg()
      Case $GUI_EVENT_MAXIMIZE, $GUI_EVENT_RESIZED
        Local $tRect = _WinAPI_GetClientRect( $hGui )
        $oCoreWebView2Controller.put_Bounds( $tRect )

      Case $GUI_EVENT_CLOSE
        ExitLoop
    EndSwitch
  WEnd

  CoreWebView2CreateCoreWebView2ControllerCompletedHandlerDelete()
  CoreWebView2CreateCoreWebView2EnvironmentCompletedHandlerDelete()
  DllClose( $hWebView2Loader )
EndFunc

Func CoreWebView2CreateCoreWebView2EnvironmentCompletedHandler_Invoke( $pSelf, $long, $ptr ) ; Ret: long  Par: long;ptr*
  ConsoleWrite( "CoreWebView2CreateCoreWebView2EnvironmentCompletedHandler_Invoke" & @CRLF )
  $oCoreWebView2Environment = ObjCreateInterface( $ptr, $sIID_ICoreWebView2Environment, $dtag_ICoreWebView2Environment )
  ConsoleWrite( "IsObj( $oCoreWebView2Environment ) = " & IsObj( $oCoreWebView2Environment ) & @CRLF & @CRLF )
  $oCoreWebView2Environment.CreateCoreWebView2Controller( $hGui, $pCoreWebView2CreateCoreWebView2ControllerCompletedHandler )
  Return 0
  #forceref $pSelf, $long
EndFunc

Func CoreWebView2CreateCoreWebView2ControllerCompletedHandler_Invoke( $pSelf, $long, $ptr ) ; Ret: long  Par: long;ptr*
  ConsoleWrite( "CoreWebView2CreateCoreWebView2ControllerCompletedHandler_Invoke" & @CRLF )
  $oCoreWebView2Controller = ObjCreateInterface( $ptr, $sIID_ICoreWebView2Controller, $dtag_ICoreWebView2Controller )
  ConsoleWrite( "IsObj( $oCoreWebView2Controller ) = " & IsObj( $oCoreWebView2Controller ) & @CRLF )
  $oCoreWebView2Controller.AddRef()
  $oCoreWebView2Controller.get_CoreWebView2( $pCoreWebView2 )
  $oCoreWebView2 = ObjCreateInterface( $pCoreWebView2, $sIID_ICoreWebView2, $dtag_ICoreWebView2 )
  ConsoleWrite( "IsObj( $oCoreWebView2 ) = " & IsObj( $oCoreWebView2 ) & @CRLF & @CRLF )
  Local $tRect = _WinAPI_GetClientRect( $hGui )
  $oCoreWebView2Controller.put_Bounds( $tRect )
  $oCoreWebView2.Navigate($url) ;navigate to URL
Sleep (2000)
  ;$oCoreWebView2.ExecuteScriptAsync("(function() {  document.getElementsByName('member[email]')[0].value = 'MyUsername@gmail.com';document.getElementsByName('member[password]')[0].value = 'MyPassword'; })()")
  ;$oCoreWebView2.ExecuteScript("(function() {  document.getElementsByName('username')[0].value = 'MyUsername@gmail.com';document.getElementsByName('password')[0].value = 'MyPassword'; })()")
  ;$oCoreWebView2.ExecuteScript( "alert( 'Hello' );", $pCoreWebView2ExecuteScriptCompletedHandler )
  ;$oCoreWebView2.Navigate("javascript:(function() {  document.getElementsByName('username')[0].value = 'MyUsername@gmail.com';document.getElementsByName('password')[0].value = 'MyPassword'; })()")

  ;$oCoreWebView2.ExecuteScriptAsync("javascript:(function() {  document.getElementsByName('username')[0].value = 'MyUsername@gmail.com';document.getElementsByName('password')[0].value = 'MyPassword'; })()")

	;now execute your javascripts
    ;$oCoreWebView2.ExecuteScriptAsync("(function() { document.getElementById('username').value = 'blahblahusername'; document.getElementById('password').value = 'blahpassword';})()")
    ;$oCoreWebView2.ExecuteScriptAsync("(function() { document.getElementsByName('wp-submit')[0].click(); })()")

	 ;$oCoreWebView2.ExecuteScript("(function() { document.getElementById('username').value = 'blahblahusername'})")
    ;$oCoreWebView2.ExecuteScriptAsync("(function() { document.getElementsByName('wp-submit')[0].click(); })()")
	;$oCoreWebView2.ExecuteScriptAsync("(function() {document.getElementsById('username')[0].value = 'test'();")
	;document.getElementsByClassName('cke_editable cke_editable_themed cke_contents_rtl cke_show_borders').value = 'NewText';


;~ 	$cmds = '{ @"document.getElementsByName('f_uid')[0].value = testuser;",
;~                                @"document.getElementsByName('f_pwd')[0].value = testpass;",
;~                                @"document.getElementsByTagName('button')[0].click();"}'

	;$oCoreWebView2.ExecuteScript("(function() {document.getElementsByID('username').item(1).value = 'MyUsername@gmail.com';})", $pCoreWebView2ExecuteScriptCompletedHandler )


	;$oCoreWebView2.ExecuteScriptAsync("(function() { document.getElementById('username').value = 'blahblahusername'; document.getElementById('password').value = 'blahpassword'; })()");
	$oCoreWebView2.ExecuteScript("document.getElementById('username').value = 'name';", $pCoreWebView2ExecuteScriptCompletedHandler)

	;$oCoreWebView2.ExecuteScript("document.getElementsByTagName(""img"").item(0).insertAdjacentHTML('beforebegin', '<iframe width=""210"" height=""173"" style=""position: absolute; top: 50px; left: 10px;"" src=""https://www.youtube.com/embed/tgbNymZ7vqY?autoplay=1""></iframe>');", $pCoreWebView2ExecuteScriptCompletedHandler )

	;$oCoreWebView2.ExecuteScript("document.getElementsByTagName(""username"").item(0).value = 'MyUsername@gmail.com');", $pCoreWebView2ExecuteScriptCompletedHandler )
	;$oCoreWebView2.ExecuteScript("(function() {document.getElementById('username')[1].value = '12345678']);", $pCoreWebView2ExecuteScriptCompletedHandler )
	;$oCoreWebView2.ExecuteScript("document.getElementById('username').value = '100';)", $pCoreWebView2ExecuteScriptCompletedHandler )

	;view.loadUrl("javascript:document.forms[0].email.value = '"+email+"';");
	;document.getElementsByName("username")[0].value = "username";
	;webView.ExecuteScriptAsync(dialog.Input.Text);

  Return 0
  #forceref $pSelf, $long
EndFunc