Beiträge von gmmg

gmmg

ab Google Version 128 kommt auch immer die Abfrage nach der Standard Suchmaschine.

Diese kann man in den $sDesiredCapabilities im Abschnitt "args" mit dem Eintrag "--disable-search-engine-choice-screen" definieren. Zumindest funktioniert das bei uns.

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

eventuell musst du das so benutzen: _WD_CapabilitiesAdd("args", "disable-search-engine-choice-screen")

gmmg

Ja, denke auch das Chrome betroffen ist, habe ich aber nicht getestet.

Eventuell steht im engl Forum was. (link im post weiter oben)

Die "_WD_Option" Bereich ist da bestimmt auch anzupassen.

gmmg

OK, die Lösung aus dem engl. Forum.

Chromedriver issues August 2024

This morning I started to get some feedback my Chrome scripts (using chromedriver) were not working anymore. I have not determined that on computers with the…

www.autoitscript.com

Man muss den Port bei den Driver Parametern auch mit angeben.

Folgend eine dynamische Lösung von Danp2 bzw. mLipok

AutoIt

Local $iPort = _WD_GetFreePort(5555, 5600)
If @error Then Return SetError(@error, @extended, 0)

_WD_Option('Port', $iPort)
_WD_Option('DriverParams', '--port=' & $iPort & ' --verbose --log-path="' & @ScriptDir & '\chrome.log"')

Gruß gmmg

gmmg

In der Chromedriver Version 128 wird der Port automatisch vergeben und scheinbar geht deshalb die _WD_Option('Port', 9515) nicht mehr.

grafik.png

gmmg

Moombas der folgende Abschnitt im Script funktioniert bei mir und verhindert die Abfrage der Standard Suchmaschine.

'"args": ["--start-maximized", "--disable-search-engine-choice-screen"] }}}}'

Mein Problem ist aktuell, dass der neue Chromedriver in Version 128 beim Google Chrome Version 128 nicht funktioniert.

Setze ich hingegen den Chromedriver 127 und Google Chrome 128 ein funktioniert es ohne Probleme.

Reinerm In deinem Link ist der jüngste Eintrag der 8.09.2023, also fast 1 Jahr alt. Das Problem tritt ja aber erst seit Google Chrome Version 128 auf und nur in Zusammenhang mit Chromedriver 128 auf.

Was hast du denn genau umgebaut?

Gruß gmmg

gmmg

Hallo Zusammen,

ich habe festgestellt, dass mit dem aktuellen Chromedriver "https://storage.googleapis.com/chrome-for-testing-public/128.0.6613.84/win32/chromedriver-win32.zip" sich keine Website mehr über Google Chrome Version 128.x öffnen lässt.

Als Workaround habe ich jetzt die letzte 127.x Version benutzt.

Hat da jemand auch aktuell Probleme?

Auch kommt ab Google Version 128 auch immer die Abfrage nach der Standard Suchmaschine.

Diese kann man in den $sDesiredCapabilities im Abschnitt "args" mit dem Eintrag "--disable-search-engine-choice-screen" definieren.

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

Gruß gmmg

gmmg

Folgende Links behandeln auch das Handshake Thema. Eventuell lassen sich da Infos gewinnen.

https://learn.microsoft.com/en-us/answers/…iled-(dbnetlib)(connectionopen

SSL Security error using Microsoft OLE DB Provider for SQL Server

Tasks using 'Microsoft OLE DB Provider for SQL Server' are failing with the following error: Possible Error 1: Error: Connector connect error: ErrorSource:…

community.qlik.com

[DBNETLIB][ConnectionOpen (SECDoClientHandshake()).] SSL security error on windows server 2008

I have a problem of SQL connection between two servers. One of the servers where the site code is stored is a Windows Server 2008 and my database is on a…

stackoverflow.com

gmmg

Code4Fun liegt es wirklich an der Verbindung oder an der Func _SQLQuery

Im MS Access musste ich auch die EOF abfragen.

This is how I changed it and it seems to have fixed the issue:

Code

$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open($ConnectionString)

$sqlRs = ObjCreate("ADODB.Recordset")
$sqlRs.Open ($query, $sqlCon) 
While not $sqlRs.EOF
    $Checked = $sqlRs.GetRows
Wend

ADODB error 80020009

I'm getting the following error when I use $sqlCon = ObjCreate("ADODB.Connection") $sqlCon.Open($ConnectionString) $sqlRs = ObjCreate("ADODB.Recordset")…

www.autoitscript.com

Thema

MSSQL Problem

Hallo autoit,

ich habe folgendes Problem.
Zwar wenn ich aus der Datenbank die wiefolgt aufgebaut ist:

(Quelltext, 1 Zeile)

versuche anhant der StrUserID alles auszulesen kommt ein

(Versteckter Text)

Sofern ich alles anhant der JID auslese klappt es wunderbar.

So klappt es nicht:

[autoit]
$constrim = "DRIVER={SQL Server};SERVER=MEINEIP;DATABASE=MEINEDATENBANK;uid=USERNAME;pwd=PASSWORD;"
$adCN = ObjCreate("ADODB.Connection") ;<==Create SQL connection
$adCN.Open($constrim) ;<==Connect with…

[ gelöst ]

Awesome

10. Dezember 2011 um 21:08

Gruß Marcel

gmmg

Racer, klingt gut

Ein schönes WE schon mal

Gruß Marcel

gmmg

Prima

gmmg

Da gibt es mehrere Ansätze bzw. fertige Software

Lithnet Idle Logoff Group Policy Administrative Templates

How can I log users off after a period of inactivity, rather than merely locking the workstation? Is there a "logoff" screen saver? - The Old New Thing

Putting together some building blocks.

devblogs.microsoft.com

Auto logout for users - Microsoft Q&A

Hi, I have a question because so far I have only found the lock screen solution.We often use multiple users on a PC in remote management. To save resources, we…

learn.microsoft.com

Releases · lithnet/idle-logoff

A group-policy enabled utility for logging off idle windows user sessions - lithnet/idle-logoff

github.com

Gruß gmmg

gmmg

oder um das mit deinem Script zu machen. die Description muss natürlich auch im AD gesetzt sein.

AutoIt

_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()

Alles anzeigen

gmmg

hier mal ein Beispiel.

Um die Beschreibung vom Computer herauszubekommen muss das $ an gehangen werden.

_AD_GetObjectAttribute($aObjects[$i][0] & "$", "description")

AutoIt

#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()

Alles anzeigen

gmmg

@casi4712 schau mal bei Water in die Signatur unter meine Werke, da findest du die aktuelle AD UDF.

gmmg

Du kannst auch im Englischen Forum mal schauen

Microsoft Edge - WebView2, embed web code in your native application

Anybody could help with using QueryInterface in AutoIt to embed Microsoft Edge using WebView2 Interface ? Here are links to information/documentation: Image…

www.autoitscript.com

Ein Beispiel: benötigt aber die Ressourcen aus obigen Link nzw hier direkt verlinkt die Webview2.7z Datei https://www.autoitscript.com/forum/applicat…nt.php?id=67293

AutoIt

#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

Alles anzeigen

Wenn der Browser nicht in einer embeddet GUI sein muss, lieber per Webdriver abbilden.

Gruß gmmg

gmmg

@heyhey83 funktioniert dein Script mit einer anderen Webseite (autoit.de)?

gmmg

Ich würde auch die AD Variante bevorzugen.

Hier mal ein Beispiel:

AutoIt

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


Dim $avArray [1]

_AD_Open()

$sOU = "OU=SiteOU,DC=Domainfti,DC=int" ;muss angepasst werden
$aObjects = _AD_GetObjectsInOU($sOU, "(objectcategory=Computer)", 2, "cn,operatingsystem,pwdlastset")
;$aObjects = _AD_GetObjectsInOU($sOU, "(&(objectclass=user)(name=*))", 2) ;, "sAMAccountName", "sAMAccountName")

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

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

    Next
	_ArrayDisplay($avArray)
    _ArrayDisplay($aObjects)
EndIf

_AD_Close()

Alles anzeigen

Gruß Marcel

gmmg

das geht mit der Excel UDF.

hier mal ein Beispiel.

AutoIt

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Create application object
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

; Create a new workbook with only 1 worksheets
Local $oWorkbook = _Excel_BookNew($oExcel, 1)

_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Test A", "A1")
$oExcel.Columns("A:A").ColumnWidth = "20"	;setze spaltenbreite


_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Test B", "B1")
$oExcel.Columns("B:B").ColumnWidth = "30"	;setze spaltenbreite


$oExcel.Range("A1:F1") .Font.Bold = TRUE  ; setze schriftgrad
$oExcel.Range("A1:F1") .Font.Size = 14  ; setze schriftgröße
;$oExcel.Range("A1:D1") .Font.Color = 0xffffff
$oExcel.Range("A1:F1") .Interior.ColorIndex = 43  ; setze Farbe
;$oExcel.Range("A"& $zeile &":F"& $zeile) .Interior.ColorIndex = 27  ; setze Farbe
;$oExcel.Range("A1:F"&$zeile).Borders.LineStyle = 1  ; setze einen Rahmen um die Zellen

Alles anzeigen

Weiteres zu Excel steht in der Autoit Hilfe.

Gruß Marcel

gmmg

Danke hab ich angepasst.

gmmg

@Moombas Danke für deine Antwort.

Beiträge von gmmg

Google Chrome Automatisierung WebDriver UDF

aktuelles Chromedriver Problem 08.2024

aktuelles Chromedriver Problem 08.2024

aktuelles Chromedriver Problem 08.2024

aktuelles Chromedriver Problem 08.2024

aktuelles Chromedriver Problem 08.2024

alte DB Scripte laufen plötzlich nicht mehr

alte DB Scripte laufen plötzlich nicht mehr

MSSQL Problem

_Timer_GetIdleTime

_Timer_GetIdleTime

_Timer_GetIdleTime

eingebundenes Powershell macht plötzlich Probleme

eingebundenes Powershell macht plötzlich Probleme

eingebundenes Powershell macht plötzlich Probleme

Darstellung

Darstellung

eingebundenes Powershell macht plötzlich Probleme

Label ausdrucken

GUI - dynamische Button mit Daten aus DB erstellen

GUI - dynamische Button mit Daten aus DB erstellen