Beiträge von Darter

  • Funktionsaufruf

    ich hab mal pausen reingesetzt, damit das tooltip überhaupt angezeigt wird.

    Wenn du $variable = Deine Func() machst wird in der variable nachdem er die func einmal durchlaufen hat eine 0 stehen, da das standardmäßig so ist. mit Return kann man diese wert veränder. Das ändert aber nichts an der Tatsache, dass nicht die Funktion in der Variablen gespeichert wird; weshalb das so nicht funktioniert.
    machste du es aber si geht es :

    Spoiler anzeigen
    [autoit]

    Meldung() ; Funtioniert
    Sleep(4000)
    Execute("Meldung()") ; Dies jetzt auch ^^
    Func Meldung()
    ToolTip("Meldung")
    Sleep(4000)
    EndFunc

    [/autoit]

  • Letzte Erinnerung - Die Rache der verlorenen Seelen [2D-RPG]

    hab mal schnell ne kleinigkeit zusammengebastelt. Aber das ist schon besser als deins :D

    Spoiler anzeigen
    [autoit]

    #Include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>
    #Include <Misc.au3>

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

    $change = 1
    $change2 = 1
    $title = "Meine GUI"

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

    $test2 = GUICreate($title, 250, 88,@DesktopWidth-250,0,$WS_POPUP)
    $winhandle = WinGetHandle($test2)
    ;GUICtrlCreatePic("bilder/hintergrund3.gif",0,0,250,88)
    $test = GUICtrlCreatePic("bilder/button.gif",220,0,28,10)
    ;GUISetBkColor(0xFF3F5C)

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

    GUISetState()
    ;WinsetOnTop($test,"",1)
    _GDIPlus_Startup()
    $hGraphics = _GDIPlus_GraphicsCreateFromHWND($winhandle)
    $hImage_hintergrund = _GDIPlus_BitmapCreateFromFile("bilder/hintergrund3.gif")
    ;$hImage_Button_normal = _GDIPlus_BitmapCreateFromFile("bilder/button.gif")
    ;$hImage_Button_hover = _GDIPlus_BitmapCreateFromFile("bilder/button2.gif")
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_hintergrund, 0,0,250,88)
    ;_GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_Button_normal, 220,0,28,10)
    ;_GDIPlus_GraphicsDispose($hGraphics)
    ;$titel = GUICtrlCreateLabel("Nachricht erhalten!",20,3,200,20)
    ;GUICtrlSetFont($titel,10,400,2,"Comic Sans MS")
    ;GUICtrlSetColor ($titel, 0xFFFFFF)
    ;$pen = _GDIPlus_PenCreate(0xFF000000)
    ;_GDIPlus_GraphicsDrawString($hGraphics, "Nachricht erhalten!", 20, 0, $pen)

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

    $hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate("Comic Sans MS")
    $hFont = _GDIPlus_FontCreate($hFamily, 10, 1)
    $tLayout = _GDIPlus_RectFCreate(20, -2, 0, 0)
    $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, "Nachricht erhalten!", $hFont, $tLayout, $hFormat)
    _GDIPlus_GraphicsDrawStringEx($hGraphics, "Nachricht erhalten!", $hFont, $aInfo[0], $hFormat, $hBrush)

    $hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate("Comic Sans MS")
    $hFont = _GDIPlus_FontCreate($hFamily, 10, 2)
    $tLayout = _GDIPlus_RectFCreate(20, 50, 0, 0)
    $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, "Nachricht von ... erhalten", $hFont, $tLayout, $hFormat)
    _GDIPlus_GraphicsDrawStringEx($hGraphics, "Nachricht von ... erhalten", $hFont, $aInfo[0], $hFormat, $hBrush)

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

    While 1
    ohnenamen()
    febterfallen()
    $winpos = WinGetPos($title,"")
    if IsArray($winpos) Then
    If MouseGetPos(0) > $winpos[0] And MouseGetPos(0) < $winpos[0]+ $winpos[2]-30 And MouseGetPos(1) > $winpos[1] And MouseGetPos(1) < $winpos[1]+20 And _IsPressed(01) Then
    ;MsgBox(0,"","")
    $mouspos = GUIGetCursorInfo()
    Do
    WinMove($title,"",MouseGetPos(0)-$mouspos[0],MouseGetPos(1)-$mouspos[1])
    Until Not _IsPressed(01)
    EndIf
    EndIf
    Sleep(10)
    WEnd

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

    Func ohnenamen()
    $mouspos = GUIGetCursorInfo()
    if IsArray($mouspos) Then
    If $test = $mouspos[4] Then
    If $change2 Then
    $test = GUICtrlCreatePic("bilder/button.gif",220,0,28,10)
    $change = 1
    $change2 = 0
    EndIf
    Else
    If $change Then
    ;GUICtrlDelete($test)
    $test = GUICtrlCreatePic("bilder/button2.gif",220,0,28,10)
    ;_GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_Button_hover, 220,0,28,10)
    $change = 0
    $change2 = 1
    EndIf
    EndIf
    If $test = $mouspos[4] And $mouspos[2] Then
    Do
    $mouspos = GUIGetCursorInfo()
    Until not $mouspos[2]
    If $test = $mouspos[4] Then Exit
    EndIf
    EndIf
    EndFunc

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

    Func febterfallen()
    $t = 22
    $i = 0
    $winposoben = WinGetPos($title)
    $winpos = WinGetPos($title)
    If $winpos[1] < (@DesktopHeight - 130) Then
    Do
    For $r = $winpos[1] to $winpos[1]+2 Step 1/$t
    WinMove($title,"",$winpos[0], $r)
    ;MsgBox(0,"",$r)
    $i += $i
    $pos = MouseGetPos()
    $winpos = WinGetPos($title,"")
    If MouseGetPos(0) > $winpos[0] And MouseGetPos(0) < $winpos[0]+ $winpos[2] And MouseGetPos(1) > $winpos[1] And MouseGetPos(1) < $winpos[1]+$winpos[3]Then
    Do
    ohnenamen()
    Sleep(100)
    $pos = MouseGetPos()
    $winpos = WinGetPos($title,"")
    Until MouseGetPos(0) > $winpos[0] or MouseGetPos(0) < $winpos[0]+ $winpos[2] or MouseGetPos(1) > $winpos[1] or MouseGetPos(1) < $winpos[1]+$winpos[3]
    EndIf
    Next
    If $t = 6 Then
    ;MsgBox(0,"","")
    Else
    $t -= 1/16
    ;MsgBox(0,"",$t)
    EndIf
    $winpos = WinGetPos($title)
    $winpos2 = WinGetPos($title)
    Until $winpos2[1] > (@DesktopHeight - 129)
    If (@DesktopHeight - $winposoben[1]) > 800 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 160 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 20 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 20 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf

    If (@DesktopHeight - $winposoben[1]) > 600 And (@DesktopHeight - $winposoben[1]) < 799 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 150 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 15 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf

    If (@DesktopHeight - $winposoben[1]) > 400 And (@DesktopHeight - $winposoben[1]) < 599 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 140 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 15 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf

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

    If (@DesktopHeight - $winposoben[1]) > 200 And (@DesktopHeight - $winposoben[1]) < 399 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 20 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 15 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf
    If (@DesktopHeight - $winposoben[1]) > 170 And (@DesktopHeight - $winposoben[1]) < 199 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 3 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 3 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 6 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 6 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf
    If (@DesktopHeight - $winposoben[1]) > 250 And (@DesktopHeight - $winposoben[1]) < 99 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 5 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 5 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 15 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 5 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 5 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf
    EndIf
    EndFunc

    [/autoit]

  • Klaviatur+Töne

    ist auf jeder fall was cooles. Und naja Systemlaustrecher kann man seit Widowa Vista nicht mehr ausprechen, das wird alles über die normalen ausgegeben.
    Und ein Verbesserungsvorschlag hätte ich auf jeden fall. Das ganze im OnEvent modus machen, dann kommen die clicks sauberer an.

    aber sonst nicht schlecht :thumbup:

  • Mediatasten Simulator


    nene. Er hatte dazuwischen noch ein elsif und unten das endif.

  • Mediatasten Simulator

    nicht gestestet aber so dürfte es funktionieren

    du hattest funktionen in einer funktion drinn 8|

    Spoiler anzeigen
    [autoit]

    HotKeySet("^!m","activate")
    $activate = 0

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

    While 1
    Sleep(10)
    WEnd

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

    Func activate()
    If $activate = 0 Then
    $activate = 1
    HotKeySet("{F2}","mute")
    HotKeySet("{F3}","voldown")
    HotKeySet("{F4}","volup")
    HotKeySet("{F5}","prevtrack")
    HotKeySet("{F6}","playpause")
    HotKeySet("{F7}","stoptrack")
    HotKeySet("{F8}","nexttrack")
    ElseIf $activate = 1 Then
    $activate = 0
    HotKeySet("{F2}")
    HotKeySet("{F3}")
    HotKeySet("{F4}")
    HotKeySet("{F5}")
    HotKeySet("{F6}")
    HotKeySet("{F7}")
    HotKeySet("{F8}")
    EndIf
    EndFunc

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

    Func voldown()
    Send("{VOLUME_DOWN}")
    EndFunc

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

    Func volup()
    Send("{VOLUME_UP}")
    EndFunc

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

    Func prevtrack()
    Send("{MEDIA_PREV}")
    EndFunc

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

    Func playpause()
    Send("{MEDIA_PLAY_PAUSE}")
    EndFunc

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

    Func stoptrack()
    Send("{MEDIA_STOP}")
    EndFunc

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

    Func nexttrack()
    Send("{MEDIA_NEXT}")
    EndFunc

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

    Func mute()
    Send("{VOLUME_MUTE}")
    EndFunc

    [/autoit]

  • Seltsam

    naja ich wollte ebenmal dein skript nur ausführen um den fehler überhaupt festestellen zu können nur leider fehlt mir das include GUIScroll.au3.
    Wenn du hilfe erwartest wäre es schon von vorteil, dass du ein skript reinstellst, welchem man wenigstens läuft ;)