Beiträge von Bitnugger

local hallo
hallo = "\"\"C:/Program Files (x86)/AutoIt3/autoit3.exe\" /ErrorStdOut /AutoIt3ExecuteLine \"ConsoleWrite('Hallo AutoIt' & @CRLF)\" > \"C:/code/lua/hallo.txt\"\""
print('+ '..hallo)
--~ + ""C:/Program Files (x86)/AutoIt3/autoit3.exe" /ErrorStdOut /AutoIt3ExecuteLine "ConsoleWrite('Hallo AutoIt' & @CRLF)" > "C:/code/lua/hallo.txt""

--~ Das hier finde ich z.B. elegant...
hallo = string.format('""%s" /ErrorStdOut /AutoIt3ExecuteLine "%s" > "%s""', "C:/Program Files (x86)/AutoIt3/autoit3.exe", "ConsoleWrite('Hallo AutoIt' & @CRLF)", "C:/code/lua/hallo.txt")
print('> '..hallo)
--~ > ""C:/Program Files (x86)/AutoIt3/autoit3.exe" /ErrorStdOut /AutoIt3ExecuteLine "ConsoleWrite('Hallo AutoIt' & @CRLF)" > "C:/code/lua/hallo.txt""

print(os.execute(hallo))

;~ $sCmd = '"C:\Program Files (x86)\AutoIt3\autoit3.exe" /ErrorStdOut /AutoIt3ExecuteLine "ConsoleWrite(""Hallo AutoIt"" & @CRLF)" > "C:\Users\BugFix\AppData\Local\Temp\execute_line_au3.txt"'

$sCmd = @ComSpec & ' /c ""C:\Program Files (x86)\AutoIt3\autoit3.exe" /ErrorStdOut /AutoIt3ExecuteLine "ConsoleWrite(""Hallo AutoIt"" & @CRLF)" > "C:\Users\BugFix\AppData\Local\Temp\execute_line_au3.txt""'

Run($sCmd)
Sleep(1000) ; Warten, bis Datei erstellt wurde... oder RunWait

$TmpFile = @TempDir & '\execute_line_au3.txt'
If FileExists($TmpFile) Then
    ConsoleWrite(FileRead($TmpFile) & @CRLF)
    FileDelete($TmpFile)
Else
    ConsoleWrite('No File' & @CRLF)
EndIf

;-- TIME_STAMP   2021-02-27 15:16:00   v 0.1

;*****************************************
;PsPadExt.au3 by Churanos
;Created with ISN AutoIt Studio v. 1.10
;*****************************************
#NoTrayIcon

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

AutoItSetOption("GUIOnEventMode", 1)
OnAutoItExitRegister("_Exit")
_AutoItObject_Startup()

#Region Define variables
Global Const $sExtName    = "PsPadExt"
Global Const $sExtVersion = "0.0.1"
Global Const $sExtAuthor  = "Churanos <kleist.steven@gmail.com>"

Global Const $sClsId      = "PsPadExt.Bridge"

Global $oPlugin           = Null
Global $hROTHandle        = Null

Global $bShouldQuit       = False
Global $bInit             = False

Global $oError = ObjEvent("AutoIt.Error", "_ErrFunc")
#EndRegion Define variables

#Region GUI Part
Global $frm_Main = GUICreate($sExtName, 320, 360, -1, -1, -1, $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
Global $btn_GetText = GUICtrlCreateButton("Get sel. Text", 10, 10, 100, 25)
GUICtrlSetOnEvent(-1, "_GetTextFromEditor")
Global $btn_LeftChar = GUICtrlCreateButton("Get left Char", 120, 10, 100, 25)
GUICtrlSetOnEvent(-1, "_GetLeftCharFromEditor")
Global $txt_Text = GUICtrlCreateEdit("", 10, 50, 300, 300)
#EndRegion GUI Part

#Region Main Loop
_Init()
While 1
    ; Do stuff
    If $bShouldQuit Then _Exit()
    Sleep(10)
Wend
#EndRegion Main Loop

#Region Functions
;##############################################################################
;### Init function
;##############################################################################
Func _Init()
    $oPlugin = _PSPadExt()
    If @error Then
        MsgBox(16, "Error", "Error while creating object from Func: _PsPadExt()!")
        _Exit()
    EndIf
    $hROTHandle = _AutoItObject_RegisterObject($oPlugin, $sClsId)
    GUISetState(@SW_SHOW, $frm_Main)
EndFunc
;##############################################################################

;##############################################################################
;### Exit function
;##############################################################################
Func _Exit()
    _AutoItObject_UnregisterObject($hROTHandle)
    $oPlugin = 0
    _AutoItObject_Shutdown()
    Exit
EndFunc
;##############################################################################

Func _GetTextFromEditor()
    GUICtrlSetData($txt_Text, $oPlugin.PsPadSelectedText())
EndFunc

Func _GetLeftCharFromEditor()
    Local $aCaret = $oPlugin.PsPadLeftChar()
    GUICtrlSetData($txt_Text, StringFormat("Editor.caretY(): %s  Editor.caretX(): %s\r\nEditor.LineText(): %s\r\nEditor.LeftChar(): %s\r\n", $aCaret[0], $aCaret[1], $aCaret[2], $aCaret[3]))
EndFunc
#EndRegion Functions

#Region Object Functions
Func _PSPadExt()
    Local $class = _AutoItObject_Class()
    With $class
        .AddProperty("Name", $ELSCOPE_READONLY, $sExtName)
        .AddProperty("Version", $ELSCOPE_READONLY, $sExtVersion)
        .AddProperty("PsPad", $ELSCOPE_PUBLIC, Null)

        .AddMethod("PsPadSelectedText", "_PsPadExt_PsPadSelectedText")
        .AddMethod("PsPadLeftChar", "_PsPadExt_PsPadLeftChar")
        .AddMethod("Quit", "_PsPadExt_Quit")
    EndWith

    Return $class.Object
EndFunc

Func _PsPadExt_PsPadSelectedText($this)
    $this.PsPad.Item("Editor").assignActiveEditor()
    ConsoleWrite(StringFormat("Editor.selText(): %s", $this.PsPad.Item("Editor").selText()) & @CRLF)
    Return $this.PsPad.Item("Editor").selText()
EndFunc

Func _PsPadExt_PsPadLeftChar($this)
    $this.PsPad.Item("Editor").assignActiveEditor()
    Local $iCaretRow = $this.PsPad.Item("Editor").caretY() - 1
    Local $iCaretCol = $this.PsPad.Item("Editor").caretX() - 1
    Local $sLineText = $this.PsPad.Item("Editor").lineText()
    ConsoleWrite(StringFormat("Editor.caretY(): %s", $iCaretRow) & @CRLF)
    ConsoleWrite(StringFormat("Editor.caretX(): %s", $iCaretCol) & @CRLF)
    ConsoleWrite(StringFormat("Editor.LineText(): %s", $sLineText) & @CRLF)
    ConsoleWrite(StringFormat("Editor.LeftChar(): %s", StringMid($sLineText, $iCaretCol, 1)) & @CRLF)
    Local $aCaret = [$iCaretRow, $iCaretCol, $sLineText, StringMid($sLineText, $iCaretCol, 1)]
    Return $aCaret
EndFunc

Func _PSPadExt_Quit($this)
    $bShouldQuit = True
EndFunc
#EndRegion Object Functions

#Region COM Error Function
Func _ErrFunc()
    ConsoleWrite("COM Error, ScriptLine(" & $oError.scriptline & ") : Number 0x" & Hex($oError.number, 8) & " - " & $oError.windescription & @CRLF)
EndFunc    ;==>_ErrFunc
#EndRegion COM Error Function

;-- TIME_STAMP   2021-02-27 00:49:45   v 0.1

;~ Opt('MustDeclareVars', 1)

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>
#include <Debug.au3>
#include <SendMessage.au3>
;~ #include <WinAPIConv.au3>
#include <WinAPISys.au3>
#include <WinAPISysWin.au3>
;~ #include <WinGetControls.au3>
#include <_ConOut.au3> ; <<-- WinAPIConv.au3

Local $aControls, $tChars, $sTxt, $hKeybLayout, $hActive = WinGetHandle('[ACTIVE]'), $hPSPad = ControlGetHandle('[CLASS:TfPSPad]', '', '[CLASS:TPSSynEdit; INSTANCE:1]')
ConsoleWrite("@@_Debug_line" & @TAB & @TAB & @ScriptLineNumber & "   var: $hPSPad      --> " & $hPSPad & @LF)
If Not IsHWnd($hPSPad) Then Exit 1

$hKeybLayout = _WinAPI_GetKeyboardLayout($hPSPad)
ConsoleWrite("@@_Debug_line" & @TAB & @TAB & @ScriptLineNumber & "   var: $hKeybLayout --> " & $hKeybLayout & @LF)

Local $iLen = _SendMessage($hPSPad, $WM_GETTEXTLENGTH)
If $iLen < 1 Then Exit 2

$tChars = DllStructCreate('char['&$iLen&']')
_SendMessage($hPSPad, $WM_GETTEXT, $iLen, DllStructGetPtr($tChars))
For $i = 1 To $iLen Step 1
    $sTxt &= DllStructGetData($tChars, 1, $i)
Next
_ConOut($sTxt & @CRLF)

; Funktioniert, aber nicht wie erwartet!
ControlFocus('', '', $hPSPad)
Local $iPID, $aInfo = _WinAPI_GetGUIThreadInfo(_WinAPI_GetWindowThreadProcessId($hPSPad, $iPID))
ConsoleWrite('- CaretX: ' & $aInfo[7] & ' CaretY: ' & $aInfo[8] & @CRLF)

;~ $aControls = _WinGetControls(WinGetHandle('[CLASS:TfPSPad]'))
;~ _ArrayDisplay($aControls, '$aControls')

WinActivate($hActive)

;-- TIME_STAMP   2021-02-26 15:21:25

#include-once
#include <WinAPIMisc.au3>

; Standard: absolute Screenposition
$tMPos = _WinAPI_GetMousePosEx()
ConsoleWrite(StringFormat('- Screen absolut                                       >> X:%6s,Y:%6s', $tMPos.X, $tMPos.Y) & @CRLF)

; MouseCoordMode(0): relativ zum aktiven Fenster
$tMPos = _WinAPI_GetMousePosEx(1, WinGetHandle('[ACTIVE]'))
ConsoleWrite(StringFormat('- Akt. Fenster relativ                                 >> X:%6s,Y:%6s', $tMPos.X, $tMPos.Y) & @CRLF)

; MouseCoordMode(2): relativ zum Clientbereich des aktiven Fensters
$tMPos = _WinAPI_GetMousePosEx(2, WinGetHandle('[ACTIVE]'))
ConsoleWrite(StringFormat('- Clientbereich akt. Fenster relativ                   >> X:%6s,Y:%6s', $tMPos.X, $tMPos.Y) & @CRLF)

; Einzelparameterabfrage
ConsoleWrite(StringFormat('- Screen absolut, Einzelparamter                       >> X:%6s', _WinAPI_GetMousePosEx().X) & @CRLF)

; MouseCoordMode(2): relativ zum Clientbereich des angegebenen Fensters
Run('Notepad.exe')
$tMPos = _WinAPI_GetMousePosEx(2, WinWait('[CLASS:Notepad]', '', 3))
ConsoleWrite(StringFormat('! Clientbereich ang. Fenster (Notepad) relativ         >> X:%6s,Y:%6s', $tMPos.X, $tMPos.Y) & @CRLF)

Func _WinAPI_GetMousePosEx($iRel = 0, $hWnd = 0) ; $iRel: 0=rel. aktive/angegeben Wnd., 1=abs. Screen(default), 2=rel. client area aktive/angegeben Wnd.
    If Not IsHWnd($hWnd) Then $hWnd = WinGetHandle('[ACTIVE]')
    Local $tMPos = _WinAPI_GetMousePos($iRel = 2 ? True : False, $hWnd)
    If $iRel = 1 Then
        Local $aPos = WinGetPos($hWnd)
        $tMPos.X -= $aPos[0]
        $tMPos.Y -= $aPos[1]
    EndIf
    Return $tMPos
EndFunc  ;==>_WinAPI_GetMousePosEx