Beiträge von Bitnugger

import os, strutils, strformat
include winim/[inc\winuser]

proc printf(formatstr: cstring) {.header: "<stdio.h>", varargs.}

type
  ConditionPair[T] = object
    ifTrue, ifFalse: T

proc `!`*[T](a, b: T): ConditionPair[T] {.inline.} = ConditionPair[T](ifTrue: a, ifFalse: b)

template `?`*[T](cond: bool; p: ConditionPair[T]): T =
  (if cond: p.ifTrue else: p.ifFalse)

type
  WndID = object
    pid, tid: int
  EnumWnd = object
    hwnd: HWND
    class: WideCStringObj
    title: WideCStringObj
    pid, tid: int

var 
  sEnumWnd = newSeq[EnumWnd]()
  lp: LPARAM

var
  classfilter = newWideCString("", 4096)
  titlefilter = newWideCString("", 4096)
  spacer: string = repeat("-", 128)
  fo: string = "HWND      : %-18sPID : %6s TID : %6s %54sWindow : %4i|%4i\nTITLE     : %s\nCLASSNAME : %s\n%s\n"

# - Parent muss "0" sein
# - Fenster muss Titel haben
proc my_WndEnumProc(hwnd: HWND, lp: LPARAM): WINBOOL {.stdcall.} =
  if GetParent(hwnd) == 0:
    var buflen = GetWindowTextLengthW(hwnd) + 1
    if buflen == 0: return TRUE

    var buf = newWideCString("", buflen)
    discard GetWindowTextW(hwnd, cast[LPWSTR](addr buf[0]), buflen)
    if titlefilter.len > 0:
      if fmt"{buf}" != fmt"{titlefilter}": return TRUE

    var className = newWideCString("", 4096)
    discard GetClassNameW(hwnd, cast[LPWSTR](className), 4096)
    if classfilter.len > 0:
      if fmt"{className}" != fmt"{classfilter}": return TRUE

    var
      pPID: LPDWORD
      pTID = GetWindowThreadProcessId(hwnd, cast[LPDWORD](addr pPID))
      oWndID = WndID(pid: cast[int](pPID), tid: cast[int](pTID))

    sEnumWnd.add(EnumWnd(hwnd: hwnd, 
                        class: className, 
                        title: buf,
                        pid: oWndID.pid,
                        tid: oWndID.tid))
  return TRUE

proc GetEnumWindows(cfilter, tfilter: string): int =
  titlefilter = newWideCString(tfilter, tfilter.len + 1)
  classfilter = newWideCString(cfilter, cfilter.len + 1)
  sEnumWnd = newSeq[EnumWnd]()
  EnumWindows(my_WndEnumProc, lp)
  result = sEnumWnd.len

proc printEnumWnds(): void =
  printf("%s\nclassfilter = %s\ntitlefilter = %s\n%s\n",
             spacer, $classfilter, $titlefilter, spacer)
  var n = sEnumWnd.len
  for i in 0..n - 1:
    printf(fo, toHex(sEnumWnd[i].hwnd), $sEnumWnd[i].pid, $sEnumWnd[i].tid, "",
               i, sEnumWnd.len, $sEnumWnd[i].title, $sEnumWnd[i].class, spacer)
  echo "Es wurde" & (n <= 0 ? " kein" ! (n == 1 ? " ein" ! "n " & $n)) &
       " Window" & (n <= 1 ? "" ! "s") & " gefunden...\n" &
       spacer & "\n"

if GetEnumWindows("SciTEWindow", "") > 0: printEnumWnds()
if GetEnumWindows("SciTEWindow", r"M:\AutoIt\WakeOnLan.au3 - SciTE") > 0: printEnumWnds()
if GetEnumWindows("", "(Frozen) AutoIt v3 Window Info") > 0: printEnumWnds()

import os, strutils #, strformat
include winim/[inc\winuser]

proc printf(formatstr: cstring) {.header: "<stdio.h>", varargs.}

type
  WndID = object
    pid, tid: int
  EnumWnd = object
    hwnd: HWND
    class, title: WideCStringObj
    pid, tid: int

    # title: WideCStringObj
var 
  sEnumWnd = newSeq[EnumWnd]()
  lp: LPARAM

proc my_WndEnumProc(hwnd: HWND, lp: LPARAM): WINBOOL {.stdcall.} =
  var
    buflen = GetWindowTextLengthW(hwnd) + 1
    buf = newWideCString("", buflen)
    className = newWideCString("", 4096)
    pPID: LPDWORD
    pTID = GetWindowThreadProcessId(hwnd, cast[LPDWORD](addr pPID))
    oWndID = WndID(pid: cast[int](pPID), tid: cast[int](pTID))    
  discard GetWindowTextW(hwnd, cast[LPWSTR](addr buf[]), buflen)
  discard GetClassNameW(hwnd, cast[LPWSTR](className), 4096)
  sEnumWnd.add(EnumWnd(hwnd: hwnd, 
                       class: className, 
                       title: buf,
                       pid: oWndID.pid,
                       tid: oWndID.tid))
  return TRUE


EnumWindows(my_WndEnumProc, lp)


var
  spacer: string = repeat("-", 128) & "\n"
  fo: string = "HWND      : %-18sPID : %6s TID : %6s %54sWindow : %4i|%4i\nTITLE     : %s\nCLASSNAME : %s\n%s"
echo spacer
for i in 0..sEnumWnd.len - 1:
  printf(fo, toHex(sEnumWnd[i].hwnd), $sEnumWnd[i].pid, $sEnumWnd[i].tid, "",
             i, sEnumWnd.len, $sEnumWnd[i].title, $sEnumWnd[i].class, spacer)
echo "Es wurden " & $sEnumWnd.len & " Windows im System gefunden...\n" & spacer


#[
--------------------------------------------------------------------------------------------------------------------------------
HWND      : 0000000000030CF2  PID :    668 TID :  14828                                                       Window :  632| 876
TITLE     : 
CLASSNAME : tooltips_class32
--------------------------------------------------------------------------------------------------------------------------------
HWND      : 0000000000020CD6  PID :    668 TID :  14828                                                       Window :  633| 876
TITLE     : HFS ~ HTTP File Server 2.3m                                                                                Build 300
CLASSNAME : TmainFrm                   
--------------------------------------------------------------------------------------------------------------------------------
Es wurden 867 Windows im System gefunden.
--------------------------------------------------------------------------------------------------------------------------------
]#

import strutils 
include winim/[inc\winuser]

proc FindWindow(class = "", title = ""): HWND =
  let 
    className = newWideCString(class, class.len)
    wndName = newWideCString(title, title.len)
  if class == "" and title == "": result = FindWindowW(nil, nil)
  elif class != "" and title == "": result = FindWindowW(cast[LPWSTR](className), nil)
  elif class == "" and title != "": result = FindWindowW(nil, cast[LPWSTR](wndName))
  else: result = FindWindowW(cast[LPWSTR](className), cast[LPWSTR](wndName))

var find: string = r"C:\CODE\AutoIt\TEST\_1test.au3 - SciTE [1 of 19]"
echo "hWnd SciTE [ACTIVE]        = ", toHex(FindWindow())
echo "hWnd SciTE [class]         = ", toHex(FindWindow("SciTEWindow"))
echo "hWnd SciTE [title]         = ", toHex(FindWindow("", find))
echo "hWnd SciTE [class & title] = ", toHex(FindWindow("SciTEWindow", find))
#[ 
hWnd SciTE [ACTIVE]        = 0000000000030844
hWnd SciTE [class]         = 00000000001A0F3C
hWnd SciTE [title]         = 00000000001A0F3C
hWnd SciTE [class & title] = 00000000001A0F3C
]#

# Ermitteln von Process-ID und Thread-ID eines Fensters

include winim/[inc\winuser]

type
  WndID = object
    pid, tid: int

proc GetIDByWindow(hWnd: HWND): WndID =
  # determines the process and thread ID by a window handle
  # returns the object type "WndID" with .pid & .tid
  # requires: include winim/[inc\winuser]
  var 
    pPID: LPDWORD
    pTID = GetWindowThreadProcessId(hWnd, cast[LPDWORD](addr pPID))
  result = WndID(pid: cast[int](pPID), tid: cast[int](pTID))

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Example
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
var
  wndName = newWideCString(r"M:\AutoIt\Cursor.au3 - SciTE [22 von 22]", 4096)
  hWnd = FindWindowW(nil, cast[LPCWSTR](wndName))

let id = GetIDByWindow(hWnd)
echo "Process-ID      = ", id.pid
echo "Thread-ID       = ", id.tid
echo "Process-ID only = ", GetIDByWindow(hWnd).pid
echo "Thread-ID only  = ", GetIDByWindow(hWnd).tid
#[
Process-ID      = 16140
Thread-ID       = 11472
Process-ID only = 16140
Thread-ID only  = 11472
]#

import strutils 
include winim/[inc\winuser]

var
  className = newWideCString("SciTEWindow", 4096)
  # wndName = newWideCString(r"C:\CODE\AutoIt\TEST\_1test.au3 - SciTE [1 of 19]", 4096)
  wndName = newWideCString(r"M:\AutoIt\Cursor.au3 - SciTE [22 von 22]", 4096)
  hScite0 = FindWindowW(nil, nil)
  hScite1 = FindWindowW(cast[LPCWSTR](className), nil)
  hScite2 = FindWindowW(cast[LPCWSTR](className), cast[LPCWSTR](wndName))
echo "hWnd SciTE [ACTIVE]        = ", toHex(hScite0), ", " & $type(hScite0) # OK
echo "hWnd SciTE [class]         = ", toHex(hScite1), ", " & $type(hScite1) # OK
echo "hWnd SciTE [class & title] = ", toHex(hScite2), ", " & $type(hScite2) # OK

var
  buflenW: int32 = 4096 #GetWindowTextLengthW(hScite2) + 1
  bufW0 = newWideCString("", buflenW)
  bufW1 = newWideCString("", buflenW)
  bufW2 = newWideCString("", buflenW)
  txtlenW0 = GetWindowTextW(hScite0, cast[LPWSTR](addr bufW0[0]), buflenW)
  txtlenW1 = GetWindowTextW(hScite1, cast[LPWSTR](addr bufW1[0]), buflenW)
  txtlenW2 = GetWindowTextW(hScite2, cast[LPWSTR](addr bufW2[0]), buflenW)

echo "txtlenW0 = ", txtlenW0
echo "txtlenW1 = ", txtlenW1
echo "txtlenW2 = ", txtlenW2
echo "buflenW  = ", buflenW
echo "bufW0    = ", bufW0
echo "bufW1    = ", bufW1
echo "bufW2    = ", bufW2

#[ OUTPUT
hWnd SciTE [ACTIVE]        = 0000000000030844, HWND
hWnd SciTE [class]         = 00000000001A0F3C, HWND
hWnd SciTE [class & title] = 00000000001A0F3C, HWND
txtlenW0 = 11
txtlenW1 = 40
txtlenW2 = 40
buflenW  = 4096
bufW0    = MSCTFIME UI
bufW1    = M:\AutoIt\Cursor.au3 - SciTE [22 von 22]
bufW2    = M:\AutoIt\Cursor.au3 - SciTE [22 von 22]
]#

;-- TIME_STAMP   2020-06-04 02:30:55   v 0.1

Opt('MustDeclareVars', 1)

#include <Array.au3>
#include <OutlookEX.au3>

Global Enum $eSubject, $eBody, $eCreationTime, $eLastModificationTime, $eSize

Global $oOutlook = _OL_Open()
If @error Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

_Check_Outbox()

Func _Check_Outbox()
    Local $sSubject = 'Test32'
    Local $aItems = _OL_ItemFind($oOutlook, "*\Postausgang", $olMail, "", "", "", "", "", 2) ; EN = *\Outbox
    If @error Then
        MsgBox(16, "OutlookEX UDF", "Error _OL_ItemFind failed. @error = " & @error & ", @extended = " & @extended)
    Else
        Local $iIndex = _ArraySearch($aItems, $sSubject, 1, 0, 0, 0, 1, $eSubject)
        Local $sMsg = 'Die Mail mit dem Subject "'& $sSubject &'" wurde ' & (@error ? '' : 'nicht') & ' versandt!' & @CRLF & '($iIndex = ' & $iIndex & ')'

        MsgBox(64,"OutlookEX UDF", "Im Postausgang sind " & UBound($aItems) -1 & " eMails." & @CRLF & @CRLF & $sMsg & @CRLF & @CRLF & _ArrayToString($aItems, '|'))
        _ArrayDisplay($aItems, '$aItems')
    EndIf
EndFunc

_OL_Close($oOutlook)

#include <OutlookEX.au3>

Global $oOutlook, $sMeineMailadresse = 'Windi@outlook.de'

_Main()

Func _Main()
    $oOutlook = _OL_Open()
    If @error <> 0 Then Exit MsgBox(16, "", "_OL_Open: Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
    
    OnAutoItExitRegister('_Exit')
    
    ; ...tu was
    _Mail_senden()
    ; ...tu was
    
    Exit
EndFunc

Func _Mail_senden() ;Funtion Mail_senden
    ...blablabla
EndFunc   ;==>_Mail_senden

Func _Exit()
    ; _OL_ItemSendReceive läuft leider asynchron d.h. es wird nicht auf die Fertigstellung des Befehls gewartet.
    ; Deshalb warten wir mit _OL_Close und geben Outlook somit etwas Zeit, eine evtl. noch nicht versandte Mail zu versenden.
    Sleep(10)
    _OL_Close($oOutlook)
EndFunc   ;==>_Exit

#include <OutlookEX.au3>

Global $sMeineMailadresse = 'Bitnugger@sagichnicht.de' ; <<<=== Adresse anpassen!!!

_Mail_senden()

Func _Mail_senden() ;Funtion Mail_senden
    Local $oOutlook = _OL_Open()
    If @error <> 0 Then Exit MsgBox(16, "", "_OL_Open: Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
    Local $sBetreff = "Telefonnummern Kunden Tour 1 " & _NowDate()
    Local $aTermine = [['Tour', 'Vorname Name', 'Straße', 'PLZ', 'Ort', 'Telefonnr 1', 'Telefonnr 2', 'Handy'],  _
        ['Tour 1', 'Vorname Name 1', 'Straße 1', 'PLZ 1', 'Ort 1', 'Telefonnr 1', 'Telefonnr 2', 'Handy 1']]
    Local $sBody = "<html><body>"
    For $i = 1 To UBound($aTermine) - 1
        If $aTermine[$i][0] <> "" Then     ; ignoriere leere Zeilen
            $sBody &= "<P><b><u>" & $aTermine[$i][1] & "</u></b><br>"    ; Vorname Name
            $sBody &= $aTermine[$i][2] & "<br>"    ; Straße
            $sBody &= StringRight("0" & $aTermine[$i][3], 5) & " " & $aTermine[$i][4] & "<br>"   ; PLZ Ort 4 stellig mit 0
            If $aTermine[$i][5] <> "" Then $sBody &= "Privat: " & $aTermine[$i][5] & "<br>"    ; Telefonnr 1
            If $aTermine[$i][6] <> "" Then $sBody &= "Firma:  " & $aTermine[$i][6] & "<br>"    ; Telefonnr 2
            If $aTermine[$i][7] <> "" Then $sBody &= "Mobil:  " & $aTermine[$i][7] & "<br>"    ; Handy
        EndIf
    Next
    $sBody &= "</html></body>"
    Local $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=" & $sBetreff, "BodyFormat=" & $olFormatHTML, "HTMLBody=" & $sBody)
    If @error <> 0 Then Exit MsgBox(16, "", "_OL_ItemCreate: @error = " & @error & ", @extended = " & @extended)
    _OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $sMeineMailadresse)
    If @error <> 0 Then Exit MsgBox(16, "", "_OL_ItemRecipientAdd: @error = " & @error & ", @extended = " & @extended)
    ;$oItem.display ; zeigt die Mail Kontrolle
    _OL_ItemSend($oOutlook, $oItem)      ; sendet ohne nachfrage
     If @error Then
        Exit MsgBox(16, "", "_OL_ItemSend: Mail an " & $sMeineMailadresse & " konnte nicht gesendet werden!")
    Else
        Exit MsgBox(64, "", "_OL_ItemSend: Mail versendet an " & $sMeineMailadresse)
    EndIf
    _OL_ItemSendReceive($oOutlook, True) ; Initiiert die sofortige Zustellung aller nicht zugestellten Nachrichten und den sofortigen Empfang von E-Mails für alle Konten im aktuellen Profil.
     If @error Then Exit MsgBox(16, "", "_OL_ItemSendReceive: Initiierung der sofortige Zustellung fehlgeschlagen!")
    _OL_Close($oOutlook)
EndFunc   ;==>_Mail_senden