Beiträge von Bitnugger

Zitat von BugFix

Die Rundungsdifferenzen führen dazu, dass bei mehrfacher Größenänderung du niemals zurück zur Anfangsgröße gelangst.

Ja, genau das ist das Problem... aber nur mal so als Idee... wir können Windows ja die Größe des Labels bestimmen lassen. Dazu wird dann ein Label in einer separaten GUI erstellt, ohne dabei die Größe anzugeben. Vor Erstellen des Labels setzen wir die Schriftgröße für die GUI entsprechend der Auswertung von WM_SIZING, also größer oder kleiner, die dann auch für das Label verwendet wird. Das Erstellen des Labels wiederholen wir dann mit größerer oder kleinerer Schriftgröße so oft, bis die passende Größe gefunden wurde.

Im Handbuch steht es sehr gut beschrieben... anstelle PuTTY geht das dann auch mit AutoIt via TCPSend.

Dann sollte das etwa so funktionieren:

Global $remIP = "192.168.0.3", $remPort = 80, $ConnectedSocket, $recv

TCPStartup()
$ConnectedSocket = TCPConnect($remIP, $remPort)

TCPSend($ConnectedSocket,"SR 1 1") ; Relais 1 einschalten
$recv = TCPRecv($ConnectedSocket, 4)
ConsoleWrite('Relais 1 ("' & $recv & '")' & ($recv = 'ok' ? ' ist nun eingeschaltet' : ' konnte nicht eingeschaltet werden!') & @CRLF)

TCPSend($ConnectedSocket,"SR 4 0") ; Relais 4 ausschalten
$recv = TCPRecv($ConnectedSocket, 4) ; "ok" or "fail"
ConsoleWrite('Relais 4 ("' & $recv & '")' & ($recv = 'ok' ? ' ist nun ausgeschaltet' : ' konnte nicht ausgeschaltet werden!') & @CRLF)

TCPCloseSocket($ConnectedSocket)
TCPShutdown()

Zitat von Buscape23

Der Code gibt mir noch folgende Fehlermeldung:

Anstelle $fsocket musst du natürlich $ConnectedSocket verwenden... aber wenn du das Modul noch nicht hast, kann das ja nicht funktionieren. Schaue mir gerade mal das Handbuch dazu an...

Zitat von Buscape23

Und zwar würde ich gern ein Relais durch das aufrufen einer URL Seite ansteuern.

Wenn du uns sagst, was genau das für ein Relais ist, könnten wir dir sicher besser helfen... habe auch ein paar IO-Module (ETH484 - 4 x 16A ethernet relay) mit Relais und die steuere ich "in etwa" so an, wie funkey es gezeigt hat. TCPRecv macht nur Sinn, wenn du die Antwort auch auswertest.

Zitat von mikush

Selbst die Beispiele funtionieren nicht.

Wenn du die an den entsprechenden Stellen nicht angepasst hast, kann es das auch nicht: Benutzername, Passwort und die zu startende Anwendung (inkl. Pfad).

Was bekommst du denn an Ausgabe von den Beispielen?

Zitat von mikush

Lokal funktioniert es aber (mit Administratorrechten).

Ohne Administratorrechte funktioniert es nicht? Dann muss du das AutoIt-Script natürlich auch mit administrativen Rechten starten oder RunAs(...) benutzen.

Wenn ich nicht weiß, welcher Fehler aufgetreten ist, kann ich dir auch nicht sagen, was da falsch läuft... du lieferst ja keine brauchbaren Infos und auch kein Script. Zumindest die Zeile mit dem Run() solltest du uns zeigen...

Zitat von mikush

Oder liegt es daran, daß ich nur die Home-Version von Windows 10 habe?

Das heißt nicht Home-Version, sondern Home-Edition... und nein, damit hat es nichts zu tun.

Das ist oftmals der Fehler:

Resolve "Access is Denied" using PSExec with a Local Admin Account

• Open RegEdit on your remote server.
• Navigate to HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System.
• Add a new DWORD value called LocalAccountTokenFilterPolicy.
• Set its value to 1.
• Reboot your remove server.

Zitat von mikush

Verdammt, das war's mit dem Altersbonus .

Den gibt es hier eh erst ab 80 und auch nur in Begleitung der Eltern. Der Durchschnitt mag wohl bei 30 liegen, aber wir haben hier auch User, die schon über 80 sind!

Zitat von mikush

Wenn das Script auf dem Zielrechner nicht allzu viel Last erzeugt wäre ein Dauerlauf kein Problem.

Das würde keine spürbare Last erzeugen, aber so musst du immer an zwei Stellen ein Auge haben und bei Anpassungen evtl. an beiden Scripten Änderungen vornehmen. psexec muss nicht auf den Zielrechnern installiert sein und ja, psexec kannst du wie auch alle anderen Programme via AutoIt mit Run(...) oder RunWait(...) starten.

Hier ein Bsp.:

;-- TIME_STAMP   2021-09-23 21:21:04

#include <AutoItConstants.au3>

_psexec_demo()

Func _psexec_demo()
    ; \\Server = \\192.168.178.31 (mein Mini-Server)
    ; psexec.exe muss im Suchpfad liegen, oder der Pfad zu psexec.exe muss mit angegeben werden: "F:\Progdir\wscc\SysInternals Suite\PsExec.exe"

    Local $sOutput, $iPID

    $iPID = Run('psexec.exe \\Server -accepteula -nobanner -i -u mikush -p Geheim0815! -n 30 -h "\\Server\c\Program Files (x86)\Chocolatey GUI\ChocolateyGui.exe"', '', @SW_SHOW, BitOR($STDERR_CHILD, $STDOUT_CHILD))
;~     $iPID = Run('psexec.exe \\192.168.178.31 -accepteula -nobanner -i -u mikush -p Geheim0815! -n 30 -h "\\192.168.178.31\c\Program Files (x86)\Chocolatey GUI\ChocolateyGui.exe"', '', @SW_SHOW, BitOR($STDERR_CHILD, $STDOUT_CHILD))
    If $iPID Then
        ProcessWaitClose($iPID) ; warten bis psexec beendet wurde
        $sOutput = StdoutRead($iPID) ; wenn kein Fehler aufgetreten ist, sollte die Ausgabe eigentlich via StdoutRead gelesen werden können, ist aber bei psexec nicht der Fall...
        ConsoleWrite('> StdoutRead('&$iPID&')' & @CRLF & $sOutput & @CRLF & '------------------------' & @CRLF)

        $sOutput = StderrRead($iPID) ; obwohl error code 0, muss die Ausgabe via StderrRead gelesen werden...
        ConsoleWrite('! StderrRead('&$iPID&')' & @CRLF & $sOutput & @CRLF & '------------------------' & @CRLF)
        ; das fangen wir dann einfach so ab...
        If StringInStr($sOutput, 'with error code 0.') Then ConsoleWrite('+ Es ist kein Fehler aufgetreten!' & @CRLF & '------------------------' & @CRLF)

    Else
        ConsoleWrite('! Fehler bei Run() - psexec.exe konnte nicht ausgeführt werden!' & @CRLF)
    EndIf
EndFunc

Zitat von mikush

Noch ein Programm in der Kette will ich eigentlich vermeiden.

Verstehe dich... und auch ich bin mittlerweile 3x 20... aber mit AutoIt wüßte ich nicht, wie man das lösen kann, ohne dass auf dem Zielrechner ein Script ständig im Hintergrund läuft, dass man dann z.B. via UDP/TCP ansprechen kann, damit es ein Script startet - psexec ist dafür wirklich die optimale Lösung.

Zitat von mikush

Einfach ausgedrückt, ich suche einen Remote Programmaufruf.

PsExec - Windows Sysinternals

Execute processes on remote systems.

docs.microsoft.com

Zitat von BugFix

Statt WinAPI kannst Du auch TypeLib nutzen:

Schön, TypeLib... kannte ich auch noch nicht.

Verstehe nur nicht, wieso du dafür eine lokale Variable anlegst... macht ja nur Sinn, wenn du das Ergebnis von ObjCreate überprüfen willst.

Func _GUID_TypeLib()
    Return ObjCreate("Scriptlet.TypeLib").GUID
EndFunc  ;==>_GUID_TypeLib

Zitat von Oscar

Was meint ihr dazu?

Ich würde es auch begrüßen, wenn wir das Thema etwas lockerer sehen, denn wie du bereits gesagt hast, ist es von einem Tastatur-Hook noch ein weiter Weg zu einem (brauchbaren) Keylogger. Für mich klingt das so, als wollte ich jemandem nicht erklären, wie ein Benzinmotor funktioniert, weil er ja sonst ein Auto damit bauen könnte. Auch hier im Forum gibt es einige Scripts, in denen ein Low-Level Tastatur-Hook verwendet wird... streng genommen dürfte es die aber aufgrund der aktuellen Regeln gar nicht geben. Zudem... auch wenn ich einen guten Keylogger habe... muss ich ihn ja irgendwie auf dem Ziel-PC installieren und die Logs dann unbemerkt an mich senden... ohne das dies zurückverfolgbar ist... was dann der weitaus schwierigere Teil wäre.

Zitat von robbytobi

Grob gesagt ist UTF8 die falsche Wahl. Um zum Ziel zu kommen ist "UTF8MB4" notwendig gewesen.

Hier findet du auch eine Erklärung dazu, warum dem so ist:

What is the difference between utf8mb4 and utf8 charsets in MySQL?

What is the difference between utf8mb4 and utf8 charsets in MySQL? I already know about ASCII, UTF-8, UTF-16 and UTF-32 encodings; but I'm curious to know…

stackoverflow.com

Zitat von CodeCaster

UTF-8 is a variable-length encoding. In the case of UTF-8, this means that storing one code point requires one to four bytes. However, MySQL's encoding called "utf8" (alias of "utf8mb3") only stores a maximum of three bytes per code point.

So the character set "utf8"/"utf8mb3" cannot store all Unicode code points: it only supports the range 0x000 to 0xFFFF, which is called the "Basic Multilingual Plane". See also Comparison of Unicode encodings.

Zitat von robbytobi

Allerdings kommen in der DB nun wieder nur Fragezeichen an:

Wie genau hast du das denn überprüft? - Das Bild unter deinem Text (Content)... wie bist du an den Text aus der DB gekommen und womit hast du ihn wo ausgegeben? Und nein, da kommen keine Fragezeichen an!!!

Evtl. muss der Text vor dem Senden doch mit einer *MultiByte*-Funktion konvertiert werden... also entweder nach MultiByte oder nach WideChar. Das musst du aber selbst austesten, weil habe kein MariaDB.

Die Werte für die Statusleiste kannst du in der SciTEUser.properties setzen. Ich habe dir mal meine als Anhang dazugelegt... da findest du sie fast am Ende.

Da müsste ich mich auch erst mal reinfuchsen... aber evtl. ist dir hiermit auch geholfen:

;-- TIME_STAMP   2021-09-15 21:18:45

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

Global $Main = GUICreate("Main", 871, 752, -1, -1, -1, -1)
;~ Global $Rich1 = _GUICtrlRichEdit_Create($Main,"",20,20,692,714,-1,-1)
Global $Rich1 = _GUICtrlRichEdit_Create($Main, "", 20, 20, 692, 714, BitOR($ES_MULTILINE, $WS_HSCROLL, $WS_VSCROLL, $ES_AUTOHSCROLL, $ES_AUTOVSCROLL))
Global $Button_Save = GUICtrlCreateButton("Speichern", 721, 20, 100, 30, -1, -1)
Global $Button_Zoom = GUICtrlCreateButton("Zoom", 721, 70, 100, 30, -1, -1)
Global $iZoom = 200 ; 100 and 200 to 6400

If FileExists(@ScriptDir & "\RichSave.rtf") Then _GUICtrlRichEdit_StreamFromFile($Rich1, @ScriptDir & "\RichSave.rtf")

GUISetState(@SW_SHOW, $Main)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button_Save
            _GUICtrlRichEdit_StreamToFile($Rich1, @ScriptDir & "\RichSave.rtf")
            If @error Then MsgBox(0, "Achtung", "Fehler beim Speichern: #Error " & @error)
        Case $Button_Zoom
            _GUICtrlRichEdit_SetZoom($Rich1, _GUICtrlRichEdit_GetZoom($Rich1) = $iZoom ? 100 : $iZoom)
    EndSwitch
WEnd

Zitat von Oscar

Naja, das ist ja kein Programm zum starten von dutzenden von Funktionen.

Es geht hier doch nur darum, einen Hotkey zum capturen festzulegen und IMHO sollten die 64 Möglichkeiten doch wohl ausreichen.

Ja, ok... hast ja Recht... mir persönlich hat die vorherige Version besser gefallen, weil ich da genau den Hotkey festlegen kann, den ich haben will.

Was du noch ändern könntest... für die HotkeyModifiers (Alt|Ctrl|Shift|Win) kein Combo verwenden, mit dem ich ja nur einen davon auswählen kann, sondern Checkboxen, denn so wäre dann z.B. auch Alt + Ctrl + Shift + F4 möglich.

Alternativ kannst du für die Auswahl des Hotkey aber auch eine kleine UDF verwenden, mit der dir alle Möglichkeiten offenstehen - (korrigierte) UDF inkl. Demo im Anhang. Link dazu ist im Script hinterlegt.

Zitat von Oscar

Ich habe das Programm jetzt dahingehend geändert, dass der Anwender den Hotkey selbst festlegen kann (Tasten begrenzt).

_SetHotkey funktioniert nicht, wenn PRINTSCREEN bereits von einer anderen Anwendung gesetzt wurde... und hat man es einmal geändert, z.B. auf F4, kann man PRINTSCREEN nicht mehr auswählen, weil es im Combo nicht angezeigt wird.

Tasten begrenzt... weniger geht ja nicht... was mache ich, wenn ich z. B. Strg + Shift + F4 benötige? Das solltest du aber dringend noch mal überarbeiten... ansonsten - sehr schön!

Wenn du SciTE auf UTF-8 umgestellt hast und der Text in deinem Post #4 in der Scite Editor-Pane korrekt angezeigt wird, darfst du die Zeichen nicht mehr konvertieren. Die sollten dann - so wie sie sind - korrekt in der DB ankommen, da die Quell- und Ziel-Codepage ja gleich sind.

In der Scite Output-Pane (Consolen-Output wäre in einer CMD) werden die Zeichen ja via ConsoleWrite ausgegeben... und ConsoleWrite konvertiert die Zeichen vor der Ausgabe immer nach ANSI. Deswegen musst du sie hier dann doch konvertieren... s. Bild.

Wenn diverse Zeichen nicht korrekt, sondern als Fragezeichen angezeigt werden, bedeutet dies, dass diese mit der verwendeten Schriftart nicht darstellbar sind.

So sollte das auch bei dir aussehen...

Zitat von BugFix

Wenn die Strukturen Variablen mit Alias enthalten, finde ich diese Darstellung übersichtlicher:

Stimmt... muss ich mir endlich mal angewöhnen, vergesse es immer wieder, obwohl es so superpraktisch ist.

Tweaky

Dann kannst du folgende Zeile...

If (@error Or (Abs(DllStructGetData($tRECT, "Left")) + Abs(DllStructGetData($tRECT, "Top")) + _

Abs(DllStructGetData($tRECT, "Right")) + Abs(DllStructGetData($tRECT, "Bottom"))) = 0) Then

so ändern...

If (@error Or (Abs($tRECT.Left) + Abs($tRECT.Top) + Abs($tRECT.Right) + Abs($tRECT.Bottom)) = 0) Then

Zitat von Tweaky

Kann man die Zeile "$bRet = DllCall("dwmapi.dll", "long", "DwmGetWindowAttribute" ..." nicht durch "_WinAPI_DwmGetWindowAttribute(...)" ersetzen?

Ja kannst du...

; needed to get rect when Aero theme is active : Thanks Kafu, Zedna

$bRet = DllCall("dwmapi.dll", "long", "DwmGetWindowAttribute", _

"hwnd", $hWnd, _

"dword", $DWMWA_EXTENDED_FRAME_BOUNDS, _

"struct*", $tRECT, _

"dword", DllStructGetSize($tRECT))

If (@error Or $bRet[0] Or (Abs(DllStructGetData($tRECT, "Left")) + Abs(DllStructGetData($tRECT, "Top")) + _

Abs(DllStructGetData($tRECT, "Right")) + Abs(DllStructGetData($tRECT, "Bottom"))) = 0) Then

$tRECT = _WinAPI_DwmGetWindowAttribute($hWnd, $DWMWA_EXTENDED_FRAME_BOUNDS)

If (@error Or (Abs(DllStructGetData($tRECT, "Left")) + Abs(DllStructGetData($tRECT, "Top")) + _

Abs(DllStructGetData($tRECT, "Right")) + Abs(DllStructGetData($tRECT, "Bottom"))) = 0) Then

Zitat von robbytobi

UTF8 als Basis scheint mir geeignet um alle meine Anforderungen abzudecken.

Ja, denke ich auch, nur in SciTE hast du es wohl nicht eingestellt, denn das arbeitet per Default ja mit der ANSI-Codepage.

SciTE kannst du auf UTF-8 umstellen, indem du diese Zeilen in der SciTEUser.properties hinzufügst bzw. änderst:

# Internationalisation
# Unicode
code.page=65001
#~ output.code.page=850
output.code.page=65001
#~ output.code.page=0

So sieht das bei mir aus...

Alternativ sollte es funktionieren, wenn du den String vor dem Absenden an die DB nach UTF-8 konvertierst. Dafür hat die Windows-API ein paar Funktionen:

_WinAPI_WideCharToMultiByte und _WinAPI_MultiByteToWideChar bzw. _WinAPI_MultiByteToWideCharEx

Du brauchst dann wohl _WinAPI_WideCharToMultiByte... $iCodePage musst du dann auf 65001 setzen.

Gun-Food

Habe soeben einen Fehler entdeckt... bei aufgeklappten Code-Tags wandert das "Code" beim Scrollen der Seite mit, was aber eigentlich nicht sein sollte.

Hier ein Bild, um es verständlich zu machen:

Herzlich willkommen!

Erinnert mich an meine Anfänge hier... war etliche Jahre auch nur passiver Mitleser und schon recht fit mit AutoIt, als ich mich hier angemeldet hatte, um quasi als Dank für das geteilte Wissen auch mal anderen helfen zu können.