Beiträge von Bitnugger

Sehr schön!

Zitat von HansJ54

Gibt es eine Möglichkeit, in einer Function die Zeile des Aufrufs zu verarbeiten ohne diese als Parameter zu übergeben? Also etwas wie @CallingScriptLineNumber?

Nein, gibt es nicht. Du kannst der Funktion aber einfach einen optionalen Parameter übergeben und ihn mit @ScriptLineNumber vorbelegen.

_Test()
_Test(1, 3)

Func _Test($iScriptLineNumber = @ScriptLineNumber, $iError = @error)
    ConsoleWrite('$iScriptLineNumber = ' & $iScriptLineNumber & @CRLF)
    ConsoleWrite('$iError            = ' & $iError & @CRLF)
EndFunc

Zitat von HansJ54

Und: gibt es einen Weg, die @ScriptLineNumber auch im kompilierten Programm beim Debuggen oder bei Fehlermeldungen anzuzeigen?

So evtl.:

#AutoIt3Wrapper_Run_Au3Stripper=y    ; Run Au3Stripper before compilation (Default=n) 
#Au3Stripper_Parameters=/rsln        ; Replace @ScriptLineNumber with the actual line number in the merged source. This is for debug purposes with compiled scripts.
                                     ; All master lines will show 2 numbers in the format xxx/yyy where xxx is the original master script line number and yyy the
                                     ; merged script line number. 

RegExp - Nicht-finden, wenn nach Suchbegriff noch was kommt

solltest du evtl. umbenennen:

RegExp - Nur matchen, wenn Suchstring mit Pattern endet

Bei mir funktioniert es so:

;-- TIME_STAMP   2020-07-19 14:50:46   v 0.1

Opt('MustDeclareVars', 1)

Global $sLaufwerk = "S:", $sShare = "\\fritz.box\FRITZ.NAS"

Global $aDriveMapErrors = ['Undefined / Other error. @extended set with Windows API return', 'Access to the remote share was denied', 'The device is already assigned', 'Invalid device name', 'Invalid remote share', 'Invalid password']

Global $sDriveMapGet = DriveMapGet($sLaufwerk)

If $sDriveMapGet And $sDriveMapGet <> $sShare Then
    If StringLeft(@WorkingDir, 2) = $sLaufwerk Then FileChangeDir(@TempDir)

    ; Max 10x versuchen Laufwerk zu trennen. 1x reicht manchmal nicht
    For $i = 1 To 10
        If DriveMapDel($sLaufwerk) Then ExitLoop
        Sleep(1000)
    Next
    ConsoleWrite("@@_Debug_line" & @TAB & @TAB & @ScriptLineNumber & "   var: $i --> " & $i & @LF) ; $i ist bei mir immer 1
    If DriveMapGet($sLaufwerk) Then Exit MsgBox(16, @ScriptName, 'the disconnection for ' & $sLaufwerk & ' was unsuccessful!')
EndIf

If DriveMapGet($sLaufwerk) = '' Then
    DriveMapAdd($sLaufwerk, $sShare, 8 + 1);, "fritz.box.user", "password")
    If @error Then Exit MsgBox(16, @ScriptName, '@error = ' & @error & @CRLF & $aDriveMapErrors[@error -1] & @TAB & '@extended = ' & @extended)
EndIf

ShellExecute($sLaufwerk)

Zitat von water

In Dein While/WEnd musst Du aber noch eine ExitLoop-Bedingung einbauen, sonst läuft Dein Skript ewig - oder länger

Genau das soll es ja auch... warten, bis ein Fenster mit dem Titel "Hinweis" den Fokus bekommt, dieses dann schließen und wieder auf das nächste Fenster mit dem Titel "Hinweis", das den Fokus bekommt, warten.

Zitat von autoiter

Hi Bitnugger ich weiß nicht ob das ressourcenschonender ist, aber statt so einem Code, den wohl niemand nutzen würde, wäre es vllt. besser allgemein die Nutzung von ControlClick oder ControlSend vorzuschlagen.

So ist es definitiv ressourcenschonender, weil nur das gemacht wird, was gemacht werden soll.

Kann mir nicht vorstellen, dass es Leute gibt, die nachvollziehen können, was der Code genau macht und ihn trotzdem nicht nutzen.

Besser allgemein die Nutzung von ControlClick oder ControlSend vorzuschlagen... indirekt habe ich das ja, indem ich anstelle von Send ControlClick verwendet habe.

Send ist niemals erste Wahl... wenn möglich besser ControlClick oder ControlSend verwenden!!!

Hier noch mal mein Code mit einer Verbesserung: REGEXPTITLE

Close_Hinweis.au3 starten und laufen lassen:

While 1
    ControlClick(WinWaitActive("[REGEXPTITLE:^Hinweis$]"), '', '[CLASS:Button; Instance:1]')
WEnd

Open_Hinweis.au3 starten:

For $i = 1 To 3 Step 1
    MsgBox(64, 'Hinweis', 'Wird von Close_Hinweis.au3 geschlossen...')
Next
Exit MsgBox(64, 'Hinweisrichtlinien', 'Wird nicht von Close_Hinweis.au3 geschlossen...')

Oder so:

While 1
    ControlClick(WinWaitActive("Hinweis"), '', '[CLASS:Button; Instance:1]')
WEnd

Zitat von BugFix

Immer wieder im Einsatz: INI-Dateien. Nim stellt dazu das Modul parsecfg bereit. Hier mal ein kleines Bsp.:

Sehr schön!

ExtractFuncLines... oder weil noch vieles extra gemacht wird, ExtractFuncLinesEx. Das FromFile würde ich mir sparen, denn das sieh man ja sofort am ersten Parameter.

Zitat von Professor Bernd

Genau so soll es sein, alles richtig! Innerhalb von Quotes soll NICHT ersetzt werden.

Jeep, habe mein Post bereits korrigiert, weil ich es selbst schon bemerkt hatte... aber du bist ja schneller als die Polizei erlaubt...

Zitat von HansJ54

Danke, jetzt fehlt mir noch eine Idee, wie ich bei einer GUI unterscheiden kann, ob der User Esc oder das X oben rechts gedrückt hat, da $GUI_EVENT_CLOSE bei beiden = True ist.

ESC kannst du evtl. mit @HotKeyPressed oder mit Execute('@HotKeyPressed') ermitteln.

Wenn oben rechts das X gedrückt wurde, bekommst du die Message $GUI_EVENT_CLOSE, und dann kommt es darauf an, wie du darauf reagierst:

• ExitLoop ? dann ist der Exit-Mode = $EXITCLOSE_NORMAL
• Exit ? dann ist der Exit-Mode = $EXITCLOSE_BYEXIT

glaube ich zumindest...

Zitat von Professor Bernd

Heißes Teil! Funktioniert soweit. Mal sehen, wie es sich Performance-mäßig schlägt.

Ja, ist in der Tat ein heißes Teil... könnte man ja noch etwas perverser... so dass alle Keywords von AutoIt...

Zitat von Mars

Wenn du mit den vielen RegExen fertig bist, kannst du dann eine Art "Sammlung von RegExen zum parsen von AutoIt" veröffentlichen?

Das kann man sicher für irgendetwas gebrauchen

Ja, gute Idee... und evtl. auch alle in einem Pack als Zip-Archiv.

Zitat von HansJ54

Da ich aber sowohl bei normalem Beenden wie auch bei Logoff in die gleiche Terminate-Funktion springe und dort @exitMethod abfrage, bekomme ich bei "normalem" Ende einen Fehler wegen der nicht existierenden @exitMethod (genau verstanden habe ich das allerdings nicht).

Das Makro @exitMethod in der Terminate-Funktion ist nur dann verfügbar, wenn die Funktion von OnAutoItExitRegister aufgerufen wird und dies passiert nur dann, wenn eine der Exit-Mode-Bedingungen erfüllt ist.

Springst du von anderer Stelle in diese Funktion, dann gibt es das Makro nicht, weil dann keine der Exit-Mode-Bedingungen erfüllt ist. Anstatt also die Terminate-Funktion direkt aufzurufen, könntest du einfach ein Exit machen, wodurch die Funktion dann auch aufgerufen wird und dann auch das Makro verfügbar ist.

Testen ob das Makro existiert könnte man z.B. so:

OnAutoItExitRegister('_Exit')
_Exit()
Exit

Func _Exit()
    Local $vExit = Execute('@exitMethod')
    ConsoleWrite('- $vExit = "' & $vExit & '"' & @CRLF)
    Select
        Case $vExit == ''
            ConsoleWrite('! Das Makro @exitMethod existiert nicht!' & @CRLF)
        Case $vExit = $EXITCLOSE_NORMAL
            ConsoleWrite('> @exitMethod = $EXITCLOSE_NORMAL' & @CRLF)
        Case $vExit = $EXITCLOSE_BYEXIT
            ConsoleWrite('> @exitMethod = $EXITCLOSE_BYEXIT' & @CRLF)
        Case $vExit = $EXITCLOSE_BYCLICK
            ConsoleWrite('> @exitMethod = $EXITCLOSE_BYCLICK' & @CRLF)
        Case $vExit = $EXITCLOSE_BYLOGOFF
            ConsoleWrite('> @exitMethod = $EXITCLOSE_BYLOGOFF' & @CRLF)
        Case $vExit = $EXITCLOSE_BYSHUTDOWN
            ConsoleWrite('> @exitMethod = $EXITCLOSE_BYSHUTDOWN' & @CRLF)
    EndSelect
EndFunc

Das ist mbMn. aber kein guter Programmierstil...

Was du suchst nennt sich AppBar.

Hier ein kleines Example:

;-- TIME_STAMP   2020-06-29 19:51:01   v 0.1

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

Opt("MustDeclareVars", 1)

Global Const $ABE_RIGHT = 2, $ABM_NEW = 0, $ABM_REMOVE = 1, $ABM_SETPOS = 3
Global $hWnd, $tAppBarData

_Main()

Func _Main()
    ; Create the GUI
    Local $title = StringTrimRight(@ScriptName, 4)
    Local $toolbarWidth = 40
    Local $height = @DesktopHeight-40
    Local $left = @DesktopWidth-$toolbarWidth
    Local $top = 0
    Local $right = @DesktopWidth
    Local $bottom = $height
    $hWnd = GUICreate($title, $toolbarWidth, $height, $left, $top, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW)
    Local $idBtn_1 = GUICtrlCreateButton('Test', 0, 0, 40, 25)
    Local $idBtn_2 = GUICtrlCreateButton('Exit', 0, 25, 40, 25)
    GUISetState()

    ; Register the AppBar
    $tAppBarData = DllStructCreate("dword;int;uint;uint;int;int;int;int;int")
    DllStructSetData($tAppBarData, 1, DllStructGetSize($tAppBarData))
    DllStructSetData($tAppBarData, 2, $hWnd)
    DllStructSetData($tAppBarData, 4, $ABE_RIGHT)
    DllStructSetData($tAppBarData, 5, $left)
    DllStructSetData($tAppBarData, 6, $top)
    DllStructSetData($tAppBarData, 7, $right)
    DllStructSetData($tAppBarData, 8, $bottom)
    _SHAppBarMessage($ABM_NEW, $tAppBarData)
    _SHAppBarMessage($ABM_SETPOS, $tAppbarData)

    OnAutoItExitRegister('_Exit')
    ; Idle around
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idBtn_2
                Exit
            Case $idBtn_1
                GUISetBkColor(Random(0, 0xFFFFFF, 1), $hWnd)
        EndSwitch
    WEnd
EndFunc

Func _ShAppBarMessage($dwMessage, ByRef $tAppBarData)
    DllCall("shell32.dll", "int", "SHAppBarMessage", "int", $dwMessage, "ptr", DllStructGetPtr($tAppBarData))
EndFunc

Func _Exit()
    ; Unregister the AppBar
    _SHAppBarMessage($ABM_REMOVE, $tAppBarData)

    ; Delete the GUI
    GUIDelete($hWnd)
EndFunc

Das kannst du mit OnAutoItExitRegister machen.

Zitat von Oscar

Versuch's mal als UNC-Pfad:

Gute Idee, aber leider nein.

Da ich mein SciTE auf UTF-8 umgestellt habe, rufe ich via Ownhotkeys ein Script auf, dass mir das Script, das in SciTE im aktuellen Tab angezeigt wird, nach UTF-8 konvertiert.

Gestern ist mir aufgefallen, dass die shell.dll (File/Product version : 1.5.0.0 / 1.5.0.0), die ich zum Starten des Scripts benutze, das Script nicht findet, wenn der Pfadname länger als 141 Zeichen ist, bzw. die Gesamtlänge der Befehlszeile > 270 Zeichen ist.

sCmd = "C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /AutoIt3ExecuteScript "f:\AutoIt\AutoIt3_Tools\_ConvertFileToUTF8.au3" "M:\Temp\Test_01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234.au3"

shell.exec(sCmd) -- funktioniert nicht, weil sCmd > 270 Zeichen!

sCmd = "C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /AutoIt3ExecuteScript "f:\AutoIt\AutoIt3_Tools\_ConvertFileToUTF8.au3" "M:\Temp\Test_0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123.au3"

shell.exec(sCmd) -- funktioniert, weil sCmd <= 270 Zeichen!

Ich habe zwei Versionen der shell.dll, die allerdings beide File/Product version : 1.5.0.0 / 1.5.0.0 haben:

shell_1.zip 133.120 KB

shell_2.zip 35.328 KB

Leider ist der Link zur shell.dll und auch zum Quellcode nicht mehr aktuell... und hier wird auch nur die Version 1.2 angezeigt: https://scite-ru.bitbucket.io/pack/tools/LuaLib/shell.html

Hat evtl. jemand den Quellcode der shell.dll?

Ich habe hier zwei Scripts für euch...

ScanArpCache.au3 - ist von mir und erfordert erhöhte Rechte für das Löschen des Arp-Cache!

Examples:

ScanArpCache.exe <MAC-Address>|<HostName>|<IP-Address> [<Wait>]

ScanArpCache.exe <SubNet> [<Start>] [<End>] [<Wait>]

arpscan.au3 - erste Version ist von SoulA, hier aber die von mir geänderte Version von dexto und diese erfordert keine erhöhten Rechte!

Zusätzlich benötigt wird (ist aber alles im Archiv arpscan.zip enthalten):

winpcapau3.zip - Hiervon wird die winpcap.au3 von arpscan.au3 als include geladen.

npcap-0.9994.exe - Packet capture library for Windows - um (ARP-)Pakete mitlesen zu können, muss installiert werden, damit arpscan.au3 funktioniert.

Alle nötigen Links sind in arpscan.au3 enthalten.

PS: Habe winpcap.au3 entpackt und ein paar Zeilen geändert, das Archiv winpcapau3.zip ist aber original.

Examples:

arpscan.exe 192.168.1.1

arpscan.exe 192.168.1.1-192.168.1.10

Zitat von AspirinJunkie

Und so ne Schleife über alle IPs ist auch in AutoIt schnell gebastelt - nur halt unheimlich langsam.

In ScanArpCache.au3 habe ich das so gelöst:

; Sorgt dafür, dass die angepingten IPs inkl. MAC im ARP-Cache landen, wenn das Gerät erreichbar ist.
Func _PingSubNet($sSubNet, $iStart = 1, $iEnd = 254, $iWait = 0)
    RunWait(@ComSpec & StringFormat(' /C FOR /L %%L IN (%i,1,%i) DO @ping >nul -4 -n 1 -w %i %s.%%L', $iStart, $iEnd, $iWait, $sSubNet), '', @SW_HIDE)
EndFunc   ;==>_PingSubNet

Zitat von AspirinJunkie

Bist du sicher?

Ziemlich...

arp -a Zeigt aktuelle ARP-Einträge durch Abfrage der Protokoll-Daten an.

Zitat von AspirinJunkie

Arp-Cache löschen: arp -d

arp -d funktioniert nicht ohne einen zweiten Parameter.

So...

arp -d Inet-Adr.

oder so...

arp -d *

Aktuelle Einträge (arp -a) zu löschen macht wenig Sinn, da sich diese bei der nächsten Abfrage mit arp -a (ohne vorheriges Ping) wieder im Cache befinden.

Zitat von AspirinJunkie

Ein Ping auf die Broadcast-Adresse des Subnetzes

Das wäre natürlich sehr bequem, doch leider mit hoher Wahrscheinlichkeit nicht erfolgreich... ein Ping an jeden Host im Subnetz zu senden, ist sicherer.

Zitat von Faultier_1982

Ich hatte ja das Gefühl, dass "_WD_Loadwait($sSession)" nicht funktioniert...

Kontrolliere doch einfach, was _WD_Loadwait zurückgibt:

Local $hTimer = TimerInit()
Local $iLoadWait = _WD_Loadwait($sSession)
ConsoleWrite("@@_Debug_line" & @TAB & @TAB & @ScriptLineNumber & " var: $iLoadWait --> " & $iLoadWait & @LF & "!@ " & @TAB & "#Error: " & @error & @LF) ; 1 (Success)
ConsoleWrite('! ********************************************************* DiffTime --> ' & TimerDiff($hTimer) & @CRLF) ; 16.6406 ms

Zitat von Musashi

Ob And aber (in AutoIt) eine höhere Priorität als Or besitzt, da bin ich mir nicht so sicher.

Laut Operatoren liegen sie auf der gleichen Prioritätsebene.

Wenn mehr als ein Operator in einem Ausdruck verwendet werden, bestimmt die Operatorpriorität die Reihenfolge der Verwendung. Die Priorität, die in AutoIt verwendet wird, ist weiter unten aufgelistet. Wenn zwei Operatoren die gleiche Priorität besitzen, wird der Ausdruck von links nach rechts ausgewertet.

Von der höchsten zur niedrigsten Priorität:

NOT
    ^
    * /
    + -
    &
    < > <= >= = <> ==
    And Or

And und Or haben also dieselbe Priorität...

Zitat von Faultier_1982

ist es also zu betrachten wie in der Mathematik Punkt vor Strich Klammer zuerst? In diesem Fall And vor Or Klammer zuerst?

Ja, genau wie in der Mathematik... nur musst du in AutoIt die Regeln beachten, die für die Operatoren festgelegt wurden und mit runden Klammern kannst du erzwingen, dass die darin enthaltenen Ausdrücke vorrangig ausgewertet werden.