1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Greenhorn

Beiträge von Greenhorn

  • Minimieren eines Fensters nicht möglich

    • Greenhorn
    • 18. September 2022 um 15:37

    Hallo Schadi,

    vielleicht liegt es an WinActivate

    Probiere es doch einmal so:

    Code
    $dom = WinGetHandle ("[CLASS:TfrmMain; REGEXPTITLE:(?i)(.*domizil.*)]")
    
    If ($dom = 0) Then
        RUN("\\srvwsgdz01\DomizilPlus\bin\DomizilNetzwerkStarter.exe -PROFIL:DomizilPlus -MANDANT:WSG")
        $dom = WinWait("[CLASS:TfrmMain; REGEXPTITLE:(?i)(.*domizil.*)]","")
        Sleep(4500)
    EndIf
    
    WinSetState($dom, "", @SW_RESTORE)
    
    ControlFocus($dom, "", "[CLASS:TnetEdit]")
    
    ; ...
    Alles anzeigen

    Wenn das auch nicht helfen sollte, dann vielleicht ein WinSetState ($dom, "", @SW_ENABLE) am Ende der Funktion Domizil.

    Beste Grüße

    Greenhorn

  • Ich muss lernen NEIN zu sagen.

    • Greenhorn
    • 9. Juni 2022 um 16:27
    Zitat von Alina


    Und was Ü-Std. betrifft, muss ich echt lernen NEIN zu sagen. Aber wenn ich ehrlich bin, weiß ich nicht ob ich das hinbekomme.

    Aus eigener Erfahrung kann ich Dir nur empfehlen, dass Du das auf die Kette bringen solltest.

    Wenn Du erstmal einen fetten Burn-out hast, ist es zu womöglich zu spät. Und danken wird es Dir niemand, ganz im Gegenteil.

    Mir ging es genauso, konnte auch nie Nein sagen und hatte immer das Gefühl, dass ich zu wenig gemacht habe. Bis es dann irgendwann gekracht hat. Hinzu kam noch ein starker Vitamin-D und Magnesiummangel. Nachdem ich angefangen hatte beides zu supplementieren ging es langsam wieder besser. Bin aber nur durch Zufall darauf gekommen. Zum Glück.

    Zitat von Musashi

    Arbeit gibt es immer, die Lebenszeit jedoch ist begrenzt und wird mit fortschreitendem Alter zunehmend kostbar.

    Sehr weise Worte, kann man nicht oft genug betonen.

    Leider geht der Trend immer mehr in die Richtung, dass Arbeitszeit und Freizeit miteinander verschmelzen, Stichwort 'Digitalisierung' oder 'Home-Office'. Auch hier ist der Burn-out vorprogrammiert.

    Beste Grüße

    Greenhorn

  • Verhindern, dass Fenster Größe ändert bei Ziehen an Bildschirmrand

    • Greenhorn
    • 10. November 2020 um 22:23

    Hi BugFix,

    ich habe festgestellt, dass bei Win+Up in der WINDOWPOS Struktur das Flag 0x00008000 gesetzt ist. Dies scheint ein undokumentiertes Flag zu sein.

    Code
    If $_iMsg = $WM_WINDOWPOSCHANGING Then
        ; ...
        If (BitAND($tWINDOWPOS.flags, 0x00008000)) Then _
            GUISetState(@SW_RESTORE)        ; This does the trick...
    
        Return 0 ; avoid default window processing

    LG

    Greenhorn

  • Verhindern, dass Fenster Größe ändert bei Ziehen an Bildschirmrand

    • Greenhorn
    • 7. November 2020 um 23:27

    Hallo BugFix,

    die WM_MOVING wird beim ziehen der Titelleiste gesendet und Du kannst über die RECT Struktur die Position des Fensters prüfen und ändern.

    WM_MOVING message

    Die WM_SIZING wird nur gesendet, wenn der Rahmen gezogen wird, bzw. die Größe geändert wird.

    Edit: Ich benutze meist die WM_WINDOWPOSCHANGING um die Fensterposition und -größe zu kontrollieren, aber cih denke die WM_MOVING ist in diesem Fall vllt besser geeignet.


    LG

    Greenhorn

  • Context Menu Button mit Scrollbar oder vergrößern

    • Greenhorn
    • 10. Oktober 2020 um 21:53

    Hi,

    hier mal ein Ansatz:

    C
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiListBox.au3>
    #include <GuiMenu.au3>
    #include <MsgBoxConstants.au3>
    #include <WindowsConstants.au3>
    
    Global $idMenuItem [60]
    Global $idLB = 100
    Global $hwndLB = 0
    
    
    $hGUI = GUICreate("Test", 400, 600, 0, 0)
    
    $hwndLB = _WinAPI_CreateWindowEx ( _
                BitOR ($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW), "ComboLBox", "", _
                BitOR ($LBS_NOTIFY, $LBS_COMBOBOX, $WS_BORDER, $WS_CLIPSIBLINGS, $WS_CHILD, $WS_VSCROLL), _
                450, 0, 250, 500, _
                $hGUI, $idLB, _
                _WinAPI_GetModuleHandle (0), _
                0 _
                )
    
    _GUICtrlListBox_BeginUpdate($hwndLB)
    For $i = 1 To 60
       _GUICtrlListBox_AddString($hwndLB, StringFormat("%03d : Random string", Random(1, 100, 1)))
    Next
    _GUICtrlListBox_EndUpdate($hwndLB)
    
    _WinAPI_SetParent ($hwndLB, 0)
    
    
    #Region Button
    
    $1bh = GUICtrlCreateButton("Test 1", 100, 118, 60, 40)
    $1Context = GUICtrlCreateContextMenu($1bh)
    
    For $i = 0 To UBound ($idMenuItem) - 1
        $idMenuItem[$i] = GUICtrlCreateMenuItem(StringFormat ("Line Test %d", Random (1, 5)), $1Context)
    Next
    GUICtrlSetFont($1bh, 8.5, 500, 0, "")
    #EndRegion Button
    
    
    GUISetState(@SW_SHOW)
    
    While 1
        Sleep(10)
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $1bh
                _WinAPI_ShowWindow ($hwndLB, @SW_SHOWDEFAULT)
                ;ShowMenu($hGUI, $nMsg, $1Context)
            Case $idMenuItem[0] To $idMenuItem[ UBound ($idMenuItem) - 1]
                GUICtrlSetData($1bh, _GUICtrlMenu_GetItemText (GUICtrlGetHandle($1Context), $idMenuItem[$nMsg], 0))
        EndSwitch
    WEnd
    
    #Region Func
    Func ShowMenu($hWnd, $CtrlID, $nContextID)
        Local $arPos, $x, $y
        Local $hMenu = GUICtrlGetHandle($nContextID)
    
        $arPos = ControlGetPos($hWnd, "", $CtrlID)
    
        $x = $arPos[0]
        $y = $arPos[1] + $arPos[3]
    
        ClientToScreen($hWnd, $x, $y)
        TrackPopupMenu($hWnd, $hMenu, $x, $y)
     EndFunc   ;==>ShowMenu
    ; Convert the client (GUI) coordinates to screen (desktop) coordinates
    Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
        Local $stPoint = DllStructCreate("int;int")
    
        DllStructSetData($stPoint, 1, $x)
        DllStructSetData($stPoint, 2, $y)
    
        DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))
    
        $x = DllStructGetData($stPoint, 1)
        $y = DllStructGetData($stPoint, 2)
        ; release Struct not really needed as it is a local
        $stPoint = 0
    EndFunc   ;==>ClientToScreen
    ; Show at the given coordinates (x, y) the popup menu (hMenu) which belongs to a given GUI window (hWnd)
    Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
        DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
    EndFunc   ;==>TrackPopupMenu
    #EndRegion Func
    Alles anzeigen

    Den Rest musst Du Dir zusammenbasteln ...

    LG

    Greenhorn

  • Button in Programmschleife richtig abfragen !?!?

    • Greenhorn
    • 10. Oktober 2020 um 20:35

    Hi, sorry, hatte damals nur flüchtig drübergeschaut und wollte auf den Konflikt zwischen Event-Mode und Nachrichtenschleife hinweisen.

    Wie auch immer, die anderen haben ja bereits erklärt wo der Wurm drin ist.

    So sollte es dann wirklich laufen:

    C
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <AutoItConstants.au3>
    #include <FileConstants.au3>
    #include <MsgBoxConstants.au3>
    
    ; Register OnAutoItExit to be called when the script is closed.
    OnAutoItExitRegister("OnAutoItExit")
    
    Opt("GUIOnEventMode", 1)
    
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Netzwerk Test Terminal", 1357, 864, 300, 120)                                ;Programmfenster
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    
    
    $Edit1 = GUICtrlCreateEdit("", 104, 88, 873, 529)                                                ;Ergebnistestfeld
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart
    
    $IP_Adress = GUICtrlCreateLabel("IP Adresse", 104, 50, 92, 20)                                    ;Label IP Adresse
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart
    $TextBox_IP_Adress = GUICtrlCreateEdit("", 200, 50, 209, 20, $ES_WANTRETURN)                    ;Eingabefeld IP Adresse
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart
    
    $Port = GUICtrlCreateLabel("Port", 427, 50, 40, 20)                                                ;Label Port
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart
    $TextBox_Port = GUICtrlCreateEdit("", 475, 50, 113, 20, $ES_WANTRETURN)                            ;Eingabefeld Port
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart
    
    $Button_Start_Client = GUICtrlCreateButton("Client Start", 616, 40, 121, 33)                    ;Button Start Client
    GUICtrlSetOnEvent(-1, "ClientStart")
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")                                                    ;Schriftart
    
    $Button_Stop_Client = GUICtrlCreateButton("Client Stopp", 752, 38, 121, 33)                        ;Button Stopp Client
    GUICtrlSetOnEvent(-1, "ClientStop")
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")                                                    ;Schriftart
    
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    
    ;----------------------------------------------------Globale Variablen --------------------------------------------------------------------------
    
    Global $bClientStop = 0
    
    ;--------------------------------------------------- Programmschleife ---------------------------------------------------------------------------
    While 1
        Sleep (100)
    WEnd
    
    ;---------------------------------------------------   Example     ----------------------------------------------------------------------------
    
    Func Example()
    
        TCPStartup() ; Start the TCP service.
    
        ;Adresseingabe des Servers
        Local $sIPAddress = GUICtrlRead($TextBox_IP_Adress)                            ;Server IP-Adresseingabe von Textfeld
        Local $iPort = GUICtrlRead($TextBox_Port)                                     ;Porteingabe von Textfeld
    
        ; Assign a Local variable the socket and connect to a listening socket with the IP Address and Port specified.
        Local $iSocket = TCPConnect($sIPAddress, $iPort)
        Local $iError = 0
    
        ; If an error occurred display the error code and return False.
        If @error Then
            ; The server is probably offline/port is not opened on the server.
            $iError = @error
            MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Client:" & @CRLF & "Could not connect, Error code: " & $iError)
            Return False
        EndIf
    
        ; Assign Locales Constant variables the number representing 4 KiB; the binary code for the end of the file and the length of the binary code.
        Local Const $i4KiB = 4096
        Local Const $bEOF = Binary(@CRLF & "{EOF}")
        Local Const $iEOFLen = BinaryLen($bEOF)
    
        ; Assign a Local variable the empty binary data which will contain the binary data of the file.
        Local $bData = Binary("")
    
        ; Assign a Local variable to store the length of the data received.
        Local $iDataLen = 0
    
        Do
            $bData = TCPRecv($iSocket, $i4KiB, $TCP_DATA_BINARY)
    
            ; If an error occurred display the error code and return False.
            If @error Then
                $iError = @error
                MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Client:" & @CRLF & "Connection lost, Error code: " & $iError)
                Return False
            EndIf
    
            $iDataLen = BinaryLen($bData)
    
             ; If nothing is received, retry for the incoming data.
            If $iDataLen = 0 Then ContinueLoop
    
            TextboxWrite(BinaryToString($bData), $Edit1)
    
        Until $bClientStop
        $bClientStop = 0
    
        ; Close the socket.
        TCPCloseSocket($iSocket)
    EndFunc   ;==>Example
    
    Func OnAutoItExit()
        TCPShutdown() ; Close the TCP service.
    EndFunc   ;==>OnAutoItExit
    
    
    ;---------------------------------- Schreibfunktion in Textfeld ---------------------------------------------------------------------
    
    ; Write a line to the memo control
    Func TextboxWrite($sMessage, $idTextfeld)
          GUICtrlSetData($idTextfeld, $sMessage & @CRLF, 1)                    ;Funktion zum Anzeigen der in $sMessage übergebenen Nachricht an in $idTextfeld angegebenes Textfeld
    EndFunc
    
    Func ClientStart()
        TextboxWrite(GUICtrlRead($TextBox_IP_Adress),$Edit1)
        TextboxWrite(GUICtrlRead($TextBox_Port),$Edit1)
        Example()
    EndFunc
    
    Func ClientStop()
        $bClientStop = 1
    EndFunc
    
    Func _Exit()
        ClientStop()
        Exit
    EndFunc
    Alles anzeigen

    LG

    Greenhorn

  • Button in Programmschleife richtig abfragen !?!?

    • Greenhorn
    • 7. September 2020 um 22:41

    Hallo Jochen,

    Zeile 42 auskommentieren und Zeile 59 in Zeile 9 verschieben, dann sollte es klappen.


    Gruß

    Greenhorn

  • Grafik in exe

    • Greenhorn
    • 11. Mai 2020 um 00:23

    Moin,

    ist doch eigentlich ganz einfach.

    AutoIt
    #AutoIt3Wrapper_Res_Icon_Add="ICON8034_1.ico", 201    ; Use values above 200
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    
    
    Example()
    
    Func Example()
        GUICreate("My GUI") ; will create a dialog box that when displayed is centered
    
        GUICtrlCreateButton("my picture button", 10, 20, 40, 40, $BS_ICON)
        GUICtrlSetImage(-1, @ScriptFullPath, 201)
    
        GUISetState(@SW_SHOW)
    
        ; Loop until the user exits.
        While 1
            Switch GUIGetMsg()
                Case $GUI_EVENT_CLOSE
                    ExitLoop
    
            EndSwitch
        WEnd
    EndFunc   ;==>Example
    Alles anzeigen

    VG

    Greenhorn

  • Explorer halber Bildschirm

    • Greenhorn
    • 4. Januar 2020 um 21:49

    Wenn ich Dich richtig verstanden habe, dann suchst Du nach einem Weg die Breite des Fensterrahmens zu ermitteln um die Fensterposition ggf. anzupassen.

    Das Mitglied cxWindowBorders der WINDOWINFO Struktur sollte die (wirkliche) Breite des Fensterrahmens enthalten. ;)

  • Explorer halber Bildschirm

    • Greenhorn
    • 4. Januar 2020 um 15:21

    Moin Tweaky,

    versuche es mal mit _WinAPI_GetWindowPlacement. Da sollten die korrekten Werte enthalten sein.

    Edit: Sorry, meinte _WinAPI_GetWindowInfo ... WINDOWINFO structure

    Gruß

    Greenhorn

  • StringRegExp Beginnt nicht mit

    • Greenhorn
    • 26. Oktober 2019 um 22:44

    Hi Tweaky,

    in Deinem Beispielskript gibt es keinen String der nicht mit "IMG-" beginnt ... 8o

    Das hier funktioniert für mich:

    C
    #Region    ;************ Includes ************
    #include <Array.au3>
    #EndRegion ;************ Includes ************
    
    $sFileName = "MRU-987654321"&@CRLF&"IMG-1232343"&@CRLF&"ILG-369852147"&@CRLF&"imf-741852963"
    
    $aTest = StringRegExp($sFileName, "(?m)(?i)^(?!img-)\N*", 3)
    _ArrayDisplay($aTest)

    LG

    Greenhorn

    Edit und p.s.: Die Frage ist natürlich auch: Wie liegt der Teststring vor ? Getrennt durch Leerzeichen, Zeilenumbruch, et. ?

  • _WinAPI_BitBlt und Ausgabe in Bild-Datei

    • Greenhorn
    • 8. Februar 2014 um 23:22

    Moin,

    habe nichts zum Testen, aber damit solltest Du ein wenig herumspielen ...

    [autoit]


    Global Const $WM_PRINT = 0x0317
    Global Const $WM_PRINTCLIENT = 0x0318

    [/autoit][autoit][/autoit][autoit]

    Global Const $PRF_CHECKVISIBLE = 0x00000001
    Global Const $PRF_NONCLIENT = 0x00000002
    Global Const $PRF_CLIENT = 0x00000004
    Global Const $PRF_ERASEBKGND = 0x00000008
    Global Const $PRF_CHILDREN = 0x00000010
    Global Const $PRF_OWNED = 0x00000020

    [/autoit][autoit][/autoit][autoit]

    ; ...

    [/autoit][autoit][/autoit][autoit]

    Local $hDC = _WinAPI_GetDC($GUI_Graph)
    Local $hMemDC = _WinAPI_CreateCompatibleDC($hDC)
    Local $memBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $GraphSizeX, $GraphSizeY)
    _WinAPI_ReleaseDC($hDC) ; richtig
    Local $hObj = _WinAPI_SelectObject($hMemDC, $memBitmap)
    ;~ _WinAPI_BitBlt($hMemDC, 0, 0, $GraphSizeX, $GraphSizeY, $hDC, 0, 0, $SRCCOPY)

    [/autoit][autoit][/autoit][autoit]

    _SendMessage ($GUI_Graph, $WM_PRINT, $hMemDC, $PRF_CLIENT)

    [/autoit][autoit][/autoit][autoit]

    $hBmp = _GDIPlus_BitmapCreateFromHBITMAP($memBitmap)
    _GDIPlus_ImageSaveToFile($hBmp, @ScriptDir &"\test.jpg")
    _WinAPI_DeleteDC($hMemDC)
    _WinAPI_DeleteObject($memBitmap)
    ;~ _WinAPI_DeleteDC($hDC) fehler!

    [/autoit]


    Edit: Nachrichtenkonstanten nachgetragen ...
    Edit 2: Fehlerbereinigung
    Edit 3: ...

  • Ascii anzeigen ... aber wie ?

    • Greenhorn
    • 23. September 2013 um 20:14
    Zitat von WhiteLion

    ... im editfeld geht das ganze ja leider nicht.
    notepad++ kann es ... wie löse ich das problem ?

    Warum sollte das nicht gehen ?

    [autoit]

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

    [/autoit][autoit][/autoit][autoit]

    Global $iWidth = 600
    Global $iHeight = 400

    [/autoit][autoit][/autoit][autoit]

    Global $hGui = GUICreate("Test", $iWidth, $iHeight)
    Global $idEdit = GUICtrlCreateEdit ("", 0, 0, $iWidth, $iHeight)
    GUICtrlSetResizing ($idEdit, $GUI_DOCKBOTTOM + $GUI_DOCKRIGHT)
    GUICtrlSetFont ($idEdit, 10.5, 400, 0, "Terminal")
    GUICtrlSetData ($idEdit, FileRead (".\bomb_ascii.txt"))
    GUICtrlSetState ($idEdit, $GUI_FOCUS)
    GUISetState()

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    While GUIGetMsg() <> -3
    WEnd

    [/autoit]
  • Win 7 Bibliotheken nach D: verschieben

    • Greenhorn
    • 16. September 2013 um 21:08

    Das sollte eigentlich funktionieren ...
    ( ungetestet ! )

    [autoit]

    #include <Constants.au3>

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $sKeyName = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"

    [/autoit][autoit][/autoit][autoit]

    ;~ $sDownloads = RegRead ($sKeyName, "{374DE290-123F-4565-9164-39C4925E467B}")
    $sMyMusic = RegRead ($sKeyName, "MyMusic")
    $sMyPictures = RegRead ($sKeyName, "MyPictures")
    $sMyVideos = RegRead ($sKeyName, "MyVideos")
    $sPersonal = RegRead ($sKeyName, "Personal")

    [/autoit][autoit][/autoit][autoit]

    ;~ RegWrite ($sKeyName, "{374DE290-123F-4565-9164-39C4925E467B}", "REG_EXPAND_SZ", "D:\Zielverzeichnis\Downloads")
    RegWrite ($sKeyName, "MyMusic", "REG_EXPAND_SZ", "D:\Zielverzeichnis\Music")
    RegWrite ($sKeyName, "MyPictures", "REG_EXPAND_SZ", "D:\Zielverzeichnis\Pictures")
    RegWrite ($sKeyName, "MyVideos", "REG_EXPAND_SZ", "D:\Zielverzeichnis\Videos")
    RegWrite ($sKeyName, "Personal", "REG_EXPAND_SZ", "D:\Zielverzeichnis\Documents")

    [/autoit][autoit][/autoit][autoit]

    DirCreate ("D:\Zielverzeichnis\\")

    [/autoit][autoit][/autoit][autoit]

    ;~ DirMove ($sDownloads, "D:\Zielverzeichnis\\", $FC_OVERWRITE)
    DirMove ($sMyMusic, "D:\Zielverzeichnis\\", $FC_OVERWRITE)
    DirMove ($sMyPictures, "D:\Zielverzeichnis\\", $FC_OVERWRITE)
    DirMove ($sMyVideos, "D:\Zielverzeichnis\\", $FC_OVERWRITE)
    DirMove ($sPersonal, "D:\Zielverzeichnis\\", $FC_OVERWRITE)

    [/autoit]

    Wenn Du die Quellordner selbst auch umbenennen möchtest, z.B. "Pictures" zu "Bilder", dann kann es sein, dass Du noch ein paar andere Registrierungseinträge für die Bibliotheken ändern musst.

    EDIT: Hat die Quelltextformatierung doch glatt die abschließenden Backslashes unterschlagen ...

  • GDI auf Titelleiste

    • Greenhorn
    • 4. August 2013 um 15:50
    Zitat von Bluesmaster

    Wie kann ich erreichen, das Windows erst den Standard-Rahmen zeichnet auf den ich dann etwas drauf zeichne?
    ...
    Scheinlösungen wie Overlay-Windows die dem Fenster folgen usw würde ich gern vermeiden.


    Falls Du mit "Standard-Rahmen" Aero-Glass meinst, dann wirst Du hier fündig:
    Custom Window Frame Using DWM

  • Sound so lange abspielen bis MSGBox bestätigt

    • Greenhorn
    • 12. Juli 2013 um 18:47
    [autoit]

    Global Const $SND_ASYNC = 0x01
    Global Const $SND_LOOP = 0x08

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    PlaySound ("Windows Exclamation.wav", 0, BitOR($SND_LOOP, $SND_ASYNC))
    MsgBox (64, "Neues Fenster", "blablabla")
    PlaySound ("", 0, 0)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Func PlaySound ($pszSound, $hmod, $fdwSound)

    [/autoit][autoit][/autoit][autoit]

    Local $ret = DllCall ("Winmm.dll", "BOOL", "PlaySoundW", "wstr", $pszSound, "HANDLE", $hmod, "DWORD", $fdwSound)
    Return $ret[0]

    [/autoit][autoit][/autoit][autoit]

    EndFunc

    [/autoit]

    Grüße
    Greenhorn

  • _GDI_Plus Ressourcen Freigeben Problem

    • Greenhorn
    • 21. Mai 2013 um 18:47
    Zitat von SchrotterChwebnode


    ... habe ich auch schon versucht hat leider nichts genützt :/ geht so mit nur langsamer hoch aber verhält sich trozdem steigend


    Dann hast Du evtl. irgendwo einen Teil übersehen.
    Auf jeden Fall musst Du die Ressourcen mit _LEDTXT_Destroy wieder freigeben, bevor Du mit _LEDTXT_Create_Gdi(Plus) neue Ressourcen anforderst.

    Zitat von SchrotterChwebnode


    hatte auch versucht mit GUIDelete das komplette gui zu löschen und danach neu zu erstellen aber da habe ich dann andere Probleme ...


    Das wird nichts bringen, da die Ressourcen nicht mit AutoIt-eigenen Funktionen angefordert wurden.

    Führe Dein Skript doch einmal ohne die LED... Funktionen aus, und beobachte, ob es wirklich an den Funktionen liegt. Vielleicht liegt der Hase ganz woanders im Pfeffer ... ;)


    Gruß
    Greenhorn

  • _GDI_Plus Ressourcen Freigeben Problem

    • Greenhorn
    • 21. Mai 2013 um 14:59

    Hi,

    Du musst mit _LEDTXT_Destroy ( ) die Ressourcen wieder freigeben.
    Ich denke mal daran wird es liegen ...


    Grüße
    Greenhorn

  • Problem mit der neuen SciTE-Version

    • Greenhorn
    • 3. Mai 2013 um 16:31

    Hi BigRox,

    zuerst einmal: Ja, die 3er Version ist einfach nur Kacke.

    Das Problem liegt natürlich an SciTE. Wenn Du den Dialog mit "Ja" ( Speichern ) abnickst scheint SciTE erst ein Return auf die WM_QUERYENDSESSION zu geben und dann erst zu versuchen die Datei zu speichern.

    Am besten mal im EN Forum Jos darauf ansprechen ...


    Grüße
    Greenhorn

  • Mein INPUT RECORD struct stimmt unter 64bit wohl nicht - bitte mal drüberschauen

    • Greenhorn
    • 27. April 2013 um 22:20

    Die WinCon.inc ist nicht im Ms SDK enthalten. Diese Datei ist für Assembler gedacht und gemacht.

    Ein Array aus Strukturen machst Du ganz einfach so:

    [autoit]


    Global Const $tagKEYEVENTREC = "bool bKeyDown;word wRepeatCount; word wVirtualKeyCode; word wVirtualScanCode; wchar UnicodeChar; dword dwKontrolKeyState;"
    Global Const $tagINPUT_RECORD = "align 4;WORD evtyp;" & $tagKEYEVENTREC

    [/autoit][autoit][/autoit][autoit]

    Global $tInp = DllStructCreate($tagINPUT_RECORD&$tagINPUT_RECORD) ; Array mit zwei Elementen

    [/autoit]


    Aber eigentlich sollte auch eine einfache Struktur ausreichen.

    Zitat

    Die betroffene Routine ist in dem Post über deinem ;-))


    Ich dachte da eher an ein ausführbares Beispiel ;)

    Grüße
    Greenhorn

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™