Beiträge von gmmg

#include <Array.au3>

Local $DB_Array[1][1]

;--------- Modify the variables below as desired or applicable -------
$dbname = "\\DB-PFfad\datenbank.mdb"
$tblname = "Tabellenname"
;---------------------------------------------------------------------
;$query = "SELECT * FROM " & $tblname
$query = "SELECT * FROM " & $tblname & " WHERE PCName = " & "'" & @ComputerName & "'"
_ReadonField_with_Name($query, $dbname)
_ArrayDisplay($DB_Array)

Func _ReadonField_with_Name($_sql, $_dbname)
    $adoCon = ObjCreate("ADODB.Connection")
    $adoCon.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $_dbname)
    $adoRs = ObjCreate("ADODB.Recordset")
    $adoRs.CursorType = 1
    $adoRs.LockType = 3
    $adoRs.Open($_sql, $adoCon)

    With $adoRs
        $dimension = .Fields.Count
        ;ConsoleWrite($dimension & @cr)
        ReDim $DB_Array[1][$dimension]
        ; Column header
        $Title = ""
        For $i = 0 To .Fields.Count - 1
            $Title = $Title &  .Fields( $i ).Name  & @TAB
            $DB_Array[0][$i] = .Fields( $i ).Name ; set the array elements
        Next
        ;ConsoleWrite($Title & @CR & "----------------------------------" & @CR)
        ; loop through the records
        $element = 1
        If .RecordCount Then
            While Not .EOF
                $element = $element + 1
                ReDim $DB_Array[$element][$dimension]
                $Item = ""
                For $i = 0 To .Fields.Count - 1
                    $Item = $Item &  .Fields( $i ).Value & @TAB
                    $DB_Array[$element - 1][$i] = .Fields( $i ).Value ; set the array element
                Next
                ;ConsoleWrite($Item & @CR)
                .MoveNext
            WEnd
        EndIf
    EndWith
    $adoCon.Close ; close connection
    Return $DB_Array
EndFunc

#include <IE.au3>
#include <Array.au3>
#include <String.au3>

Local $oIE = _IECreate("https://www.whatismyip.com/")
_IELoadWait($oIE)
Local $sText = _IEBodyReadText($oIE)
_IEQuit($oIE)

;MsgBox(0, "Body Text", $sText)
 Local $aArray = _StringBetween($sText, "Your Public IPv4 is:", "Location:")
_ArrayDisplay($aArray)

Local $user = "Benutzer", $pass = "Kennwort"

If IsArray($CMDLINE) Then
    For $i = 1 To $CMDLINE[0]
        Switch $CMDLINE[$i]
            Case "/u"
                If StringLeft($CMDLINE[$i + 1], 1) = "/" Then
                    MsgBox(0,"Fehler", "Es wurde kein user angegeben")
                    ExitLoop
                Else
                    $user = $CMDLINE[$i + 1]
                    $i += 1
                EndIf
            Case "/p"
                If StringLeft($CMDLINE[$i + 1], 1) = "/" Then
                    MsgBox(0,"Fehler", "Es wurde keine passwort angegeben")
                    ExitLoop
                Else
                    $pass = $CMDLINE[$i + 1]
                    $i += 1
                EndIf
        EndSwitch
    Next
EndIf

MsgBox(0,"info", $user & " " & $pass)

#include <mysql.au3>

; db verbindungsvariablen
$ipadd = "server"
$sname = "user"
$spasswort = "kennwort"
;$db = "db_test"


_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, "Fehler", "libmysql.dll nicht gefunden")

$MysqlConn = _MySQL_Init()

;$connected = _MySQL_Real_Connect($MysqlConn,$ipadd,$sname,$spasswort,$db)
$connected = _MySQL_Real_Connect($MysqlConn,$ipadd,$sname,$spasswort)
If $connected = 0 Then
    $errno = _MySQL_errno($MysqlConn)
    MsgBox(0,"Fehler","Login Server ist nicht Erreichbar")
    Exit
Endif

Local $sQuery = "CREATE DATABASE mydatabase CHARACTER SET utf8 COLLATE utf8_general_ci;"
_MySQL_Real_Query($MysqlConn, $sQuery)

; Verbindung beenden
_MySQL_Close($MysqlConn)
; MYSQL beenden
_MySQL_EndLibrary()

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

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

If FileExists($file) Then
    $Fileversion = FileGetVersion($file)
    IF StringLeft($Fileversion,2) = "76" Then $webdriver = "chromedriver_76.exe"
    IF StringLeft($Fileversion,2) = "77" Then $webdriver = "chromedriver_77.exe"
    IF StringLeft($Fileversion,2) = "78" Then $webdriver = "chromedriver_78.exe"
Else
    MsgBox(0,"Info","Google Chrome in der richtigen Version nicht vorhanden.")
    Exit
EndIf

$mail = "user"
$pass = "pass"

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

;Global $_WD_DRIVER
Local $sDesiredCapabilities
Local $iIndex

$url = "https://app.slidepresenter.com/#/login"

SetupChrome()
;SetupGecko()

_WD_Startup()
$sSession = _WD_CreateSession($sDesiredCapabilities)
_WD_Navigate($sSession, $url)

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

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

_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_mail, 'value',$mail)
EndIf
If @error = $_WD_ERROR_Success Then
   _WD_ElementAction($sSession, $sElement_pass, 'value',$pass)
EndIf

Sleep(1500)
Send("{ENTER}")


;_WD_DeleteSession($sSession)
_WD_Shutdown()

Func SetupChrome()

    ;_WD_Option('Driver', 'chromedriver.exe')
    _WD_Option('Driver', 'data\'& $webdriver) ;Pfad zur Chromedriver.exe
    _WD_Option('Port', 9515)
    ;_WD_Option('DriverParams', '--log-path="' & @ScriptDir & '\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": ["start-maximized"] }}}}'

;---Google Chrome in anderem Pfad installiert---
;~      $sDesiredCapabilities = '{"capabilities": {"alwaysMatch": {"unhandledPromptBehavior": "ignore", ' & _
;~     '"goog:chromeOptions": {"w3c": true, "excludeSwitches": ["enable-automation"], "useAutomationExtension": false, "binary":"D:/Data/scripte/WebDriver-0.1.0.20/Full/Chrome-bin/chrome.exe", ' & _
;~     '"prefs": {"credentials_enable_service": false},' & _
;~     '"args": ["start-maximized"] }}}}'

EndFunc

Func SetupGecko()

    _WD_Option('Driver', 'geckodriver.exe')
    ;_WD_Option('DriverParams', '--log trace')
    _WD_Option('DriverParams')
    _WD_Option('Port', 4444)

    $sDesiredCapabilities = '{"desiredCapabilities":{"javascriptEnabled":true,"nativeEvents":true,"acceptInsecureCerts":true}}'

EndFunc