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. funkey

Beiträge von funkey

  • Flimmern bei Labels unterdrücken

    • funkey
    • 25. Oktober 2008 um 15:31

    Von 0 bis 1023 sind doch 1024 Pixel, auch von 0 bis 767 sind auch 768 Pixel ;)
    Das hättest du dir sparen können :P

  • Flimmern bei Labels unterdrücken

    • funkey
    • 25. Oktober 2008 um 15:25

    Das hätte auch geholfen:

    [autoit]

    While 1
    $maus = MouseGetPos()
    If GUICtrlRead($Label2) <> $maus[0] & "/" & @DesktopWidth Then GUICtrlSetData($Label2,$maus[0] & "/" & @DesktopWidth)
    If GUICtrlRead($Label4) <> $maus[1] & "/" & @DesktopHeight Then GUICtrlSetData($Label4,$maus[1] & "/" & @DesktopHeight)
    WEnd

    [/autoit]

    Threads werden hier nicht gelöscht. Einfach ersten Beitrag editieren und auf 'gelöst' stellen.

  • warum wird das gui immer größer?

    • funkey
    • 25. Oktober 2008 um 12:13

    Ich hatte das Problem nicht, da ich ja mit den Einstellungen von Post 2 gearbeitet habe, also einfach Rahmen und Titelleiste wegezählt habe.
    Das hat Progandy ja jetzt elegant gelöst. :thumbup:

  • warum wird das gui immer größer?

    • funkey
    • 25. Oktober 2008 um 11:34

    War diese Frage jetzt ernst gemeint :?:

    [autoit]

    $x = IniRead($ini, "Settings", "x", "0")
    $y = IniRead($ini, "Settings", "y", "0")

    [/autoit]
  • warum wird das gui immer größer?

    • funkey
    • 25. Oktober 2008 um 11:06

    Da wird wohl die Titelleiste irgendwie nicht mitgerechnet, also am besten:

    [autoit]

    IniWrite($ini, "Settings", "w", $WinPos[2]-8)
    IniWrite($ini, "Settings", "h", $WinPos[3]-27)

    [/autoit]
  • Rollover Button aus Bildern?

    • funkey
    • 25. Oktober 2008 um 10:39

    Wieso testest du es nicht einfach?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #include '_MouseHover.au3'

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

    GUICreate("My GUI")
    $Button = GUICtrlCreateButton("my picture button", 10, 20, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 22)

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

    $Pic = GUICtrlCreatePic(@SystemDir & "\oobe\images\backup.jpg", 80, 80,32,32)

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

    _HoverAddCtrl($Button)
    _HoverAddCtrl($Pic)
    AdlibEnable("_ProcessHover", 50)

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

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

    Func _HoverFound($ControlID)
    Switch $ControlID
    Case $Button
    GUICtrlSetImage($Button, "shell32.dll", 23)
    Case $Pic
    GUICtrlSetImage($Pic, @SystemDir & "\oobe\images\backover.jpg")
    EndSwitch
    EndFunc

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

    Func _HoverLost($ControlID)
    Switch $ControlID
    Case $Button
    GUICtrlSetImage($Button, "shell32.dll", 22)
    Case $Pic
    GUICtrlSetImage($Pic, @SystemDir & "\oobe\images\backup.jpg")
    EndSwitch
    EndFunc

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

    Func _ProcessHover()
    $ControlID = _HoverCheck()
    If IsArray($ControlID) Then
    If $ControlID[0] = "AcquiredHover" Then
    _HoverFound($ControlID[1])
    Else
    _HoverLost($ControlID[1])
    EndIf
    EndIf
    EndFunc

    [/autoit]
  • Rollover Button aus Bildern?

    • funkey
    • 25. Oktober 2008 um 09:47

    Die MouseHover-UDF funktioniert ganz gut. Hab mal ein kleines Beispiel zusammengewürfelt. Das sollte die weiterhelfen.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #include '_MouseHover.au3'

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

    GUICreate("My GUI")
    $Button = GUICtrlCreateButton("my picture button", 10, 20, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 22)

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

    _HoverAddCtrl($Button)
    AdlibEnable("_ProcessHover", 50)

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

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

    Func _HoverFound($ControlID)
    Switch $ControlID
    Case $Button
    GUICtrlSetImage(-1, "shell32.dll", 23)
    EndSwitch
    EndFunc

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

    Func _HoverLost($ControlID)
    Switch $ControlID
    Case $Button
    GUICtrlSetImage(-1, "shell32.dll", 22)
    EndSwitch
    EndFunc

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

    Func _ProcessHover()
    $ControlID = _HoverCheck()
    If IsArray($ControlID) Then
    If $ControlID[0] = "AcquiredHover" Then
    _HoverFound($ControlID[1])
    Else
    _HoverLost($ControlID[1])
    EndIf
    EndIf
    EndFunc

    [/autoit]
  • Random Zufällige Kombination aus Zahlen

    • funkey
    • 25. Oktober 2008 um 08:13
    [autoit]

    Send(Random(1000, 9999,1))

    [/autoit]
  • Endlich Fortgeschritten

    • funkey
    • 23. Oktober 2008 um 20:28

    Willkommen im Club! :D

  • Zwei GUIs

    • funkey
    • 23. Oktober 2008 um 19:50

    Der Button2 wird ja nur bedingt erstellt wenn $checkbox1_6 = 1, aber wenn das nicht der Fall ist und trotzdem $Button2 abgefragt wird (Case $Button2), dann kommt es natürlich zu einem Fehler. Am besten ist immer alle Controls erstellen und bei Bedarf sichtbar oder unsichtbar zu machen.

  • Bildschirm abschalten für jedermann

    • funkey
    • 23. Oktober 2008 um 19:07

    Kurze Erklärung: :D Die Variablennamen sind etwas unglücklich gewählt (mir viel nichts besseres ein)

    Ausschaltzyklus = 3 bedeutet, dass falls der Bildschirm reaktiviert wurde (irgendeine Taste oder Maus), dass alle 3 Minuten ein Power_off gesendet wird.
    Dauer_aus (entweder 1 oder 0) bestimmt, ob der Bildschirm überhaupt reaktiviert werden kann.

    Hotkeys: Strg+Alt+q zum Beenden des Programmes
    Strg+Alt+m zum sofortigen Abschalten des Monitors bis zur eingestellten Einschaltzeit.

  • Bildschirm abschalten für jedermann

    • funkey
    • 23. Oktober 2008 um 18:51

    Ich habe mir das Skript jetzt umgebaut so wie ich es brauche. Bei einem PC soll zu einer bestimmten Zeit der Monitor ausgeschaltet werden und zu einer bestimmten Zeit auch wieder ein. Funktioniert super. Einstellungen können über eine Ini-Datei vorgenommen weden.

    Monitor.au3

    Spoiler anzeigen
    [autoit]

    #include <SendMessage.au3>
    ;~ #NoTrayIcon
    Opt("TrayMenuMode", 1)
    Opt("WinTitleMatchMode", 4)

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

    Global $Off = 2, $On = -1
    Global $Ausschaltzyklus = IniRead("Monitor.ini","Allgemein","Ausschaltzyklus", "2")
    Global $Dauer_aus = IniRead("Monitor.ini","Allgemein","Dauer_aus", "0")

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

    HotKeySet("^!q","Ende")
    HotKeySet("^!m","Test")

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

    $hwnd = WinGetHandle('classname=Progman')

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

    $Hour_off = IniRead("Monitor.ini","aus","Stunde", "23")
    $Min_off = IniRead("Monitor.ini","aus","Minute", "30")
    $Sec_off = IniRead("Monitor.ini","aus","Sekunde", "00")

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

    $Hour_on = IniRead("Monitor.ini","ein","Stunde", "05")
    $Min_on = IniRead("Monitor.ini","ein","Minute" , "00")
    $Sec_on = IniRead("Monitor.ini","ein","Sekunde", "00")

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

    While 1
    If $Hour_off = @HOUR And $Min_off = @MIN And $Sec_off = @SEC Then
    $Status = "aus"
    _Monitor_off($Hour_on, $Min_on, $Sec_on)
    EndIf
    Sleep(500)
    WEnd

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

    Func _Monitor_off($Hour, $Min, $Sec)
    $i = 0
    Do
    If $i < 20 Then ;nur 10 Sekunden lang ausschalten, danach sind die Monitore sowieso aus
    _ToggleMonitor($hWnd, $Off)
    If $Dauer_aus = 0 Then $i +=1
    EndIf
    Sleep(500)
    If Mod(@MIN, $Ausschaltzyklus) = 0 And @SEC = "00" Then $i = 0
    Until $Hour = @HOUR And $Min = @MIN And $Sec = @SEC
    $Status = "ein"
    _ToggleMonitor($hWnd, $On)
    EndFunc

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

    Func _ToggleMonitor($hwnd, $OnOff)
    Local Const $WM_SYSCOMMAND = 274
    Local Const $SC_MONITORPOWER = 61808
    _SendMessage ($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
    If @error Then
    MsgBox(0,"_ToggleMonitor", "_SendMessage Error: " & @error)
    Exit
    EndIf
    EndFunc

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

    Func Test()
    $Status = "aus"
    _Monitor_off($Hour_on, $Min_on, $Sec_on)
    EndFunc

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

    Func Ende()
    _ToggleMonitor($hWnd, $On)
    Exit
    EndFunc

    [/autoit]

    Monitor.ini

    Spoiler anzeigen
    Code
    [aus]
    Stunde = 15
    Minute = 18
    Sekunde = 00
    
    
    [ein]
    Stunde = 15
    Minute = 20
    Sekunde = 00
    
    
    [Allgemein]
    Ausschaltzyklus = 3
    Dauer_aus = 1
    Alles anzeigen

    Unter Tags darf der Bildschirm nicht dunkel werden und nachts muss er dunkel werden.

  • Konvertertool - Ordner übergreifend sauber Dateien suchen und auflisten

    • funkey
    • 23. Oktober 2008 um 13:36

    Es fehlt das EndIf für das erste If. Es kommt wahrsxcheinlich vor das WEnd.

  • Auf Strg+Mausklick warten

    • funkey
    • 23. Oktober 2008 um 12:59

    Hallo und willkommen Born_chilla

    [autoit]

    #Include <Misc.au3>
    $dll = DllOpen("user32.dll")

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

    While 1
    If _IsPressed("01", $dll) And (_IsPressed("A2", $dll) Or _IsPressed("A3", $dll)) Then
    MsgBox(64,"Super","Es wurde Strg+Klick dedrückt! :)")
    ExitLoop
    EndIf
    Sleep(100)
    WEnd

    [/autoit]
  • GuiCtrListView SubItem suchen und Zeile zurückgeben

    • funkey
    • 23. Oktober 2008 um 12:27

    Mit _GUICtrlListView_GetItemText könntest du dir was basteln.

  • Inhalte der ini-Dateien ersetzten ?

    • funkey
    • 22. Oktober 2008 um 17:40

    Einfach

    [autoit]

    IniWrite($inifile,$section,"SR_PRJ", "C:/")

    [/autoit]
  • Serial/Lizenz.

    • funkey
    • 22. Oktober 2008 um 16:54

    Das denke ich nicht. SEIN Programm holt die Seriennummer beim Keygen ab und soll es bei einer Installation direkt ins Setup-Programm eintragen. Sowas wird hier nicht unterstützt!

  • PDF´s in Reihenfolge drucken.

    • funkey
    • 22. Oktober 2008 um 16:51

    Du könntest bei der Funktion _printpdf RunWait anstelle von Run verwenden. Ich hoffe, dass das hilft.

  • fertige GUI funktioniert nicht mehr

    • funkey
    • 22. Oktober 2008 um 14:15

    Das 2., 3. und 4. If sollte auch ElseIf heißen.

  • Bug bei verwenden der Shift Taste

    • funkey
    • 22. Oktober 2008 um 11:06

    Hallo Bugfix. Ich hatte gerade was ähnliches vor. Mit diesem Beispiel sieht man, dass die linke und die rechte Shifttaste vom Send-Befehl nicht so interpretiert werden, wie sie sollten.
    Es verhält sich sehr eigenartig, wenn man einen der Send-Befehle aktiviert, aber auch ohne sie zu aktivieren nur durch Tasten drücken wird auch manchmal der Ascii-Code 10 interpretiert.?

    [autoit]

    #Include <Misc.au3>
    While 1
    ;~ Send("{LSHIFT}")
    ;~ Send("{RSHIFT}")
    If _IsPressed("10") Then ToolTip("Allgemeine Shift-Taste wurde gesendet")
    If _IsPressed("A0") Then ToolTip("Linke Shift-Taste wurde gedrückt")
    If _IsPressed("A1") Then ToolTip("Rechte Shift-Taste wurde gedrückt")
    If _IsPressed("1B") Then ExitLoop
    WEnd

    [/autoit]

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™