Beiträge von gmmg

#AutoIt3Wrapper_UseX64=y

#include <Array.au3>
#include <Date.au3>
#include <D:\Scripte\MS_AccessCom\Access UDF\Access_UDF.au3>

;--------- MSAccess DB ------------
$dbname = @ScriptDir & "\DB.accdb"

$tblname = "Login"

Local $Connection = _Start_Connection($dbname & ";")

Local $Array_Login = _Get_Records("SELECT * FROM " & $tblname)

_ArrayDisplay($Array_Login)

Local $InsertData = _Insert_Data("INSERT INTO " & $tblname & "([Computer], [IP], [User], [Datum]) VALUES ('" & @ComputerName & "', '"& @IPAddress3 & "', '" & @UserName & "', '" & _Now() & "');")

Local $Array_Login = _Get_Records("SELECT * FROM " & $tblname)
_ArrayDisplay($Array_Login)

_Close_Connection()

Local $tel_GUI = _Metro_CreateGUI("", 280, 210,-1,-1,True)
;Add control buttons
Local $Control_Buttons_tel = _Metro_AddControlButtons(True,False,True)
;Set variables for control buttons
Local $GUI_CLOSE_BUTTON = $Control_Buttons_tel[0]
Local $GUI_MINIMIZE_BUTTON = $Control_Buttons_tel[3]

$label_tel = GUICtrlCreateLabel("Support",65,20,110,25)
GUICtrlSetFont($label_tel, 9, 300, 0, "Arial")

$n = GUICtrlCreatePic(@ScriptDir & "\bin\images\rotkreuz_gr.jpg", 12, 10, 38, 30)

$lb1 = GUICtrlCreateLabel("Username:", 30, 80)
$telEdit1 = _GUICtrlEdit_Create($tel_GUI, "erf", 90, 80, 100, 20, $ES_AUTOHSCROLL)


$telButton = _Metro_CreateButton("Weiter", 90, 160, 100, 20)

GUISetState()

#include <Array.au3>
#include <File.au3>
#include <Date.au3>


$path = "c:\Backup\"

Dim $avArray[6]

$avArray[0] = "Pfad1"
$avArray[1] = "Pfad2"
$avArray[2] = "Pfad3"
$avArray[3] = "Pfad4"
$avArray[4] = "Pfad5"
$avArray[5] = "Pfad6"

For $i = 0 To 5

	;MsgBox(0,"",$path & $avArray[$i] & "\")
	Local $aFileList = _FileListToArray($path & $avArray[$i] & "\", Default, Default, True)
        If @error = 1 Then
                MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.", 1)
                Exit
        EndIf
        If @error = 4 Then
                MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.", 1)
                Exit
        EndIf
	;_ArrayDisplay($aFileList, "$aFileList")

	For $file = 1 To UBound($aFileList) -1
		;MsgBox(0,"",$aFileList[$file])

		; Get the Date/Time for the Created property of the file
		$arrFileTime = FileGetTime($aFileList[$file], 1, 0)

		; Format the Date/Time to calculate the difference
		$strFileTime = $arrFileTime[0] & "/" & $arrFileTime[1] & "/" & $arrFileTime[2] & " " & $arrFileTime[3] & ":" & $arrFileTime[4] & ":" & $arrFileTime[5]

		; Get the "Now" time to calculate the difference
		$strNowCalc = _NowCalc()

		; Calculate the difference in Days ("D")
		$strDateDiff = _DateDiff("D", $strFileTime, $strNowCalc)

		; Display the Difference in Days
		If $strDateDiff > 4 Then
			;ConsoleWrite("Difference from '" & $strFileTime & "' and '" & $strNowCalc & "' ( in Days ) = " & $strDateDiff & @CRLF)
			FileDelete( $aFileList[$file])
		EndIf


	Next

Next

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

;Edgedriver download : URL https://developer.microsoft.com/en-us/microsoft-edge/tools/webdriver/?form=MA13LH#downloads

;Global $_WD_DRIVER
Local $sDesiredCapabilities

;$_WD_DEBUG = $_WD_Debug_Info ; None ; Info
$_WD_DEBUG = $_WD_DEBUG_None  ;set to $_WD_DEBUG_None before compiling.?

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

$user = "test"
$pass = "test"

SetupEdge()

_WD_Startup()

; Hide the WebDriver Console
;_WD_ConsoleVisible(True)
_WD_ConsoleVisible(False)

$sSession = _WD_CreateSession($sDesiredCapabilities)

_WD_Window($sSession, "Maximize", "{}")
_WD_Navigate($sSession, $url)
_WD_LoadWait($sSession, 1500)
Sleep(1000)

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

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

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

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

$sElement = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='loginForm']/form/section[1]/div/input[1]")

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

_WD_Shutdown()
_WD_DeleteSession($sSession)

Exit


 Func SetupEdge()

	;_WD_Option('Driver', 'msedgedriver.exe')
	_WD_Option('Driver', 'D:\Scripte\WebDriver\EdgeDriver\edgedriver_win32_120\msedgedriver.exe')
	_WD_Option('Port', 9515)
	;_WD_Option('DriverParams', '--verbose --log-path="' & @ScriptDir & '\msedge.log"')
	_WD_Option('DriverParams', '--verbose')

	$sDesiredCapabilities = '{"capabilities": {"alwaysMatch": {"unhandledPromptBehavior": "ignore", ' & _
    '"ms:edgeOptions": {"excludeSwitches": ["enable-automation"], ' & _
    '"useAutomationExtension": false, "args": ["start-maximized"]}}}}'

EndFunc

#include <Array.au3>
Global $oConnection, $aRecordSet, $sQuery, $aRecordSetArr, $Spalten
Global $sTableName    =  "tblTable1"
Global $sDatabaseName = "D:\Test-mdb\Test.mdb"
If Not FileExists($sDatabaseName) Then Exit
$oConnection   = ObjCreate("ADODB.Connection")
$oConnection.Open("Driver=Microsoft Access Driver (*.mdb); DBQ=" & $sDatabaseName)
$oRecordSet    = ObjCreate("ADODB.RecordSet")
$sQuery        = "Select * From " & $sTableName
$oRecordSet.Open($sQuery, $oConnection)
For $i = 0 to $oRecordSet.Fields.Count - 1
	$Spalten &= $oRecordSet.Fields.Item($i).Name & '|'
Next
$Spalten = StringTrimRight($Spalten, 1)
$aRecordSetArr = $oRecordSet.GetRows
;_ArrayAdd($aRecordSetArr, $Spalten, 0)
_ArrayInsert($aRecordSetArr, 0, $Spalten)
$oRecordSet.Close()
$oConnection.Close()
_ArrayDisplay($aRecordSetArr, 'Tabelle = ' & $sTableName)

#Region _Get_Records with Column Names
; #FUNCTION# ====================================================================================================================
; Name ..........: _Get_Records
; Description ...: This function will collect data from an access database and give it as an array.
; Syntax ........: _Get_Records($sSQLstring)
; Parameters ....: $sSQLstring          - SQL Statement for creating table.
; Return values .: If success, then it will return the data as an array. If any errors see this list
;					Return -1 - Connection error
;					Return -2 - Recordset error
;					Return -3 - No data in that table
; Author ........: kcvinu
; Modified ......: sep 2015
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: _Get_Records("SELECT [Column1],[Column2] FROM MyTable WHERE Column3 = '2500' ;") ; See the single quote.
; ===============================================================================================================================
Func _Get_Records($sSQLstring)
    If Not IsObj($objConnection) Then Return -1
    If Not IsObj($objRecordSet) Then Return -2
    _Open_Recordset($sSQLstring)
    If Not $objRecordSet.RecordCount Or ($objRecordSet.EOF = True) Then Return -3
    Dim $arrRecords, $column_name

    If Not @error Then
		;Local $header[$objRecordSet.Fields.Count], $rows

		For $i = 0 To $objRecordSet.Fields.Count - 1
			$column_name &= $objRecordSet.Fields($i).Name & "|"
        Next

		;MsgBox(0,"", $column_name)

		$column_name = StringTrimRight($column_name, 1)
		$arrRecords = $objRecordSet.GetRows()

		_ArrayInsert($arrRecords, 0, $column_name)

	EndIf

	_Close_RecordSet()
    Return $arrRecords

EndFunc
#EndRegion