Beiträge von UEZ

#Include "win\shlobj.bi"
#Include "win\tlhelp32.bi"
#Include "windows.bi"

Function _WinAPI_GetBinaryType(sFilename As String) As DWORD
    Dim As DWORD lpBinaryType
    If GetBinaryTypeW(sFilename, @lpBinaryType) = 0 Then Return -1 'https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-getbinarytypew
    Return lpBinaryType
End Function

Function _WinAPI_FindFile(sPath As String, sFilename As String) As String
    Dim As WIN32_FIND_DATA FindFileData
    Dim As HANDLE hFind
    Static As String sFile, sTmp
    hFind = FindFirstFile(sPath, @FindFileData)
    If hFind = INVALID_HANDLE_VALUE Then Return ""
    While FindNextFile(hFind, @FindFileData) <> 0
        If FindFileData.cFileName <> ".." Then
            If (FindFileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then Return _WinAPI_FindFile(Left(sPath, InStrRev(sPath, "\")) & FindFileData.cFileName & "\*", sFilename)
            sTmp = Rtrim(sPath, "*") & sFilename
            Dim As Dword lpBinaryType = _WinAPI_GetBinaryType(sTmp) 
            If FindFileData.cFileName = sFilename And (lpBinaryType = 6 Or lpBinaryType = 0) Then sFile = sTmp
        Endif
    Wend
    
    FindClose(hFind)
    Return sFile
End Function

Function _WinAPI_IsOSx86() As Boolean 'https://learn.microsoft.com/en-us/windows/win32/api/sysinfoapi/nf-sysinfoapi-getnativesysteminfo?redirectedfrom=MSDN
    Dim As SYSTEM_INFO lpSystemInfo
    GetNativeSystemInfo(@lpSystemInfo)
    Return lpSystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_INTEL
End Function

Function _WinAPI_GetParentProcess(iPID As Integer = 0) As Integer
    Dim As DWORD pid = Iif(iPID = 0, GetCurrentProcessId(), iPID), pid_parent = 0
    Dim As HANDLE hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
    Dim As PROCESSENTRY32 tPROCESSENTRY32
    tPROCESSENTRY32.dwSize = Sizeof(tPROCESSENTRY32)
    Process32First(hSnapshot, @tPROCESSENTRY32)
    While TRUE
        If tPROCESSENTRY32.th32ProcessID = pid Then
            pid_parent = tPROCESSENTRY32.th32ParentProcessID
            Exit While
        End If
        Process32Next(hSnapshot, @tPROCESSENTRY32)
    Wend
    CloseHandle(hSnapshot)
    Return pid_parent
End Function

Function _WinAPI_GetProcessName(iPid As DWORD) As String
    Dim As HANDLE hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, iPid)
    If hSnapshot = 0 Then Return ""
    Dim As PROCESSENTRY32W tPROCESSENTRY32W
    tPROCESSENTRY32W.dwSize = Sizeof(PROCESSENTRY32W)
    Process32FirstW(hSnapshot, @tPROCESSENTRY32W)
    While True
        If tPROCESSENTRY32W.th32ProcessID = iPid Then Exit While
        If Process32NextW(hSnapshot,  @tPROCESSENTRY32W) = 0 Then Exit While
    Wend
    CloseHandle(hSnapshot)
    Return tPROCESSENTRY32W.szExeFile
End Function

Function _WinAPI_TerminateProcess(iPID As Integer, iExitCode As Integer = 0, bInheritHandle As Boolean = True) As Boolean
    Dim As Long dwDesiredAccess = PROCESS_TERMINATE
    Dim As Handle hProcess = OpenProcess(dwDesiredAccess, bInheritHandle, iPID)
    If hProcess = Null Then Return False
    TerminateProcess(hProcess, iExitCode)
    CloseHandle(hProcess)
    Return True
End Function

Sub GetCommandLineArguments(Byref sArguments As String)
    Dim As Ubyte i = 1
    Dim As String s
    While True
        s = Command(i)
        If Len(s) = 0 Then Exit While
        sArguments &= s & " "
        i += 1
    Wend
End Sub

Sub SetConsoleSize(cols As Long, lines As Long)
    Shell "MODE CON: COLS=" + Str(cols) + "LINES=" + Str(lines)
End Sub

    
Declare Function RtlGetVersion Lib "NtDll.dll" Alias "RtlGetVersion" (OsVersionInformation As RTL_OSVERSIONINFOW) As Long

Dim As RTL_OSVERSIONINFOW OS
OS.dwOSVersionInfoSize = Sizeof(RTL_OSVERSIONINFOW)
RtlGetVersion(OS)

Dim Shared As HWND hConsole
Dim As Handle hStdOut, hStdIn

AllocConsole()

hStdOut = GetStdHandle(STD_OUTPUT_HANDLE)
hStdIn = GetStdHandle(STD_INPUT_HANDLE)
hConsole = GetConsoleWindow()
SetConsoleSize(80, 15)

Dim As Integer iStyle = GetWindowLong(hConsole, GWL_STYLE)

Dim As Wstring * 4096 sClassname
GetClassNameW(hConsole, @sClassname, 4096)

Dim As String sArguments = " "
GetCommandLineArguments(sArguments)

'Restert exe if it is in a Terminal Window
If (SendMessageW(hConsole, WM_GETICON, Iif(OS.dwBuildNumber < 9200, 1, 0), 0) = 0 And sClassname = "PseudoConsoleWindow") And Command(1) <> "restart" Then 'restart app in CMD window
    #ifdef __FB_64BIT__
        Shell("conhost.exe """ &  Command(0) & """ restart" & sArguments)
    #Else
        If _WinAPI_IsOSx86() = False Then
            Dim As String sConhost = _WinAPI_FindFile("C:\Windows\WinSxS\amd64_microsoft-onecore-console-host-core_*", "conhost.exe")
            'If sConhost <> "" Then Shell("""" & sConhost & """" & " """ & Command(0) & """ restart" & sArguments)
            If sConhost <> "" Then 
                Shell(sConhost & " """ & Command(0) & """ restart" & sArguments)
            Else
                ? "Couldn't find conhost.exe"
                Sleep
            Endif
        Else
            Shell("conhost.exe """ &  Command(0) & """ restart" & sArguments)
        Endif
    #endif 
    FreeConsole()
    End 1000
Endif

If Command(1) = "restart" Then
    Dim As String exeName = Mid(Command(0), Instrrev(Command(0), "/") + 1, Len(Command(0)))
    Dim As Ubyte countParentPIDs = 0
    Dim As Integer iPID, parentPID = _WinAPI_GetParentProcess()
    While True
        iPID = _WinAPI_GetParentProcess(parentPID)
        If _WinAPI_GetProcessName(iPID) <> "cmd.exe" Then 
            parentPID = iPID
            countParentPIDs += 1
            If countParentPIDs > 5 Then Exit While
        Else
            _WinAPI_TerminateProcess(iPID, 0, True)
            Exit While
        Endif
    Wend
Endif


Dim As CONSOLE_FONT_INFO tFontInfo
GetCurrentConsoleFont(hStdOut, False, @tFontInfo)
Dim As COORD tFonts = GetConsoleFontSize(hStdOut, tFontInfo.nFont)


Dim Shared As Integer iOldStyle
iOldStyle = GetWindowLong(hConsole, GWL_STYLE)
SetWindowLong(hConsole, GWL_STYLE, iOldStyle And Not WS_MAXIMIZEBOX And Not WS_VSCROLL And Not WS_HSCROLL) 'Not WS_SIZEBOX And

Dim Shared As LONG_PTR g_OldWndProc

Function WindowProc(hWnd As HWND, uMsg As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT
    Select Case uMsg
        Case WM_CLOSE
            PostQuitMessage(0)
        Case WM_WINDOWPOSCHANGING
            Dim As WINDOWPOS Ptr tWinPos
            tWinPos = Cast(WINDOWPOS Ptr, lParam)
            ? tWinPos->cx, tWinPos->cy
            Return 0
    End Select
    ? hWnd, hConsole, uMsg
    Return CallWindowProc(Cast(WNDPROC, g_OldWndProc), hwnd, uMsg, wParam, lParam)
End Function

g_OldWndProc =  SetWindowLongPtr(hConsole, GWLP_WNDPROC, Cast(LONG_PTR, @WindowProc))

? g_OldWndProc

Dim msg As MSG

While GetMessage(@msg, 0, 0, 0)
    TranslateMessage(@msg)
    DispatchMessage(@msg)
Wend
SetWindowLongPtr(hCOnsole, GWLP_WNDPROC, Cast(LONG_PTR, @g_OldWndProc))
FreeConsole()

Opt("MustDeclareVars", 1)

Global $sFile = FileOpenDialog("Select an image", "", "Images (*.jpg;*.bmp;*.png;*.gif)")
If @error Then Exit MsgBox(16, "Error", "No image has been selected")
Global Const $dll = DllOpen("user32.dll")
_GDIPlus_Startup()
Global $ghGDIPDll = $__g_hGDIPDll
Global $aDPI = _GDIPlus_GraphicsGetDPIRatio()
;~ Global $hBMP_Screen = _ScreenCapture_Capture("", 0, 0, 1920, 1080)
;~ Global $hBmp = _GDIPlus_BitmapCreateFromHBITMAP($hBMP_Screen)
;~ _WinAPI_DeleteObject($hBMP_Screen)
Global $hBmp = _GDIPlus_ImageLoadFromFile($sFile)
Global $bW = _GDIPlus_ImageGetWidth($hBmp)
Global $bH = _GDIPlus_ImageGetHeight($hBmp)

;Coded by UEZ build 2023-04-27 beta

#include <Timers.au3>
#include <WinAPIConstants.au3>
#include <WinAPIGdi.au3>
#include <WinAPIProc.au3>
#include <WinAPISys.au3>
#include <WindowsConstants.au3>

Global $HCBT_ACTIVATE = 5, $g_hMsgBoxHook, $g_hMod, $g_hThreadID, $g_hSubMsgBox, $g_SubMsgBox, $g_lPrevWnd, $g_HWND, $g_idTImer, $g_
Global $g_Time = 5

Func _WinAPI_SetDlgItemText($hDlg, $nIDDlgItem, $lpString) ;https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setdlgitemtextw
    Local $aRet = DllCall("user32.dll", "int", "SetDlgItemText", "hwnd", $hDlg, "int", $nIDDlgItem, "str", $lpString)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aRet[0]
EndFunc   ;==>_WinAPI_SetDlgItemText

Func _SubMsgBoxProc($hwnd, $iMsg, $wParam, $lParam)
    Switch $iMsg
        Case $WM_SHOWWINDOW
        Case $WM_CTLCOLORDLG, $WM_CTLCOLORSTATIC
;~             Local $tLOGBRUSH = DllStructCreate("uint lbStyle;long lbColor;ulong_ptr lbHatch")
;~             _WinAPI_SetBkColor($wParam, 0xFEDCBA)
;~             $tLOGBRUSH.lbColor = 0xFEDCBA
;~             DllCall("gdi32.dll", "handle", "CreateBrushIndirect", "struct*", $tLOGBRUSH)
;~             Return 0
        Case $WM_TIMER
            Local $sText = "Exit [" & $g_Time & "]"
            $g_Time -= 1
;~             ControlSetText($g_HWND, "", "[CLASS:Button; INSTANCE:1]", $sText)
            _WinAPI_SetDlgItemText($hWnd, $IDOK + 1, $sText)
            ConsoleWrite($g_Time & @CRLF)

            If $g_Time < 0 Then
                _Timer_KillTimer($g_HWND, $g_idTImer)
                _WinAPI_SetWindowLong($hwnd, $GWL_WNDPROC, $g_lPrevWnd)
                GUIDelete($hwnd)
            EndIf
            Return 0
        Case $WM_DESTROY
            _Timer_KillTimer($g_HWND, $g_idTImer)
            _WinAPI_SetWindowLong($hwnd, $GWL_WNDPROC, $g_lPrevWnd)
    EndSwitch
    Return _WinAPI_CallWindowProc($g_lPrevWnd, $hWnd, $iMsg, $wParam, $lParam)
EndFunc   ;==>_SubMsgBoxProc

Func _CBTHookProc($nCode, $wParam, $lParam)
    If $nCode < 0 Then Return _WinAPI_CallNextHookEx($g_hMsgBoxHook, $nCode, $wParam, $lParam)
    Switch $nCode
        Case $HCBT_ACTIVATE
            $g_HWND = HWnd($wParam)
            If _WinAPI_GetClassName($g_HWND) = "#32770" Then
                $g_idTImer = _Timer_SetTimer($g_HWND, 1000)
                _WinAPI_SetDlgItemText($wParam, $IDOK, "Exit [" & $g_Time & "]")
                $g_lPrevWnd = _WinAPI_SetWindowLong($g_HWND, $GWL_WNDPROC, DllCallbackGetPtr($g_SubMsgBox))
            EndIf
    EndSwitch
    Return _WinAPI_CallNextHookEx($g_hMsgBoxHook, $nCode, $wParam, $lParam)
EndFunc   ;==>_CBTHookProc


$g_SubMsgBox = DllCallbackRegister("_SubMsgBoxProc", "long", "hwnd;uint;wparam;lparam")
$g_MsgProc = DllCallbackRegister("_CBTHookProc", "int", "uint;wparam;lparam")
$g_hMod = _WinAPI_GetModuleHandle(0)
$g_hThreadID = _WinAPI_GetCurrentThreadId()
$g_hMsgBoxHook = _WinAPI_SetWindowsHookEx($WH_CBT, DllCallbackGetPtr($g_MsgProc), Null, $g_hThreadID)
MsgBox(0, "Test", "This is a test message box with a counter!", $g_Time + 2)
_WinAPI_UnhookWindowsHookEx($g_hMsgBoxHook)
_WinAPI_UnhookWindowsHookEx($g_lPrevWnd)
DllCallbackFree($g_SubMsgBox)
DllCallbackFree($g_MsgProc)

;Coded by UEZ build 2023-04-29 beta

#include <Timers.au3>
#include <WinAPIConstants.au3>
#include <WinAPIGdi.au3>
#include <WinAPIProc.au3>
#include <WinAPISys.au3>
#include <WindowsConstants.au3>

Const $HCBT_CREATEWND = 3, $HCBT_DESTROYWND = 4, $HCBT_ACTIVATE = 5, $g_iFlagDefault = BitOR($MB_TOPMOST, $MB_ICONINFORMATION)
Global $g_hMsgBoxHook, $g_hSubMsgBox, $g_idTImer, $g_sBtn1_Txt = "Close", $g_sBtn2_Txt, $g_sBtn3_Txt
Global $g_Timeout = 0

Func _WinAPI_SetDlgItemText($hDlg, $nIDDlgItem, $lpString) ;https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setdlgitemtextw
    Local $aRet = DllCall("user32.dll", "int", "SetDlgItemText", "hwnd", $hDlg, "int", $nIDDlgItem, "str", $lpString)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aRet[0]
EndFunc   ;==>_WinAPI_SetDlgItemText

Func _TimerProc($hwnd, $iMsg, $wParam, $lParam)
    If $g_Timeout <= 1 Then
        WinClose($hwnd)
    Else
        $g_Timeout -= 1
        _WinAPI_SetDlgItemText($hWnd, $IDOK + 1, $g_sBtn1_Txt & " [" & $g_Timeout & "]")
    EndIf
EndFunc   ;==>_TimerProc

Func _CBTHookProc($nCode, $wParam, $lParam)
    If $nCode < 0 Then Return _WinAPI_CallNextHookEx($g_hMsgBoxHook, $nCode, $wParam, $lParam)
    Local Const $hHWND = HWnd($wParam)
    Switch $nCode
        Case $HCBT_ACTIVATE
            If _WinAPI_GetClassName($hHWND) = "#32770" Then
                If $g_Timeout Then $g_idTImer = _Timer_SetTimer($hHWND, 1000, "_TimerProc")
                _WinAPI_SetDlgItemText($wParam, $IDOK, $g_Timeout ? $g_sBtn1_Txt & " [" & $g_Timeout & "]" : $g_sBtn1_Txt)
            EndIf
        Case $HCBT_DESTROYWND
            If _WinAPI_GetClassName($hHWND) = "#32770" Then _Timer_KillTimer($hHWND, $g_idTImer)
    EndSwitch
    Return _WinAPI_CallNextHookEx($g_hMsgBoxHook, $nCode, $wParam, $lParam)
EndFunc   ;==>_CBTHookProc

Func MsgBoxEx($sText, $sTitle = Default, $iTimeout = 0, $iFlag = Default, $sBtn_Txt = Default, $hParentHWND = "")
    If $sBtn_Txt <> Default Then $g_sBtn1_Txt = $sBtn_Txt
    If $iFlag = Default Then $iFlag = $g_iFlagDefault
    $g_Timeout = $iTimeout
    $g_MsgProc = DllCallbackRegister("_CBTHookProc", "int", "uint;wparam;lparam")
    Local Const $hThreadID = _WinAPI_GetCurrentThreadId()
    $g_hMsgBoxHook = _WinAPI_SetWindowsHookEx($WH_CBT, DllCallbackGetPtr($g_MsgProc), Null, $hThreadID)
    If $sTitle = Default Then $sTitle = "Information"
    Local Const $iReturn = MsgBox($iFlag, $sTitle, $sText, $iTimeout, $hParentHWND)
    _WinAPI_UnhookWindowsHookEx($g_hMsgBoxHook)
    DllCallbackFree($g_MsgProc)
    Return $iReturn
EndFunc   ;==>MsgBoxEx

ConsoleWrite(MsgBoxEx("This is a test", "Information", 5) & @CRLF)

#include <WindowsConstants.au3>
#include <WinAPIConstants.au3>
#include <WinAPISys.au3>
#include <WinAPIProc.au3>
#include <Timers.au3>

Global $tagCWPSTRUCT = "long lParam;long wParam;uint message;hwnd hwnd"
Global $HCBT_ACTIVATE = 5, $g_hMsgBoxHook, $g_hMod, $g_hThreadID, $g_hSubMsgBox, $g_SubMsgBox, $g_lPrevWnd, $g_BtnID, $g_HWND, $g_idTImer
Global $g_Time = 5

Func _WinAPI_SetDlgItemText($hDlg, $nIDDlgItem, $lpString) ;https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setdlgitemtextw
    Local $aRet = DllCall("user32.dll", "int", "SetDlgItemText", "hwnd", $hDlg, "int", $nIDDlgItem, "str", $lpString)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aRet[0]
EndFunc   ;==>_WinAPI_SetDlgItemText

Func _SubMsgBoxProc($hwnd, $iMsg, $wParam, $lParam)
    Switch $iMsg
        Case $WM_SHOWWINDOW
        Case $WM_TIMER
            _WinAPI_SetDlgItemText($g_BtnID, $IDOK, "OK [" & $g_Time & "]")
            $g_Time -= 1
            If $g_Time < 0 Then
                _Timer_KillTimer($g_idTImer, $g_HWND)
                _WinAPI_SetWindowLong($hwnd, $GWL_WNDPROC, $g_lPrevWnd)
            EndIf
            Return 0
        Case $WM_DESTROY
            _Timer_KillTimer($g_idTImer, $g_HWND)
            ;_WinAPI_SetWindowLong($hwnd, $GWL_WNDPROC, $g_lPrevWnd)
    EndSwitch
    Return _WinAPI_CallWindowProc($g_lPrevWnd, $hWnd, $iMsg, $wParam, $lParam)
EndFunc

Func _CBTHookProc($nCode, $wParam, $lParam)
    If $nCode < 0 Then Return _WinAPI_CallNextHookEx($g_hMsgBoxHook, $nCode, $wParam, $lParam)
    Local $tCWP = DllStructCreate($tagCWPSTRUCT, $lParam)
    Switch $nCode
        Case $HCBT_ACTIVATE
            $g_HWND = HWnd($wParam)
            If _WinAPI_GetClassName($g_HWND) = "#32770" Then
                $g_idTImer = _Timer_SetTimer($g_HWND, 1000)
                $g_BtnID = HWnd($wParam) ;_WinAPI_GetDlgItem($wParam, 1)
                _WinAPI_SetDlgItemText($g_BtnID, $IDOK, "OK [" & $g_Time & "]")
                $g_lPrevWnd = _WinAPI_SetWindowLong($g_HWND, $GWL_WNDPROC, DllCallbackGetPtr($g_SubMsgBox))
            EndIf
    EndSwitch
    Return _WinAPI_CallNextHookEx($g_hMsgBoxHook, $nCode, $wParam, $lParam)
EndFunc


$g_SubMsgBox = DllCallbackRegister("_SubMsgBoxProc", "long", "hwnd;uint;wparam;lparam")
$g_MsgProc = DllCallbackRegister("_CBTHookProc", "int", "uint;wparam;lparam")
$g_hMod = _WinAPI_GetModuleHandle(0)
$g_hThreadID = _WinAPI_GetCurrentThreadId()
$g_hMsgBoxHook = _WinAPI_SetWindowsHookEx($WH_CBT, DllCallbackGetPtr($g_MsgProc), Null, $g_hThreadID)
MsgBox(0, "Test", "This is a test message box!")
_WinAPI_UnhookWindowsHookEx($g_hMsgBoxHook)
_WinAPI_UnhookWindowsHookEx($g_lPrevWnd)
DllCallbackFree($g_SubMsgBox)
DllCallbackFree($g_MsgProc)