Beiträge von gmmg

gmmg · 21. September 2020

Hallo Arno,

mach das doch mit dem PING Befehl.

Function Ping

Ping ( "address/hostname" [, timeout = 4000] )

Gruß gmmg

gmmg · 4. September 2020

Hallo Jensen,

anbei einmal die Tabelle per Autoit ausgelesen und als HTML angezeigt.

Die Werte kann man sich natürlich zum Beispiel per StringBetween oder RegEx weiter eingrenzen und weiterverarbeiten.

HTML

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

$page = "https://www.mytischtennis.de/clicktt/WTTV/20-21/ligen/3-Kreisklasse-4-VR/gruppe/385717/tabelle/gesamt/"

$oIE = _IECreate($page,0,0) ;Öffne IE versteckt
$sHTML = _IEDocReadHTML($oIE)

_IEQuit($oIE)

;$sHTML = StringReplace ( $sHTML, @LF, "" )  ; eliminates all linefeeds
;$sHTML = StringReplace ( $sHTML, @CR, "" )  ; eliminates all carriagereturn
;$sHTML = StringReplace ( $sHTML, @CRLF, "" )  ; eliminates all carriagereturn-linefeeds

If $sHTML = "" then

    MsgBox(0,"", "Nicht verfügbar")

Else

    ;MsgBox(0,"", $sHTML)
    $aHTML_Array = _StringBetween($sHTML, '<h3>Tabelle (gesamt)</h3>', '</table>')
    ;_ArrayDisplay($aHTML_Array)
    MsgBox(0,"",$aHTML_Array[0])

    $oIE = _IECreate("about:blank", "url")
    _IEBodyWriteHTML($oIE, '<html> ' & $aHTML_Array[0] & '</html>')

EndIf

Alles anzeigen

Gruß gmmg

gmmg · 25. August 2020

@autoiter: Das verstehe ich auch nicht böse gemeint Eine Schleife deshalb, weil die DB ja auch über verschiedene Pfade offen sein kann

Wenn zum beispiel eine auf C:\ und eine Kopie auf D:\ oder übers Netzlaufwerk geöffnet ist, heißen die alle Instanzen bei mir alle wie im Beispiel "mitarbeiter:......"

gmmg · 24. August 2020

autoiter,

in der Schleife kann man dann auch die Fenster abfragen. Das muss DDT dann selbst entscheiden, was ihm lieber ist

Gruß gmmg

gmmg · 24. August 2020

Oder zum schließen der MSACCESS.exe so vorgehen.

Hier wird die While Schleife so lange ausgeführt, bis kein Access Prozess mehr läuft.

Code

While 1

    If ProcessExists("MSACCESS.exe") Then
        ProcessClose("MSACCESS.exe")
    Else
        ;MsgBox(0,"","Springe aus schleife",2)
        ExitLoop
    EndIf
WEnd

Gruß gmmg

gmmg · 24. August 2020

Hier ein Beispiel aus dem engl. Forum.

https://www.autoitscript.com/forum/topic/195488-tab-in-tab/

C

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

Opt("GUIOnEventMode", 1)

; Create main GUI
$hGUI = GUICreate("Main", 1000, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Events")

; Create tab in main GUI
$cMain_Tab = GUICtrlCreateTab(10, 10, 980, 400)
GUICtrlSetOnEvent($cMain_Tab, "_Events")
$cSound_Tab = GUICtrlCreateTabItem("Sound")
$cVideo_Tab = GUICtrlCreateTabItem("Video")
$cPicture_Tab = GUICtrlCreateTabItem("Picture")
GUICtrlCreateTabItem("")

; Hide main GUI
GUISetState(@SW_HIDE, $hGUI)

$aPos = WinGetPos($hGUI)
ConsoleWrite($aPos[0] & " - " & $aPos[1] & @CRLF)

; Create child GUIs which will appear on tabs
$hChild_Sound = GUICreate("", 960, 350, 20, 40, $WS_POPUP, $WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0xFFCCCC, $hChild_Sound) ; Using colours just for example
GUISetState(@SW_HIDE, $hChild_Sound)

$hChild_Video = GUICreate("", 960, 350, 20, 40, $WS_POPUP, $WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0xCCFFCC, $hChild_Video)
GUISetState(@SW_HIDE, $hChild_Video)

$hChild_Picture = GUICreate("", 960, 350, 20, 40, $WS_POPUP, $WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0xCCCCFF, $hChild_Picture)
GUISetState(@SW_HIDE, $hChild_Picture)

; Now add tabs to the child GUIs
GUISwitch($hChild_Sound)

$cSound_Sub_Tab = GUICtrlCreateTab(10, 10, 940, 320)
$cSound_Sub_Tab_1 = GUICtrlCreateTabItem("Sound_Sub_1")
$cSound_Sub_Tab_2 = GUICtrlCreateTabItem("Sound_Sub_2")
GUICtrlCreateTabItem("")

GUISwitch($hChild_Video)
$cVideo_Sub_Tab = GUICtrlCreateTab(10, 10, 940, 320)
$cVideo_Sub_Tab_1 = GUICtrlCreateTabItem("Video_Sub_1")
$cVideo_Sub_Tab_2 = GUICtrlCreateTabItem("Video_Sub_2")
$cVideo_Sub_Tab_3 = GUICtrlCreateTabItem("Video_Sub_3")
GUICtrlCreateTabItem("")

GUISwitch($hGUI)

; Show Main and initial child GUIs
GUISetState(@SW_SHOW, $hGUI)
GUISetState(@SW_SHOW, $hChild_Sound)

While 1
    Sleep(10)
WEnd

Func _Events()

    ConsoleWrite(@GUI_CtrlId & @CRLF)

    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $cMain_Tab
            ; Hide/show child GUIs as required
            Switch GUICtrlRead($cMain_Tab)
                Case 0
                   GUISetState(@SW_SHOW, $hChild_Sound)
                   GUISetState(@SW_HIDE, $hChild_Video)
                   GUISetState(@SW_HIDE, $hChild_Picture)
                Case 1
                   GUISetState(@SW_HIDE, $hChild_Sound)
                   GUISetState(@SW_SHOW, $hChild_Video)
                   GUISetState(@SW_HIDE, $hChild_Picture)
                Case 2
                   GUISetState(@SW_HIDE, $hChild_Sound)
                   GUISetState(@SW_HIDE, $hChild_Video)
                   GUISetState(@SW_SHOW, $hChild_Picture)
            EndSwitch
    EndSwitch

EndFunc

Alles anzeigen

Gruß gmmg

gmmg · 13. Juli 2020

Mit der MetroGUI-UDF soltle das auch gehen.

Gruß gmmg

gmmg · 6. Juli 2020

Probiere doch mal Tooltip oder SplashTextOn aus der Hilfe

ToolTip("This is a tooltip", 10, 10)

Sleep(300) ; Sleep to give tooltip time to display

ToolTip("", 0, 0)

gruß gmmg

gmmg · 28. Mai 2020

@drnatas:

Du brauchst die entsprechenden Webdriver von hier "https://www.autoitscript.com/forum/topic/191990-webdriver-udf-w3c-compliant-version-05252020/" und die

Webdriver Source von Danp2 für Autoit https://github.com/Danp2/WebDriver/releases/tag/0.3.0.1

Hier mal ein Beispiel von einem Autologin der Website Slidepresenter

Spoiler anzeigen

Gruß gmmg

gmmg · 30. April 2020

musst du da nicht auch einfach die Website auslesen.

gmmg · 23. April 2020

akira2012

Ein ausführen als anderer Benutzer funktioniert wohl nicht? Das heißt, du bist z.B. per TeamViewer auf dem Client und startest dann dein Setup, indem du mit Shift + Rechtsklick auf die Datei das Menü "Als anderer Benutzer ausführen" aufrufst. Das UAC Aufforderung kann man dan doch auch bestätigen.

Gruß gmmg

gmmg · 9. April 2020

Hallo Zusammen,

man könnte das auch über die lokale Gruppenrichtlinie "gpedit.msc" machen.

https://www.windows-faq.de/201…g-von-windows-ausfuehren/

Gruß gmmg

gmmg · 19. Februar 2020

Racer : Natürlich sollte man bestimmte Schutzmechanismen nicht unkontrolliert deaktivieren, da gebe ich dir recht.

Das Video oder dessen Inhalt ist sicher nicht gefährlich und in dem Fall geht es schlichtweg um den Test des Autoit Scriptes.

Da der Themen Ersteller mit seinem Workaround klar kommt, kann hier sicher auch geschlossen werden.

gruß gmmg

gmmg · 18. Februar 2020

OK

Gruß gmmg

gmmg · 16. Februar 2020

Geht nicht, gibst nicht Was sagt hier eigentlich das Eventlog (Ereignisprotokoll)? Ist der Applocker per GPO aktiv?

Gruß gmmg

gmmg · 10. Februar 2020

hilft der Youtube Beitrag "How to Fix Run As Administrator Not Working in Windows 10" eventuell etwas ?

Gruß gmmg

gmmg · 5. Dezember 2019

Danke

gmmg · 28. November 2019

Danke schau ich mir an ...

Gruß gmmg

gmmg · 26. November 2019

Hallo Zusammen,

ich war auf der Suche zum Auslesen der Spaltennamen der Tabelle. Die Funktion _ReadOneFld($_sql, $_dbname, $_field) hat mir aber immer nur die Ergebnisse ohne die Spaltennamen geliefert.

Im englischen Forum habe ich nun ein Code Schnipsel gefunden und entsprechend die _ReadOneFld() angepasst.

Hier nun das Ergebnis.

Code

#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

Alles anzeigen

Falls es einen einfacherer Weg gibt, einfach einmal Antworten.

Gruß gmmg

gmmg · 22. Oktober 2019

Hallo Oliver,

Willkommen und viel Spaß mit AutoIT. Bei fragen wird dir hier sicher geholfen

Gruß

Beiträge von gmmg

PC status im Netz ( AD ) abfragen

Daten von einer Webseite aufbereiten

Access starten und maximieren

Access starten und maximieren

Access starten und maximieren

Tab in einem Tab

GUI ohne Close-Button?

MsgBox mit Zeitbegrenzung

Firefox automatisieren

[Hilfe] Daten aus Chrome auslesen

Daten "sicher durch kompilieren"?

Script möglichst früh mit Windows Starten

AutoIt-Skript funktioniert nicht mehr nach Win 10 Update

AutoIt-Skript funktioniert nicht mehr nach Win 10 Update

AutoIt-Skript funktioniert nicht mehr nach Win 10 Update

AutoIt-Skript funktioniert nicht mehr nach Win 10 Update

MS Access Read Field + Spaltennamen der Tabellen

MS Access Read Field + Spaltennamen der Tabellen

MS Access Read Field + Spaltennamen der Tabellen

Nachtfalke stellt sich vor